if(param()) {
if(param('addserver')) {
my $s = param('server');
my $p = param('port');
my $i = param('id');
my @command = ("/usr/local/www/radio/perl/addrelay.sh", "$s", "$p", "random", "$i");
my $err = system(@command) || die "Error exec: $!";
### HERE IT SPITS OUT Bad file Descriptor EVEN THOU THE SCRIPT DOES WHAT IT IS SUPPOSED TO
print "\n$err\n";
print $!;
#print param('server') . "<br>";
#print param('port') . "<br>";
#print param('id'). "<br>";
}
if(param('remserver')) {
print param('remserver'). "<br>";
}
}