Automated Testing

`Syscommand`

It's so bizarre that I must show it to you

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

The bizarre "1" argument is because someone wanted to reuse this function from Account Management
- But account management is irredeemable, so we shouldn't be reusing it
- Particularly not like this