#! /usr/bin/perl # -------------------------------------------------------- $mailprog = '/usr/sbin/sendmail'; $cuenta = 'turnbull@pixeldg.com'; # Obtener fecha $date = `date +"%A, %B %d, %Y at %T (%Z)"`; chop($date); $shortdate = `date +"%D %T %Z"`; chop($shortdate); read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } # Alta a variables use CGI qw/:standard/; $EMPR = param('empr'); $APPA = param('appa'); $APMA = param('apma'); $NOMB = param('nomb'); $EMAL = param('emal'); $TELE = param('tele'); $DIRE = param('dire'); $COLO = param('colo'); $CIUD = param('ciud'); $ESTA = param('esta'); $PAIS = param('pais'); $COPO = param('copo'); $CURS = param('curs');
2005-03-12 Janitored by Arunbear - added code tags, as per Monastery guidelines
In reply to Re^2: Form processing from a flash swf
by Anonymous Monk
in thread Form processing from a flash swf
by Picard
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |