7. Pasirasyk savo CGI maileri
Manau daugelis noretu moketi padaryti cgi pasto programa,
ar ka nors panasaus, kas dirba su socketais.
Zemiau pateikiu su komentarais gabaleli skripto,
kuris siuncia email`a.
############## Duomenys gauti is formos ###########
$from=$FORM{'from'};
$to=$FORM{'to'};
$subj=$FORM{'subj'};
$msg=$FORM{'msg'};
###################################################
($x,$x,$x,$x, $here) = gethostbyname($null);
($x,$x,$x,$x, $there) = gethostbyname($smtp_server);
$thisserver = pack('S n a4 x8',2,0,$here);
########### Priespaskutinis kintamasis- konstanta yra portas (25)
$remoteserver = pack('S n a4 x8',2,25,$there);
############## Kuriam soketa #######################
(!(socket(S,2,1,6))) && (&error("SMTP EMAIL: Connect error!
socket"));
############## subindinam ##########################
(!(bind(S,$thisserver))) && (&error("SMTP EMAIL: Connect
error! bind"));
############## konektinames su serveriu ############
(!(connect(S,$remoteserver))) && (&error("SMTP EMAIL: connection
to $smtp_server has failed!"));
################# parenkam/ sukeiciams deskriptorius
select(S);
$| = 1;
select(STDOUT);
################ skaitom soketo (serverio) ir tikrinam ar nera klaidu
$DATA_IN = <S>;
($DATA_IN !~ /^220/) && (&error("SMTP EMAIL: data in Connect
error - 220"));
################### toliau viskas vyksta #################
################### paprasciausiai perdavinejan #################
################### smtp servui komandas #################
print S "HELO tavo_hostas\r\n";
$DATA_IN = <S>;
($DATA_IN !~ /^250/) && (&error("SMTP EMAIL: data in Connect
error - 250"));
print S "MAIL FROM: $from\n";
$DATA_IN = <S>;
($DATA_IN !~ /^250/) && (&error("SMTP EMAIL: $emailfrom
address not valid"));
print S "RCPT TO: $to\n";
$DATA_IN = <S>;
($DATA_IN !~ /^250/) && (&error("SMTP EMAIL: $recipient
address not valid"));
print S "DATA\n";
$DATA_IN = <S>;
($DATA_IN !~ /^354/) && (&error("SMTP EMAIL: Message send
failed - 354"));
print S <<MESSAGES;
From: $from
To: $to
Subject: $subj
$msg
.
MESSAGES
$DATA_IN = <S>;
($DATA_IN !~ /^250/) && (&error("SMTP EMAIL: Message send
failed - try again - 250"));
print S "QUIT\n";
8. Coll www
Pasidaryk šustrą puslapi Pasidarei shustra puslapi? Apie ka jis? Nuogas
merginas, mashinas, kompiuterius, ju lauzhyma... Na nesvarbu. Svarbu, kad
tavo www yra geras ir todel tau reikes ji patalpinti geoj vietoj ( kalbu
ne apie kuno daly :). Internetas dabar prikimshtas visokiu redirektu, vietu
puslapiams bei kitu patogiu dalykeliu. Shiame straipsnyje ash papasakosiu
kaip atsikratyti daugelio nervinanchiu baneriu, kur patalpinti savo puslapi,
kur gauti gera redirekta ir net kaip uzh veltuj gauti DOMANA! Pradekime
nuo patalpinimo... Shtai tarkim hypermart.net. Duoda tau adresa "vardas.hypermart.net".
Galesi siusti 20 megu, bet kiekvienam tavo puslapyje metys labai nervinanti
baneri, kurio labai paprasta atsikratyti.
® 2002-2003 VaidaZ