--- nfo/perl/libs/OEF/Component/WebCache.pm	2003/02/20 21:09:59	1.2
+++ nfo/perl/libs/OEF/Component/WebCache.pm	2003/07/01 18:11:15	1.4
@@ -1,7 +1,13 @@
 ## ------------------------------------------------------------------------
-##  $Id: WebCache.pm,v 1.2 2003/02/20 21:09:59 joko Exp $
+##  $Id: WebCache.pm,v 1.4 2003/07/01 18:11:15 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: WebCache.pm,v $
+##  Revision 1.4  2003/07/01 18:11:15  joko
+##  fixed: renamed package name according to new filenames
+##
+##  Revision 1.3  2003/06/25 23:37:04  joko
+##  + sub clearProxyCache
+##
 ##  Revision 1.2  2003/02/20 21:09:59  joko
 ##  modified runtime namespace hierarchy
 ##
@@ -11,7 +17,7 @@
 ## ------------------------------------------------------------------------
 
 
-package OEF::Component::WebProxy;
+package OEF::Component::WebCache;
 
 use strict;
 use warnings;
@@ -122,4 +128,13 @@
   return $content;
 }
 
+sub clearProxyCache {
+  my $self = shift;
+  my $proxyObj = $self->{app}->{storage}->{import}->remote('HttpProxy');
+  #my @results = $self->{app}->{storage}->{import}->select($proxyObj, $proxyObj->{url} eq $url);
+  my @results = $self->{app}->{storage}->{import}->select($proxyObj);
+  $self->{app}->{storage}->{import}->erase( @results );
+}
+
 1;
+__END__