Next Automated Testing 5

Syscommand

        sub Syscommand {                                    
           my $acctsrvcs = shift;
           print "$syscommand = command<br>\n" if ($opt_d); 
           system "$syscommand";                            
           $returncode = $? >> 8;
           if ($returncode != 0) {                                   
              &Rollback if ($rollback);
              $MSG="\"$executable\" for \"$username\" failed: $returncode";
              if ($acctsrvcs) {
                 $returncode;
              }
              else { next; }                                         
           }                                                
        }                    


Next Copyright © 2004 Mark Dominus