$_

#!/usr/local/bin/perl # common.pm # qualquer parada que seja impressa na tela tem que vir desse modulo! package common; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(); @EXPORT_OK = qw( $dbh %fields @months @week_days $host_ip $varname $vardata dbiconnect dienice header headerout footer parse parseget sendmail ); ################################################################################ @months = qw(Janeiro Fevereiro Marēo Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro); @week_days = qw(Domingo Segunda Terēa Quarta Quinta Sexta Sįbado); ($sec, $min, $hr, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $host_ip = "127.0.0.1"; ################################################################################ sub sendmail { my ($to, $subject, @msg) = @_; my ($mailprog) = "/usr/sbin/sendmail"; open (MAIL, "|$mailprog -t"); print MAIL "To: $to\n"; print MAIL "From: webmaster\@genesisdbm.com.br\n"; print MAIL "Subject: $subject\n\n"; print MAIL <connect("dbi:mysql:buscario2000:mysql.buscario.com.br", "pccgrf", "lulu2000") or dienice ("Can“t connect: $DBI::errstr"); } ################################################################################ sub parse { read(STDIN,$temp,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/ge; $content=~s/\t/ /g; $fields{$key}=$content; } return %fields; } sub parseget { my %getfields; @values = split (/&/, $ENV{'QUERY_STRING'}); foreach $i (@values) { ($varname, $vardata) = split (/=/,$i); $vardata=~tr/+/ /; $vardata=~s/%(..)/pack("c",hex($1))/ge; $getfields{$varname}=$vardata; } return %getfields; } ################################################################################ sub dienice { my ($msg) = @_; print <

ERRO!

$msg

Clique em voltar em concerte o erro.

EOF exit; } ################################################################################ sub header { use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; print "$_"; print "\n"; } ################################################################################ sub footer { print <

>> Retornar à pįgina principal.

EOF } ################################################################################