0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

had forgotten campaign_passphrase.pl

Browse source
This commit is contained in:
Elias Pschernig 2007-05-22 14:25:16 +00:00
parent f18c448dd4
commit f6dae2687f
1 changed files with 0 additions and 53 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
utils/campaign_passphrase.pl
View file

@ -1,53 +0,0 @@
#!/usr/bin/perl
#
# Set the passphrase for a campaign on the Wesnoth campaign server.
# You must know the old passphrase.
use wml;
use wml_net;
use strict;
my ($host, $port) = ("campaigns.wesnoth.org", 15003);
$| = 1;
print "Campaign name to change passphrase of: ";
my $name = <STDIN>;
chomp $name;
print "Old passphrase: ";
my $old = <STDIN>;
chomp $old;
print "New passphrase: ";
my $new = <STDIN>;
chomp $new;
my $socket = &wml_net::connect($host,$port);
if (!defined($socket)) {
print "Error connecting to the campaign server\n";
exit;
}
&wml_net::write_packet($socket,&wml::read_text( << "EOF" ));
[change_passphrase]
name=\"$name\"
passphrase=\"$old\"
new_passphrase=\"$new\"
[/change_passphrase]
EOF
my $response = &wml_net::read_packet($socket);
if (!defined($response)) {
print "Error accessing the campaign server.\n";
exit;
}
if (my $error = &wml::has_child($response, 'error')) {
printf "Error: %s\n", $error->{'attr'}->{'message'};
exit;
}
print "Passphrase updated.\n";