#!/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;