CGI skripta

hack · 2.8.2009, 16:40

Imam jednu zanimljivu skriptu koja salje mailove na odredjenu adresu ali problem je sto to nece da mi proradi na serveru jer nisam ocigledno dobro odradio linkove. Ako moze neko da pomogne bilo bi dobro!!!

Evo cgi skripte:

Kod:

$mailprog = "/usr/sbin/sendmail";

&parse;

unless ($contents_by_name{'MyEmail'}) {&noemail;}

&checkrequired;

&output;

&redirectit;

# subroutines

sub output
{

$youremail = $contents_by_name{'MyEmail'};
    
    
open (MAIL, "|$mailprog $youremail") || die "Ne moze se otvoriti $mailprog!\n";


    print MAIL "Reply-to: $youremail\n";
    print MAIL "From: $youremail\n";
    print MAIL "Subject: Form entry\n\n";
   
    
    for ($i = 0; $i < $count; $i++)
{
    if (($fieldnames{$i} eq 'redirect') || ($fieldnames{$i} eq 'MyEmail') || ($fieldnames{$i} eq 'required'))
    {
        next;
    }
    
    print MAIL "$fieldnames{$i} = $contents{$i}\n";
}

close (MAIL);

}

sub parse
{
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    $count = 0;
    foreach $pair (@pairs)
    {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $contents_by_name{$name} = $value;
        $contents{$count} = $value;
        $fieldnames{$count} = $name;
        $count++;
    }

}
}

sub noemail {
     &header;
     
    print "<h1>Imas HTML gresku</h1>";
    print "U svojoj stranici koja salje forme na simplestmail.cgi, moras ";
    print "tacno napisati e-mail adresu u hidden variablama.<br>\n";
    print "Za kreiranje hidden variable za \<\;form action=simplestmail.cgi method=POST\>\; tag, ";
    print "mail tag mora izgledati kao:<br> \<\;input type=HIDDEN name=MyEmail value=tvoja\@email.adresa\>\;<p>";
    print "Mozes upotrebiti i: \"your\@email.com\" sa realnom adresom, ili je i iskljuciti.\n";
    exit;
}

sub header {
    print "Content-type: text/html\n\n";
}

sub checkrequired {
    
@required = split(/\|/, $contents_by_name{'required'});
foreach $required (@required) {
    for ($i = 0; $i < $count; $i++)
    {
        
    if (($fieldnames{$i} eq $required) && ($contents{$i} eq '')) {
        &header;
        
        print "<body bgcolor=white><h1>Greska</h1>\n";
        print "<font size=4>U polju <b>$fieldnames{$i}</b> moras popuniti formu\n";
        print "<br> Vrati se nazad na popunu\n";
    exit;
    
    }
    }
}
}

sub redirectit {
    
$redirect = "$contents_by_name{'redirect'}";


# redirects. Ako nije linkovan vrati na simple html form page.
if ($redirect) {
    print ("Location: $redirect\n");
# print ("Content-type: text/html\n\n"); 
    &header;
    
}
else{ &noredirect;}

}

sub noredirect {
    &header;
    print "<h1>Nisi naznacio adresu stranice zahvale</h1>\n";
    print "Ovaj text se pojavio jer nisi u hidden variables tvoje stranice sa formama upisao link za redirect zahvalu.<br>";
    print "Za ispravku ovde greske za \<\;form action=simplestmail.cgi method=POST\>\; tag, ";
    print "napravi da link tag bude kao:<br> \<\;input type=HIDDEN name=redirect value=http://www.yourdomain.com/done.html\>\;<p>";
    exit;
}

Evo forme za popunjavanje podataka :

Kod:

<html>
<head>
<title>Narudzbenica</title>
<style> p { margin-left:10px; margin-right:10px } </style>
</head>
<body bgcolor="black">
<p align="justify">
<font face="Arial;Verdana,Helvetica" color="#0080C0" size="2"><strong>
</font></br>

<!--- LINK DO CGI SRIPTE --->
<form action= method=POST>
 <FONT face="Arial,Verdana,Helvetica" size="2" COLOR="white">

<!--- LINK STRANICE SA ZAHVALOM --->
<input type=hidden name=redirect value= >

<input type=hidden name=required value="ImePrezime|Rodjen|Email|Telefon|Interes|Web|Mesto|Stan|Komentar">

<!--- A OVDE MAIL ADRESU NA KOJU CE SVE STIZATI --->
<input type=hidden name=MyEmail value=" ">

&nbsp;&nbsp;&nbsp;Ime i prezime:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=ImePrezime><br>

&nbsp;&nbsp;&nbsp;Datum rodjenja:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Rodjen><br>

&nbsp;&nbsp;&nbsp;E-mail adresa:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Email><br>

&nbsp;&nbsp;&nbsp;Telefon:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Telefon><br>

&nbsp;&nbsp;&nbsp;Poseban interes za:<br>
&nbsp;&nbsp;&nbsp;<select box name=Interes>
<option value="Sveobuhvatan"> Sveobuhvatan
<option value=Hardware> Hardware
<option value=Software> Software
<option value=Internet> Internet
<option value=Multimedia> Multimedia
<option value=Sex> Sex
<option value=Lova> Lova
<option value=Sport> Sport
</select><br>

&nbsp;&nbsp;&nbsp;<font color="lime">Onda opet nekakve svakojake forme, poput :</font><br>

&nbsp;&nbsp;&nbsp;Tvoja web adresa:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Web><br>

&nbsp;&nbsp;&nbsp;Mesto stanovanja:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Mesto><br>

&nbsp;&nbsp;&nbsp;Ulica i broj:<br>
&nbsp;&nbsp;&nbsp;<input type=text name=Stan><br>

&nbsp;&nbsp;&nbsp;Dodatni komentar:<br>
&nbsp;&nbsp;&nbsp;<textarea cols=50 rows=10  name="Komentar"></textarea><br><br>

&nbsp;&nbsp;&nbsp;<INPUT TYPE="submit" VALUE=" Posalji">&nbsp;&nbsp;&nbsp;<input 
type="reset" value=" Ponisti"><br><br>
</form>
</strong></p>
</body>
</html>

Da ima jos jedna html stranica sa zahvalom ali ona sad nije toliko bitna.

Slične teme
tema	temu započeo	forum	Odgovora	Poslednja poruka
Zip fajl upload i estrakt php skripta	mrakodol	Serverske aplikacije i baze podataka	2	2.7.2009 8:41
Skripta za slanje maila	Marko 0401	Klijentske aplikacije	7	29.4.2009 23:00
Comment skripta	Nemanja015	Web razvoj	7	28.2.2009 20:18
Potrebna skripta	Nightmaster	Web dizajn	0	1.2.2009 18:26
Skripta za Quick reply	nazgul	Internet tehnologije	12	17.5.2007 22:29