So those errors are saying that $ipsplitdata is not declared, and it's
not because the foreach line is not being interpreted as perl. All of
those lines need to start with a %, or you need to wrap them in a
<%perl> block. % only effects the line it is on.
So:
% 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>
% }
Or:
<%perl>
foreach my $ipdata (@ipInfo){
my @splitIP=split(':',$ipdata);
foreach my $ipsplitdata (@splitIP){
if ($ipsplitdata =~ "172" || $ipsplitdata =~ "66" || $ipsplitdata
=~ "24" ||$ipsplitdata =~ "10"){
</%perl>
<td><a href="/finger/"><% $ipsplitdata </a></td>
% } else{
<td><% $ipsplitdata %></td>
% }
% }
</tr><tr>
% }
Hope that helps.
Regards,
Bradley C Bailey
> 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: [email protected]
> 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
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/mason-users
-------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/mason-users
