2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/02/20 21:09:59 joko |
6 |
|
## modified runtime namespace hierarchy |
7 |
|
## |
8 |
## Revision 1.1 2003/02/11 09:46:09 joko |
## Revision 1.1 2003/02/11 09:46:09 joko |
9 |
## + initial commit |
## + initial commit |
10 |
## |
## |
61 |
#print Dumper($self); |
#print Dumper($self); |
62 |
#exit; |
#exit; |
63 |
|
|
64 |
my $proxyObj = $self->{app}->{import}->remote('HttpProxy'); |
my $proxyObj = $self->{app}->{storage}->{import}->remote('HttpProxy'); |
65 |
my @results = $self->{app}->{import}->select($proxyObj, $proxyObj->{url} eq $url); |
my @results = $self->{app}->{storage}->{import}->select($proxyObj, $proxyObj->{url} eq $url); |
66 |
my $content = $results[0]->{content} if $results[0]->{content}; |
my $content = $results[0]->{content} if $results[0]->{content}; |
67 |
my $oktxt = "no"; |
my $oktxt = "no"; |
68 |
if ($content) { |
if ($content) { |
88 |
age => $response->current_age(), |
age => $response->current_age(), |
89 |
); |
); |
90 |
my $oktxt = "no"; |
my $oktxt = "no"; |
91 |
if ($self->{app}->{import}->insert($proxyObj)) { |
if ($self->{app}->{storage}->{import}->insert($proxyObj)) { |
92 |
$oktxt = "ok"; |
$oktxt = "ok"; |
93 |
} |
} |
94 |
$logger->debug( __PACKAGE__ . "->savePageToProxy ...$oktxt" ); |
$logger->debug( __PACKAGE__ . "->savePageToProxy ...$oktxt" ); |