admin-cancel.pl 391 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#
# Copyright 2001 Double Precision, Inc.  See COPYING for
# distribution information.

foreach (ReadConfigFiles())
{
    unlink ("$sysconfdir/webadmin/added/$_",
	    "$sysconfdir/webadmin/removed/$_");
}
unlink("$sysconfdir/webadmin/subdirs-removed");
unlink("$sysconfdir/webadmin/subdirs-added");
unlink "$sysconfdir/webadmin/changed";

print $cgi->redirect( $cgi->url(-full=>1));
exit 0