/[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.2 by joko, Thu Feb 20 21:09:59 2003 UTC revision 1.3 by joko, Wed Jun 25 23:37:04 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/06/25 23:37:04  joko
6    ##  + sub clearProxyCache
7    ##
8  ##  Revision 1.2  2003/02/20 21:09:59  joko  ##  Revision 1.2  2003/02/20 21:09:59  joko
9  ##  modified runtime namespace hierarchy  ##  modified runtime namespace hierarchy
10  ##  ##
# Line 122  sub getUrl { Line 125  sub getUrl {
125    return $content;    return $content;
126  }  }
127    
128    sub clearProxyCache {
129      my $self = shift;
130      my $proxyObj = $self->{app}->{storage}->{import}->remote('HttpProxy');
131      #my @results = $self->{app}->{storage}->{import}->select($proxyObj, $proxyObj->{url} eq $url);
132      my @results = $self->{app}->{storage}->{import}->select($proxyObj);
133      $self->{app}->{storage}->{import}->erase( @results );
134    }
135    
136  1;  1;
137    __END__
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed