File Listing with CGI & writing to text file/dir log

[aenik]

Is there any way to read a folder's contents and display all the file names using CGI that will be hosted on the same server?
I need to be able to list the contents of a specific folder in a simple text file.
Thanks for any help/advice.

 

[PerlIsGood]

This should do the trick:

opendir DIR, $filedir or die "Could not open $filedir directory: $!";
while ( @files = readdir DIR ) {
    open(FILE, ">newfile.txt");
    print FILE @files;
    close(FILE);
}
closedir DIR;

 

[aenik]

thanks!
so to use this, i'll have to create a .cgi file like this:

#!/usr/bin/perl

# ***

http://www.tek-tips.com/gviewthread.cfm/lev2/4/lev3/31/pid/452/qid/342124

***

opendir DIR, $filedir or die "Could not open $filedir directory: $!";
while ( @files = readdir DIR ) {
open(FILE, ">newfile.txt"
print FILE @files;
close(FILE);
}
closedir DIR;

and access it (assuming all access is enabled) from the browser like so:

http://www.dubfilter.com/cgi-bin/album/dirlist.cgi?filedir=test

assuming i have a 'test' directory which has files, and a text file called newfile.txt exists in the same directory as the cgi file.
is that correct? thanks for the help. i greatly appreciate it.

 

[danielhozac]

Actually, your CGI would look more like

#!/usr/bin/perl

use CGI;
$q = new CGI;

# *** [URL unfurl="true"]http://www.tek-tips.com/gviewthread.cfm/lev2/4/lev3/31/pid/452/qid/342124[/URL] ***

print "Content-type: text/html\n\n";

$filedir = $q->param('filedir');

opendir DIR, $filedir or die "Could not open $filedir directory: $!";
while ( @files = readdir DIR ) {
    open(FILE, ">newfile.txt");
    print FILE @files;
    close(FILE);
}
closedir DIR;

//Daniel

 

[aenik]

Thanks to you both, PerlIsGood and Daniel! It works beautifully. I really appreciate it. Great forum!

 

[aenik]

Sorry, one last question. When calling the script like this:

http://www.dubfilter.com/cgi-bin/album/dirlist.cgi?filedir=test

it displays the contents of a 'test' folder located in the same directory (

http://www.dubfilter.com/cgi-bin/album/test/).

How would I be able to specify a different folder location (for ex. "

http://www.dubfilter.com/album/"

that is outside the cgi directory), and same goes with writing the text list file outside in the same album folder, outside the cgi-bin.
Thanks for you help. I cant seem to get the syntax correct.

 

[danielhozac]

Call it with filedir=../album and change the path to the newfile.txt to whatever you want. //Daniel

 

[aenik]

yeah that was it. obvious enough it seems.
i just need one more thing. this will be sweet if works:
i need to execute this cgi from an html page, for javascript processing of the returned string (i changed the printing from the text file to just simple print output).
i have not found any way to execute the cgi from javascript, so decided to just retrieve the list into the page for now. i changed the index page to .shtml to accept server side includes, and added this into my body:
<!--#exec cgi=&quot;/cgi-bin/album/dirlist.cgi?filedir=dir&quot;-->
i get a too familiar message of [an error occurred while processing this directive].. i tried changing the path to the full path, and nothing changed..then i removed the first slash. still nothing.
what is wrong with my ssi statement, and IS there any other, better way to retrieve the string right into javascript?

 

[danielhozac]

What errors do you get in your error_log? //Daniel

 

[aenik]

invalid CGI ref &quot;/cgi-bin/album/dirlist.cgi?filedir=dir&quot; in /home/dub/public_html/album/new/index.shtml

any ideas?