Нужна помощь с Links 2

[alexxmfk]

Прочитал статью у Вас: http://www.webscript.ru/stories.php3?story=01/05/07/2929702. И я загорелся и поставил себе этот скрипт-каталог. Но у меня возникла проблема. Я понимаю, что статья старая, но всё же мне нужен очень срочно Admin Password MOD для защиты файла admin.cgi для скрипта Links 2!!! На сайте производителя скрипта ссылка на этот мод не пашет. А он мне очень очень нужен. Если у кого остался, то скиньте пожалста на alexx@mfk.net.ru, буду очень признателен. А было бы вообще супер, если бы ещё и AltaVista Span Pages кто-нить подкинул, на сайте скрипта уже половина ссылок не работает. Да и ещё у Вас на http://gnezdo.webscript.ru/ работает этот скрипт? И ещё если кто знает что-то подобное, но лучше, то напишите плиз. Буду очень признателен.

[NeoNox]

На сайте производителя скрипта ссылка на этот мод не пашет.

Более того, эта ссылка и два года назад не работала
А чем плох вариант с использованием .htaccess ?

[Green Kakadu]

А чем плох вариант с использованием .htaccess ?

его нет наверное

, если бы ещё и AltaVista Span Pages

а вот он вроде бы уж был и есть, и будет

Да и ещё у Вас на http://gnezdo.webscript.ru/ работает этот скрипт?

пока да.

на сайте скрипта уже половина ссылок не работает.

хех, я думаю вы черезчур критичны - советую там у них по форуму полазить. В общем то все там найти можно если оч.захотеть

[Aspekt]

Как в Links 2 сделать иерархию категорий? Может мод какой-нибудь есть?

[NeoNox]

В смысле вложеные категории?
Создаем новую категорию Perl
А далее создаем новую с именем Perl/Script и тд.

[alexxmfk]

А чем плох вариант с использованием .htaccess ?

Да нет его у меня.

а вот он вроде бы уж был и есть, и будет

Там его две модификации лежит, я одно скачал, но чё то не такая она.

хех, я думаю вы черезчур критичны - советую там у них по форуму полазить. В общем то все там найти можно  если оч.захотеть

Дело в том, что я там у них на форуме запросил этот мод, но мне сказали, что его больше не будет.

Да и ещё у Вас на http://gnezdo.webscript.ru/ работает этот скрипт?

пока да.

 А что естьпланы перехода на что-то получше? Может подскажите?

Ну может всё же скинете мне это мод, а если его у вас не осталось, то может можно его как-то выписать из кода? Просто позарез надо...

[NeoNox]

Лови:
http://cgi-resource.co.uk/pages/links2mods.shtml
Там много чего можно по Links2 найти.

[alexxmfk]

Там много чего можно по Links2 найти.

Спасибо тебе огромное, выручил...

[Green Kakadu]

А что естьпланы перехода на что-то получше? Может подскажите?

есть - пишем

[alexxmfk]

есть - пишем

А когда появится?

[alexxmfk]

Лови:
http://cgi-resource.co.uk/pages/links2mods.shtml
Там много чего можно по Links2 найти.

Либо я чёт не так сделал, либо в коде ошибка, выдаётся Error 500. Вот основная часть admin.cgi, которая изменена:

sub main {
# --------------------------------------------------------
    $| = 1;                                  # Flush Output Right Away

    # Main Menu. Check to see what the user requested, then if he has permission for that
    # request, do it. Otherwise send the user off to an unauthorized request page.
    %in = &parse_form;                      # Get form input so we know which database to load.
######Password protect mod GB Resources http://cgi-resource.co.uk/pages/links2mods.shtml#########
if ($in{\'login\'}){
                   my $timer = time();
                      open (TIME, ">$db_script_path/timer.txt");  
                               print TIME "$timer";
                               close TIME;  
                           my $today = &get_date();
                           my $tlogin = &get_time();

                   ######################html used for login page############################
                   print "Content-type: text/html\\n\\n";
                    print qq|
                   
                   
                   
                   
                   
                   The date is $today and the time is is $tlogin

Remember if this is the first time your logging in the details you give will be  
                   used as your password and username
                   

 
                   Please login below to access your links admin:

                   
                   
 
                   
                   
 
                   
                   
                   
 
                   
 
                   
                   
                   |;
                   return;
                   }
                   ##########################end html used for login page############################

                   ##########################open password file or create one#########################
                   my ($name, $pword, $input, $pw);
                   if (open (PW, "<$db_script_path/password.txt")) {
                           my $input = ;
                            chomp $input;
                           ($name, $pword) = split /\\s/, $input;  
 
                           close PW;
                           }
                                   else {  
                                   $ep = crypt PLAINTEXT, $in{\'p\'};  
                               open (PW, ">$db_script_path/password.txt") or &cgierr ("Can\'t open password file. Reason: $!");  
                               print PW "$in{\'user\'} $ep";
                               close PW;  
 
                               $name = $in{\'user\'};
                              $pword=  $in{\'p\'};
 
                           }
                    #######################end open password file or create one####################
                   $pw = "pw";

                   if ($in{\'p\'} or $in{\'user\'}){
                   my $timer = time();
                   ##########################log ip address#############################
                    if (open (IP, "<$db_script_path/$ENV{\'REMOTE_ADDR\'}")) {  
                           my $input = ; chomp $input;
                           ($old_count, $old_time) = split /\\s/, $input;  
                           close IP;
                               $new_count  = $old_count + 1;
                               $new_time = $old_time;
                           open (IP, ">$db_script_path/$ENV{\'REMOTE_ADDR\'}") or &cgierr ("Can\'t open ip file Reason: $!");  
                          print IP "$new_count $new_time";
                           close IP;  
                               }
                       else {
                           open (IP, ">$db_script_path/$ENV{\'REMOTE_ADDR\'}") or &cgierr ("Can\'t open ip file Reason: $!");  
                          print IP "1 $timer";
                           close IP;  
                   }
                    ##########################end log ip address#############################  

                   #########do some checks and throw them to an error page is they\'re not met#############
                   if (($new_count > 5) and ((time() - $new_time) < 180)) {
                   print "You\'ve had over 5 attempts
any unauthorized users beware: your details are being logged and action will be taken if you continue" and return;
                   }

                   open  (TIMER, "<$db_script_path/timer.txt");
                           $timed = int ;
                           close TIMER;
                     my $elapsed = time() - $timed;
                   if ($elapsed > 180) {
                   print " Log in time has expired.  Please point to the login url and try again" and return;
                   }
                   $uvar = $in{\'user\'};
                   $pvar = crypt PLAINTEXT, $in{\'p\'};  
                   if (($pvar eq $pword) and ($uvar eq $name)) {
                   print "Set-Cookie: $pw=$pvar; path=/\\n";
                   }
                   if (($pvar ne $pword) or ($uvar ne $name)) {
                   print "The login details you entered were not correct please go back and try again" and return;
                   }
                   unlink ("$db_script_path/$ENV{\'REMOTE_ADDR\'}");
                   }
                   ##########################end checks#############################  
else{
                   #####################check the value stored in their cookie#################  
                    my ($name1, $cid, $p, $cdata, $cdat, $tot);
                   $tot = 0;
                   $cdata = $ENV{\'HTTP_COOKIE\'};
                                      @cookies = split(/;/,$cdata);
                                      foreach $cdat (@cookies) {
                                          ($name1,$cid) = split(/=/,$cdat);
 
                                                if ($cid eq $pword){
                                      $tot++;
                                       }
                                      }  
                                      if ($tot == 0){
                                      print "You are not logged in and so do not have access to run this script

To login click HERE" and return;
                                            }  
                   #####################end check their cookie########################  
}
######Password protect mod GB Resources http://cgi-resource.co.uk/pages/links2mods.shtml#########

Может кто-нить найдёт ошибку? Без вставки кода (http://cgi-resource.co.uk/pages/password.shtml) всё работает.

[Green Kakadu]

попробуй вначале скрипта вписать:
use CGI::Carp qw(fatalsToBrowser);
может подробнее тогда об ошибке напишет.
А есть доступ к error логам?

[alexxmfk]

А есть доступ к error логам?

Неа, хостинг фри.

[alexxmfk]

А есть доступ к error логам?

Я совсем забыл, что тестил скрипт на локалхосте, вот содержание лога ошибок после попытки запуска скрипта:

[Thu Mar 14 02:52:19 2002] [error] [client 127.0.0.1] malformed header from script. Bad header=You are not logged in and so d: c:/internet/home/alexxmfk.net.ru/public_html/cgi-bin/1/admin/admin.cgi

И что забавно, хоть и выдаётся ошибка, но скрипт успевает создать файлы password.txt и timer.txt.

[alexxmfk]

А может кто-нить ещё знает где можно взять этот мод? А то этот мне не получилось поставить.