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

Тема в разделе "PHP программирование", создана пользователем galok, 14 фев 2008.

Статус темы:
Закрыта.
  1. galok

    galok Гость

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

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

    В итоге этот скрипт обещает, что последний сайт не увидит полной ссылки с которой был произведен переход. Вот код этого скрипта (без лишнего барахла):
    Код (Text):
    #!/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)... Да и код тут у него по ходу дела сливает инфу хозяину, подразумеваю...

    Нужен чистый код, без лишнего, чтобы выполнял такую функцию :)
     
Загрузка...
Похожие Темы - Jump cgi скрипт
  1. buxar
    Ответов:
    2
    Просмотров:
    7.281
  2. vladis222
    Ответов:
    1
    Просмотров:
    1.098
  3. sasha465
    Ответов:
    0
    Просмотров:
    1.367
  4. sasha465
    Ответов:
    1
    Просмотров:
    1.866
  5. AnaStas
    Ответов:
    3
    Просмотров:
    3.100
Статус темы:
Закрыта.

Поделиться этой страницей