perldoc -f do José.
> -----Original Message----- > From: Johnstone, Colin [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, November 26, 2002 7:58 AM > To: '[EMAIL PROTECTED]' > Subject: Help perl gurus > > > 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."/new > sletters/"; > > 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] > > **** DISCLAIMER **** "This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above. Any use of the information contained herein (including, but not limited to, total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited. If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer". Thank you for your cooperation. For further information about Proximus mobile phone services please see our website at http://www.proximus.be or refer to any Proximus agent. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
