usermin/delete_session.cgi

   1 #!/usr/local/bin/perl
   2 # delete_session.cgi
   3 # Delete a single session
   4
   5 require './usermin-lib.pl';
   6 &ReadParse();
   7 $access{'sessions'} || &error($text{'sessions_ecannot'});
   8
   9 &get_usermin_miniserv_config(\%miniserv);
  10 &acl::delete_session_id(\%miniserv, $in{'id'});
  11 &restart_usermin_miniserv();
  12 &redirect("list_sessions.cgi");
  13