Forum Sveta kompjutera

Nazad   Forum Sveta kompjutera > Internet > Web razvoj

Web razvoj Sve u vezi sa razvojem Internet sajtova: programi, dizajn, usluge hostinga, administracija...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 2.8.2009, 16:40   #1
hack
Član
 
Član od: 9.12.2007.
Poruke: 150
Zahvalnice: 20
Zahvaljeno 3 puta na 3 poruka
Određen forumom CGI skripta

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.
hack je offline   Odgovor sa citatom ove poruke
Stara 12.8.2009, 15:06   #2
holodoc
Deo inventara foruma
 
Član od: 5.12.2005.
Poruke: 6.785
Zahvalnice: 348
Zahvaljeno 1.893 puta na 1.078 poruka
Određen forumom Re: CGI skripta

Kakvu grešku dobijaš kod izvršavanja skripte? Jel server na kome izvršavaš skriptu uopšte ima podršku za Perl preko CGI-a? Gde si nabavio ovaj mator kod? Koristi zastarele FONT tagove plus naježim se kada vidim formatiranje razmaka sa &nbsp;
holodoc je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


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


Sva vremena su po Griniču +2 h. Sada je 23:15.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2021, vBulletin Solutions, Inc.
Hosted by Beograd.com