version 1.210, 2004/07/23 15:24:57
|
version 1.211, 2004/07/23 16:14:19
|
Line 969 sub tie_domain_hash {
|
Line 969 sub tie_domain_hash {
|
my $resource_file = $domain_dir."/$namespace.db"; |
my $resource_file = $domain_dir."/$namespace.db"; |
my %hash; |
my %hash; |
if(tie(%hash, 'GDBM_File', $resource_file, $how, 0640)) { |
if(tie(%hash, 'GDBM_File', $resource_file, $how, 0640)) { |
if (scalar @_) { # Need to log the operation. |
if (defined($loghead)) { # Need to log the operation. |
my $logFh = IO::File->new(">>$domain_dir/$namespace.hist"); |
my $logFh = IO::File->new(">>$domain_dir/$namespace.hist"); |
if($logFh) { |
if($logFh) { |
my $timestamp = time; |
my $timestamp = time; |
Line 1016 sub tie_user_hash {
|
Line 1016 sub tie_user_hash {
|
$how, 0640)) { |
$how, 0640)) { |
# If this is a namespace for which a history is kept, |
# If this is a namespace for which a history is kept, |
# make the history log entry: |
# make the history log entry: |
if (($namespace =~/^nohist\_/) && (scalar @_ > 0)) { |
if (($namespace =~/^nohist\_/) && (defined($loghead))) { |
my $args = scalar @_; |
my $args = scalar @_; |
Debug(" Opening history: $namespace $args"); |
Debug(" Opening history: $namespace $args"); |
my $hfh = IO::File->new(">>$proname/$namespace.hist"); |
my $hfh = IO::File->new(">>$proname/$namespace.hist"); |
Line 1043 sub tie_user_hash {
|
Line 1043 sub tie_user_hash {
|
# is defined as a 'line' of text. We remove the new line |
# is defined as a 'line' of text. We remove the new line |
# from the text line. |
# from the text line. |
# |
# |
sub GetRequest { |
sub get_request { |
my $input = <$client>; |
my $input = <$client>; |
chomp($input); |
chomp($input); |
|
|
Line 1062 sub GetRequest {
|
Line 1062 sub GetRequest {
|
# Implicit input: |
# Implicit input: |
# cipher - This global holds the negotiated encryption key. |
# cipher - This global holds the negotiated encryption key. |
# |
# |
sub Decipher { |
sub decipher { |
my ($input) = @_; |
my ($input) = @_; |
my $output = ''; |
my $output = ''; |
|
|
Line 1106 sub Decipher {
|
Line 1106 sub Decipher {
|
# - On failure, the program will die as it's a bad internal bug to try to |
# - On failure, the program will die as it's a bad internal bug to try to |
# register a duplicate command handler. |
# register a duplicate command handler. |
# |
# |
sub RegisterHandler { |
sub register_handler { |
my ($request_name, |
my ($request_name, |
$procedure, |
$procedure, |
$must_encode, |
$must_encode, |