57 lines
1.1 KiB
Perl
57 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Initialise variables
|
|
sub init_vars {
|
|
|
|
debugmsg("sub init_vars",3);
|
|
|
|
# Local variables
|
|
my $readok = 0;
|
|
|
|
# Initialse arrays to null
|
|
%GLOBALVARS = ();
|
|
%USERDATA = ();
|
|
|
|
# Datafile
|
|
$S9Y_CONF_DATA = './s9y_conf.dat';
|
|
|
|
# Read variables from datafile
|
|
$readok = &read_data;
|
|
debugmsg("Read OK: $readok",4);
|
|
|
|
# Check we read the data file properly and
|
|
#
|
|
# In the case we did:
|
|
# Perform tests to ensure all data required
|
|
# exists in the proper format and that any
|
|
# version upgrade is performed where it is
|
|
# needed (i.e. deletion/addition of variables).
|
|
#
|
|
# In the case the file didn't exist, or couldn't
|
|
# be read for some reason:
|
|
# Initialise variables to sane defaults.
|
|
#
|
|
if ($readok) {
|
|
&check_globals;
|
|
}else{
|
|
&init_data;
|
|
}
|
|
|
|
# Count No. Users
|
|
@USER_ID = sort(keys(%USERDATA));
|
|
$NUM_USERS = @USER_ID;
|
|
|
|
# Login and Superuser Info
|
|
$LOGIN_UID = $>;
|
|
$LOGIN_GID = $);
|
|
@SUPERUSER = getpwuid(0);
|
|
|
|
# Ensure sudo password not cached by shell
|
|
system('sudo -K');
|
|
|
|
return(0);
|
|
}
|
|
|
|
# This line is needed to satisfy require
|
|
1;
|