Ok what I have is 3 variables assigned in the global block using my then
when I try to use those variables later in a subroutine I get an error.
The error is below:
Error during compilation of
/usr/local/rt3/local/html/cgi-bin/aupsearch.cgi:
Variable "$ip" will not stay shared at
/usr/local/rt3/local/html/cgi-bin/aupsearch.cgi line 141.
Variable "$date" will not stay shared at
/usr/local/rt3/local/html/cgi-bin/aupsearch.cgi line 142.
Variable "$customer" will not stay shared at
/usr/local/rt3/local/html/cgi-bin/aupsearch.cgi line 158.
Now it was my understanding that if I used my in the global block, that
I could reference that variable in a subroutine. OH, and strict is on,
and cannot be taken off.
Any help with this will be greatly appreciated.
Actual Code below, some code omitted because of security and for
clarity.
.
# Get parameters from the html form
my $date = $q->param('date');
my $ip = $q->param('ip');
my $customer = $q->param('customer');
### Sub to Print VZD Table ###
sub PrintVZDTable {
my @row;
my $rsltid;
my $rsltdate;
my $rslttime;
my $rsltrecord_type;
my $rsltfullname;
my $rsltframed_ip_address;
my $tableline;
my $rsltuser_name;
my $rsltrecord_time;
my $rsltevent_timestamp;
my $sth;
print $ip;
print $date;
..
}
Chris Hood
Investigator Verizon Global Security Operations Center
Email: <mailto:[EMAIL PROTECTED]>
[EMAIL PROTECTED]
Desk: 972.399.5900
Verizon Proprietary
NOTICE - This message and any attached files may contain information
that is confidential and/or subject of legal privilege intended only for
the use by the intended recipient. If you are not the intended
recipient or the person responsible for delivering the message to the
intended recipient, be advised that you have received this message in
error and that any dissemination, copying or use of this message or
attachment is strictly forbidden, as is the disclosure of the
information therein. If you have received this message in error please
notify the sender immediately and delete the message.
