--- Coro/myhttpd/shell.pl	2001/09/28 13:54:21	1.19
+++ Coro/myhttpd/shell.pl	2001/11/28 03:39:46	1.20
@@ -11,7 +11,7 @@
 my $last_ts = time;
 
 my %complete;
-my @commands = qw(quit squit refresh country restart block info print);
+my @commands = qw(quit squit refresh country restart block info print clrdiridx);
 
 abbrev \%complete, @commands;
 
@@ -56,6 +56,9 @@
             %statdata_cache = ();
             conn::read_blockuri;
             conn::read_blockref;
+         } elsif ($cmd eq "clrdiridx") {
+            %statdata_cache = ();
+            %diridx = ();
          } elsif ($cmd eq "restart") {
             $::RESTART = 1;
             unloop;