/[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.4 by joko, Tue Jul 1 18:11:15 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/07/01 18:11:15  joko
6    ##  fixed: renamed package name according to new filenames
7    ##
8    ##  Revision 1.3  2003/06/25 23:37:04  joko
9    ##  + sub clearProxyCache
10    ##
11  ##  Revision 1.2  2003/02/20 21:09:59  joko  ##  Revision 1.2  2003/02/20 21:09:59  joko
12  ##  modified runtime namespace hierarchy  ##  modified runtime namespace hierarchy
13  ##  ##
# Line 11  Line 17 
17  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
18    
19    
20  package OEF::Component::WebProxy;  package OEF::Component::WebCache;
21    
22  use strict;  use strict;
23  use warnings;  use warnings;
# Line 122  sub getUrl { Line 128  sub getUrl {
128    return $content;    return $content;
129  }  }
130    
131    sub clearProxyCache {
132      my $self = shift;
133      my $proxyObj = $self->{app}->{storage}->{import}->remote('HttpProxy');
134      #my @results = $self->{app}->{storage}->{import}->select($proxyObj, $proxyObj->{url} eq $url);
135      my @results = $self->{app}->{storage}->{import}->select($proxyObj);
136      $self->{app}->{storage}->{import}->erase( @results );
137    }
138    
139  1;  1;
140    __END__
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed