Hello Alstair,
Tried what you suggested 2 different attempts and they resulted in the
following errors. Not really sure what I am doing wrong here, or if it is
not me at all?
Attempt #1
--Code--
%###########################################################################
######
%#
#
%# Perl Script to Connect to Incognito and retrieve modem information
#
%#
#
%###########################################################################
######
%# define a hash for the username/pass
<%args>
$macAddr
</%args>
<td><b>MACADDR:<% $macAddr %></b></td>
<table border=1><tr>
%foreach my $ipdata (@ipInfo){
my @splitIP=split(':',$ipdata);
foreach my $ipsplitdata (@splitIP){
if ($ipsplitdata =~ "172" || $ipsplitdata =~ "66" ||
$ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){
<td><a href="/finger/"><% $ipsplitdata %></a></td>
}
else{
<td><% $ipsplitdata %></td>
}
}
</tr><tr>
%}
</table>
<table border=1><tr>
%foreach my $snmpdata (@snmpInfo){
@splitInfo= split(':',$snmpdata,2);
foreach my $snmpsplitdata (@splitInfo){
if ($snmpsplitdata =~ "Record Added"){
<td></td><td><% $snmpsplitdata %></td>
}
else{
<td><% $snmpsplitdata %></td>
}
}
</tr><tr>
%}
</table>
<%init>
my %nops=('server' => 'xx.xx.xx.xx','user' => 'user', 'password' =>
'password');
my @ip_Info;
# Get the MAC Address from RT#
#my $macAddr="00:15:A2:78:9F:9B"; #to be pulled from RT
# remove ":" from MAC address so that we can use it in the Incognito CLI.
There is probably a faster way to do this, but
# this works.
while($macAddr =~ m/:/){
$macAddr =~ s/://;
$macAddr =~ tr/[A-Z]/[a-z]/;
}
my @ipInfo = `/opt/rt3/share/html/NoAuth/finger/ipcli -S xx.xx.xx.xx -N user
-P password list search lease remoteid $macAddr`;
# Get the Internal IP of the Cable modem and return only the IP so we can
use it in our next Incognito action
my $my_ip=$ipInfo[1];
#my $length_my_ip = length ($my_ip);
$my_ip=substr($my_ip,12,15);
# Get SNMP information from the Cable Modem based on the Internal IP address
my @snmpInfo = `/opt/rt3/share/html/NoAuth/finger/ipcli -S xx.xx.xx.xx -N
user -P password show lease $my_ip`;
</%init>
--/Code--
Error during compilation of
/opt/rt3/share/html/NoAuth/finger/m_incognito2:
Global symbol "$ipsplitdata" requires explicit package name at
/opt/rt3/share/html/NoAuth/finger/m_incognito2 line 19.
Global symbol "$ipsplitdata" requires explicit package name at
/opt/rt3/share/html/NoAuth/finger/m_incognito2 line 22.
Global symbol "$snmpsplitdata" requires explicit package name at
/opt/rt3/share/html/NoAuth/finger/m_incognito2 line 35.
Global symbol "$snmpsplitdata" requires explicit package name at
/opt/rt3/share/html/NoAuth/finger/m_incognito2 line 38.
context:
...
15: %foreach my $ipdata (@ipInfo){
16: my @splitIP=split(':',$ipdata);
17: foreach my $ipsplitdata (@splitIP){
18: if ($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata
=~ "24" ||$ipsplitdata =~ "10"){
19: <td><a href="/finger/"><% $ipsplitdata %></a></td>
20: }
21: else{
22: <td><% $ipsplitdata %></td>
23: }
24: }
25: </tr><tr>
26: %}
...
31: %foreach my $snmpdata (@snmpInfo){
32: @splitInfo= split(':',$snmpdata,2);
33: foreach my $snmpsplitdata (@splitInfo){
34: if ($snmpsplitdata =~ "Record Added"){
35: <td></td><td><% $snmpsplitdata %></td>
36: }
37: else{
38: <td><% $snmpsplitdata %></td>
39: }
40: }
41: </tr><tr>
42: %}
...
code stack: /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:445
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm:245
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm:210
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:97
/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:275
/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:353
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:348
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:868
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:822
/opt/rt3/bin/webmux.pl:125
-e:0
Attempt #2
--Code--
%###########################################################################
######
%#
#
%# Perl Script to Connect to Incognito and retrieve modem information
#
%#
#
%###########################################################################
######
%# define a hash for the username/pass
<%args>
$macAddr
</%args>
<td><b>MACADDR:<% $macAddr %></b></td>
<table border=1><tr>
%foreach my $ipdata (@ipInfo){
my @splitIP=split(':',$ipdata);
foreach my $ipsplitdata (@splitIP){
if ($ipsplitdata =~ "172" || $ipsplitdata =~ "66" ||
$ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){
<td><a href="/finger/"><% $ipsplitdata %></a></td>
}
else{
<td><% $ipsplitdata %></td>
}
}
</tr><tr>
%}
</table>
<table border=1><tr>
%foreach my $snmpdata (@snmpInfo){
@splitInfo= split(':',$snmpdata,2);
foreach my $snmpsplitdata (@splitInfo){
if ($snmpsplitdata =~ "Record Added"){
<td></td><td><% $snmpsplitdata %></td>
}
else{
<td><% $snmpsplitdata %></td>
}
}
</tr><tr>
%}
</table>
<%init>
my $ipsplitdata;
my $snmpsplitdata;
my %nops=('server' => 'xx.xx.xx.xx','user' => 'user', 'password' =>
'password');
my @ip_Info;
# Get the MAC Address from RT#
#my $macAddr="00:15:A2:78:9F:9B"; #to be pulled from RT
# remove ":" from MAC address so that we can use it in the Incognito CLI.
There is probably a faster way to do this, but
# this works.
while($macAddr =~ m/:/){
$macAddr =~ s/://;
$macAddr =~ tr/[A-Z]/[a-z]/;
}
my @ipInfo = `/opt/rt3/share/html/NoAuth/finger/ipcli -S xx.xx.xx.xx -N user
-P password list search lease remoteid $macAddr`;
# Get the Internal IP of the Cable modem and return only the IP so we can
use it in our next Incognito action
my $my_ip=$ipInfo[1];
#my $length_my_ip = length ($my_ip);
$my_ip=substr($my_ip,12,15);
# Get SNMP information from the Cable Modem based on the Internal IP address
my @snmpInfo = `/opt/rt3/share/html/NoAuth/finger/ipcli -S xx.xx.xx.xx -N
user -P password show lease $my_ip`;
</%init>
--/Code--
MACADDR:0017ee455fa2 my @splitIP=split(':',$ipdata); foreach my $ipsplitdata
(@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~ "66" ||
$ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } } my
@splitIP=split(':',$ipdata); foreach my $ipsplitdata (@splitIP){ if
($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata =~ "24"
||$ipsplitdata =~ "10"){ } else{ } } my @splitIP=split(':',$ipdata); foreach
my $ipsplitdata (@splitIP){ if ($ipsplitdata =~ "172" || $ipsplitdata =~
"66" || $ipsplitdata =~ "24" ||$ipsplitdata =~ "10"){ } else{ } }
@splitInfo= split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){
if ($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } } @splitInfo=
split(':',$snmpdata,2); foreach my $snmpsplitdata (@splitInfo){ if
($snmpsplitdata =~ "Record Added"){ } else{ } }
Greg Evans
Hood Canal Communications
(360) 898-2481 ext.212
-----Original Message-----
From: Alastair Douglas [mailto:[EMAIL PROTECTED]
Sent: Tuesday, April 29, 2008 5:39 AM
To: Greg Evans
Cc: mason-users@lists.sourceforge.net
Subject: Re: [Mason] Hello, newbie here in need of help :)
On Tue, Apr 29, 2008 at 4:36 AM, Greg Evans <[EMAIL PROTECTED]> wrote:
> Hello mason-users,
>
> I am new to mason and sorta mostly new to perl as well. I wrote a
> perl script to get and return some things from a CLI program and that
> works. I am now having problems getting it to work with mason. I am
> sure the code could be WAY better, but I would appreciate some help
> nonetheless. The problem is in the code below. I have also included
> the error messages that get returned.
>
>
8< --- snip ---
Might I interject and recommend using an <%init> block for all your perl?
Use <%init> ... </%init> to surround raw perl (no need for % on each
line) and thus set up your variables. Then within the actual HTML you
can use minimal perl, e.g. % foreach or %if. The <%init> block can go
anywhere in your page. We tend to put it at the bottom so the web
monkeys don't have to confuse themselves with scary perl :)
Anyway it means that not only do you have less junk in your page, it
also means that it becomes more obvious where your syntax errors are.
If you only use print statements outside the <%init> (except for
debugging of course), and even then you use <%$foo%> to print, you'll
probably run into many fewer errors.
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
