Help for this page

Select Code to Download

Select or download this

#!perl
use strict;
...
  printf  " ServiceStatus: %s %s %s \n", 
        $hostname, $shortname, $state_name[$state_no];  
}