version 1.7, 2004/06/01 10:06:52
|
version 1.8, 2005/06/16 22:33:45
|
Line 300 sub getServer {
|
Line 300 sub getServer {
|
Returns the remaining request text. |
Returns the remaining request text. |
|
|
=cut |
=cut |
|
|
sub getRequest { |
sub getRequest { |
my $self = shift; |
my $self = shift; |
return $self->{request}; |
return $self->{request}; |
} |
} |
|
|
|
=pod |
|
|
|
=item getLoggableRequest |
|
|
|
Use this top get what the request is when you don't want to spew |
|
sensitive data into logs |
|
|
|
=cut |
|
|
|
sub getLoggableRequest { |
|
my $self = shift; |
|
my ($cmd,$subcmd)=split(':',$self->{request}); |
|
if ($cmd eq 'encrypt') { |
|
return "$cmd:$subcmd"; |
|
} |
|
return $cmd; |
|
} |
|
|
1; |
1; |