54 lines
1.2 KiB
Perl
54 lines
1.2 KiB
Perl
|
#!/usr/bin/perl
|
||
|
#
|
||
|
# Read data from file
|
||
|
sub read_data {
|
||
|
|
||
|
debugmsg("sub read_data",3);
|
||
|
|
||
|
# Local variables
|
||
|
my($line,@newitem);
|
||
|
|
||
|
# Ensure arrays initialised to null
|
||
|
%GLOBALVARS = ();
|
||
|
%USERDATA = ();
|
||
|
|
||
|
# Check if file exists and whether we can read it
|
||
|
if (not(-e "$S9Y_CONF_DATA")) {
|
||
|
return(0);
|
||
|
}elsif (not(-r "$S9Y_CONF_DATA")) {
|
||
|
return(0);
|
||
|
}else{
|
||
|
# Open data file
|
||
|
open(DATAIN, "<$S9Y_CONF_DATA") or die "$READ_DATA_OPEN_ERROR\n";
|
||
|
|
||
|
# Read data file line by line
|
||
|
while (<DATAIN>) {
|
||
|
$line = $_;
|
||
|
chomp($line);
|
||
|
debugmsg("Line: $line",6);
|
||
|
@newitem = split(/\t/,$line);
|
||
|
# Determine variable type and put values in the correct array
|
||
|
debugmsg("Newitem 0: '$newitem[0]'",7);
|
||
|
debugmsg("Newitem 1: '$newitem[1]'",7);
|
||
|
debugmsg("Newitem 2: '$newitem[2]'",7);
|
||
|
|
||
|
if($newitem[0] eq "GLOBAL"){
|
||
|
debugmsg("GLOBAL $newitem[1]: $newitem[2]",5);
|
||
|
$GLOBALVARS{$newitem[1]} = $newitem[2];
|
||
|
}elsif($newitem[0] eq "USERDATA"){
|
||
|
debugmsg("USERDATA $newitem[1]: ".
|
||
|
"$newitem[2],$newitem[3],".
|
||
|
"$newitem[4],$newitem[5],",5);
|
||
|
$USERDATA{$newitem[1]} = [$newitem[2],$newitem[3],$newitem[4],$newitem[5]]
|
||
|
}
|
||
|
}
|
||
|
# Close data file
|
||
|
close(DATAIN);
|
||
|
}
|
||
|
|
||
|
return(1);
|
||
|
}
|
||
|
|
||
|
# This line is needed to satisfy require
|
||
|
1;
|