Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
 Jump скрипт (редирект) - помогите с кодом, jump (redirect) редирект - перенаправляет страницы |
|
|
 15:02:2008, 10:15
 
|
|
Новенький  Группа: Программист Сообщений: 8 Регистрация: 13:02:2008 Пользователь №: 15 328 Репутация:  0 
 |
Помогите нубу с кодом !
Есть скрипт по адресу 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)... Да и код тут у него по ходу дела сливает инфу хозяину, подразумеваю... Нужен чистый код, без лишнего, чтобы выполнял такую функцию... 
|
 |
Сообщение
#1
|
 |
|
|
15:02:2008, 23:13
|
|
Продвинутый Группа: Программист Сообщений: 198 Регистрация: 4:08:2006 Из: Vladivostok.pm Пользователь №: 5 749 Специализация: Perl, Web Репутация: 4
|
Ничего этот скрипт никуда не сливает.
Что же касается работоспособности, правильно ли у вас настроен веб сервер? Запускаются ли из под него другие perl скрипты? |
|
|
Сообщение
#2
|
|
|
16:02:2008, 13:57
|
|
Новенький Группа: Программист Сообщений: 8 Регистрация: 13:02:2008 Пользователь №: 15 328 Репутация: 0
|
Даже и не припомню... Все что юзал в основном на PHP!
В любом случае сделал как сказано в инструкции (залил в директорию cgi-bin и поставил 755): Код INSTALL: Upload jump.cgi in ascii mode and change the file permisions to 755. HOW TO USE JUMP.CGI: Jump has been designed to prevent other sites logging your content sensitive pages as a refering url. WHY ? so that they will never be able to find your web page that may have information on it you don't want others viewing. Simply change your links to point to jump.cgi then add the real url you are linking to after the ?url= part. ie: http://perlwebsite.com/cgi-bin/jump.cgi?url=http://something.com/page.htm Правда сервер при запросе выдает следующую инфу: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator and inform them of the time the error occurred, and anything you might have done that may have caused the error. More information about this error may be available in the server error log. Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request. 
|
|
|
Сообщение
#3
|
|
|
16:02:2008, 19:26
|
|
Новенький Группа: Программист Сообщений: 8 Регистрация: 13:02:2008 Пользователь №: 15 328 Репутация: 0
|
Кстати мне подошел бы и php скрипт который использует этот форум! Любую ссылку он переделывает, к примеру:
Код http://somesite234.com форум автоматически переделает на http://forum.codeby.net/http://somesite234.com где б взять этот go.php? |
|
|
Сообщение
#4
|
|
|
17:02:2008, 23:17
|
|
Продвинутый Группа: Программист Сообщений: 198 Регистрация: 4:08:2006 Из: Vladivostok.pm Пользователь №: 5 749 Специализация: Perl, Web Репутация: 4
|
|
|
|
Сообщение
#5
|
|
|
18:02:2008, 08:24
|
|
Новенький Группа: Программист Сообщений: 8 Регистрация: 13:02:2008 Пользователь №: 15 328 Репутация: 0
|
Цитата(Vovochka @ 18:02:2008, 01:17 )  Заливал я это дела, но там такого скрипта и близко нету... Возможно где-то он там и зарыт.... |
|
|
Сообщение
#6
|
|
|
19:02:2008, 00:21
|
|
Продвинутый Группа: Программист Сообщений: 198 Регистрация: 4:08:2006 Из: Vladivostok.pm Пользователь №: 5 749 Специализация: Perl, Web Репутация: 4
|
Код <?
$url = $_GET['url']; if (!defined($url)) $url = 'http://my.site.ru'; header('Location: '.$url); ?> |
|
|
Сообщение
#7
|
|
|
Текстовая версия | Сейчас: 16:05:2008 - 17:38 |
