| line |
!l |
l&&!r |
l&&r |
condition |
|
254
|
0 |
0 |
0 |
$_[0] < 8 && $_[0] - int($_[0]) |
|
350
|
0 |
0 |
0 |
not $string and $ENV{'CONTENT_LENGTH'} |
|
370
|
0 |
0 |
0 |
eval 'use ' . $module . ' qw(' . join(' ', @_) . ');1;' and $INC{$path} |
|
380
|
0 |
0 |
0 |
@_ == 1 && !defined($_[0]) |
|
414
|
0 |
0 |
0 |
defined $mask and not $mask |
|
424
|
0 |
0 |
0 |
defined $mask and not $mask |
|
455
|
0 |
0 |
0 |
$fh{$_} and not @_ |
|
484
|
0 |
0 |
0 |
defined $config{'log_' . $_[0]} and not $config{'log_' . $_[0]} |
|
|
0 |
0 |
0 |
defined $config{'log_' . $_[0]} and not $config{'log_' . $_[0]} and not $config{'log_all'} |
|
513
|
0 |
0 |
0 |
($html || $xml) && !$file |
|
529
|
0 |
0 |
0 |
@_ and $config{'log_screen'} |
|
|
0 |
0 |
0 |
@_ and $config{'log_screen'} and not $noscreen |
|
|
0 |
0 |
0 |
@_ and $config{'log_screen'} and not $noscreen and !utf8::is_utf8($string) || utf8::valid($string) |
|
568
|
0 |
0 |
0 |
$nologbody and not $handler |
|
574
|
0 |
0 |
0 |
ref $handler eq 'CODE' and $ret = &$handler($_) |
|
585
|
0 |
0 |
0 |
$^O =~ /^(?:(ms)?(dos|win(32|nt)?))/i and not $^O =~ /^cygwin/i |
|
719
|
0 |
0 |
0 |
$ip =~ /^(?:0|127)\./ and !$host =~ /^(?:0|127)\./ |
|
720
|
0 |
0 |
0 |
$config{'norm_skip_host'} and ref $config{'norm_skip_host'} eq 'Regexp' ? $host =~ /$config{'norm_skip_host'}/ : $host =~ /$config{'norm_skip_host'}/i |
|
764
|
0 |
0 |
0 |
$_[0]{'port'} && (!$static{'port2prot'}{$_[0]{'port'}} || $static{'port2prot'}{$_[0]{'port'}} ne $_[0]{'prot'}) |
|
803
|
0 |
0 |
0 |
$_{'port'} and !$static{'port2prot'}{$_{'port'}} || $static{'port2prot'}{$_{'port'}} ne $_{'prot'} |
|
808
|
0 |
0 |
0 |
$_{'path'} =~ s[^/?$][] and $_{'name'} =~ s/(.+)// |
|
|
0 |
0 |
0 |
$_{'path'} =~ s[^/?$][] and $_{'name'} =~ s/(.+)// and $dcuser = $1 |
|
|
0 |
0 |
0 |
$_{'path'} =~ s[^/?$][] and $_{'name'} =~ s/(.+)// and $dcuser = $1 and $_{'ext'} =~ s/(.*)// |
|
|
0 |
0 |
0 |
$_{'path'} =~ s[^/?$][] and $_{'name'} =~ s/(.+)// and $dcuser = $1 and $_{'ext'} =~ s/(.*)// and $dcuser .= $1 ? ".$1" : '' |
|
|
0 |
0 |
0 |
$_{'path'} =~ s[^/([^/]+)][] and $dcuser = $1 |
|
840
|
0 |
0 |
0 |
$_[0]{'port'} && (!$static{'port2prot'}{$_[0]{'port'}} || $static{'port2prot'}{$_[0]{'port'}} ne $_[0]{'prot'}) && (!%{{} unless $config{'sql'}{'table'}{$table}{'port'};} || $_[0]{'prot'} eq 'dchub') |
|
894
|
0 |
0 |
0 |
$cfrom eq 'utf-8' and $config{'trans'}{$cto} |
|
895
|
0 |
0 |
0 |
$cto eq 'utf-8' and $config{'trans'}{$cfrom} |
|
897
|
0 |
0 |
0 |
$config{'trans'}{$cfrom} and $config{'trans'}{$cto} |
|
1021
|
0 |
0 |
0 |
$cp_to eq 'utf-8' and utf8::decode($$string) |
|
1024
|
0 |
0 |
0 |
not hconfig('no_cp_detect', $host) and ++$$data{'tries'} < 20 || !$$data{'cp'} |
|
1042
|
0 |
0 |
0 |
$cp_default and $cp_default ne $cp_to |
|
1054
|
0 |
0 |
0 |
$config{'trans_up'}{$cp} and $config{'trans_lo'}{$cp} |
|
1061
|
0 |
0 |
0 |
$config{'trans_up'}{$cp} and $config{'trans_lo'}{$cp} |
|
1134
|
0 |
0 |
0 |
$timeout and $@ |
|
1158
|
0 |
0 |
0 |
defined $int and length $int |
|
1165
|
0 |
0 |
0 |
defined $min and $int < $min |
|
1167
|
0 |
0 |
0 |
defined $max and $int > $max |
|
1221
|
0 |
0 |
0 |
$_[0] > 1 and $config{'system'} eq 'win' |
|
1313
|
0 |
0 |
0 |
$static{'config_read'}{$ENV{'SCRIPT_FILENAME'} . $file}++ and not $_[0] |
|
1317
|
0 |
0 |
0 |
not $ENV{'SERVER_PORT'} || -e $file and -e $file . '.dist' |
|
|
0 |
0 |
0 |
not $ENV{'SERVER_PORT'} || -e $file and -e $file . '.dist' and use_try 'File::Copy' |
|
1436
|
0 |
0 |
0 |
$asfile and $asfile != 1 |
|
1438
|
0 |
0 |
0 |
$config{'cache_http'} and -e $c |
|
|
0 |
0 |
0 |
$config{'cache_http'} and -e $c and -M $c < $config{'cache_http'} |
|
1601
|
0 |
0 |
0 |
$$p{'wait'} and not $schedule{$$p{'id'}}{'last'} |
|
1603
|
0 |
0 |
0 |
$schedule{$$p{'id'}}{'last'} + $$p{'every'} < time and !$$p{'runs'} || $schedule{$$p{'id'}}{'runs'} < $$p{'runs'} |
|
|
0 |
0 |
0 |
$schedule{$$p{'id'}}{'last'} + $$p{'every'} < time and !$$p{'runs'} || $schedule{$$p{'id'}}{'runs'} < $$p{'runs'} and !(ref $$p{'cond'} eq 'CODE') || $$p{'cond'}($p, $schedule{$$p{'id'}}, @_) |
|
|
0 |
0 |
0 |
$schedule{$$p{'id'}}{'last'} + $$p{'every'} < time and !$$p{'runs'} || $schedule{$$p{'id'}}{'runs'} < $$p{'runs'} and !(ref $$p{'cond'} eq 'CODE') || $$p{'cond'}($p, $schedule{$$p{'id'}}, @_) and ref $schedule{$$p{'id'}}{'func'} eq 'CODE' |
|
1655
|
0 |
0 |
0 |
length $name and lockfile $name ne $_ |
|
1747
|
0 |
0 |
0 |
$program{$current}{'func'} and not $program{$current}{'disabled'} |
|
1764
|
0 |
0 |
0 |
$current eq 'default' and not $n |
|
1767
|
0 |
0 |
0 |
!($program{$current}{'notmask'} && $par =~ /$program{$current}{'notmask'}/i) && $par =~ /$program{$current}{'mask'}/i || $program{$current}{'force'} and not $program{$current}{'runned'} |
|
1778
|
0 |
0 |
0 |
defined $$param{$par} && $$param{$par} ne '' |
|
1786
|
0 |
0 |
0 |
$r[0] and not ref $r[0] |
|
1854
|
0 |
0 |
0 |
!$$self{'connect_tries'} || $$self{'connect_tried'}++ <= $$self{'connect_tries'} and !$$self{'connect_chain_tries'} || $$self{'connect_chain_tried'}++ <= $$self{'connect_chain_tries'} |
|
1918
|
0 |
0 |
0 |
$$self{'connected'} and not $$self{'connect_check'} |
| line |
l |
!l |
condition |
|
139
|
0 |
0 |
$config{'stderr_redirect'} ||= '2>&1' |
|
141
|
0 |
0 |
$config{'trans'}{'cp1251'} ||= "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\250\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\270\262\263\257\277\252\272" |
|
143
|
0 |
0 |
$config{'trans'}{'koi8-r'} ||= "\341\342\367\347\344\345\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\377\371\370\374\340\361\263\301\302\327\307\304\305\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\337\331\330\334\300\321\243\266\246\267\247\264\244" |
|
145
|
0 |
0 |
$config{'trans'}{'iso8859-5'} ||= "\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\241\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\361\246\366\247\367\244\364" |
|
147
|
0 |
0 |
$config{'trans'}{'cp866'} ||= "\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\360\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\361\366\367\370\371\364\365" |
|
149
|
0 |
0 |
$config{'trans'}{'utf-8'} ||= "\320\321" |
|
198
|
0 |
0 |
$config{'trans_name'}{'win1251'} ||= 'cp1251' |
|
199
|
0 |
0 |
$config{'trans_name'}{'windows1251'} ||= 'cp1251' |
|
200
|
0 |
0 |
$config{'trans_name'}{'windows-1251'} ||= 'cp1251' |
|
201
|
0 |
0 |
$config{'trans_name'}{'win'} ||= 'cp1251' |
|
202
|
0 |
0 |
$config{'trans_name'}{'1251'} ||= 'cp1251' |
|
204
|
0 |
0 |
$config{'trans_name'}{'koi8r'} ||= 'koi8-r' |
|
205
|
0 |
0 |
$config{'trans_name'}{'koi8'} ||= 'koi8-r' |
|
206
|
0 |
0 |
$config{'trans_name'}{'koi'} ||= 'koi8-r' |
|
208
|
0 |
0 |
$config{'trans_name'}{'iso88595'} ||= 'iso8859-5' |
|
209
|
0 |
0 |
$config{'trans_name'}{'iso8859'} ||= 'iso8859-5' |
|
210
|
0 |
0 |
$config{'trans_name'}{'iso'} ||= 'iso8859-5' |
|
212
|
0 |
0 |
$config{'trans_name'}{'866'} ||= 'cp866' |
|
213
|
0 |
0 |
$config{'trans_name'}{'dos'} ||= 'cp866' |
|
215
|
0 |
0 |
$config{'trans_name'}{'utf8'} ||= 'utf-8' |
|
216
|
0 |
0 |
$config{'trans_name'}{'utf'} ||= 'utf-8' |
|
217
|
0 |
0 |
$config{'cp_detect_strings'} ||= 0 |
|
218
|
0 |
0 |
$config{'cp_detect_letters'} ||= 2 |
|
219
|
0 |
0 |
$config{'cp_detect_length'} ||= 10000 |
|
220
|
0 |
0 |
$config{'kilo'} ||= 8 |
|
221
|
0 |
0 |
$config{'lng'}{'en'}{'months'} ||= ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'] |
|
222
|
0 |
0 |
$config{'lng'}{'ru'}{'months'} ||= ['Янв', 'Фев', 'Мар', 'Апр', 'Май', 'Июн', 'Июл', 'Авг', 'Сен', 'Окт', 'Ноя', 'Дек'] |
|
227
|
0 |
0 |
$config{'lng'}{'en'}{'wdays'} ||= ['Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'] |
|
228
|
0 |
0 |
$config{'log_screen'} ||= 1 |
|
233
|
0 |
0 |
($1 // $0) // 'log' |
|
237
|
0 |
0 |
$config{'encode_url_file_mask'} ||= '[^a-zA-Z0-9\\-.()_]' |
|
241
|
0 |
0 |
$_[1] || '/' |
|
244
|
0 |
0 |
$config{'human'}{'date'} ||= sub {
my $d = $_[1] || '/';
return strftime("%Y$d%m$d%d", localtime($_[0] || time));
}
|
|
247
|
0 |
0 |
$_[1] || ':' |
|
249
|
0 |
0 |
$config{'human'}{'time'} ||= sub {
my $d = $_[1] || ':';
return strftime("%H$d%M$d%S", localtime($_[0] || time));
}
|
|
252
|
0 |
0 |
$_[1] || '-' |
|
|
0 |
0 |
$config{'human'}{'date_time'} ||= sub {
return human('date', $_[0] || time, $_[2]) . ($_[1] || '-') . human('time', $_[0] || time, $_[3]);
}
|
|
257
|
0 |
0 |
$config{'human'}{'float'} ||= sub {
return $_[0] < 8 && $_[0] - int($_[0]) ? sprintf('%.' . ($_[0] < 1 ? 3 : ($_[0] < 3 ? 2 : 1)) . 'f', $_[0]) : int $_[0];
}
|
|
261
|
0 |
0 |
$now || '' |
|
262
|
0 |
0 |
$config{'human'}{'micro_time'} ||= sub {
my $now = time;
($now = human('float', abs int($now) - $now)) =~ s/^0//;
return $now || '';
}
|
|
270
|
0 |
0 |
$config{'human'}{'rfc822_date_time'} ||= sub {
my($day_of_month, $month, $year, $wday) = (localtime($_[0] || time))[3..6];
return sprintf($config{'lng'}{'en'}{'wdays'}[$wday] . ', %02d ' . $config{'lng'}{'en'}{'months'}[$month] . ' %02d', $day_of_month, $year + 1900) . ' ' . $config{'human'}{'time'}($_[0] || time) . ' +0300';
}
|
|
274
|
0 |
0 |
$unit //= 'B' |
|
275
|
0 |
0 |
$config{'kilo'} || 8 |
|
282
|
0 |
0 |
$config{'human'}{'size'} ||= sub {
my($size, $sp, $unit, $kilo) = @_;
$sp //= $ENV{'SERVER_PORT'} ? ' ' : ' ';
$unit //= 'B';
$kilo //= $config{'kilo'} || 8;
return int($size / 1099511627776) . $sp . 'T' . $unit if $size >= $kilo * 1099511627776;
return int($size / 1073741824) . $sp . 'G' . $unit if $size >= $kilo * 1073741824;
return int($size / 1048576) . $sp . 'M' . $unit if $size >= $kilo * 1048576;
return int($size / 1024) . $sp . 'K' . $unit if $size >= $kilo * 1024;
return human('float', $size) . $sp . $unit if $size > 0;
return $size;
}
|
|
290
|
0 |
0 |
$config{'human'}{'number_k'} ||= sub {
local $_ = $_[0];
$_ *= 1024 if $_ =~ s/kb?$//gi;
$_ *= 1048576 if $_ =~ s/mb?$//gi;
$_ *= 1073741824 if $_ =~ s/gb?$//gi;
$_ *= 1099511627776 if $_ =~ s/tb?$//gi;
return $_;
}
|
|
293
|
0 |
0 |
$config{'human'}{'procent'} ||= sub {
return sprintf('%' . ($_[0] < 10 ? '.3f' : 'd'), $_[0]) . '%';
}
|
|
311
|
0 |
0 |
$config{'human'}{'time_period'} ||= sub {
my($tim, $delim, $sign) = @_;
$sign = '-', $tim = -$tim if $tim < 0;
return '' if $tim == 0 or $tim > 1000000000;
return $sign . human('float', $tim) . $delim . 's' if $tim < 60;
$tim = $tim / 60;
return $sign . int($tim) . $delim . 'm' if $tim < 60;
$tim = $tim / 60;
return $sign . int($tim) . $delim . 'h' if $tim < 24;
$tim = $tim / 24;
return $sign . int($tim) . $delim . 'd' if $tim <= 31;
$tim = $tim / 30.5;
return $sign . int($tim) . $delim . 'M' if $tim < 12;
$tim = $tim / 12;
return $sign . int($tim) . $delim . 'Y';
}
|
|
318
|
0 |
0 |
$config{'human'}{'number'} ||= sub {
return local $_ = reverse(join(' ', grep({length $_;} split(/(\d{3})/, reverse($_[0]), 0))));
}
|
|
321
|
0 |
0 |
$_[1] || 20 |
|
328
|
0 |
0 |
$config{'human'}{'string_long'} ||= sub {
my $maxlen = $_[1] || 20;
html_chars(\$_[0]);
return $_[0] if length $_[0] <= $maxlen;
my $print = substr($_[0], 0, $maxlen);
$print =~ s/[\xD0\xD1]$//;
$_[0] =~ s/\"/"/g;
return '$print...];
}
|
|
349
|
0 |
0 |
$delim ||= '&' |
|
415
|
0 |
0 |
$mask ||= '[^a-zA-Z0-9\\-.()_!,]' |
|
435
|
0 |
0 |
$mask ||= '[^a-zA-Z0-9\\-.()_\\:@\\/!,=]' |
|
502
|
0 |
0 |
$config{'log_delim'} || ' ' |
|
586
|
0 |
0 |
$config{'starter'} ||= 'cmd /c' |
|
587
|
0 |
0 |
$config{'spawn_prefix'} ||= 'start /min /low' |
|
589
|
0 |
0 |
$config{'spawn_postfix'} ||= '&' |
|
645
|
0 |
0 |
(caller $_)[2] || (last) |
|
798
|
0 |
0 |
$_{'path'} ||= '/' |
|
1003
|
0 |
0 |
$data ||= {} |
|
1004
|
0 |
0 |
cp_normalize($cp_to || hconfig('cp_db', $host)) || 'utf-8' |
|
1053
|
0 |
0 |
shift() || 'cp1251' |
|
1060
|
0 |
0 |
shift() || 'cp1251' |
|
1201
|
0 |
0 |
$_[0] || 5 |
|
1235
|
0 |
0 |
$min ||= 0.5 |
|
1300
|
0 |
0 |
$root_path //= './' |
|
1304
|
0 |
0 |
$config{'config_file'} // 'config.pl' |
|
1435
|
0 |
0 |
$config{'cachedir'} || '.' |
|
1457
|
0 |
0 |
hconfig('timeout', $url{'host'}, $url{'prot'}) || 10 |
|
1469
|
0 |
0 |
$method ||= 'GET' |
|
1522
|
0 |
0 |
$method || 'GET' |
|
1533
|
0 |
0 |
$ret || undef |
|
1612
|
0 |
0 |
$config{'lock_dir'} || './' |
|
|
0 |
0 |
$config{'lock_ext'} || '.lock' |
|
1618
|
0 |
0 |
$config{'lock_sleep'} // 1 |
|
1619
|
0 |
0 |
$config{'lock_timeout'} // 600 |
|
1620
|
0 |
0 |
$config{'lock_old'} // 3600 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
229
|
0 |
0 |
0 |
$config{'log_dir'} ||= $config{'root_path'} |
|
233
|
0 |
0 |
0 |
$1 // $0 |
|
|
0 |
0 |
0 |
$config{'log_default'} ||= (($1 // $0) // 'log') . '.log' |
|
242
|
0 |
0 |
0 |
$_[0] || time |
|
248
|
0 |
0 |
0 |
$_[0] || time |
|
252
|
0 |
0 |
0 |
$_[0] || time |
|
|
0 |
0 |
0 |
$_[0] || time |
|
264
|
0 |
0 |
0 |
$_[0] || time |
|
265
|
0 |
0 |
0 |
$_[0] || time |
|
273
|
0 |
0 |
0 |
$sp //= $ENV{'SERVER_PORT'} ? ' ' : ' ' |
|
275
|
0 |
0 |
0 |
$kilo //= $config{'kilo'} || 8 |
|
298
|
0 |
0 |
0 |
$tim == 0 or $tim > 1000000000 |
|
494
|
0 |
0 |
0 |
$file =~ s/^[\-_]// or not $file |
|
499
|
0 |
0 |
0 |
$ENV{'SERVER_PORT'} or $config{'view'} eq 'html' |
|
|
0 |
0 |
0 |
$ENV{'SERVER_PORT'} or $config{'view'} eq 'html' or $config{'view'} =~ /http/i |
|
529
|
0 |
0 |
0 |
!utf8::is_utf8($string) || utf8::valid($string) |
|
622
|
0 |
0 |
0 |
$work{'$0'} || $0 |
|
645
|
0 |
0 |
0 |
(caller $_ + 1)[3] || (caller $_)[0] |
|
650
|
0 |
0 |
0 |
$work{'$0'} ||= $0 |
|
667
|
0 |
0 |
0 |
$_ ||= $_[0] |
|
754
|
0 |
0 |
0 |
$_[0] || time |
|
757
|
0 |
0 |
0 |
$_[0] || time |
|
764
|
0 |
0 |
0 |
!$_[0]{'path'} || $_[0]{'path'} =~ m[^/] |
|
|
0 |
0 |
0 |
!($_[0]{'path'} || $_[0]{'host'} && ($_[0]{'name'} || $_[0]{'ext'})) || $_[0]{'path'} =~ m[/$] |
|
788
|
0 |
0 |
0 |
$_[1] || $config{'sql_tresource'} |
|
798
|
0 |
0 |
0 |
$_{'name'} or $_{'ext'} |
|
803
|
0 |
0 |
0 |
!$static{'port2prot'}{$_{'port'}} || $static{'port2prot'}{$_{'port'}} ne $_{'prot'} |
|
829
|
0 |
0 |
0 |
$_[1] || $config{'sql_tresource'} |
|
844
|
0 |
0 |
0 |
$config{'trans_name'}{lc $_[0]} || lc $_[0] |
|
850
|
0 |
0 |
0 |
not $cto or $cto eq 'utf-8' |
|
870
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string |
|
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string or not $cfrom |
|
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string or not $cfrom or not $cto |
|
887
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string |
|
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string or not $cfrom |
|
|
0 |
0 |
0 |
$cto eq $cfrom or not length $string or not $cfrom or not $cto |
|
907
|
0 |
0 |
0 |
$cto ||= $config{'cp_db'} |
|
935
|
0 |
0 |
0 |
$cfrom ||= $config{'cp_db'} |
|
1022
|
0 |
0 |
0 |
$cp_default || hconfig('cp_res', $host, $prot) |
|
1024
|
0 |
0 |
0 |
++$$data{'tries'} < 20 || !$$data{'cp'} |
|
1079
|
0 |
0 |
0 |
$work{'lang'} || $config{'lang'} |
|
|
0 |
0 |
0 |
$lang ||= $work{'lang'} || $config{'lang'} |
|
1147
|
0 |
0 |
0 |
shift() // $_ |
|
1214
|
0 |
0 |
0 |
$static{'no_sig_log'} or $ENV{'SERVER_PORT'} |
|
1230
|
0 |
0 |
0 |
$where ||= join('', caller) |
|
1231
|
0 |
0 |
0 |
not $max or $ENV{'SERVER_PORT'} |
|
1237
|
0 |
0 |
0 |
$work{'sleeper'}{$where} ||= $min |
|
1257
|
0 |
0 |
0 |
$_[0] || *STDOUT |
|
1295
|
0 |
0 |
0 |
$ENV{'SCRIPT_FILENAME'} || $work{'$0'} || $0 |
|
1317
|
0 |
0 |
0 |
$ENV{'SERVER_PORT'} || -e $file |
|
1326
|
0 |
0 |
0 |
$_ or $_[1] |
|
1369
|
0 |
0 |
0 |
$files || () |
|
1390
|
0 |
0 |
0 |
$INC{$file} || $file |
|
1404
|
0 |
0 |
1 |
$ENV{'SCRIPT_FILENAME'} || $work{'$0'} || $0 |
|
1415
|
1 |
0 |
0 |
$order || ($conf{'conf_count'}{$id} += 10) |
|
1457
|
0 |
0 |
0 |
$config{'useragent'} || $config{'crawler_name'} |
|
1522
|
0 |
0 |
0 |
$config{'useragent'} || $config{'crawler_name'} |
|
1596
|
0 |
0 |
0 |
$$p{'every'} ||= $every |
|
1597
|
0 |
0 |
0 |
$$p{'id'} ||= join(';', caller) |
|
1600
|
0 |
0 |
0 |
not $schedule{$$p{'id'}}{'func'} or $$p{'update'} |
|
1603
|
0 |
0 |
0 |
!$$p{'runs'} || $schedule{$$p{'id'}}{'runs'} < $$p{'runs'} |
|
|
0 |
0 |
0 |
!(ref $$p{'cond'} eq 'CODE') || $$p{'cond'}($p, $schedule{$$p{'id'}}, @_) |
|
1618
|
0 |
0 |
0 |
$p{'sleep'} //= $config{'lock_sleep'} // 1 |
|
1619
|
0 |
0 |
0 |
$p{'timeout'} //= $config{'lock_timeout'} // 600 |
|
1620
|
0 |
0 |
0 |
$p{'old'} //= $config{'lock_old'} // 3600 |
|
1684
|
1 |
4 |
0 |
$setorder || ($order += $config{'order_step'} || 10) |
|
|
0 |
5 |
0 |
$program{$current = $name}{'order'} ||= $setorder || ($order += $config{'order_step'} || 10) |
|
1760
|
0 |
0 |
0 |
$program{$current}{'mask'} ||= "^-?$current\\d*\$" |
|
1767
|
0 |
0 |
0 |
!($program{$current}{'notmask'} && $par =~ /$program{$current}{'notmask'}/i) && $par =~ /$program{$current}{'mask'}/i || $program{$current}{'force'} |
|
1787
|
0 |
0 |
0 |
$program{$current}{'once'} or $program{$current}{'force'} |
|
1821
|
0 |
0 |
0 |
$$self{$_} //= $_{$_} |
|
1848
|
0 |
0 |
0 |
$$self{'in_connect'} or $$self{'in_disconnect'} |
|
1854
|
0 |
0 |
0 |
!$$self{'connect_tries'} || $$self{'connect_tried'}++ <= $$self{'connect_tries'} |
|
|
0 |
0 |
0 |
!$$self{'connect_chain_tries'} || $$self{'connect_chain_tried'}++ <= $$self{'connect_chain_tries'} |