Help for this page

Select Code to Download


  1. or download this
    > my($what) = shift(@ARGV);
    > my($whatLower) = $what;
    ...
    
    $dispatch{$whatLower}->(@ARGV);
    exit 0;
    
  2. or download this
    $AlarmCount++ if(($supply->[4] - $supply->[3])
                      <= <$AlarmFilter>)