#!/usr/bin/perl use CGI; use Mail::Sender; use HTML::Entities; use vars qw($trans $nazwisko $email $telefon $pytania $subm $temat $kat $smtpserver $jak $tr_nick $back_url $back $testform $exitURL @ka @em); require("email.conf"); my $lang = 'PL'; my $q = new CGI; my $sslOn = !$testform?$q->http('HTTPS'):1; if(!$sslOn) { if (defined($jak) && $jak eq "popup") { print $q->header( -type => "text/html", -charset => "utf-8"); print ""; exit; } else { # print $q->redirect($exitURL); # exit; } } my $fcr = '(\'|<|>|%|\/|\\\\|\.\.)'; for (qw/nazwisko email telefon pytania subm kat temat jak tr_nick back_url back/) { $$_ = $q->param($_); # $$_ = "" if $$_ =~/$fcr/; $$_ = HTML::Entities::encode($$_,"<>&\"'%"); } $email = "" if $email eq "1"; my $lay = $flay = ''; if (defined($jak) && $jak eq "popup") { $lay = "mini_"; } elsif (defined($jak) && ($jak eq 'lajt')) { $lay = $flay = 'lajt_'; } my $bledy = ""; my $poszlo = 0; open MAILTO, "UCIFORM_ADRES.html.i"; my $emailto = ; close MAILTO; open (KAT,"UCIFORM_KATEGORIE.html.i"); @ka = (); @em = (); while () { # print STDERR "p=$_, "; chomp; my ($k,$e) = ($_=~/(.+)\t(.+)/); # print STDERR "o=$_: $k, $e\n"; push @ka,$k; push @em,$e; } close KAT; if ($ENV{REQUEST_METHOD}=~/^post$/i && $ENV{HTTP_REFERER}=~/email\.pl/) { my $nreg = '^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzĘÓĄŚŁŻŹĆŃęóąśłżźćń\s\-]+$'; $bledy.="
  • Podaj swoje imię i nazwisko
    • " if !(HTML::Entities::decode($nazwisko)); $bledy.="
  • Pole imię i nazwisko może zawierać wyłącznie litery
    • " if (!(HTML::Entities::decode($nazwisko)=~/$nreg/) && ($bledy eq "")); $bledy.="
  • Podaj swój adres e-mail
    • " if (!$email); $bledy.="
  • Podaj prawidłowy adres e-mail
    • " if ($email && HTML::Entities::decode($email)!~/^[\d\w\.\-\+_]+@([\d\w\.\-\+_]+\.)+[\d\w]{2,4}$/); $bledy.="
  • Wybierz kategorię
    • " if ($kat!~/^[\d]+$/ || $kat eq "0"); $bledy.="
  • Wpisz temat
    • " if ($temat =~ /^\s*$/); $bledy.="
  • Wpisz treść wiadomości
    • " if ($pytania=~/^\s*$/); if (!$bledy) { $poszlo = 1; # I jeszcze wysylka e-majlem. # open MAILTO, "UCIFORM_ADRES.html.i"; # my $emailto = ; my $emailto = $em[$kat-1]; # close MAILTO; open TEMAT, "UCIFORM_NAGLOWEK.html.i"; my $mailtemat = ; close TEMAT; open STOPKA, "UCIFORM_STOPKA.html.i"; my $stopka = ""; while () { $stopka.=$_; } close STOPKA; $mailtemat.=" ".$ka[$kat-1].": $temat"; $Mail::Sender::NO_X_MAILER=1; $Mail::Sender::NO_MESSAGE_ID=1; my $sender = new Mail::Sender{ smtp => $smtpserver, from => HTML::Entities::decode($nazwisko)." <".HTML::Entities::decode($email).">", to => $emailto, subject => HTML::Entities::decode($mailtemat), charset => "utf-8", }; $sender->MailMsg({msg=>"".HTML::Entities::decode($pytania)."\n\n-- \n".$stopka}); # print STDERR "mailing: $pytania # ze $stopka # i tematem: $mailtemat, # do $emailto # od $from # (poprzez $smtpserver)\n"; } } print $q->header( -type => "text/html", -charset => "utf-8"); cat ("email_${lay}head.html"); if (!$poszlo) { if ($bledy && $back ne "1") { print qq|
    |; cat ("UCIFORM_INVALID.html.i"); print qq|
      $bledy
    |; if (defined($jak) && $jak eq "popup") { print '
    popraw

    '; } else { do ("email_${flay}form.pl"); } } else { do ("email_${flay}form.pl"); } } else { print qq|
    |; cat ("UCIFORM_CONFIRM.html.i"); print qq|
    |; } if (defined($jak) && $jak eq "popup") { print '
    powrót zamknij okno
    '; } cat_inc ("email_${lay}foot.html"); sub catto { my ( $file ) = @_; my ($fil) = $file=~/\/?(.+)$/; open PLIK, $fil; $ret = ""; while () { $ret.=$_; } close PLIK; return $ret; } sub cat_inc { my ( $file ) = @_; open FILE,$file || return; while () { if (//) { my $t =$_; my $swp = catto($1); $t=~(s//$swp/); print $t; } else { print; } } close (FILE); } sub cat { open (FILE,shift) || return; while (){ print $_;} close (FILE); }