the website of xero harrison xero, xero harrison, harrison, nu, x-e.ro, whois.x-e.ro, blog.x-e.ro, code.x-e.ro, lab.x-e.ro, img.x-e.ro, etc.x-e.ro, feeds.x-e.ro, fontvir.us, fontvirus, font, fonts, git, portfolio, program, programming, code, coding, codes, codez, dev, develop, developer, qoob, open qoob, openqoob, framework, code, api, lab, laboratory, experiment, experiments, demo, netart, net art, unixporn, unix porn, unixp0rn, unixpr0n, images, photos, etc, random https://blog.x-e.ro Sat, 30 May 2026 14:13:39 -0400 open[qoob] random page perl script https://blog.x-e.ro/random_page_perl_script place this code in a file called index.cgi, chmod it to 775, and place it in a directory of html files. this script will pick one of the files in the specified directory at random, and print it to the screen. refresh the page for a new random one.

#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
#print "
";
$basep = "/wwwroot/path2/randomdir";
 
srand(time ^ $$);
#print "got random time...\n";
 
@files = `ls $basep/*.html`;
#print "got file list...\n";
#foreach (@files) { print "-----$_\n";}
 
$file = rand(@files);
#print "got random file...$phrase\n";
 
$nupath = "$files[$file]";
#print "got new path...$nupath\n";
 
open(LOG, $nupath) or die "$!\n"; 
while () 
{
  print $_;
}
close (LOG);
#print "
";

exit;
]]> xero harrison Tue, 18 Nov 2003 16:27:00 -0500