perl.beginners.cgi

perl.beginners.cgi http://www.nntp.perl.org/group/perl.beginners.cgi/ ... Copyright 1998-2013 perl.org Sat, 25 May 2013 07:27:18 +0000 ask@perl.org Re: cgi development environment by Shaun Fryer Also check out http://search.cpan.org/~lds/CGI.pm-3.08/CGI/Carp.pm -- Shaun Fryer ---------------------------------------------------------- perl -e 'print chr for map{$_+=22}($ARGV[0])=~/(\d\d)/g' \ 52959394107588899482799210587992861082757785799222 ---------------------------------------------------------- On Wed, Sep 19, 2012 at 11:54 PM, Chris Stinemetz <chrisstinemetz@gmail.com> wrote: >>> >> You have a couple other issues. Since you have one print statement, spread >> over multiple lines, the semi-colons on lines 10 and 11 are bugs. They >> should be commas. The semi-colons terminate the statement resulting in >> syntax errors. >> >> Mike > > Thank you. That fixed it. > > -Chris > > -- > To unsubscribe, e-mail: beginners-cgi-unsubscribe@perl.org > For additional commands, e-mail: beginners-cgi-help@perl.org > http://learn.perl.org/ > > http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13597.html Wed, 19 Sep 2012 21:49:47 +0000 Re: cgi development environment by Chris Stinemetz >> > You have a couple other issues. Since you have one print statement, spread > over multiple lines, the semi-colons on lines 10 and 11 are bugs. They > should be commas. The semi-colons terminate the statement resulting in > syntax errors. > > Mike Thank you. That fixed it. -Chris http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13596.html Wed, 19 Sep 2012 20:54:29 +0000 Re: cgi development environment by Mike Williams On Wed, Sep 19, 2012 at 10:48 PM, Chris Stinemetz <chrisstinemetz@gmail.com>wrote: > am having issues with my first script and have hopes someone may be > able to explain to me whey it isn't working correctly. > > The error is coming form line 11 and the error is: > > Premature end of script headers: test2.cgi > Bareword "left" not allowed while "strict subs" in use at > The error message is a major clue. Try quotes around "left" > /usr/lib/cgi-bin/test2.cgi line 7. > Execution of /usr/lib/cgi-bin/test2.cgi aborted due to compilation errors. > Premature end of script headers: test2.cgi > > > 1 #!/usr/bin/perl > 2 use warnings; > 3 use strict; > 4 use CGI; > 5 > 6 my $q = CGI->new; > 7 print $q->header(-type=>'text/html'), > 8 $q->start_html('hello world'), # start the HTML > 9 $q->h1({-align=>right},'hello world'), # level 1 header > 10 $q->h1({-align=>left}); > 11 $q->h1('some','contents'); > 12 $q->end_html; # end the HTML > > You have a couple other issues. Since you have one print statement, spread over multiple lines, the semi-colons on lines 10 and 11 are bugs. They should be commas. The semi-colons terminate the statement resulting in syntax errors. Mike http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13595.html Wed, 19 Sep 2012 20:45:21 +0000 Re: cgi development environment by Chris Stinemetz I have my Perl cgi development environment all set-up. I actually wound up setting up an instance through Amazon AWS. Very cool service by Amazon. I am having issues with my first script and have hopes someone may be able to explain to me whey it isn't working correctly. The error is coming form line 11 and the error is: Premature end of script headers: test2.cgi Bareword "left" not allowed while "strict subs" in use at /usr/lib/cgi-bin/test2.cgi line 7. Execution of /usr/lib/cgi-bin/test2.cgi aborted due to compilation errors. Premature end of script headers: test2.cgi 1 #!/usr/bin/perl 2 use warnings; 3 use strict; 4 use CGI; 5 6 my $q = CGI->new; 7 print $q->header(-type=>'text/html'), 8 $q->start_html('hello world'), # start the HTML 9 $q->h1({-align=>right},'hello world'), # level 1 header 10 $q->h1({-align=>left}); 11 $q->h1('some','contents'); 12 $q->end_html; # end the HTML Thank you in advance, -Chris http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13594.html Wed, 19 Sep 2012 19:48:25 +0000 Re: cgi development environment by David Dorward On 18 Sep 2012, at 13:34, Chris Stinemetz <chrisstinemetz@gmail.com> wrote: > I am very interested in cgi scripting. I have only used php for web > development in the past. CGI or Perl? For a long time CGI with Perl was a popular combination so there are a lot of documents which conflate the two. It is possible to do CGI programming in PHP (which you already know), but PSGI[1] is the flavour du jour for server side web programming with Perl. CGI is still a plausible option though. It has the benefit of simplicity (but isn't the most efficient option). [1] http://plackperl.org/ -- David Dorward http://dorward.me.uk http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13593.html Wed, 19 Sep 2012 08:09:03 +0000 Re: cgi development environment by Mike Flannigan These are some materials I use: http://cpan.uwinnipeg.ca/htdocs/CGI.pm/CGI.html http://www.cookwood.com/perl/examples/overview.html I'm not sure those are the best sources for getting up and running. If not, I can help you with that too. First thing I would do is install Perl. Either ActiveState, or Strawberry Perl. I use ActiveState. I think CGI comes automatically, but if not install that too with 'ppm'. Get back to me if you need help with that. Mike On 9/18/2012 8:34 AM, beginners-cgi-digest-help@perl.org wrote: > Subject: > cgi development environment > From: > Chris Stinemetz <chrisstinemetz@gmail.com> > Date: > 9/18/2012 8:34 AM > > To: > > > Hello list, > > I am very interested in cgi scripting. I have only used php for web > development in the past. > Would someone please let me know of any good tutorials to get windows > based web development environment set up and get my feet wet? > > Thank you in advance, > > Chris http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13592.html Wed, 19 Sep 2012 06:29:41 +0000 Re: cgi development environment by Shaun Fryer If you're running Windows and have a decent amount of RAM, try installing vbox and then you should be able to find/follow instructions online to load/install any of the freely available linux iso's downloadable from the distro's website. I'd recommend either Ubuntu or Mint, though your preference may vary. It's generally pretty straight forward. -- Shaun Fryer ---------------------------------------------------------- perl -e 'print chr for map{$_+=22}($ARGV[0])=~/(\d\d)/g' \ 52959394107588899482799210587992861082757785799222 ---------------------------------------------------------- On Tue, Sep 18, 2012 at 7:53 PM, Chris Stinemetz <chrisstinemetz@gmail.com> wrote: > On Tue, Sep 18, 2012 at 5:46 AM, Mark Haney <markh@abemblem.com> wrote: >> On 09/18/2012 08:34 AM, Chris Stinemetz wrote: >>> >>> Hello list, >>> >>> I am very interested in cgi scripting. I have only used php for web >>> development in the past. >>> Would someone please let me know of any good tutorials to get windows >>> based web development environment set up and get my feet wet? >>> >>> Thank you in advance, >>> >>> Chris >>> >> >> Is there any particular reason it has to be Windows based? Not that I think >> it matters, but perl works okay on windows, but it's not a platform combo I >> would recommend. >> >> Would you consider learning it in a VM in Linux? >> >> Otherwise I can get you setup in windows with Perl if you like. I had to >> write up a setup sheet when I was working on a project. >> > > I'm not against using VM to set-up a linux box. If you have a write up > I would like to see it. > > Thank you, > > Chris > > -- > To unsubscribe, e-mail: beginners-cgi-unsubscribe@perl.org > For additional commands, e-mail: beginners-cgi-help@perl.org > http://learn.perl.org/ > > http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13591.html Tue, 18 Sep 2012 22:03:13 +0000 Re: cgi development environment by Chris Stinemetz On Tue, Sep 18, 2012 at 5:46 AM, Mark Haney <markh@abemblem.com> wrote: > On 09/18/2012 08:34 AM, Chris Stinemetz wrote: >> >> Hello list, >> >> I am very interested in cgi scripting. I have only used php for web >> development in the past. >> Would someone please let me know of any good tutorials to get windows >> based web development environment set up and get my feet wet? >> >> Thank you in advance, >> >> Chris >> > > Is there any particular reason it has to be Windows based? Not that I think > it matters, but perl works okay on windows, but it's not a platform combo I > would recommend. > > Would you consider learning it in a VM in Linux? > > Otherwise I can get you setup in windows with Perl if you like. I had to > write up a setup sheet when I was working on a project. > I'm not against using VM to set-up a linux box. If you have a write up I would like to see it. Thank you, Chris http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13590.html Tue, 18 Sep 2012 16:53:31 +0000 Re: cgi development environment by Shaun Fryer Native Win32 Perl: http://strawberryperl.com/ Win32 Linux compat layer: http://www.cygwin.com/ Free virtualization env: https://www.virtualbox.org/ Perl Win32 API bindings: https://www.google.ca/search?q=perl+win32+ole -- Shaun Fryer ---------------------------------------------------------- perl -e 'print chr for map{$_+=22}($ARGV[0])=~/(\d\d)/g' \ 52959394107588899482799210587992861082757785799222 ---------------------------------------------------------- On Tue, Sep 18, 2012 at 9:19 AM, David Christensen <dpchrist@holgerdanske.com> wrote: > On 09/18/12 05:34, Chris Stinemetz wrote: >> >> I am very interested in cgi scripting. I have only used php for web >> development in the past. >> Would someone please let me know of any good tutorials to get windows >> based web development environment set up and get my feet wet? > > > http://www.google.com/search?q=windows+cgi+howto > > http://www.cgi101.com/book/ > > http://www.cgi101.com/book/connect/winxp.html > > > HTH, > > David > > > -- > To unsubscribe, e-mail: beginners-cgi-unsubscribe@perl.org > For additional commands, e-mail: beginners-cgi-help@perl.org > http://learn.perl.org/ > > http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13589.html Tue, 18 Sep 2012 07:13:58 +0000 Re: cgi development environment by David Christensen On 09/18/12 05:34, Chris Stinemetz wrote: > I am very interested in cgi scripting. I have only used php for web > development in the past. > Would someone please let me know of any good tutorials to get windows > based web development environment set up and get my feet wet? http://www.google.com/search?q=windows+cgi+howto http://www.cgi101.com/book/ http://www.cgi101.com/book/connect/winxp.html HTH, David http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13588.html Tue, 18 Sep 2012 06:20:30 +0000 Re: cgi development environment by Mark Haney On 09/18/2012 08:34 AM, Chris Stinemetz wrote: > Hello list, > > I am very interested in cgi scripting. I have only used php for web > development in the past. > Would someone please let me know of any good tutorials to get windows > based web development environment set up and get my feet wet? > > Thank you in advance, > > Chris > Is there any particular reason it has to be Windows based? Not that I think it matters, but perl works okay on windows, but it's not a platform combo I would recommend. Would you consider learning it in a VM in Linux? Otherwise I can get you setup in windows with Perl if you like. I had to write up a setup sheet when I was working on a project. -- Mark Haney Software Developer/Consultant AB Emblem markh@abemblem.com Linux marius.homelinux.org 3.5.1-1.fc17.x86_64 GNU/Linux http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13587.html Tue, 18 Sep 2012 05:46:46 +0000 cgi development environment by Chris Stinemetz Hello list, I am very interested in cgi scripting. I have only used php for web development in the past. Would someone please let me know of any good tutorials to get windows based web development environment set up and get my feet wet? Thank you in advance, Chris http://www.nntp.perl.org/group/perl.beginners.cgi/2012/09/msg13586.html Tue, 18 Sep 2012 05:34:17 +0000 Re: Chess Script by gultekinmg http://aliens.alotspace.com/chess/board.pl i have just place it with file attributes. I guess problem is your server. http://www.nntp.perl.org/group/perl.beginners.cgi/2012/07/msg13585.html Thu, 05 Jul 2012 02:32:26 +0000 Re: Attach iCal event to an cgi mail by Peter Scott After your program has opened SENDMAIL, open it again in the debugger to wherever you want (e.g., open SENDMAIL, '>&STDOUT'). Since it's a bareword filehandle, you'll be reopening the same one. On Thu, 07 Jun 2012 12:59:20 -0700, mstep wrote: > Yes the Filehandle is opened for writing. Is there any means to look > inside? How to redirect the content of SENDMAIL in the debugger? > > Am Donnerstag, 7. Juni 2012 06:19:43 UTC+2 schrieb Peter Scott: >> On Mon, 04 Jun 2012 10:37:35 -0700, Marek wrote: >> >> > Could somebody please tell me, how can I see into a FILEHANDLE in >> > Perl debugger? I tried with > x <SENDMAIL> but I get only "empty >> > array". >> >> That filehandle is open for *output* in your program! What is it you >> want to examine? >> >> -- >> Peter Scott >> http://www.perlmedic.com/ http://www.perldebugged.com/ >> http://www.informit.com/store/product.aspx?isbn=0137001274 >> http://www.oreillyschool.com/certificates/perl-programming.php -- Peter Scott http://www.perlmedic.com/ http://www.perldebugged.com/ http://www.informit.com/store/product.aspx?isbn=0137001274 http://www.oreillyschool.com/certificates/perl-programming.php http://www.nntp.perl.org/group/perl.beginners.cgi/2012/06/msg13584.html Mon, 11 Jun 2012 01:32:21 +0000 Re: Attach iCal event to an cgi mail by mstep Hello Peter! Thank you for your reply! Meanwhile my sendmail is working! Was quite difficult to program it. Yes the Filehandle is opened for writing. Is there any means to look inside? How to redirect the content of SENDMAIL in the debugger? Greetings from Munich - heavy thunderstorm here marek Am Donnerstag, 7. Juni 2012 06:19:43 UTC+2 schrieb Peter Scott: > On Mon, 04 Jun 2012 10:37:35 -0700, Marek wrote: > > > Could somebody please tell me, how can I see into a FILEHANDLE in Perl > > debugger? I tried with > x <SENDMAIL> but I get only "empty array". > > That filehandle is open for *output* in your program! What is it you > want to examine? > > -- > Peter Scott > http://www.perlmedic.com/ http://www.perldebugged.com/ > http://www.informit.com/store/product.aspx?isbn=0137001274 > http://www.oreillyschool.com/certificates/perl-programming.php http://www.nntp.perl.org/group/perl.beginners.cgi/2012/06/msg13583.html Fri, 08 Jun 2012 01:04:44 +0000 Re: Attach iCal event to an cgi mail by Peter Scott On Mon, 04 Jun 2012 10:37:35 -0700, Marek wrote: > Could somebody please tell me, how can I see into a FILEHANDLE in Perl > debugger? I tried with > x <SENDMAIL> but I get only "empty array". That filehandle is open for *output* in your program! What is it you want to examine? -- Peter Scott http://www.perlmedic.com/ http://www.perldebugged.com/ http://www.informit.com/store/product.aspx?isbn=0137001274 http://www.oreillyschool.com/certificates/perl-programming.php http://www.nntp.perl.org/group/perl.beginners.cgi/2012/06/msg13582.html Thu, 07 Jun 2012 00:27:06 +0000 Attach iCal event to an cgi mail by Marek Hello all! I made up a script for a taxi company to order a taxi. Everything is working. I have only problems to attach an iCal event, so that you only have to click on it and it is in your iCalendar. The shortened script for mailing an attached file for the iCal event is doing nothing, without any error (script 2). The other script 1 is working. I don't understand why. Could somebody please tell me, how can I see into a FILEHANDLE in Perl debugger? I tried with > x <SENDMAIL> but I get only "empty array". Thank you for your help marek ***Script 1*** #!/usr/bin/perl # Inspired from: http://wiki.perl-community.de/Wissensbasis/SendmailAttachments use strict; use warnings; use MIME::Base64; my $file_path = "/Users/you/Documents/webpages/cgi-bin/tmp"; my $file_name = "ical_summary.ics"; open(M, "|/usr/sbin/sendmail -t -oi") or die "Can't open mailprogram: '/usr/sbin/sendmail'!\n$!"; print M "MIME-Version: 1.0\n"; print M qq(To: Your Name <you\@yourdomain.com>\n); print M qq(From: Your Name <you\@yourdomain.com>\n); print M qq(Reply-to: Your Name <you\@yourdomain.com>\n); print M "Subject: E-Mail - the corrected version!\n"; my $boundary = "==========".substr(pack('u', ('E-Mail'.'Your Name')), 0, 24); print M qq(Content-type: multipart/mixed; boundary="$boundary"\n); print M qq(--$boundary\nContent-Type: text/plain; charset="UTF-8"\nContent-Transfer-Encoding: 7bit\n\n); print M qq(\nAnd there is a test again!\n); print M "\n--$boundary\n"; print M qq(Content-type: application/octet-stream; name="$file_name"\n); print M "Content-Transfer-Encoding: base64\n"; print M qq(Content-Disposition: attachment;\nContent-Type: text/ calendar filename="$file_name"\nContent-Transfer-Encoding: base64\n); open(F, "$file_path/$file_name") or die "Can't open data: '$file_path/ $file_name'!\n$!"; my $data; { binmode F; local $/; $data = <F>; } close(F) or die "Can't close: '$file_path/$file_name'! $!\n"; my $codiert = MIME::Base64::encode($data); print M "\n$codiert\n"; print M qq(\n--$boundary--\n); close(M) or die "Can't close the filehandle <M>: $!"; __END__ ***Script 2***** #! /usr/bin/perl use strict; use warnings; use MIME::Base64; my $mailprog = '/usr/sbin/sendmail -t -oi'; my $postmaster = 'you@yourdomain.com'; my @recipients = ( 'info@anothedomain.de', 'marek@yourdomain.com' ); my $ical_data_start = "20120601T210000"; my $ical_data_end = "20120601T220000"; my $ical_summary = "Dinner"; my $ical_location = "Hörwartstr"; my $ical_file_name = $ical_summary . ".ics"; my $ical_data = <<"EOICAL"; BEGIN:VCALENDAR BEGIN:VEVENT DTEND;TZID=Europe/Berlin:$ical_data_end SUMMARY:$ical_summary DTSTART;TZID=Europe/Berlin:$ical_data_start DTSTAMP:20120521T190638Z LOCATION:$ical_location SEQUENCE:0 BEGIN:VALARM TRIGGER:-PT1H DESCRIPTION:Event reminder ACTION:DISPLAY END:VALARM END:VEVENT END:VCALENDAR EOICAL $ical_data = encode_base64($ical_data); my $reply = '"Your Name" <you@yourdomain.com>'; my $from = $reply; my $subject = "Abholung vom 1.6.2012, 21:00"; my $body = "This is a test :-) Corrected Version! You really have to pay attention to the line endings between the different headers!\n\tda maaki"; my $boundary = "=====" . time() . "====="; foreach my $to (@recipients) { my $result; eval { local $SIG{__DIE__}; $result = open SENDMAIL, "| $mailprog"; }; if ($@) { die $@ unless $@ =~ /Insecure directory/; delete $ENV{PATH}; $result = open SENDMAIL, "| $mailprog"; } die "Can't open mailprog [$mailprog]\n" unless $result; my $data = <<"EOMAIL"; MIME-Version: 1.0 From: $from To: $to Reply-to: $reply Subject: $subject Content-Type = multipart/mixed; boundary="$boundary" --$boundary Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit $body --$boundary Content-Disposition: attachment; Content-Type: text/calendar filename="$ical_file_name" Content-Transfer-Encoding: base64 $ical_data --$boundary-- EOMAIL print SENDMAIL $data or die "write to sendmail pipe: $!"; close SENDMAIL or die "Closing of SENDMAIL failed: $!"; } http://www.nntp.perl.org/group/perl.beginners.cgi/2012/06/msg13581.html Mon, 04 Jun 2012 11:53:30 +0000 Hi by Umesh Tiptur Hi PLZ add me not the list Sent from Yahoo! Mail on Android http://www.nntp.perl.org/group/perl.beginners.cgi/2012/04/msg13580.html Tue, 17 Apr 2012 00:35:07 +0000 Hi by Umesh Tiptur Please add me into the mailing list    http://www.nntp.perl.org/group/perl.beginners.cgi/2012/04/msg13579.html Mon, 02 Apr 2012 06:42:14 +0000 Confirm to add to the forum by Umesh Tiptur Sent from Yahoo! Mail on Android http://www.nntp.perl.org/group/perl.beginners.cgi/2012/03/msg13578.html Wed, 28 Mar 2012 03:43:53 +0000 Active Perl and ImageMagick by Skirv I cant seem to get this module to work at all. I have Windows 7 Pro 64bit, Apache 2.2.14, Active Perl 5.14.2.1402 64 bit Then I installed... ImageMagick-6.7.5-6-Q16-windows-x64-dll.exe I can run perl scripts on my web server fine and dandy, all day long, but If i call "use Image::Magick;" It gives me an error I cant understand because as far as I can tell everything is where is should be. I checked the box that said "Install PerlMagick for ActiveState Perl c51412.2 build 1402" "Can't locate loadable object for module Image::Magick in @INC (@INC contains: C:/Perl64/site/lib C:/Perl64/lib .)" Looking at those folders it put it all in the /site/lib/ and not in the /lib/ folder. Which seems to me, from what I found on the net, to be the right spot. But should it not work from either/or/both? As far as I can tell this should be all that I have to do for this, and yet it doesn't work? Any help would be appreciated. Thank you. http://www.nntp.perl.org/group/perl.beginners.cgi/2012/02/msg13577.html Sat, 18 Feb 2012 07:10:09 +0000 Re: problem with passing variables by nat Mark, I'm kind of new with perl, but from what I see, you're using a single quote when defining $sql, and it should be qq for the interpolated string. With the single quote (q) it is a literal. Hope this helps. On Friday, December 30, 2011 11:17:30 AM Mark Haney wrote: > I'm not sure if this is the right list for this, so bear with me. If it > isn't I'll be glad to post it on the correct one. > > I've got a problem with passing variables to a SQL server inside a CGI > script. My code is like this: > > my $begin_time = "2011-11-16 11:00:00"; > my $end_time = "2011-11-16 12:00:00"; > > my $dbh = DBI->connect('dbi:mysql:database=embdev', 'user', 'password'); > > my $sql = q/SELECT * FROM events WHERE date BETWEEN $begin_time and > $end_time/; > > my $sth = $dbh->prepare($sql); > $sth->execute(); > > I'm not sure why it's not using the the variables, can someone point out > what I'm doing wrong? > > ----- > Mark Haney -- nat enrgeeman.com http://www.nntp.perl.org/group/perl.beginners.cgi/2011/12/msg13576.html Fri, 30 Dec 2011 10:56:51 +0000 problem with passing variables by Mark Haney I'm not sure if this is the right list for this, so bear with me. If it isn't I'll be glad to post it on the correct one. I've got a problem with passing variables to a SQL server inside a CGI script. My code is like this: my $begin_time = "2011-11-16 11:00:00"; my $end_time = "2011-11-16 12:00:00"; my $dbh = DBI->connect('dbi:mysql:database=embdev', 'user', 'password'); my $sql = q/SELECT * FROM events WHERE date BETWEEN $begin_time and $end_time/; my $sth = $dbh->prepare($sql); $sth->execute(); I'm not sure why it's not using the the variables, can someone point out what I'm doing wrong? ----- Mark Haney http://www.nntp.perl.org/group/perl.beginners.cgi/2011/12/msg13575.html Fri, 30 Dec 2011 08:17:38 +0000 Re: need help with a form by Peter Scott On Sun, 20 Nov 2011 23:04:28 -0800, Kevin Locke wrote: > I need help with getting a form for my church's website to work. Can > someone help me with the code to send the information to my email. I > would appreciate any input. > > <form id="contact_us&quot;" class="appnitro" method="post" action="cgi- > bin/contact_us.html"> Well, your first problem is that the action target of the form is an HTML page instead of a CGI program. What code have you got so far? -- Peter Scott http://www.perlmedic.com/ http://www.perldebugged.com/ http://www.informit.com/store/product.aspx?isbn=0137001274 http://www.oreillyschool.com/certificates/perl-programming.php http://www.nntp.perl.org/group/perl.beginners.cgi/2011/11/msg13574.html Mon, 28 Nov 2011 20:56:52 +0000 need help with a form by Kevin Locke I need help with getting a form for my church's website to work. Can someone help me with the code to send the information to my email. I would appreciate any input. <form id="contact_us&quot;" class="appnitro" method="post" action="cgi- bin/contact_us.html"> http://www.nntp.perl.org/group/perl.beginners.cgi/2011/11/msg13573.html Mon, 21 Nov 2011 01:03:57 +0000 Win32 cgi under Apache on Linux [How] by Al Hello, I have a win32 executeable which contains a win32 Apache cgi. I want to, if possible get this file to run under Apache on Linux. I think the exe is just a container for the source/compiled files. I ran the exe on a win32 machine and it didnt appear to do anything, no output or errors. So I extracted it with universal extractor and got: +rsrc (folder) +MANIFEST (folder) - 1 (file) +VERSION (folder) - 1 (file) - .data - .rdata - .text .text is quite large and appears to be binary. The source exe I downloaded is at http://www.mobotix.com/other/Support/Software-Downloads/MxControlCenter/MxRemotePreview-1.0.4 I look forward to any help people here maybe able to provide. Cheers -Al http://www.nntp.perl.org/group/perl.beginners.cgi/2011/09/msg13572.html Mon, 26 Sep 2011 03:20:19 +0000 Re: sending scalar and hash to function by Shaun Fryer In the first code snippit, your function will receive a hash reference, which is a scalar. If you get rid of the curly braces, it will work. Better still would be.... my ($myopt, $myparams) =@_; ...and... each %$myparams -- Shaun Fryer 1-647-723-2729 On Jun 27, 2011 2:33 PM, <buzon@alejandro.ceballos.info> wrote: > I am trying to send an scalar and hash to a function, but is not > receiving the value of the hash > > My code is: > > dosomething('option',{'extraparam1'=>'hello'}); > > function dosomething > { > ($myopt,%myparams) = @_; > print "opt = $myopt\n"; > while( my ($k, $v) = each %myparams ) > { print "$k = $v \n"; } > } > > And result is: > > opt = option > HASH(0xcb4f490) = > HASH(0xcb4f490) = > > > I have tryied different solutions (look below) but no one > loads/display the values of %myparams: > > 1) function dosomething > { > ($myopt,%myparams) = @_; > print "opt = $myopt\n"; > while( my ($k, $v) = each %{$myparams} ) > { print "$k = $v \n"; } > } > > 2) function dosomething > { > $myopt = shift; > %myparams = shift; > print "opt = $myopt\n"; > while( my ($k, $v) = each %$myparams ) > { print "$k = $v \n"; } > } > > 3) function dosomething > { > use Tie::RefHash; > ($myopt,%myparams) = @_; > tie %hash_postparams, "Tie::RefHash"; > print "opt = $myopt\n"; > while( my ($k, $v) = each %myparams ) > { print "$k = $v \n"; } > } > > Any idea what I am doing wrong? > > > > Really thank you in advance, > > Alejandro > > > -- > To unsubscribe, e-mail: beginners-cgi-unsubscribe@perl.org > For additional commands, e-mail: beginners-cgi-help@perl.org > http://learn.perl.org/ > > http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13571.html Mon, 27 Jun 2011 16:24:33 +0000 Re: sending scalar and hash to function [SUMMARY] by Mike Williams On Mon, Jun 27, 2011 at 2:44 PM, <buzon@alejandro.ceballos.info> wrote: > > Found the solution (my apologies). > > I am receiving both an scalar, the second one as a reference, then it must > be assigned to an other var. > > No. It does not have to be assigned to another var. Instead you should dereference the reference. sub dosomething > { > ($myopt,$myparams) = @_; > ## %myparams = $myparams; # skip the asssignment and creation oa a > new hash > print "opt = $myopt\n"; > #### while( my ($k, $v) = each %myparams ) while( my ($k, $v) = each %{$myparams} ) # dereference the reference with %{$ref} > { print "$k = $v \n"; } > } > > The assignment you had assigns the hash reference to a key of the hash you created, with nothing assigned as a value. It is a real, real bad idea (for many reasons) to create variables of different types with the same names. A major benefit of passing a reference is that you only move one item, the reference, instead of the entire hash. It doesn't make a lot of difference in this case, but if you had a hash with thousands of key/value pairs passing a reference and using that reference uses just a few bytes of memory. Copying the entire hash uses many thousands of bytes. Happy hacking, Mike http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13570.html Mon, 27 Jun 2011 13:54:57 +0000 sending scalar and hash to function [SUMMARY] by buzon Found the solution (my apologies). I am receiving both an scalar, the second one as a reference, then it must be assigned to an other var. sub dosomething { ($myopt,$myparams) = @_; %myparams = $myparams; print "opt = $myopt\n"; while( my ($k, $v) = each %myparams ) { print "$k = $v \n"; } } http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13569.html Mon, 27 Jun 2011 11:45:02 +0000 sending scalar and hash to function (note) by buzon of course that is sub dosomething but still not working. http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13568.html Mon, 27 Jun 2011 11:36:59 +0000 sending scalar and hash to function by buzon I am trying to send an scalar and hash to a function, but is not receiving the value of the hash My code is: dosomething('option',{'extraparam1'=>'hello'}); function dosomething { ($myopt,%myparams) = @_; print "opt = $myopt\n"; while( my ($k, $v) = each %myparams ) { print "$k = $v \n"; } } And result is: opt = option HASH(0xcb4f490) = HASH(0xcb4f490) = I have tryied different solutions (look below) but no one loads/display the values of %myparams: 1) function dosomething { ($myopt,%myparams) = @_; print "opt = $myopt\n"; while( my ($k, $v) = each %{$myparams} ) { print "$k = $v \n"; } } 2) function dosomething { $myopt = shift; %myparams = shift; print "opt = $myopt\n"; while( my ($k, $v) = each %$myparams ) { print "$k = $v \n"; } } 3) function dosomething { use Tie::RefHash; ($myopt,%myparams) = @_; tie %hash_postparams, "Tie::RefHash"; print "opt = $myopt\n"; while( my ($k, $v) = each %myparams ) { print "$k = $v \n"; } } Any idea what I am doing wrong? Really thank you in advance, Alejandro http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13567.html Mon, 27 Jun 2011 11:33:41 +0000 file upload issues! by Rahul!! Hi All, Actually I am trying to store the file a user has uploaded through web- page to database. But its not getting updated fully and it's showing only few bytes. Point here is user will upload exe or dll and I have to store it in DB. I am highlighting the code snippet, //WEB PAGE CODE <form method=post ENCTYPE="multipart/form-data"> <input type=hidden name=type value="application/octet-stream"> Path to file: <input type=file name=data size=60> Description: <input name=description size=60> <input type=submit value="Submit"> </form> # CGI code to insert data my $mimetype = $cgi->param('type'); $dbh->do"insert into req_attachments" . " (filename, description, mimetype, submitter_id, thedata)" . " values" . "(" . $dbh->quote($fname) . ", " . $dbh->quote ($description) . ", " . $dbh->quote($mimetype) . ", " . login_to_id($user->login) . ", " . $dbh->quote($cgi->param('data')) . ")"); Please let me know if I am doing something is wrong here -Rahul http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13566.html Tue, 14 Jun 2011 09:50:53 +0000 file upload issues! by Rahul!! Hi All, Actually I am trying to store the file a user has uploaded through web- page to database. But its not getting updated fully and it's showing only few bytes. Point here is user will upload exe or dll and I have to store it in DB. I am highlighting the code snippet, //WEB PAGE CODE <form method=post ENCTYPE="multipart/form-data"> <input type=hidden name=type value="application/octet-stream"> Path to file: <input type=file name=data size=60> Description: <input name=description size=60> <input type=submit value="Submit"> </form> # CGI code to insert data my $mimetype = $cgi->param('type'); $dbh->do"insert into req_attachments" . " (filename, description, mimetype, submitter_id, thedata)" . " values" . "(" . $dbh->quote($fname) . ", " . $dbh->quote ($description) . ", " . $dbh->quote($mimetype) . ", " . login_to_id($user->login) . ", " . $dbh->quote($cgi->param('data')) . ")"); Please let me know if I am doing something is wrong here -Rahul http://www.nntp.perl.org/group/perl.beginners.cgi/2011/06/msg13565.html Tue, 14 Jun 2011 09:50:50 +0000 Debian, Apache, Perl, CGI.pm, ErrorDocument, and POST by David Christensen beginners-cgi: I have a Debian 6.0, Apache 2.2.16, Perl 5.10.1, and CGI.pm 3.43 machine with a folder containing: $ cat .htaccess Options +ExecCGI AddHandler cgi-script pl ErrorDocument 404 /cgi.pm-get-post-errordocument/printcgi.pl $ cat index.html <html> <body> <ul> <li>direct: <ul> <li>GET <form action="printcgi.pl" method="GET"> <input name="inputText" type="text"> <input name="inputSubmit" type="submit"> </form> </li> <li>POST <form action="printcgi.pl" method="POST"> <input name="inputText" type="text"> <input name="inputSubmit" type="submit"> </form> </li> </ul> </li> <li>ErrorDocument: <ul> <li>GET <form action="nosuchfile.pl" method="GET"> <input name="inputText" type="text"> <input name="inputSubmit" type="submit"> </form> </li> <li>POST <form action="nosuchfile.pl" method="POST"> <input name="inputText" type="text"> <input name="inputSubmit" type="submit"> </form> </li> </ul> </li> </ul> </body> </html> $ cat printcgi.pl #! /usr/bin/perl use strict; use warnings; use CGI; use Data::Dumper; use IO::Scalar; $Data::Dumper::Sortkeys = 1; my $stdin = join '', <STDIN>; my $s; tie *STDIN, 'IO::Scalar', \$s; print STDIN $stdin; tied(*STDIN)->setpos(0); my $q= CGI::new(); print $q->header('text/plain'), Data::Dumper->Dump([$0, \@ARGV, $stdin, \%ENV, $q], [qw(0 *ARGV STDIN *ENV q)]); When I browse to index.html, enter data in the text boxes, and click the submit buttons, the first case (direct hit, GET) works as expected: $0 = '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl'; @ARGV = (); $STDIN = ''; %ENV = ( 'DOCUMENT_ROOT' => '/home/dpchrist/sandbox/apache2/public_html', 'GATEWAY_INTERFACE' => 'CGI/1.1', 'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'HTTP_ACCEPT_ENCODING' => 'gzip,deflate', 'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5', 'HTTP_CONNECTION' => 'keep-alive', 'HTTP_HOST' => 'apache2-sandbox-p43400e.holgerdanske.com', 'HTTP_KEEP_ALIVE' => '300', 'HTTP_REFERER' => 'http://apache2-sandbox-p43400e.holgerdanske.com/cgi.pm-get-post-errordocument/', 'HTTP_USER_AGENT' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.16) Gecko/20110302 Iceweasel/3.5.16 (like Firefox/3.5.16)', 'PATH' => '/usr/local/bin:/usr/bin:/bin', 'QUERY_STRING' => 'inputText=direct+GET&inputSubmit=Submit+Query', 'REMOTE_ADDR' => '192.168.0.34', 'REMOTE_PORT' => '58809', 'REQUEST_METHOD' => 'GET', 'REQUEST_URI' => '/cgi.pm-get-post-errordocument/printcgi.pl?inputText=direct+GET&inputSubmit=Submit+Query', 'SCRIPT_FILENAME' => '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl', 'SCRIPT_NAME' => '/cgi.pm-get-post-errordocument/printcgi.pl', 'SERVER_ADDR' => '192.168.0.34', 'SERVER_ADMIN' => '[no address given]', 'SERVER_NAME' => 'apache2-sandbox-p43400e.holgerdanske.com', 'SERVER_PORT' => '80', 'SERVER_PROTOCOL' => 'HTTP/1.1', 'SERVER_SIGNATURE' => '<address>Apache/2.2.16 (Debian) Server at apache2-sandbox-p43400e.holgerdanske.com Port 80</address> ', 'SERVER_SOFTWARE' => 'Apache/2.2.16 (Debian)' ); $q = bless( { '.charset' => 'ISO-8859-1', '.fieldnames' => {}, '.header_printed' => 1, '.parameters' => [ 'inputText', 'inputSubmit' ], 'escape' => 1, 'param' => { 'inputSubmit' => [ 'Submit Query' ], 'inputText' => [ 'direct GET' ] }, 'use_tempfile' => 1 }, 'CGI' ); The second case (direct hit, POST) works as expected: $0 = '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl'; @ARGV = (); $STDIN = 'inputText=direct+POST&inputSubmit=Submit+Query'; %ENV = ( 'CONTENT_LENGTH' => '46', 'CONTENT_TYPE' => 'application/x-www-form-urlencoded', 'DOCUMENT_ROOT' => '/home/dpchrist/sandbox/apache2/public_html', 'GATEWAY_INTERFACE' => 'CGI/1.1', 'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'HTTP_ACCEPT_ENCODING' => 'gzip,deflate', 'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5', 'HTTP_CONNECTION' => 'keep-alive', 'HTTP_HOST' => 'apache2-sandbox-p43400e.holgerdanske.com', 'HTTP_KEEP_ALIVE' => '300', 'HTTP_REFERER' => 'http://apache2-sandbox-p43400e.holgerdanske.com/cgi.pm-get-post-errordocument/', 'HTTP_USER_AGENT' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.16) Gecko/20110302 Iceweasel/3.5.16 (like Firefox/3.5.16)', 'PATH' => '/usr/local/bin:/usr/bin:/bin', 'QUERY_STRING' => '', 'REMOTE_ADDR' => '192.168.0.34', 'REMOTE_PORT' => '58810', 'REQUEST_METHOD' => 'POST', 'REQUEST_URI' => '/cgi.pm-get-post-errordocument/printcgi.pl', 'SCRIPT_FILENAME' => '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl', 'SCRIPT_NAME' => '/cgi.pm-get-post-errordocument/printcgi.pl', 'SERVER_ADDR' => '192.168.0.34', 'SERVER_ADMIN' => '[no address given]', 'SERVER_NAME' => 'apache2-sandbox-p43400e.holgerdanske.com', 'SERVER_PORT' => '80', 'SERVER_PROTOCOL' => 'HTTP/1.1', 'SERVER_SIGNATURE' => '<address>Apache/2.2.16 (Debian) Server at apache2-sandbox-p43400e.holgerdanske.com Port 80</address> ', 'SERVER_SOFTWARE' => 'Apache/2.2.16 (Debian)' ); $q = bless( { '.charset' => 'ISO-8859-1', '.fieldnames' => {}, '.header_printed' => 1, '.parameters' => [ 'inputText', 'inputSubmit' ], 'escape' => 1, 'param' => { 'inputSubmit' => [ 'Submit Query' ], 'inputText' => [ 'direct POST' ] }, 'use_tempfile' => 1 }, 'CGI' ); The third case (ErrorDocument, GET) works as expected: $0 = '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl'; @ARGV = (); $STDIN = ''; %ENV = ( 'DOCUMENT_ROOT' => '/home/dpchrist/sandbox/apache2/public_html', 'GATEWAY_INTERFACE' => 'CGI/1.1', 'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'HTTP_ACCEPT_ENCODING' => 'gzip,deflate', 'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5', 'HTTP_CONNECTION' => 'keep-alive', 'HTTP_HOST' => 'apache2-sandbox-p43400e.holgerdanske.com', 'HTTP_KEEP_ALIVE' => '300', 'HTTP_REFERER' => 'http://apache2-sandbox-p43400e.holgerdanske.com/cgi.pm-get-post-errordocument/', 'HTTP_USER_AGENT' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.16) Gecko/20110302 Iceweasel/3.5.16 (like Firefox/3.5.16)', 'PATH' => '/usr/local/bin:/usr/bin:/bin', 'QUERY_STRING' => '', 'REDIRECT_QUERY_STRING' => 'inputText=ErrorDocument+GET&inputSubmit=Submit+Query', 'REDIRECT_REQUEST_METHOD' => 'GET', 'REDIRECT_STATUS' => '404', 'REDIRECT_URL' => '/cgi.pm-get-post-errordocument/nosuchfile.pl', 'REMOTE_ADDR' => '192.168.0.34', 'REMOTE_PORT' => '55219', 'REQUEST_METHOD' => 'GET', 'REQUEST_URI' => '/cgi.pm-get-post-errordocument/nosuchfile.pl?inputText=ErrorDocument+GET&inputSubmit=Submit+Query', 'SCRIPT_FILENAME' => '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl', 'SCRIPT_NAME' => '/cgi.pm-get-post-errordocument/printcgi.pl', 'SERVER_ADDR' => '192.168.0.34', 'SERVER_ADMIN' => '[no address given]', 'SERVER_NAME' => 'apache2-sandbox-p43400e.holgerdanske.com', 'SERVER_PORT' => '80', 'SERVER_PROTOCOL' => 'HTTP/1.1', 'SERVER_SIGNATURE' => '<address>Apache/2.2.16 (Debian) Server at apache2-sandbox-p43400e.holgerdanske.com Port 80</address> ', 'SERVER_SOFTWARE' => 'Apache/2.2.16 (Debian)' ); $q = bless( { '.charset' => 'ISO-8859-1', '.fieldnames' => {}, '.header_printed' => 1, '.parameters' => [ 'inputText', 'inputSubmit' ], 'escape' => 1, 'param' => { 'inputSubmit' => [ 'Submit Query' ], 'inputText' => [ 'ErrorDocument GET' ] }, 'use_tempfile' => 1 }, 'CGI' ); But the fourth case (ErrorDocument, POST) does not work as expected -- CGI.pm doesn't see the query parameters available on STDIN: $0 = '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl'; @ARGV = (); $STDIN = 'inputText=ErrorDocument+POST&inputSubmit=Submit+Query'; %ENV = ( 'CONTENT_LENGTH' => '53', 'CONTENT_TYPE' => 'application/x-www-form-urlencoded', 'DOCUMENT_ROOT' => '/home/dpchrist/sandbox/apache2/public_html', 'GATEWAY_INTERFACE' => 'CGI/1.1', 'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7', 'HTTP_ACCEPT_ENCODING' => 'gzip,deflate', 'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5', 'HTTP_CONNECTION' => 'keep-alive', 'HTTP_HOST' => 'apache2-sandbox-p43400e.holgerdanske.com', 'HTTP_KEEP_ALIVE' => '300', 'HTTP_REFERER' => 'http://apache2-sandbox-p43400e.holgerdanske.com/cgi.pm-get-post-errordocument/', 'HTTP_USER_AGENT' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.16) Gecko/20110302 Iceweasel/3.5.16 (like Firefox/3.5.16)', 'PATH' => '/usr/local/bin:/usr/bin:/bin', 'QUERY_STRING' => '', 'REDIRECT_REQUEST_METHOD' => 'POST', 'REDIRECT_STATUS' => '404', 'REDIRECT_URL' => '/cgi.pm-get-post-errordocument/nosuchfile.pl', 'REMOTE_ADDR' => '192.168.0.34', 'REMOTE_PORT' => '55220', 'REQUEST_METHOD' => 'GET', 'REQUEST_URI' => '/cgi.pm-get-post-errordocument/nosuchfile.pl', 'SCRIPT_FILENAME' => '/home/dpchrist/sandbox/apache2/public_html/cgi.pm-get-post-errordocument/printcgi.pl', 'SCRIPT_NAME' => '/cgi.pm-get-post-errordocument/printcgi.pl', 'SERVER_ADDR' => '192.168.0.34', 'SERVER_ADMIN' => '[no address given]', 'SERVER_NAME' => 'apache2-sandbox-p43400e.holgerdanske.com', 'SERVER_PORT' => '80', 'SERVER_PROTOCOL' => 'HTTP/1.1', 'SERVER_SIGNATURE' => '<address>Apache/2.2.16 (Debian) Server at apache2-sandbox-p43400e.holgerdanske.com Port 80</address> ', 'SERVER_SOFTWARE' => 'Apache/2.2.16 (Debian)' ); $q = bless( { '.charset' => 'ISO-8859-1', '.fieldnames' => {}, '.header_printed' => 1, '.parameters' => [], 'escape' => 1, 'param' => {}, 'use_tempfile' => 1 }, 'CGI' ); I would like the error handler script to be able to see the POST parameters via CGI.pm. Any suggestions? TIA, David http://www.nntp.perl.org/group/perl.beginners.cgi/2011/04/msg13564.html Sat, 02 Apr 2011 13:34:57 +0000 Re: PERL CGI SCRIPT killed by apache on client abort by Peter Scott On Sat, 26 Mar 2011 15:56:08 +0100, Przemysław Rejf wrote: > My upload script which uses upload hook works really nice. After the > upload ends it writes some debug stuff to log file and sends some info > to other host. > When client aborts the upload the reminder of the script after hook is > not executed and i get an error in my apache log: [Sat Mar 26 14:53:09 > 2011] [error] [client xxx.xxx.xxx.xxx] (70014)End + of file found: Error > reading request entity data, referer: http://lo +calhost/upload > [download] > I'm thinking its the fault of apache, because without abort the script > works just fine. Does anyone have any clue about it ? The script: Your script is invoked to read a file from the client. If the client doesn't send it what else would you expect to happen? How can it read a data stream that's not there? It's not apache's fault, it's the client's fault for not finishing what it said it would do or your script's fault for not trapping an exception it needs to handle. -- Peter Scott http://www.perlmedic.com/ http://www.perldebugged.com/ http://www.informit.com/store/product.aspx?isbn=0137001274 http://www.oreillyschool.com/courses/perl3/ http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13563.html Mon, 28 Mar 2011 02:09:12 +0000 Re: PERL CGI SCRIPT killed by apache on client abort by Mike Williams 2011/3/26 Przemysław Rejf <przemek@rejf.org>: > Hi, > My upload script which uses upload hook works really nice. After the upload > ends it writes some debug stuff to log file and sends some info to other > host. > When client aborts the upload the reminder of the script after hook is not > executed and i get an error in my apache log: > [Sat Mar 26 14:53:09 2011] [error] [client xxx.xxx.xxx.xxx] (70014)End > + of file found: Error reading request entity data, referer: http://lo > +calhost/upload > [download] > I'm thinking its the fault of apache, because without abort the script works > just fine. Does anyone have any clue about it ? The script: Excuse me if I've grabbed the wrong end of the stick here, but it looks to me like apache is doing the right thing. If the user aborts the upload then there is an error reading the data, which apache reports. From a practical standpoint, if the user aborts the upload, they should know that they aborted the upload and expect to see an error. Furthermore, if they aborted the upload, it seems most likely that they canceled the upload because they realized that they had selected the wrong file and will try again with the correct file. What difference does it make whether they get an error from your script or from apache, if they expected an error and intend to try again? Mike http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13562.html Sun, 27 Mar 2011 13:11:03 +0000 PERL CGI SCRIPT killed by apache on client abort by Przemysław Rejf Hi, My upload script which uses upload hook works really nice. After the upload ends it writes some debug stuff to log file and sends some info to other host. When client aborts the upload the reminder of the script after hook is not executed and i get an error in my apache log: [Sat Mar 26 14:53:09 2011] [error] [client xxx.xxx.xxx.xxx] (70014)End + of file found: Error reading request entity data, referer: http://lo +calhost/upload [download] I'm thinking its the fault of apache, because without abort the script works just fine. Does anyone have any clue about it ? The script: #!/usr/bin/perl -w use strict; use CGI; use warnings; use Digest::MD5 qw(md5_hex); use POSIX qw/ceil/; use POSIX 'setsid'; use LWP::Simple; $CGI::DISABLE_UPLOADS = 0; $CGI::POST_MAX = 1024 * 1024 * 2000000; our $php_exec = '/usr/bin/php'; our $www_root = 'www_root'; our $SERVER_NUMBER = '1'; our $pid = 666; our $data; our $first_hook = 1; our $sum_bytes = 0; our $approx_file_size = 0; our $original_filename = ""; our $storage_name = ""; our $db_path = "path where the file with number of stored files is"; our $upload_path = "path to storage folder"; our $debug_path = "path to log folder"; our $url = ''; our $content = ''; #zmienna identyfikuj&#261;ca urzytkownika wyci&#261;gni&#281;ta z +pola GET my $query_string = $ENV{QUERY_STRING}; my $sessid = $query_string; my $upload_session = $query_string; $sessid =~ m/userid=([0-9]+)/i; our $userid = $1; $upload_session =~ m/us=([a-zA-Z0-9]+)/i; our $upload_sess = $1; my $line = 0; #zmiana aktualnej ilo&#347;ci plików przechowywanych na serwerze open(UPLOAD_DB, "+<", $db_path."upload_db") or die "Cannot open : +$!"; flock(UPLOAD_DB, 2); $line = <UPLOAD_DB>; our $filenumber = $line + 1; seek(UPLOAD_DB, 0, 0); truncate(UPLOAD_DB, 0); print UPLOAD_DB $filenumber; close UPLOAD_DB; our $dir = ceil($filenumber/5); unless (-d $upload_path.$dir) { mkdir $upload_path.$dir, 0777; #print $!; } $upload_path = $upload_path.$dir."/"; our $logfile = $debug_path."hook_debug.txt"; our $q = CGI->new(\&hook, $logfile, 0); sub hook { our ($filename, $buffer, $bytes_read, $logfile) = @_; + $sum_bytes = $bytes_read; if($first_hook) { $approx_file_size = $ENV{CONTENT_LENGTH}; #print $approx_file_size.'\n '; $approx_file_size -= 197; $original_filename = $filename; $filename =~ s/^\s+|\s+$//g ; $storage_name = md5_hex($filename."salt666".$filenumbe +r); open(UPLOADFILE, ">>", $upload_path.$storage_name ); chmod 0777, $upload_path.$storage_name; binmode UPLOADFILE; print UPLOADFILE $buffer; close UPLOADFILE; $first_hook = 0; }else{ open(DEBUG, ">>", $debug_path."abort_debug.txt" ); binmode DEBUG; print DEBUG "BR: "; print DEBUG "$bytes_read\n"; close DEBUG; open(UPLOADFILE, ">>", $upload_path.$storage_name ); binmode UPLOADFILE; print UPLOADFILE $buffer; close UPLOADFILE; if (($buffer eq '') == 1) { unlink($upload_path.$storage_name); open(DEBUG, ">>", $debug_path."abort_debug.txt" ); binmode DEBUG; print DEBUG "error file upload aborted\n"; close DEBUG; exit 0; } } } open(DEBUG, ">>", $debug_path."end_debug.txt" ); binmode DEBUG; print DEBUG "END\n#\n"; close DEBUG; print "Content-type: text/html\n\n END"; exit; Thank for replies, Best regards. http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13561.html Sun, 27 Mar 2011 05:44:37 +0000 Re: when javascript is disabled in browser by J Alejandro Ceballos Z Use <noscript>Javascript disabled</noscript> Atentamente, J. Alejandro Ceballos Z. http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13560.html Thu, 17 Mar 2011 06:31:28 +0000 Re: when javascript is disabled in browser by David Christensen On 03/14/2011 06:25 AM, Rahul!! wrote: > I am new to cgi-perl web development. When javascript is disabled in > the browser, how to validate it from the CGI file?? I want to do > something like this, > > if (/javascript is disabled){ > print " This webapp needs javascript, please enableable > javascript and retry"; > exit; > }else > #move on > } I'd look into the NOSCRIPT tag: http://www.w3.org/TR/html4/interact/scripts.html#edef-NOSCRIPT HTH, David http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13559.html Mon, 14 Mar 2011 15:24:24 +0000 when javascript is disabled in browser by Rahul!! I am new to cgi-perl web development. When javascript is disabled in the browser, how to validate it from the CGI file?? I want to do something like this, if (/javascript is disabled){ print " This webapp needs javascript, please enableable javascript and retry"; exit; }else #move on } http://www.nntp.perl.org/group/perl.beginners.cgi/2011/03/msg13558.html Mon, 14 Mar 2011 15:08:54 +0000