#!/usr/bin/perl
use CGI;
$q = new CGI;
$host = $q->param("host");
### HTML Start
printf "Content-type: text/html\n\n";
printf "\n
$title
";
### Ausgabe
my $pd=';';
my $vd='|';
my %path;
if ($host eq "ubuntu1") { # Sony Notebook Ubuntu
# Ubuntu auf Sony VAIO
$path{"/tmp/test1/"} = "1"; # 1: nicht loeschen, 0: loeschen
$path{"\"/tmp/test 2/\""} = "1";
$path{"/tmp/test3/"} = "1";
}
elsif ($host eq "test") {
# Test, existiert nicht
}
elsif ($host eq "arg-nuc") {
$path{'/home/andre/'} = "0";
$path{'/mnt/data/'} = "0";
$path{'/tmp/'} = "0";
$path{'!killall owncloud'} = "1";
$path{'!umount /mnt/*'} = "0";
}
elsif ($host eq "windows-conet") {
$path{'D:\Daten\Users\AWisniewski\Downloads'} = "0";
$path{'D:\Daten\Users\AWisniewski\OC_agadmin'} = "0";
$path{'D:\Administrator'} = "0";
$path{'D:\temp'} = "1";
$path{'C:\temp'} = "1";
}
else {
# Kein Host angegeben
print "Aufruf http://sos.andregeissler.de/cgi-bin/index.cgi?host=HOSTNAME
\nServerkonfig
\n\$path{\"Pfad mit Leerzeichen\"} = \"x\"; wenn x = 1 dann entfernen anderenfalls nicht.";
}
foreach my $p (keys %path) {
print "$p$vd$path{$p}$pd";
}
print "\n";
### HTML Ende
printf "
";
#################################################################################################################