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;}
    }