#!/usr/bin/perl

$user = $ARGV[0];
if ($user eq "") {

print "Warning: this will destory all previous webalizer data!\n";
print "Enter Username to fix webalizer for? ";
chomp($user = <STDIN>);

}

$homedir=gethomedir($user);

die "Cannot find $user 's homedir" if ($homedir eq "");

system("rm -fv $homedir/tmp/webalizer/webalizer.*");
system("rm -fv $homedir/tmp/webalizer/*.db");
system("/scripts/runweblogs","$user");

sub gethomedir {
   my($user) = $_[0];
   my($homedir);
   open(PASSWD,"/etc/passwd");
   while(<PASSWD>) {   
      if (/^$user:/) {
         (undef,undef,undef,undef,undef,$homedir,undef) = split(/:/, $_,  7);
         return $homedir;
      }
   }
   close(PASSWD);
return "";
}