--- nfo/perl/libs/OEF/Component/WebCache.pm	2003/02/20 21:09:59	1.2
+++ nfo/perl/libs/OEF/Component/WebCache.pm	2003/06/25 23:37:04	1.3
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: WebCache.pm,v 1.2 2003/02/20 21:09:59 joko Exp $
+##  $Id: WebCache.pm,v 1.3 2003/06/25 23:37:04 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: WebCache.pm,v $
+##  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
 ##
@@ -122,4 +125,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__