bin/icradius_reset

   1
   2   my $sth = $icradius_dbh->prepare("DELETE FROM radcheck");
   3   $sth->execute or die "Can't reset radcheck table: ". $sth->errstr;
   4   my $sth2 = $icradius_dbh->prepare("DELETE FROM radreply");
   5   $sth2->execute or die "Can't reset radreply table: ". $sth2->errstr;
   6
   7