Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: I think this is the wrong forums but I am not sure where to ask

by linuxer (Curate)
on Jul 19, 2010 at 14:41 UTC ( [id://850268]=note: print w/replies, xml ) Need Help??


in reply to I think this is the wrong forums but I am not sure where to ask

So you're running the program in CGI context? What does the error_log of the web server tell you?

Some hints about your code:

  • use strict and warnings; they support you with your development
  • use the CGI module to obtain the given parameters.
  • print a valid html header and a short message to STDOUT at the end of the script to prevent "internal server error", because no data was sent.

untested example

#! /usr/bin/perl use strict; use warnings; use CGI; my $lost_file = "/FULL/path/to/lost.txt"; my $cgi = CGI->new; open LOST, '>>', $lostfile or die "open(>>) $lostfile failed: $!\n"; for my $param ( $cgi->param ) { print LOST "$param ", $cgi->param($param), "+"; } print LOST "\n"; print $cgi->header('text/plain'), "job is done.\n";

updates

  • fixed typo in code: s/->new/->param/ in head of for-loop

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://850268]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2024-04-19 07:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found