mbox cleaning script

2003-03-08 Thread Ramprasad
Hello all, I am dealing with some mail folders created in pine as files in standard mbox format. Most of these files open fine with my mbox parser program but there are one or 2 rogue files which contain some special characters because of which the program hangs These files open up fine

Re: special caracters in variables in patternmatching

2003-03-08 Thread Rob Dixon
R. Joseph Newton wrote: > Rob Dixon wrote: > > > Hi Scott, Francesco. > > > > Scott R. Godin wrote: > > > Francesco Del Vecchio wrote: > > > > > > > suppose this: > > > > == > > > > $string 'I saw Roger and I said :roger? what the @*$!'; > > > > > > > > $var1 = "

Re: Help with File::Find

2003-03-08 Thread Rob Dixon
James Kipp wrote: > Steve's suggestions worked great for ignoring or not recursing > directories, but I am unable to filter out all directories not named > "My Documents" . I have tried using regex and grep to filter them out > but no luck > > this fails, just goes to the root directory and exits,

Re: how to do this in perl

2003-03-08 Thread Rob Dixon
Xiongfei Wang wrote: > I am very new to perl. > i need to write a simple user log system > if you go to > http://apidb.org/regstragreement.html > after you click agree, you will be direct to regiser page. > http://apidb.org/regstr.html > now if you click directly > http://apidb.org/regstr.html

Main email body

2003-03-08 Thread Mike Blezien
Hello All, I've sent up a .forward file to pipe a certain email address to a Perl script, and it's working well, I can extract the [to,from and subject], for the emails, but can not get it to extract the main body of the email, trying removing all the un-wanted email headers... Is this a speci

Re: Main email body

2003-03-08 Thread Pete Emerson
Mail::Audit can do this for you. my $mail=Mail::Audit->new(); my $from=$mail->from; my $to=$mail->to; my $cc=$mail->cc; my $subject=$mail->subject; my $body=$mail->body; Pete On Sat, 8 Mar 2003, Mike Blezien wrote: > Hello All, > > I've sent up a .forward file to pipe a certain email address t

Re: Main email body

2003-03-08 Thread Mike Blezien
Quick question, if I am reading in the email message into an array like such: my @alert_email = ; how would the Mail::Audit be applied ?? >> Pete Emerson wrote: Mail::Audit can do this for you. my $mail=Mail::Audit->new(); my $from=$mail->from; my $to=$mail->to; my $cc=$mail->cc; my $subject=$m

Re: mbox cleaning script

2003-03-08 Thread Wiggins d'Anconia
Ramprasad wrote: Hello all, I am dealing with some mail folders created in pine as files in standard mbox format. Most of these files open fine with my mbox parser program but there are one or 2 rogue files which contain some special characters because of which the program hangs These

qmail with perl

2003-03-08 Thread dan
Hi I know how to use sendmail with perl, but not sure about qmail. How much does the piping syntax of qmail differ to sendmail? Thanks in advance. Dan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

explicit package?

2003-03-08 Thread Mr. Horace Franklin Jr.
When I used the script. guestbook.cgi, I received the following errors. What is wrong with the syntax/code and what is an explicit pacakage? The file guestbook.cgi is attached. Software error: syntax error at guestbook.cgi line 109, near "h3>"  (Might be a runaway multi-line "" string starting

Re: explicit package?

2003-03-08 Thread Wiggins d'Anconia
Mr. Horace Franklin Jr. wrote: When I used the script. guestbook.cgi, I received the following errors. What is wrong with the syntax/code and what is an explicit pacakage? The file guestbook.cgi is attached. The syntax error is being caused by a missing double quote (or an extra double quote dep

Re: explicit package?

2003-03-08 Thread R. Joseph Newton
"Mr. Horace Franklin Jr." wrote: > When I used the script. guestbook.cgi, I received the following errors.What is wrong > with the syntax/code and what is an explicit pacakage?The file guestbook.cgi is > attached.Software error: > syntax error at guestbook.cgi line 109, near "h3>" > (Might be

store file paths in the database of the images

2003-03-08 Thread mel awaisi
Hi I have a perl script that takes images coming from a camera /home/httpd/htdocs/image.jpg and renames them the date and time of images to /home/me/images/2003_7_3_20_11_23.jpg. I would like to store file paths in the database of the images, (images header to include image_name, image_size an

Re: Simple Regex Problem.

2003-03-08 Thread Scott R. Godin
Rob Dixon wrote: >> you want to know what's failing, right? > > Wrong. John was just pointing out that $1 would remain > defined from a previous regex match in my previous post. > This would mean that there was no way of telling in > retrospect if the match had suceeded. The context of > the prob

Re: tnx to Scott Godin

2003-03-08 Thread Scott R. Godin
Francesco Del Vecchio wrote: > First, I'm really sorry...I didn't want to send you a personal email...I > pushed Reply instead of Reply All Well, you didn't send me a personal mail.. it did go to the list. I read this group via a newsreader application so the mail doesn't fill up my mailbox. It

Re: special caracters in variables in patternmatching

2003-03-08 Thread Scott R. Godin
Rob Dixon wrote: >> > I'm having problemsdue (i suppose) to the special chars in the >> > $var1 string the s/// don't match anything. >> > What can I do to? >> >> s{\Q$var1\E}{$var2} is usually what you want, except that may very >> well 'quote' out the $ in $var. > > I guess you mean $var2?

Re: Help! What am I doing wrong?

2003-03-08 Thread Scott R. Godin
>> foreach $AddrToCheck (@AddrArray) { > > Beware that at this point you may well still have newlines > at the end of each record. Make sure you have 'chomp'ed > each record, otherwise it won't validate as an email > address. > > Also, the easiest way to put all the lines from a file > into an a

Re: Test for empty list

2003-03-08 Thread Scott R. Godin
> #!/usr/bin/perl -w > > use strict; > > my @array = ('', 0, "", 1); > > my $hasTruth; > foreach (@array) { > if ($_ ){ > $hasTruth = "yezzindeedydo!"; > last; > } > } > if ($hasTruth) {print "$hasTruth has truth\n";} > else {print "Does not have truth";} > > > Joseph #!/usr/bin/

Re: print output from HTML::Parser

2003-03-08 Thread Scott R. Godin
Steven Massey wrote: > Hi all > > perl script below works, and does what I hoped it would, but I don't seem > to understand how to get it to print out the result to a new file as > opposed to stdout. > > Thanks for any help > > #!/usr/bin/perl -w > use strict; > use HTML::Parser; > > open(OUT,

Re: Test for empty list

2003-03-08 Thread R. Joseph Newton
"Scott R. Godin" wrote: > > #!/usr/bin/perl -w > > > > use strict; > > > > my @array = ('', 0, "", 1); > > > > my $hasTruth; > > foreach (@array) { > > if ($_ ){ > > $hasTruth = "yezzindeedydo!"; > > last; > > } > > } > > if ($hasTruth) {print "$hasTruth has truth\n";} > > else {print

Double post ability

2003-03-08 Thread Dennis LaPine
Greetings all, I have a discussion board that works quite well. I want to be able to have it post to two pages, instead of one. Can this be achieved by a comma separate in the "cfg" file that runs the script? Am I on the right track here, or is there an appropriate way to achieve this? # 'chat