Jump.cgi скрипт - помогите с кодом

  • Автор темы galok
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

galok

#1
Помогите нубу с кодом :) !

Есть скрипт по адресу http://perlwebsite.com/jump.htm, типа бесплатный. Работает очень просто переводит пользователя на конечную ссылку, например:
http://perlwebsite.com/cgi-bin/jump.cgi?ur...ng.com/page.htm

В итоге этот скрипт обещает, что последний сайт не увидит полной ссылки с которой был произведен переход. Вот код этого скрипта (без лишнего барахла):
Код:
#!/usr/bin/perl

# DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com 
@pairs = split(/&/, $ENV{"QUERY_STRING"});foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);$value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$query{$name} = $value;}if ($query{'url'} eq "") {&noid; exit;}print "Location: $query{'url'}\n\n";sub noid {print "Location: http://perlwebsite.com\n\n";}
В итоге как я не пробовал - этот скрипт не работает (поместил в директорию cgi-bin, назначил 755)... Да и код тут у него по ходу дела сливает инфу хозяину, подразумеваю...

Нужен чистый код, без лишнего, чтобы выполнял такую функцию :)
 
Статус
Закрыто для дальнейших ответов.