#!/bin/perl
#!/usr/bin/perl
#!/usr/local/bin/perl

##
############################################
##
##   Prokura! Brasil: E-Mail System
##
##   Copyright© 1998-2000 by Juliano Primavesi
##
##   VERSAO 2.0
##
############################################
##

	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
		else { $INPUT{$name} = $value; }
	}

    require "../../data/lib/busca.cfg";
    require "$db_lib_path/tempo.pl";
    require "$db_lib_path/db_utils.pl";
    require "$db_lib_path/site_html_templates.pl";
    
    use Socket;

    %contato = ('1' => ['Departamento de Marketing','anuncio'],
		'2' => ['Departamento de Cadastros','info'],
		'3' => ['Serviço de Atendimento GigaBusca','info'],
		'4' => ['Departamento de Marketing','info']);


##
############################################
##
##   INICIO
##
############################################
##

	print "Content-type: text/html\n\n";

	if ($INPUT{'envia'}) { &envia; }
	else { &principal; }
	exit;

##
############################################
##
##   PRINCIPAL
##
############################################
##

sub principal {

    foreach $email (sort keys(%contato)){
	$para .= qq~ <OPTION VALUE="$email">$contato{$email}[0]  ~;
    }

	print &load_template ('fale_principal.html', {
	barra  => $barra_header,
        para   => $para,
	banner => &gera_banner("Contato"),
		%globals
    });

}

##
############################################
##
##   ENVIA
##
############################################
##

sub envia {

    $INPUT{'from'} =~ s/\s//g;

	unless ($INPUT{'from'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
	        $INPUT{'from'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)

	{

		$email = "$INPUT{'from'}";

    } else {

        &erro("E-Mail Inválido");
        exit;

    }

    if (!($INPUT{'nome'})) {

    	&erro("Qual seu Nome?");
        exit;

    }

    if (!($INPUT{'assunto'})) {

    	&erro("Favor, coloque um assunto");
        exit;

    }

    if (!($INPUT{'texto'})) {

    	&erro("Qual a mensagem mesmo?");
        exit;

    }

    foreach $email (sort keys(%contato)){
        if ($INPUT{'para'} == $email) {
            $para_nome  = "$contato{$email}[0]";
            $para_email = "$contato{$email}[1]\@gigabusca.com.br";
        }
    }

	&manda_email_us;
	&manda_email_user;


######
##
##  LOG
##
######

######
##
##  RETORNA HTML
##
######

    print &load_template ('fale_enviado.html', {
	barra  => $barra_header,
	banner => &gera_banner("Contato"),
        para_nome => $para_nome,
		%globals
    });

}

##
############################################
##
##   ERRO
##
############################################
##

sub erro {

	my ($frasedeerro) = $_[0];

    open (ARQUIVO,"<$fale_database");

        @superman = <ARQUIVO>;

    close (ARQUIVO);

    foreach $email (sort keys(%contato)){
	$s = ''; $INPUT{'para'} == $email and $s = ' SELECTED';
	$para .= qq~ <OPTION VALUE="$email"$s>$contato{$email}[0]  ~;
    }

    print &load_template ('fale_erro.html', {
	barra  => $barra_header,

        erro      => $frasedeerro,
        email     => $INPUT{'from'},
        nome      => $INPUT{'nome'},
        assunto   => $INPUT{'assunto'},
        texto     => $INPUT{'texto'},
	banner => &gera_banner("Contato"),
	para      => $para,
	%globals
    });

}

sub manda_email_us {

######
##
##  MANDA E-MAIL PARA NÓS
##
######

	my $to      = "$para_nome <$para_email>";
    my $from    = "$INPUT{'nome'} <$INPUT{'from'}>";
    my $subject = "$INPUT{'assunto'}";
    my $msg     =

qq~

$INPUT{'texto'}

=====================================================
ENVIADO ATRAVES DO SISTEMA FALE CONOSCO
http://www.gigabusca.com.br/contato
IP: $ENV{'REMOTE_ADDR'} $dia/$mes/$ano $hora:$minuto
=====================================================

~;

    require "$db_lib_path/Mailer.pm";
    my $mailer = new Mailer ( { smtp     => $db_smtp_server,
                                sendmail => $db_mail_path,
                                from     => $from,
                                subject  => $subject,
                                to       => $to,
                                msg      => $msg,
                                log      => $db_mailer_log
                            } ) or
     &cgierr("US: Unable to init mailer! Reason: $Mailer::error");
     $mailer->send or &cgierr ("US: Unable to send message. Reason: $Mailer::error");

}

sub manda_email_user  {

######
##
##  MANDA E-MAIL PARA O USUARIO
##
######

	my $to      = "$INPUT{'nome'} <$INPUT{'from'}>";
    my $from    = "$db_cadastros_email";
    my $subject = "Resposta Automática";
	my $msg     =  &load_template ('email-fale-automatico.txt', {
	barra  => $barra_header,
	banner => &gera_banner("Contato"),
    	 nome   => $INPUT{'nome'}
	} );

    require "$db_lib_path/Mailer.pm";
    my $mailer = new Mailer ( { smtp => $db_smtp_server,
                                sendmail => $db_mail_path,
                                from => $from,
                                subject => $subject,
                                to => $to,
                                msg => $msg,
                                log => $db_mailer_log
                            } ) or
     &cgierr("USER: Unable to init mailer! Reason: $Mailer::error");
     $mailer->send or &cgierr ("USER: Unable to send message. Reason: $Mailer::error");

}