Parent Directory | Revision Log | Patch
revision 432 by dpavlin, Wed Nov 19 00:40:18 2008 UTC | revision 434 by dpavlin, Wed Nov 19 01:21:31 2008 UTC | |
---|---|---|
# | Line 15 has 'usage' => ( | Line 15 has 'usage' => ( |
15 | ||
16 | sub data { | sub data { |
17 | my ($self) = @_; | my ($self) = @_; |
18 | $self->session_dump( $self->usage ); | |
19 | } | |
20 | ||
21 | sub session_dump { | |
22 | my ($self,$db) = @_; | |
23 | my $data; | my $data; |
24 | ||
my $db = $self->usage; | ||
25 | my $key = $db->first_key(); | my $key = $db->first_key(); |
26 | while ($key) { | while ($key) { |
27 | $data->{$key} = $db->get($key); | $data->{$key} = $db->get($key); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |