projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branches 'mojo' and 'test' of ssh://server/scm/spider into test
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index 7b2ad7a7ba0ad037f15bd4207799d47921de3760..116b69e62eebec01552ec5bb2a9c47066d9d4f61 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-85,6
+85,7
@@
my $json;
rbnseeme => '0,RBN See Me,yesno',
registered => '9,Registered?,yesno',
startt => '0,Start Time,cldatetime',
rbnseeme => '0,RBN See Me,yesno',
registered => '9,Registered?,yesno',
startt => '0,Start Time,cldatetime',
+ user_interval => '0,Prompt IdleTime',
version => '1,Version',
wantann => '0,Req Announce,yesno',
wantann_talk => '0,Talklike Anns,yesno',
version => '1,Version',
wantann => '0,Req Announce,yesno',
wantann_talk => '0,Talklike Anns,yesno',
@@
-132,6
+133,8
@@
sub AUTOLOAD
goto &$AUTOLOAD;
}
goto &$AUTOLOAD;
}
+my $readonly;
+
#use strict;
#
#use strict;
#
@@
-161,6
+164,8
@@
sub init
$dbm = tie (%u, 'DB_File', $filename, O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_json?]";
}
}
$dbm = tie (%u, 'DB_File', $filename, O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_json?]";
}
}
+ $readonly = !$mode;
+
die "Cannot open $filename ($!)\n" unless $dbm || $mode == 2;
return;
}
die "Cannot open $filename ($!)\n" unless $dbm || $mode == 2;
return;
}
@@
-190,7
+195,7
@@
sub process
sub finish
{
sub finish
{
- dbg('DXUser finished');
+ dbg('DXUser finished')
unless $readonly
;
$dbm->sync;
undef $dbm;
untie %u;
$dbm->sync;
undef $dbm;
untie %u;
@@
-349,7
+354,7
@@
sub close
my $ip = shift;
# add a record to the connect list
$self->{lastin} = $main::systime;
my $ip = shift;
# add a record to the connect list
$self->{lastin} = $main::systime;
- my $ref = [$s
tartt || $self->{startt}
, $main::systime];
+ my $ref = [$s
elf->{startt} || $startt
, $main::systime];
push @$ref, $ip if $ip;
push @{$self->{connlist}}, $ref;
shift @{$self->{connlist}} if @{$self->{connlist}} > $maxconnlist;
push @$ref, $ip if $ip;
push @{$self->{connlist}}, $ref;
shift @{$self->{connlist}} if @{$self->{connlist}} > $maxconnlist;
@@
-982,7
+987,7
@@
sub recover
sub END
{
if ($dbm) {
sub END
{
if ($dbm) {
- print "DXUser Ended\n";
+ print "DXUser Ended\n"
unless $readonly
;
finish();
}
}
finish();
}
}