ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      02 Aug 2001  15:25:58
 To : Al Zaharov
 Subject : Re: посмотрите, плз, скрипт (рабочий), что с ним не так?
 -------------------------------------------------------------------------------- 
 

 Al Zaharov wrote:
 
 AZ>а что делать с таким: 
 AZ>        my @rules_sorted = sort {$rulenames{$a}<=>$rulenames{$b}}
 AZ>                                                keys %rulenames;
 AZ>?? причем, rulenames глобальная..
 AZ>или вот с этим:
 AZ>                        push(@timestamps, $ts);
 AZ>?
 AZ>кстати, а может использовать our? правда, как я понял, это дает
 AZ>смысл, только если определять глобальные.. да и появился он, вроде,
 AZ>только в 5.6
 
 Просто $main:: замени на $:: или пропиши %rulenames и @timestamps в use vars.
 
 >> AZ>        &print_pic($q->param('showpic'), $q->param('frame'));
 >> ты уверен, что тебе не достаточно просто print_pic(...), без & в начале?
 AZ>спасибо.. правда, она ведь и не мешала? ну и передали еще и @_
 
 Hет, @_ передалось бы если бы ты написал просто &print_pic, а так ты просто 
 обошел прототипы функции (function prototypes), которых у тебя все равно
 не было, так что беда в этом небольшая.  Просто & "глаз режет".
 
 Посмотри в perldoc perlsub, там это прямо в synopsis.
 
 >> AZ>sub makeunixtime {
 >> Я вообще не понял, чего эта функция делает?
 AZ>makeunixtime? дает timestamp_t по utc, на входе - локальное время..
 
 А чем timelocal из Time::Local не подошел?
 
 >> AZ>        if (defined($pic) && ($ENV{'HTTP_REFERER'} eq url())) {
 >> REFERER никто выставлять не обязан, так что ты запросто можешь отказать
 >> вполне легальному посетителю в обслуживании. В тоже время, кто угодно
 >> может выставить какой-угодно реферер и посмотреть на картинки.
 AZ>а как тогда бороться? только через мультипарт? сначала и хотел сделать 
 AZ>через него, но не смог победить, плюнул и сделал так..
 
 С чем боротся?  С тем что кто-то посмторит?  Просто запихнуть весь скрипт
 под Basic Auth web-сервера и все.
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    посмотрите, плз, скрипт (рабочий), что с ним не так?   Al Zaharov   28 Jul 2001 14:19:36   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Pavel Ammosov   30 Jul 2001 14:43:29   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Al Zaharov   01 Aug 2001 00:15:12   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Pavel Ammosov   02 Aug 2001 15:25:58   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Al Zaharov   05 Aug 2001 19:16:28   посмотpите, плз, скpипт (pабочий), что с ним не так?   Konstantin Petrenko   14 Aug 2001 12:38:38   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Pavel Ammosov   14 Aug 2001 17:55:11   Re: посмотрите, плз, скрипт (рабочий), что с ним не так?   Al Zaharov   16 Aug 2001 09:18:06