Help for this page

Select Code to Download


  1. or download this
    my %cmd=( "-p"  => { "COMMAND"    => { "linux" => "/usr/local/bin/setp
+ass.expect $USERNAME $NEWPASS",
                                       "aix"   => "" },
...
                                       "aix"   => "" },
                     "ACTION"     => "Deleted",
                     "CHECKMODES" => \&checkparms } );
  2. or download this
    ##############
sub checkparms
...
    my $return_val = ( scalar(@THINGS) == 0 ) ? "0" : "1";
    return $return_val;
}