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