/[cvs]/nfo/perl/libs/OEF/Component/WebCache.pm
ViewVC logotype

Diff of /nfo/perl/libs/OEF/Component/WebCache.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Tue Feb 11 09:46:09 2003 UTC revision 1.2 by joko, Thu Feb 20 21:09:59 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 58  sub fetchPageFromProxy { Line 61  sub fetchPageFromProxy {
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) {
# Line 85  sub cacheResponse { Line 88  sub cacheResponse {
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" );
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed