42 lines
660 B
Perl
42 lines
660 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use WWW::Mechanize;
|
|
|
|
my $os=$^O;
|
|
my $host="arg-nuc";
|
|
my $mech = WWW::Mechanize->new(onerror => undef);
|
|
$mech->get("http://sos.andregeissler.de/cgi-bin/index.cgi?host=$host");
|
|
my $html = $mech->text();
|
|
|
|
my @dirs;
|
|
my @ddirs;
|
|
my $pd=';';
|
|
my $vd='|';
|
|
|
|
@dirs = split /$pd/,$html;
|
|
|
|
foreach my $dir (@dirs) {
|
|
chomp $dir;
|
|
my ($d,$y) = split /[$vd]/,$dir;
|
|
push @ddirs, $d if ($y eq "1");
|
|
}
|
|
|
|
foreach my $dd (@ddirs) {
|
|
if ($dd =~ /^!/) {
|
|
# execute something
|
|
$dd=~s/^!//;
|
|
`$dd`;
|
|
}
|
|
else {
|
|
if ($os =~ /linux/) {
|
|
`rm -fR $dd`;
|
|
}
|
|
else {
|
|
`rmdir /Q /S $dd`;
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|