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: libtest.pl

##!/usr/local/bin/perl

my @syslibs = qw(/lib /usr/lib /usr/local/lib);
 
#chklib(@ARGV[0]);
#print islib('mysql.so'), "\n";
#print islib('libesoobsetup.so'), "\n";
##

sub chklib{
	make_libpath();	
	my $libname = shift;
	my $errlib = shift;

if($libname =~ /^\//){
		my @res = `ldd $libname`;
		}
	else{
		my $path = islib($libname);
		
		if($path eq 'ERR'){
			$path = isbin($libname);
			if($path eq 'ERR'){
				return "Binary or Library Not Found : $libname";;
				}
			}

my @res = `ldd $path/$libname`;
		}
	
	foreach my $row(@res){
		chomp($row);
		if($row =~ m/not/){
			$row =~ s/\s+=\>$//gsi;
			push(@$errlib, $row);
#			print "ldd $path/$libname : $row -------- @$errlib[0]<BR>";
			}
#		print $row, "\n";
		}	
#	print "=>>[[ ((@$errlib[0])) : $libname ]]<<=";
	if(@$errlib[0] ne ''){
		return 'ERR';
		}
	return '1';
	}

sub make_libpath{
	if(-e '/etc/ld.so.conf'){
		open(LIBS, '/etc/ld.so.conf');
		while(<LIBS>){
			chomp($_);
			if($_ =~ /^#/ || $_ =~ /^\s+$/ || length($_) < 1){
				next;
				}
			push(@syslibs, $_);
			}
		close(LIBS);
		}
	}
	
sub isbin{
	my $binname = shift;
	my $path = '';
	my @syspath = split(/:/ , $ENV{'PATH'});
	
	foreach my $path(@syspath){
		if(-e  "$path/$binname"){
			return $path;
			}
		}

return "ERR";
	}
	
sub islib{
	my $libname = shift;
	my $path = '';
	
	foreach my $path(@syslibs){
		if(-e  "$path/$libname"){
			return $path;
			}
		}
	return "ERR";
	}

sub prnlibs{
	foreach my $path(@syslibs){
		print $path;
		}
	}