Help for this page

Select Code to Download


  1. or download this
    getopt('st',\%opt);
if ($opt{'t'}) {
  $test = 1; ## testing
} elsif ($opt{'s'}) {
  $test = 0; ## not testing
}
  2. or download this
    if ( (!(defined($opt{'s'}))) && (!(defined($opt{'t'}))) ) {
  ## neither option was used let's check sitetest file for a test valu
+e
  printf "Reading from sitetest file\n";
...
  print $line."\n";
  if ($line =~ /0/) {$test = 0;}
}