Lista logfiler

webserver: Netscape webforce nån gammal.
det finns en cgi-bin katalog, och jag behöver ett script som kan lista upp logfilerna i katalogen, och så man kan klicka sig in på dem. Har ni någe förslag?

------------------
.:' Jolt ':.

Skulle kunna se ut så här, om vi tänker oss att filerna ligger i "/path/to/logfiles" och heter *.log (scriptet har vi döpt till viewfile.pl

use CGI;
$dir = "/path/to/logfiles";
if(!CGI::param('file')){
	opendir(DIR,$dir);
	@dir = grep {/.log$/} readdir(DIR);
	closedir(DIR);
	print "Content-type:text/html\n\n";
	foreach (@dir){
		print "Visa <a href=\"viewfile.pl?file=$_\">$_</a><br>";
	}
} else {
	open(FILE,$dir.'/'.CGI::param('file'));
	print "Content-type: text/plain\n\n";
	print <FILE>;
	close(FILE);
}

------------------

/ J

en liten kommentar bara...

detta sätt är inte helt riskfritt, eftersom du ganska lätt kan komma åt alla filer på servern som webservern kan läsa. konfig-filer och sånnt. samt finns kanske möjligheten att utföra kommandon, men det är jag inte lika säker på... tror att det går iaf.

kan vara lite farligt om det är ut mot publika delar av internet.

------------------
PeterSign v 2.3.36