Counting the number of form fields returned with information

2002-04-17 Thread eric-sourceforge
Hello, All: What's the simplest way to make sure that all 10 fields have been selected? I was hoping that... display_error_message() if param() < 10; would work, but it doesn't seem to work correctly. -- Eric P. Los Gatos, CA -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

Re: Parsing variables and HTML

2002-04-17 Thread John Brooking
Daniel,    I'm assuming you mean that you want your three crud parameters passed through, in which case, your intuition at the end of your message is correct. Remember that HTTP is by default stateless, meaning that when the form that was output by first() is submitted, your script has no memory

Re: Using smtp

2002-04-17 Thread eric-sourceforge
On Wed, 17 Apr 2002, Bill Lyles wrote: > How can I change this to smtp? Bill: Try using Mail::Mailer: #!/usr/bin/perl -w use Mail::Mailer; my $To = $ARGV[0]; my $mailer = Mail::Mailer->new('smtp', 'your.smtp.host'); $mailer->open({ From => "[EMAIL PROTECTED]", T

Firewall

2002-04-17 Thread Fred Sahakian
Anyone know of a perl script that can determine if a website is actually behind a firewall? thanks!

RE: Removing the last character from a string

2002-04-17 Thread Scot Robnett
Actually I had that wrong. The basic example I provided does in fact work; my problem is that I have a string generated by an object method, and that method automatically places the quotation mark at the end of my string. That's the quotation mark that I don't know how to remove. I should have pro

RE: Removing the last character from a string

2002-04-17 Thread Nikola Janceski
this worked for me: use warnings; use strict; my $string = qq(one" two" three" four"); $string =~ s/\"$//; # replace last " with nothing print "$string\n"; __END__ What did your code look like? What version of perl are you using? > -Original Message- > From: Scot Robnett [mailto:[EMA

Removing the last character from a string

2002-04-17 Thread Scot Robnett
How would I remove only the *last* quote from this string? my $string = qq(one" two" three" four"); The result I am looking for replaces this: one" two" three" four" with this: one" two" three" four This did not work: $string =~ s/\"$//; # replace last " w

Using smtp

2002-04-17 Thread Bill Lyles
I have a script that I'm trying to edit to use smtp because it only calls for a mail program. this is the code if ($found) { open (MAILME, "|$mailprog -t") or &dienice("Can't access $mailprog!\n"); print MAILME "To: $email\n"; print MAILME "From: $adminmail\n"; print MAILME "Subject: Your userna