Files
webmin/mailboxes/xhr.cgi

18 lines
357 B
Perl
Executable File

#!/usr/local/bin/perl
# A caller for loading XHR related routines
use strict;
our ($root_directory, %access, %global_access);
BEGIN { push(@INC, "."); };
use WebminCore;
&init_config();
&ReadParse();
%access = &get_module_acl();
%global_access = &get_module_acl(undef, "");
&webmin_user_is_admin() or &switch_to_remote_user();
do "./xhr-lib.pl";
xhr();