Hi,
Am unfamiliar with using CGI modules in Perl.
Though i checked in few sites about CGI , i dint get a clear idea.
Can anyone please explain me the purpose of these statements, it ll be very helpful to me
#!/usr/bin/perl
use CGI qw/:standard/;
use Storable;
use Data::Dumper;
my $variable = {};
$variable->{data}->{file} = retrieve("$variable->{sys}->{datadir}/file.storable.current");
{
statements....
}
for my $sgroup (keys(%{$variable->{data}->{net}->{sgroups}}))
{
statements
}
if ($globals->{data}->{net}->{sgroups}->{$sgroup}->{$servername}->{$serverport} eq $server) {
statements
}
%{$variables->{switches}} = map {
my @values = para($_);
$_ => $#values
? \@values
: $values[0]
} param();
for my $server (@{$servicegroups->{$servicegroup}})
{
statments
}
Thanks in advance