Cog, thanx for your time... I don't do anything different, just export to swf and then upload in a page nothing more, my perl code at firs is this after just the usual send mail and write to txt file.
#! /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 |