OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	02/03/2023 07:42:40 AM	rwxrwxr-x
📄 admmenu.pl	4.98 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 common.pl	11.84 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 config.pl	1.13 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 cubhealth.cgi	2.81 KB	08/14/2022 11:11:57 AM	rwxr-xr-x
📄 download.cgi	1.02 KB	08/14/2022 11:11:57 AM	rwxr-xr-x
📄 forms.pl	4.53 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 func.pl	3.08 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 libhtml.pl	4.05 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 libtest.pl	1.45 KB	08/14/2022 11:11:57 AM	rw-r--r--
📄 test.cgi	255 bytes	08/14/2022 11:11:57 AM	rwxr-xr-x
📄 tips.cgi	2.08 KB	08/14/2022 11:11:57 AM	rwxr-xr-x

Editing: config.pl

##!/usr/local/bin/perl

#$CONFDIR="/var/cubsys/";

#%confvars;

#$LOGDIR="/home/cubot/logs/";

sub getvars{
	my $confvars = shift;

if((!-d $CONFDIR) || (!-e "$CONFDIR/config.inc")){
		print "$CONFDIR Conf Not Found.";
		exit;
		}

open(CONF, "$CONFDIR/config.inc");
	while (<CONF>) {
		chomp($_);
		my @val=split(/=/, $_);
		$$confvars{$val[0]} = $val[1];
		#print " $val[0]==>$val[1]<BR>";
		}
	close(CONF );
	}
	
sub config{
	my $confvars = shift;
	getvars($confvars);
	#$confvars{'CONFIG'}='LOGIN';
	$$confvars{'PID'}=$$;

$LOGFILE = $$confvars{'LOGFILE'};
	$LOGFILE = "/tmp/cubhlth.log" if($LOGFILE eq '');
	#print "LOG",$confvars{'LOGFILE'}, "{{", $LOGFILE;
		
	#if(-e $LOGFILE){
	#	open(LOG, ">>$LOGFILE");
	#	}
	#else{
	#	print "Log File Missing\n";
	#	}
	}

sub prn{
	print "----+<BR>", $confvars{'ADMPASS'};
	}

sub create_session{
	my $confvars = shift;
	my $sid;
	
	$confvars{'SESSION'}=sessionfile(\$sid);
	$ENV{'CUBCONFDIR'} = $CONFDIR;
	$SESSION = $confvars{'SESSION'};
	open(SESSION, ">$SESSION");
	close(SESSION);

return $sid;
	}

sub delete_session{
	my $SESSION = shift;
	#print "$SESSION";
#	close(SESSION );
	unlink($SESSION);
	}
1;