|
Тема |
Re: Ima li nqkoj ideq kak ..? [re: KAK] |
|
Автор |
Yankoff (ъанкофф.) |
|
Публикувано | 11.01.03 12:56 |
|
|
Dosta interesen problem. Pri polojenie 4e se smenq IP-to na server-a i apache-a se restartva, mislq 4e trqbva da se razglejdat dva otdelni web servera. Ne si obqsnil mnogo podrobno problema, no dokolkoto sam razbral shte ti dam slednoto predlojenie.
Executvash si sys scripta, toi si pravi tam kakvoto si mu dal i nakraq za da prenaso4ish obratniq potok mojesh da pozlvash socket s http zaqvka. primer:
use IO::Socket;
# tvoita 4ast na scripta
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $ip, #tuk slagash novoto ip
PeerPort => "http(80)",
); #otvarqsh socket
unless ($remote) { print "\nCannot connect to $ip. Check your Internet connection and try again.";exit(0); } #check za error
$remote->autoflush(1);
$request=$httpRequest; #tuk $httpRequest ti e http zaqvkata
print $remote "$request"; #exucutvash zaqvkata
print $remote "$BLANK"; #tova e za krai na zaqvkata
while ( <$remote> )
{
#tuk socketa vrashta resultat
}
close $remote; #zatvarqsh socket
primer za $httpRequset:
$httpRequset= "GET /index.php?param1=x¶m2=y HTTP/1.1\nUser-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)\nAccept: */*\nRange: bytes=0-\n";
za sega tova sam go pravil samo s GET metod. Ne mojah da go testvam oba4e s POST, no tova ostavqm na tebe za domashno
uspeh
__________________________
|
| |
|
|
|