I2P_Developers/i2p.scripts
3
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Just shutdown

Browse Source 
GoHE wanted a script to just shutdown i2p, not check for the time left.
This commit is contained in:
dream
2010-05-14 22:01:41 +00:00
parent 0b1aa14328
commit 667e2f7ba3
1 changed files with 39 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
shutdown/just-shutdown-i2p.pl Executable file
View File

@ -0,0 +1,39 @@
#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
use XML::Smart;
use XML::LibXML::XPathContext;
require LWP::UserAgent;
my $mode = 'shutdown';
for my $arg (@ARGV) {
$mode = 'restart' if $arg =~ /restart/i;
}
my $ua = LWP::UserAgent->new(agent=>'feepyfeep');
sub main {
my $doc = $ua->get("http://localhost:7657/summaryframe.jsp");
unless ($doc->code==200) {
print "I2P does not seem to be running!\n";
exit;
}
my $cleaned = XML::Smart->new($doc->content,'html')->data;
my $dom = XML::LibXML->load_xml(string => $cleaned);
my $xpc = XML::LibXML::XPathContext->new($dom);
my @nonces = $xpc->find('//form[@action="/summaryframe.jsp"]/input[@name="consoleNonce"]/@value');
die "Too many nonces!" if scalar(@nonces) > 1;
my $nonce = $nonces[0]->string_value;
$doc = $ua->get("http://localhost:7657/summaryframe.jsp?consoleNonce=$nonce&action=$mode");
unless ($doc->code==200) {
print "I2P does not seem to be running!\n";
exit;
}
}
&main;