Hello,
In a recent perl script I wrote, I have a procedure, read_config(),
which reads a
config file I have set up and sets a hash to what is in the file. Now,
before you
mention it, I have stricts on and use the -w on the 1st line, and the
following
message appears.
main::read_config() called too early to check prototype at
./eleadtest.pl line 19.
What does this mean? Code snippets of the procedure call, and the
procedure itself
are below.
#!/home/ctantalo/perl5/bin/perl -w
#
# Programmer: Chris Tantalo
#
# This program will call eleadsht.sqt and email the eleadsht.lis file
# based on the data in the dmg.eleadsht_parameters table
#
# $Version_id = "@(#) elead.pl [@@/main/dec02_corp_sup/1] >";
use strict;
use Mail::Sender;
use DBI;
# check to see if test machine(cad2) or production(sam)
my $node = `hostname`;
chomp $node;
our %hash;
read_config($node);
<snip>
# the read_config procedure
sub read_config()
{
my $node = shift @_;
my $cfg_file = "";
my $key;
my $value;
$cfg_file = "/opt/appl/hrstmk/bin/elead.cfg" if($node eq "sam");
$cfg_file = "/usr/appl/cad/prod/hrstmk/bin/elead.cfg" if($node
eq "cad2");
open(CFG_FILE,"$cfg_file") ||die "cannot open $cfg_file for
reading:$!";
while(<CFG_FILE>)
{
next if($_ =~ /^#/);
($key,$value) = split(/=/,$_);
$hash{$key}=$value;
}
close(CFG_FILE);
}
TIA,
Chris
--
-------------------------------
Just Your Friendly Neighborhood
_SPIDEY_
--
Anything added after this was added by my mail server and not me.
--
-----------------------------------------
The information contained in this message may be privileged, confidential, and
protected from disclosure. If the reader of this message is not the intended
recipient, or any employee or agent responsible for delivering this message to the
intended recipient, you are hereby notified that any dissemination, distribution, or
copying of this communication is strictly prohibited. If you have received this
communication in error, please notify us immediately by replying to the message and
deleting it from your computer.
Thank you. Paychex, Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
