#!/usr/local/bin/perl
# delete_session.cgi
# Delete a single session

require './acl-lib.pl';
&ReadParse();
$access{'sessions'} || &error($text{'sessions_ecannot'});

&get_miniserv_config(\%miniserv);
&open_session_db(\%miniserv);
delete($sessiondb{$in{'id'}});
dbmclose(%sessiondb);
&restart_miniserv();
&redirect("list_sessions.cgi");

