Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » IkonBoard и другие форумы » Ikonboard v.2 » Нужна помощь

Модерирует : Antuan

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Огромная просьба помочь, если не затруднит, сразу к делу:
мной была создана подпрограмма в ikon.lib примерно такого содержания :

Код:
sub какой-то там {
    my $nametoget = shift;
    $nametoget =~ s/ /\_/g;
    $filetoopen = "$ikondir" . "папка/$nametoget.xxx";
    $filetoopen = &stripMETA($filetoopen);
    open(FILE,"$filetoopen");
        $filedata = <FILE>;
        close(FILE);
        chomp($filedata);
        ($переменная1, $переменная2) = split(/\|/,$filedata);
     }

она была сделана для чтения переменных из файла в "папке" имяюзера.xxx
вызываю я её такой строкой &какой-то там("$inmembername");
и ничего не понимаю, у меня(админа) эти две переменные из файла читаются, а у остальных нет. очень озадачен . Кому не сложно, помогите.

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 05:09 06-07-2002
lynx



Advanced lynx
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002

Цитата:
у меня(админа) эти две переменные из файла читаются, а у остальных нет. очень озадачен  

 
Так ты покажи, где ты эти переменные вызываешь то? Может в цикле, где в начале проверка на админа.

Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 15:00 06-07-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Скорее всего вызываешь из блока с проверкой на админа.

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 18:23 07-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
lynx
Alexander Ipp
дык вот нет, вызываю в sub whosonline... там нет проверки на админа..

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 02:49 08-07-2002
lynx



Advanced lynx
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
 

Цитата:
дык вот нет, вызываю в sub whosonline... там нет проверки на админа..

 
Ну, так дай код, да?
 

Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 12:53 08-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
lynx
ок, no problem

Код:
sub whosonline {  
    local($instruct) = @_;  
    ($tempusername, $where, $method) = split(/\|/, $instruct);  
 
    $guests = 0;  
    $members = 0;  
    $anonymouses = 0;
    $membergone = 15;
    $currenttime = time;  
    $userexpire = $currenttime - ($membergone * 60);  
     
    $ipaddresstowo = $ENV{'REMOTE_ADDR'};  
 
    &getmember("$inmembername");  
    if ($tempusername eq "Guest" || $userregistered eq "no") { $tempusername = "Guest"; }    
     
        $filetoopen = "$ikondir" . "data/onlinedata.dat";  
        $filetoopen = &stripMETA($filetoopen);  
        open(FILE,"$filetoopen");  
        #flock(FILE, 1);  
        @onlinedata = <FILE>;  
        close(FILE);  
             
        open(FILE,">$filetoopen");  
        #flock(FILE, 2);  
        $memberprinted = "no";  
        foreach $line (@onlinedata) {  
                chomp $line;  
                ($savedusername, $savedtime, $savedwhere, $savedip) = split(/\|/, $line);  
                $savedusername =~ s/ /_/g;  
                $tempusername =~ s/ /_/g;  
                    unless ("$userexpire" > "$savedtime") {  
  if ($tempusername eq $savedusername) {  
   if ($savedusername eq "Guest" && $savedip eq $ipaddresstowo) {  
  print FILE "$tempusername|$currenttime|$where|$ipaddresstowo\n";  
$memberprinted = "yes";  
}  
 elsif ($savedusername eq "Guest" && $savedip ne $ipaddresstowo) {  
  print FILE "$line\n";  
}  
 elsif ($savedusername ne "Guest") {  
  print FILE "$tempusername|$currenttime|$where|$ipaddresstowo\n";  
$memberprinted = "yes";    
}  
  } else { print FILE "$line\n"; }  
                    }  
                } # end foreach  
        if ($memberprinted eq "no") { print FILE "$tempusername|$currenttime|$where|$ipaddresstowo\n";}  
        close(FILE);  
 
        if ($method eq "$ibtxt{'0016'}") {  
         
            $filetoopen = "$ikondir" . "data/onlinedata.dat";  
            $filetoopen = &stripMETA($filetoopen);  
            open(FILE,"$filetoopen");  
            @onlinedata = <FILE>;  
            close(FILE);  
            foreach $line (@onlinedata) {  
                chomp $line;  
                ($savedusername, $savedtime, $savedwhere, $savedipadr) = split(/\|/, $line);  
                $lookfor = substr($savedusername, 0, 5);  
                if ($lookfor eq "$ibtxt{'0043'}") { $guests++; }  
                else {  
                $members++;  
               
   &какой-то там ("$savedusername");    
                if ($переменная1 eq "yes") { $anonymouses++;}
                else {              
                $cleanmember = $savedusername;  
                $cleanmember =~ s/ /\_/g;  
                $savedusername = substr($savedusername,0,20) if length $savedusername > 19;  
                $memberoutput .= qq~&raquo; <a href="$profileprog?action=show&member=$cleanmember">$savedusername </a>~;}
                }  
            }  
        }  
} # end routine  


----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 14:04 08-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
никто мне не поможет
 
Добавлено
ладно, уже не надо, буду через куки делать.

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 10:32 10-07-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Попробуй из другого места вызывать. М.б., что-то с областями видимости (my/local)...

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 14:01 15-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
ладно спасибо, мне Алексей м.б. поможет через куки сделать, а то правда.. тормозно всё это...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 14:19 15-07-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Да почитай ты млин доки на CGI.pm...

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 18:54 15-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
Где-где доки почитать?

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 01:48 16-07-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Ищешь на локале дир с Перлом, там дир html, там дир lib и в нём находишь файл CGI.htm. И наслаждайся...

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 06:22 16-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
мдя... я лучше книжку на руском найду...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 07:05 16-07-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Да а ещё лучше открой loginout.cgi и там посмотри как сделано. И ещё где-нибудь где куки читаются.

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 07:53 16-07-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
дык я смотрел в него... мало что понял... мне Алексей на примере одном общал объяснить, но у него с винтом проблемы так что ждём...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 08:12 16-07-2002
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » IkonBoard и другие форумы » Ikonboard v.2 » Нужна помощь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru