version 1.1, 2007/01/10 18:01:11 |
version 1.2, 2007/01/10 18:05:31 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver$ |
# $RedRiver: host2rrd,v 1.1 2007/01/10 18:01:11 andrew Exp $ |
######################################################################## |
######################################################################## |
# hostalias2filename *** figures out the filename for a wireless |
# hostalias2filename *** figures out the filename for a wireless |
# customer to pass to a script. |
# customer to pass to a script. |
|
|
"rrd|r=s" => \$RRD, |
"rrd|r=s" => \$RRD, |
); |
); |
|
|
die "No host passes!" unless $Host |
die "No host passes!" unless $Host; |
die "No RRD passed!" unless $RRD; |
die "No RRD passed!" unless $RRD; |
|
|
my ($server, $client) = split /-/, $Host, 2; |
my ($server, $client) = split /-/, $Host, 2; |