can you forward the html part again? I will test the exact same code on my machine, I'm sure it's gonna work, I just checked the part of my script that reads data from my forms and it works fine...
My netscrap just converted to text and the only thing I see is the line and the text Etienne [EMAIL PROTECTED] wrote: > Something must not be reading right. I still get the same result from the > category. A blank. Everything else is there though. > > Mike > > Etienne Marcotte <[EMAIL PROTECTED]> wrote in message > [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > > By the way I had a unknown host with me.com... > > > > Try this, if it works, it's in your cgi-lib.pl the problem.. ( I removed > > comments and added some where I made mods) > > > > #!/usr/bin/perl > > use CGI; # use the CGI module to parse instead of your cgi-lib... > > use strict; #always use strict, it's a good coding habit > > > > my $logfile = "/usr/local/apache/cgi-bin/log/logfile.log"; > > my $mailprog = "/usr/sbin/sendmail"; > > > > my $q = new CGI; > > $q->import_names('in'); #imports the names in package 'in', I use this one > > because it's 2 less chars to type when accessing a value:-P > > > > print "Content-type: text/html\n\n"; > > > > print<<END; #don't have to make 2340893 print statements > > <html><head> > > <title>Thank you!</title> > > </head> > > <body> > > <p>Thanks $in::email<br> > > Category $in::category > > URL: $in::url > > Description: $in::description > > I'll inform you when your link has been added > > </p> > > </body></html> > > END > > > > open(FILE, ">$logfile") || die "I can't open $logfile\n"; > > print FILE "Someone requested a link addition\n"; > > print FILE "Category $in::category\n"; > > print FILE "E-mail $in::email\n"; > > print FILE "URL $in::url\n"; > > print FILE "Description $in::description::\n\n"; > > close(FILE); > > > > open(MAIL, "| $mailprog -t") || die "I can't open $mailprog\n"; > > print MAIL "To: webmaster <webmaster\@yourname.com>\n"; > > print MAIL "From: $in::email\n"; > > print MAIL "Subject: Link Request\n"; > > print MAIL "Someone requests a link addition\n"; > > print MAIL "Category: $in::category\n"; > > print MAIL "URL: $in::url\n"; > > print MAIL "Description: $in::description\n"; > > close(MAIL); > > > > ===== > > > > Mine was working fine with your same code when using my read_parse sub... > > > > You can try also to replace the ReadParse sub in cgi-lib.pl by this one: > > > > ===== > > > > sub ReadParse > > { > > my %in; > > my ($request_method, $query_string, @key_value_arr, $key_value, $key, > $value); > > > > $request_method = $ENV{'REQUEST_METHOD'}; > > if ($request_method eq "GET") { > > $query_string = $ENV{'QUERY_STRING'}; > > } elsif ($request_method eq "POST") { > > read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); > > } else { die "server uses an unknown method"; } > > @key_value_arr = split (/&/, $query_string); > > foreach $key_value (@key_value_arr) { > > ($key, $value) = split (/=/, $key_value); > > $value =~ tr/+/ /; > > $value =~ s/%(..)/pack("c", hex($1))/eg; > > if (defined($formdat{$key})) { > > $in{$key} .= "\0" . $value; > > } else { > > $in{$key} = $value; > > } > > } > > return %in; > > } > > > > ===== > > and then use the exact same code of the beginning but change > > > > &ReadParse; > > by > > my %in = &ReadParse; > > > > Etienne > > > > Mike wrote: > > > > > I am using cgi-lib.pl this is the script that I am using. > > > > > > #!/usr/bin/perl > > > > > > #location to your log file. > > > $logfile = "/usr/local/apache/cgi-bin/log/logfile.log"; > > > > > > #location of our sendmail program. > > > $mailprog = "/usr/sbin/sendmail"; > > > > > > #path to cgi-lib.pl. > > > $library = "/usr/local/apache/cgi-bin"; > > > > > > require "$library/cgi-lib.pl"; > > > > > > &ReadParse; > > > > > > # Print the http header > > > print "Content-type: text/html\n\n"; > > > > > > # Send the user a thank you > > > print "<html>\n"; > > > print "<head>\n"; > > > print "<title>Thank you!</title>\n"; > > > print "</head>\n"; > > > print "<body>\n"; > > > print "<p>Thanks $in{'email'}<br>\n"; > > > print "Category $in{'category'}\n"; > > > print "URL: $in{'url'}\n"; > > > print "Description: $in{'description'}\n"; > > > print "I'll inform you when your link has been added\n"; > > > print "</p></body></html>\n"; > > > > > > # Open the log file and write the data > > > open(FILE, ">$logfile") || die "I can't open $logfile\n"; > > > print FILE "Someone requested a link addition\n"; > > > print FILE "Category $in{'category'}\n"; > > > print FILE "E-mail $in{'email'}\n"; > > > print FILE "URL $in{'url'}\n"; > > > print FILE "Description $in{'description'}\n"; > > > print FILE "\n"; > > > close(FILE); > > > > > > # Open the sendmail program and pipe the data > > > open(MAIL, "| $mailprog -t") || die "I can't open $mailprog\n"; > > > print MAIL "To: webmaster <webmaster\@yourname.com>\n"; > > > print MAIL "From: $in{'email'}\n"; > > > print MAIL "Subject: Link Request\n"; > > > print MAIL "Someone requests a link addition\n"; > > > print MAIL "Category: $in{'category'}\n"; > > > print MAIL "URL: $in{'url'}\n"; > > > print MAIL "Description: $in{'description'}\n"; > > > close(MAIL); > > > > > > Thanks again > > > > > > Mike > > > > > > Etienne Marcotte wrote: > > > > > > > The CGI (or other parsing sub) reads the data selected from the drop > > > > down, which is in the "value" part of each <option> tag. > > > > > > > > <select name="dropdown"> > > > > <option value="1">option 1</option> > > > > <option value="2">option 2</option> > > > > <option value="3">option 3</option> > > > > </select> > > > > > > > > then in your param{'dropdown'}you should have 1, 2 or 3 depending on > the > > > > option that he choose. > > > > > > > > What are you using to parse the data? CGI.pm ? That is probably > causing > > > > the problem because your html seems right > > > > > > > > Etienne > > > > > > > > Bogus email wrote: > > > > > > > > > Sorry bout that... I do mean <select> drop-downs from HTML. What I > > > > > want to > > > > > do is have it email me all the info, which it does email me. > > > > > Everything but > > > > > the dropdown menu information. see attached. > > > > > > > > > > Thanks again... > > > > > > > > > > Mike > > > > > > > > > > > > > > > > > > > > "Curtis Poe" <[EMAIL PROTECTED]> wrote in message > > > > > [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > > > > > > --- [EMAIL PROTECTED] wrote: > > > > > > > Hello all, > > > > > > > > > > > > > > I am trying to process a menu option but for some reason perl > > > > > causes the > > > > > > > value to come up blank can anyone help? This is only hapening on > > > > > the > > > > > menu > > > > > > > items. > > > > > > > > > > > > > > Is there a trick to sending drop down menus? > > > > > > > > > > > > > > TNX, > > > > > > > > > > > > > > Mike > > > > > > > > > > > > Mike, > > > > > > > > > > > > What do you mean by "menu"? Are you referring to Perl::Tk menus? > > > > > Win32::Gui? Perhaps you mean > > > > > > <select> drop-downs from HTML? Can you post some sample code? We > > > > > need a > > > > > lot more information > > > > > > before we can help you. > > > > > > > > > > > > Show us what you have. Tell us what you expect. Tell us what you > > > > > are > > > > > actually getting. That's > > > > > > usually a good start. > > > > > > > > > > > > Cheers, > > > > > > Curtis "Ovid" Poe > > > > > > > > > > > > ===== > > > > > > Senior Programmer > > > > > > Onsite! Technology (http://www.onsitetech.com/) > > > > > > "Ovid" on http://www.perlmonks.org/ > > > > > > > > > > > > __________________________________________________ > > > > > > Do You Yahoo!? > > > > > > Make a great connection at Yahoo! Personals. > > > > > > http://personals.yahoo.com > > > > > > > > > > > > > > > > > > > > > > > > [Add your link] > > > > [ Home ] [ Up ] > > > > > > > > > ------------------------------------------------------------------ > > > > > > > > Category: URL: > > > > > > > > Email: > > > > > > > > (Note: Your email will only be used to notify you when your link > > > > has been added.) > > > > > > > > > > > > > > -- > > > > > 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] > > > > -- > 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]
