HP-UX CMGR A.02.00 Administrator's and Developer's Guide

{
my ($file, $contents) = @_;
open my $out, '>', "$file"
or die "Error: couldn't open $file for writing: $!\n";
print {$out} $contents;
}
1;
4. Create a variable validation function,
Cmgr::My_check_vars::check_system(), that is referenced by the example
template:
#!/usr/bin/perl
package Cmgr::My_check_vars;
use strict;
use warnings;
sub check_system
{
my ($name, $value, $errMsg) = @_;
# detaint
$value=~/^(.*)$/; $value=$1;
# make sure a nodename was specified
$errMsg="Error: invalid hostname for $name" if !$errMsg;
die $errMsg if !$value || $value!~/^\w+$/;
# check if the node is reachable
my $out=`/usr/sbin/ping $value -n 1 2>&1`;
die "Error: $value is not reachable.\n" if $?;
}
1;
44 Developing a CMGR Plug-in