36 lines
654 B
Perl
36 lines
654 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
package LJR;
|
||
|
|
|
||
|
|
$LJ_CLIENT = "LJR::Import/0.01";
|
||
|
|
$USER_AGENT = "LJR::Import/0.01; http://lj.rossia.org/; lj-admin\@rossia.org";
|
||
|
|
|
||
|
|
# How much times to retry if any network related error occurs
|
||
|
|
$NETWORK_RETRIES = 10; #was: 20
|
||
|
|
|
||
|
|
# Hom much seconds to wait before each retry
|
||
|
|
$NETWORK_SLEEP = 30; #was: 5
|
||
|
|
|
||
|
|
$DEBUG = 1;
|
||
|
|
|
||
|
|
sub NETWORK_SLEEP {
|
||
|
|
my $msg = shift;
|
||
|
|
|
||
|
|
if ($msg) {
|
||
|
|
$msg = " (" . $msg . ")";
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$msg = "";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $t = `date +"%D %T"`;
|
||
|
|
print
|
||
|
|
substr($t, 0, length($t) - 1) .
|
||
|
|
" sleeping $NETWORK_SLEEP seconds due to network related error" . $msg . ".\n"
|
||
|
|
if $DEBUG;
|
||
|
|
|
||
|
|
sleep $NETWORK_SLEEP;
|
||
|
|
};
|
||
|
|
|
||
|
|
return 1;
|