An excellent article about your problem: http://perl.plover.com/FAQs/Namespaces.html
You should be doing: use strict; use warnings; This will produce somewhat cryptic messages until you get used to it but then it will save you lots of time... http://danconia.org ------------------------------------------------ On Tue, 26 Nov 2002 17:58:14 +1100, "Johnstone, Colin" <[EMAIL PROTECTED]> wrote: > Gidday all, > > I have written what I will refer to as an include file ( php speak ) and named it >press_config.pl > The contents is the initialisation of the variables that I wish to use across my >mailinglist application. It is below. > > First problem > > When I use the require statement to call this file into another I no longer have >access to the variables. I was hoping to include this file at the top of each of my >programs across the application naturally so that I only have to write them once. > > > Back ground info If your interested > My application consists of the following programs > > press_config.pl > press_optin.cgi > press_optout.cgi > press_managelist1.cgi > press_managelist2.cgi > press_send.cgi > press_subs.pl > > We use a double optin process to subscribe to the mailing list this is handled by >press_optin.cgi > > Unsubscribe is handled by press_optout.cgi > > These are my admin modules > > press_managelist1.cgi > press_managelist2.cgi > > I use them to manually add and delete names from the mailing lists if necessary. > > There are two lists Im using textfiles as my database > When someone initially subscribes they go on list 1, when they respond to my first >email I place them on list 2. > > press_send.cgi is responsible for sending the emails in either html or text format >depending on what format the subscriber chose. This is > run each evening using the cron facility. > > Any help appreciated. > > <snip> > #!/usr/bin/perl > > print "Content-Type: text/html\n\n"; > > require '/web/www.det/cgi-bin/press_config.pl'; > > $bolSendNewsletter1 = 0; #false > if( (-e $newsletter1_html) && (-e $newsletter1_text) ) { > $bolSendNewsletter1 = 1; #true > } > > $bolSendNewsletter2 = 0; #false > if( (-e $newsletter1_html) && (-e $newsletter1_text) ) { > $bolSendNewsletter2 = 1; #true > } > > print "Send Newsletter 1=$bolSendNewsletter1<br>"; > </snip> > > <snip> > ####### > #press_config.pl > > my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); > > my $year = $year + 1900; # $year is number years since 1900 > my $day_text=(qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday))[$wday]; > my $mon_text=(qw(January February March April May June July August September October >November December))[$mon]; > $mon++; # with localtime months start at zero > my $day = $mday; > > my $date = $day . "/" . $mon . "/" . $year; > my $date_today = $day_text." ".$mday." ".$mon_text.","." ".$year; > my $short_month = lc(substr($mon_text,0,3)); > my $newsletterName = $year.$mon.$day; > > # where to find the subscriber lists > > my $list1 = '/web/www.det/cgi-bin/press_data/subscribe_news1.txt'; > my $list2 = '/web/www.det/cgi-bin/press_data/subscribe_news2.txt'; > > # where to find each of the newsletters > > my $newsletter1_path = >"/web/www.det/www/newsroom/yr".$year."/".$short_month."/newsletters/"; > > my $newsletter1_html = $newsletter1_path.$newsletterName.".htm"; > my $newsletter1_text = $newsletter1_path.$newsletterName.".txt"; > > my $newsletter2_path = >"/web/www.det/www/ministerial/yr".$year."/".$short_month."/newsletters/"; > > my $newsletter2_html = $newsletter2_path.$newsletterName.".htm"; > my $newsletter2_text = $newsletter2_path.$newsletterName.".txt"; > > # the path to the sendmail library > my $sendmailpath="/usr/sbin/sendmail"; > > 1; > </snip> > > > > Colin Johnstone > Website Project Officer > Corporate Website Unit > Public Affairs Directorate > ph 9561 8643 > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
