File: kill_mldonkey

package info (click to toggle)
mldonkey 2.8.1-2etch1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 16,940 kB
  • ctags: 26,220
  • sloc: ml: 138,666; sh: 15,368; cpp: 12,076; ansic: 8,243; asm: 3,858; xml: 3,367; perl: 1,831; makefile: 259; python: 258
file content (25 lines) | stat: -rwxr-xr-x 598 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/perl
use LWP::UserAgent;
#
# Put Username and password into to /etc/sysconfig/donkey
# like this:
#
# HTTPUSER=you
# HTTPPASS=yourpassword
#
my $cfg = "/etc/sysconfig/donkey";
open(I,"<$cfg") || die "Can't read $cfg: $!\n";
chomp (my @lines = (<I>));
close I;
foreach (@lines) {
next if (/^#/);
if (/([^=\s]+)=([^=\s]+)/) {
$vars{$1}="$2";
}
}
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://localhost:4080/submit?q=kill');
if (($vars{'HTTPUSER'}) && ($vars{'HTTPPASS'})) {
$req->authorization_basic($vars{'HTTPUSER'}, $vars{'HTTPPASS'});
}
$ua->request($req);