Welcome to the MacNN Forums.

anothermacguy · Jul 1, 2001, 01:12 AM

Hi everyone,

I was wondering if there was a perl script which I could run from the command line which would read through a directory, and output a webpage with links to all the files in that directory, and subdirectories. I have a folder with a lot of pdf's which I would like to link to. There are far too many to hand-write the links, which is why I have been putting it off for so long. Can anyone help?

Thanks in advance

Raman · Jul 1, 2001, 10:26 PM

Sorry but this going to be slightly off topic since it doesn't deal with perl BUT if your webserver is running ASP then you can use the scripting.filesystemobject to output the contents of said directory and put

<pre>
<a href=' '> </a>
</pre>

around it. The good thing about doign it in an asp (or server side scripting language of your choice) is that if you add or remove files from the directory you have nothing to worry about because the list is generated when a user requests the page.

BUT if the directory listing is going to be somewhat static then a perl script (or any other language) will probably suit you fine.

Anyway try looking at hotscripts.com or something for a suitable solution. If your webserver is able to run PHP or ASP then I can write the simple script for you in PHP or ASP if you don't know how.

anothermacguy · Jul 2, 2001, 02:08 AM

Originally posted by Raman:
Sorry but this going to be slightly off topic since it doesn't deal with perl BUT if your webserver is running ASP then you can use the scripting.filesystemobject to output the contents of said directory and put

<pre>
<a href=' '> </a>
</pre>

around it. The good thing about doign it in an asp (or server side scripting language of your choice) is that if you add or remove files from the directory you have nothing to worry about because the list is generated when a user requests the page.

BUT if the directory listing is going to be somewhat static then a perl script (or any other language) will probably suit you fine.

Anyway try looking at hotscripts.com or something for a suitable solution. If your webserver is able to run PHP or ASP then I can write the simple script for you in PHP or ASP if you don't know how.

Thanks a lot Raman, I would really appreciate it if you could write something in PHP, I would do it myself, but I do not know how. My server is, however, configured for PHP. If you could also point me in a direction to learn more about php (for free

) I'd be really appreciative.

As I learn more, I'd like to be able to configure it so that it would only make links out of file with a certain extension (.txt, .pdf, etc).

On another topic....I want to do a script, which would parse my bookmarks.html file, and output to a template I have created. The template is largely javascript, and I it needs to be formatted in a particular manner. I was planning on learning how to do this in perl, but should I use php? Would you have any suggestions on this as well?

Thanks a lot, I will talk to you soon..........anothermacguy

anothermacguy · Jul 11, 2001, 08:25 AM

Raman? Did you get a chance to look at this?

Sorry to bug you...but I'm desparate.

dogzilla · Jul 11, 2001, 02:35 PM

Originally posted by anothermacguy:
Raman? Did you get a chance to look at this?

Sorry to bug you...but I'm desparate.

Try this:

<BLOCKQUOTE>code:<HR><pre>
<?
function listDir($theDir, $self, $topLevel) {

// edit these to show images
$folderIcon = "";
$fileIcon = "";

print("<tr><td colspan=\"2\" align=\"center\"><H2>Directory Listing for ");
if ($theDir == "/") {
$theDir = $topLevel;
print("/");
} else {
$theDir = $topLevel . "/" . $theDir;
$subPath = eregi_replace("$topLevel/", "", $theDir);
print("/$subPath");
}
print("</H2><hr></td></tr>\n");
if ($theDir != $topLevel) {
$currPath = explode("/",$subPath);
$lastItem = ((count($currPath))-1);
$upLevel = "";
for ($i=0; $i<$lastItem; $i++) {
if ($i != 0) {
$upLevel .= "/";
}
$upLevel .= $currPath[$i];
}
print("<tr><td align=\"left\"><A HREF=$self?currDir=$upLevel><-- Up one level</a><hr></td></tr>\n");
}
$level=1;
$dir = opendir($theDir);
while (($theFile = readdir($dir)) != FALSE) {
$firstChar = substr($theFile,0,1);
if ($firstChar != ".") {
if (is_dir($theDir."/".$theFile)) {
if ($subPath) {
$folderLine = "<tr><td><A HREF=$self?currDir=$subPath/$theFile>";
} else {
$folderLine = "<tr><td><A HREF=$self?currDir=$theFile>";
}
if ($folderIcon) {
$folderLine .= "<img src=images/foldericon.gif ALT=\"dir: $theFile\">";
} else {
//$folderLine .= "dir: ";
$folderLine .= "";
}
$folderLine .= $theFile;
$folderLine .= "</a></td></tr>\n";
print($folderLine);
} else {
$theSize = round(filesize("$theDir/$theFile")/1000,2);
$theDirClean = preg_replace("/\s/","%20",$subPath);
$theFileClean = preg_replace("/\s/","%20",$file);
if ($theFileClean != '.htaccess') {
$theLink = "defaultbody\">";
$theLink .= "<A HREF=" . $theDirClean . "/" . $theFile . " TARGET=\"stage\">";
$fileLine = "<tr><td>" . $theLink;
if ($fileIcon) {
$fileLine .= "<img src='images/fileicon.gif' ALT=\"file: $theFile\">";
} else {
//$fileLine .= "file: ";
$fileLine .= "";
}
$fileLine .= "$theFile </a></td><td align=\"right\" valign=\"top\">$theSizek</td></tr>\n";
print($fileLine);
}
}
}
}
}

?>

<html>
<head>
<title>Directory Listing</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="left">
<table border="0" cellpadding="5" cellspacing="0" width="95%">
<?
$pathParts = pathInfo($HTTP_SERVER_VARS["PATH_TRANSLATED"]);
$self = $pathParts["basename"];
$topDir = $pathParts["dirname"];
if (!($currDir)) {
$currDir = "/";
}
listDir($currDir,$self,$topDir);
?>
</table>
</div>
</body>

</html>

[/code]
Note the lines that define "foldericon" and "fileicon". If you want icons, put the (relative or absolute) image paths here and they'll show up before each item. You can also edit lines 45 and 62 to provide a text descriptor for each item (eg: "dir:" and "file:"). I've already put in ALT tags, so this should work with text-based browsers as well.

If MacNN's boards mangle the above code, you can also download it from http://www.isaka.net/misc/dir_list.php.sit.gz

Good luck, and sorry about the lack of documentation/commented code - it was a quick hack.

[ 07-11-2001: Message edited by: dogzilla ]

Raman · Jul 16, 2001, 05:50 PM

Wow. if you want a hack then just copy this into a text file and save it as anything.php and copy it to whatever directory you'd like. (I'd save it as index.php or something so whenever someone browses to that directory, it will default to this directory lister page, as long as you have index.php as your default page. anyway. lemmie know if you need more help. these forums are so slow i don't read them as much lately. my email is osx@raman-sinha.com if you need more hack code written.

<BLOCKQUOTE>code:<HR><pre>
<?php
$directoryhandle=opendir('.');
while ($file = readdir($directoryhandle)){
echo "<A href='$file'>$file</a> ";
}
closedir ($directoryhandle);
print("Finished with directory listing...");
?>
[/code]

Simon Mundy · Jul 17, 2001, 12:21 AM

And this is a bit late for now, but a good (and cheap!!) book I found was 'Teach yourself PHP4' from SAMS. It's easy, straightforward (for designers like me who are still a bit green when it comes to programming) and has great examples.

[ 07-17-2001: Message edited by: Simon Mundy ]