Execute perl cgi prog on clicking hyperlink

akelabanda · Sep 27, 2002

Hi

I want to know how can I do the following.

I want to list the directories and files present
in a certain directory and create hyperlinks to
them.

On clicking these, if it's a file it will open
using the mime type. But if it's a directory,
I want to go into the directory that this points
to and do the same as above, i.e, display contents
and allow to click.

Thanks in advance for your help.

Regards
Rajeev

PaulTEG · Sep 27, 2002

Hi Rajeev, this could be just what the doctor ordered.
It will require some reconfiguration. yourdomain.com change to the name of your server Your Domain

The aesthetics may require some rejigging

JavaScript content derived courtesy of developer.irt.org & other sources

#!/usr/bin/perl
#
print "Content-type:text/html\n\n";
#
local %form = &get_form_data;
$dir=$form{'dir'};
if ("$dir" eq "&quot

{
$dir="tech/";
}

$dirsz=4096;
$basedir="/home/sites/yourdomain.com/web/";
#set to your directory root
$basedir2="";
$homeurl="Enter here name of server";
opendir techdir, $basedir.$dir or die "Error Reading Directory: $!";
@allfiles = readdir techdir;
closedir techdir;
&printheader;

print "<tr><td colspan=\"3\"><a href=\"

http://yourdomain.com/cgi-bin/techdir.pl?dir=$dir\"><b><<

Back</b></a></td><tr>\n";
foreach $file (@allfiles) {
if (("$file" ne ".&quot

&& ("$file" ne "..&quot

) {
my ($dev, $inode, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat $basedir.$dir.$file;
if ((substr $file, (length $file) - 4, 4) ne (".css&quot

) {
if ($size==$dirsz) {
my $time2 = &format_time($mtime);
print "<tr><td><a href=\"javascript:go('

http://yourdomain.com/cgi-bin/techdir.pl?dir=$dir$file/')\"

onMouseOver=\"window.status='© Ash Technologies 2002'; return true;\"onClick=\"window.status='© Your domain'; return true;\">$file</td><td align=\"right\">Dir</td><td align=\"right\">$time2</td></tr>\n";

} else {
my $size2 = &format_size ($size);
my $time2= &format_time($mtime);
my $newimg = &calc_diff_time ((substr $time2,0,4).(substr $time2,5,2).(substr $time2, 8,2));
print "<tr><td><a href=\"javascript:go('

http://www.yourdomain.com/$basedir2"."$dir"."$file')"."\"

onMouseOver=\"window.status='© Your domain'; return true;\" onClick=\"window.status='© Your Domain'; return true;\">$file $newimg</td><td align=\"right\">$size2</td><td align=\"right\">$time2</td></tr>\n";
}
}
}
}
&printfooter;
sub printheader {

print "<html><head><meta HTTP-EQUIV=\"pragma\" CONTENT=\"no-cache\"><title>Technical Login Area - Please select one of the following links</title><link rel=\"stylesheet\"\n";
print "href=\"

http://www.yourdomain.com/techstyle.css\"></head>\n";

print "<body bgcolor=\"#001067\"><center>";
#
# enable this section if you wish to disable right clicking to view source
#print "<SCRIPT language=javascript>\n";
#print "<!--\n";
#print "function disable_right_click(e) {var browser = navigator.appName.substring (0,9);var event_number = 0;if (browser==\"Microsoft\&quot

event_number = event.button;\n";
#print "else if (browser==\"Netscape\&quot

event_number = e.which;if ( event_number==2 || event_number==3 ){ alert (\"Copyright Your Domain\&quot

; return (false); }\n";
#print "return (true);}\n";
#print "function check_mousekey() {var mouse_key = 93;var keycode = event.keyCode;if ( keycode == mouse_key )alert (\"Copyright Your Domain\" );}\n";
#print "function trap_page_mouse_key_events() {var browser = navigator.appName.substring ( 0, 9 );document.onmousedown = disable_right_click;\n";
#print "if ( browser == \"Microsoft\" ) document.onkeydown = check_mousekey; else if ( browser == \"Netscape\" )document.captureEvents( Event.MOUSEDOWN );}\n";
#print "window.onload = trap_page_mouse_key_events;\n";
#print "function relode() { location.reload(); }\n";
#print "window.onresize = relode;\n";
#print "document.oncontextmenu = function() { return false; }\n";
#print "//--></SCRIPT>\n";
#
print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
print "\n";
print "</SCRIPT>\n";
#
#
print "<table with=\"100%\"><tr><td rowspan=\"2\">\n";
print "<img src=\"translogo.gif\"></td><td align=\"center\">\n";
print "<p>Welcome to the Your Domain Technical Directories<br>All the documents you need ";
print "have been filed according to the product and / or News<br><br>Please select one of the links below</p>Primary (left) click to view, secondary (right) click for options to save, or open in new window<br></td></tr>\n";
print "</table>\n";
print "<br>\n<table width=\"70%\">\n";
print "<tr><td bgcolor=\"#FFFFFF\" colspan=\"3\" align=\"center\"><font color=\"#001067\"><b>Your Current Directory is $dir</td></tr>\n";
print "<tr bgcolor=\"#ffffff\"><td align=center><b><font color=\"#001067\">Filename</td><td align=center><font color=\"#001067\">\n";
print "<b>Size</td><td align=center><font color=\"#001067\"><b>Date</td></tr>\n";

}

sub printfooter {
print "</table><body><html>";
}
sub get_form_data {
my $temp;
my $buffer;
my @data;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
foreach $temp (split(/&|=/,$buffer)) {
$temp =~ tr/+/ /;
$temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
$temp =~ s/[\r\n]/ /g;
push @data, $temp;
}
foreach $temp (split(/&|=/,$ENV{'QUERY_STRING'})) {
$temp =~ tr/+/ /;
$temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
$temp =~ s/[\r\n]/ /g;
push @data, $temp;
}
return @data;
}

sub format_size {
my ($tmp) = @_;
my $len = length $tmp;
if ($len <= 3) { return $tmp; }
if ($len > 3 && $len <= 6) {
if ($len == 4) { my $tmp2 = substr $tmp, 0, 1; my $tmp3 = substr $tmp, 1, 3; return $tmp2.",".$tmp3." bytes"; }
if ($len == 5) { my $tmp2 = substr $tmp, 0, 2; my $tmp3 = substr $tmp, 2, 3; return $tmp2.",".$tmp3." bytes"; }
if ($len == 6) { my $tmp2 = substr $tmp, 0, 3; my $tmp3 = substr $tmp, 3, 3; return $tmp2.",".$tmp3." bytes"; }
} elsif ($len >6 && $len <= 9 ) {
if ($len==7) { my $tmp2=substr $tmp,0,1;my $tmp3=substr $tmp,1,3;my $tmp4=substr $tmp,4,3;return $tmp2.",".$tmp3.",".$tmp4." bytes";}
if ($len==8) { my $tmp2=substr $tmp,0,2;my $tmp3=substr $tmp,2,3;my $tmp4=substr $tmp,5,3;return $tmp2.",".$tmp3.",".$tmp4." bytes";}
if ($len==9) { my $tmp2=substr $tmp,0,3;my $tmp3=substr $tmp,3,3;my $tmp4=susbtr $tmp,6,3;return $tmp2.",".$tmp3.",".$tmp4." bytes";}
}
}

sub format_time {
my ($time)=@_;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);
$mon+=1;
if (length $hour == 1) {$hour= "0".$hour;}
if (length $min == 1) {$min= "0".$min;}
if (length $sec == 1) {$sec= "0".$sec; }
if (length $mon == 1) {$mon= "0".$mon;}

$year = "20".substr $year, 1, 2;
return "$year-$mon-$mday $hour:$min:$sec";
}
sub calc_diff_time {
my ($modtime) = @_;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
my $year1 = substr $modtime, 0,4;
my $mon1 = substr $modtime, 5, 2;
my $mday1 = substr $modtime, 7, 2;

$year = "20".substr $year, 1, 2;
if ($year==$year1) {
if (($yday - $yday1) < 300) {
$newimg = "<img src=\"new2.gif\" alt=\"item has been added in the last 30 days\">";
} else {
$newimg = "1";
}
} elsif (($year-$year1)!=1) {
my $tmon = $mon;
$tmon+=12;
if (($tmon-$mon1)==1) {
$newimg="<img src=\"new2.gif\" alt=\"item has been added in the last 30 days\">";
} else {
$newimg="";
}
} else {
$newimg="Slipped";
}
return $newimg;
}

PaulTEG · Sep 27, 2002

On further consideration depending on your webserver, this would be default behaviour for the server if no default pages are present in the directory specified.

It really depends on the level of security required

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Execute perl cgi prog on clicking hyperlink

akelabanda

Programmer

PaulTEG

Technical User

PaulTEG

Technical User

Similar threads

Part and Inventory Search

Sponsor