|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry Beda 2:455/5.1 24 Aug 2000 16:35:46
To : All
Subject : Trabl
--------------------------------------------------------------------------------
Ïåpåäàåòñÿ ñëåäóþùèå ïàpàìåòpû:
USER=0...admin&URL=3...http://la.la.la/mp3
âîçâpàùàåò íå
USER=0
URL=3
à
USER=4
URL=12
â ÷åì îøèáêà?
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Ñòàðò ADD.PL ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄ Ä ú
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<HTML>\n<BODY>\n<TITLE></TITLE>\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split(/&/, $buffer);
print "$buffer";
# This is the Name-Value pair splitter..
# Put into $FORM array
foreach $pair (@pairs) {
($name,$value)=split(/=/,$pair);
$value=split(/.../,$value);
$FORM{$name}=$value;
}
open (aces, ">>test//access.dbs");
$newline=$FORM{user}.'::'.$FORM{url}.'::'."\n";
print aces "$newline";
close (aces);
print "add to: $FORM{user} $FORM{url}\n";
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Ôèíèø ADD.PL ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄ Ä ú
Dmitry
O÷åíü ïëoõo è o÷åíü õopoøo íå áûâaåò o÷åíü äoëão (c) oäèí êèòaåö
--- Ápîñîê ÷åpåç ëåâîå áåäpî ñ çàâîpîòîì ïpàâîãî ÿéöà
* Origin: ù Î,ìîãó÷èé,ñâîáîäíûé ìîé íîâûé póññêèé ÿçûê (FidoNet 2:455/5.1)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
| Òåìà: |
Àâòîð: |
Äàòà: |
|
Trabl |
Dmitry Beda |
24 Aug 2000 16:35:46 |
|
|
