. and .. appearing instead of pictures

marypearson · October 14, 2009

First of all, thanks very much for providing this forum. It is very much appreciated!

My son-in-law created a php script for my website about 10 years ago to show pictures like a manual slideshow, and it worked fine until we moved to a new server.

Now the first pic shows a . , the second shows .. , and the third shows the first pic.

He told me to add a # before @files in the

#remove the .. and . directories

and it should remove the dots but it does not. He can't think of any other suggestions. The full code is as follows:

#!/usr/bin/perl

#this script will act as a type of slide show

use CGI;

if(CGI::param('directory') eq undef) {

print CGI::header();

open(F, "pictures.txt");

chop(@directories = <F>);

close(F);

foreach (@directories) {

my($pDirectory, $title) = split(/::/);

my($hrefTitle) = $title;

$pDirectory = $pDirectory;

#remove the spaces

$pDirectory =~ s/ /%20/g;

$hrefTitle =~ s/ /%20/g;

print " <A HREF=\"/cgi-bin/pics.pl?directory=$pDirectory&title=$hrefTitle\">$title</A> ";

}

} else {

#variables

my($serverRoot) = "/home/ma3ry/christiangays.com";

my($directory) = "/" . CGI::param('directory');

my($i) = 0;

my($max) = 0;

my(@files) = ();

$i = CGI::param('picNum') unless(CGI::param('picNum') == undef);

#open the directory

if(opendir(DIR, "$serverRoot/$directory")) {

#read in the contents of the directory

my(@files) = readdir(DIR);

#remove the .. and . directories

#@files = splice(@files, 2);

#sort the files

@files = sort(@files);

#find out how many pics there are

my($max) = @files *1;

#build the page

&createPage($directory, $files[$i], $i, $max, CGI::param('directory'), CGI::param('title'));

#close the directory

closedir(DIR);

} else {

#directory is not found

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

print "Couldn't open directory $directory!\n\n";

}

exit(0);

sub createPage {

my($directory) = shift;

my($picName) = shift;

my($i) = shift;

my($max) = shift;

my($hrefDirectory) = shift;

my($title) = shift;

my($j) = $i - 1;

$i++;

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

print (<<HTML);

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<HEAD>

</HEAD>

<BODY>

<TR>

<TD>

</td>

</td>

HTML

#replace the spaces

$title =~ s/ /%20/g;

if($j >= 0) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=$j\">Previous</a> \n";

} else {

print "previous \n";

}

if($i - 10 > 0) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=", $i - 11, "\">Jump back 10 pictures</a> \n";

} else {

print "Jump back 10 pictures \n";

}

if($i - 1 != 0) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=0\">Start</a>\n";

} else {

print "start\n";

}

#put the spaces back in

$title =~ s/%20/ /g;

print(<<HTML);

<a href="/pics.shtml">Return to pictures list</a>

</td>

<H1 class="center">$title</H1>

You are viewing picture $i of $max

</td>

HTML

#drop the extra one off the end

$max--;

#take out the spaces

$title =~ s/ /%20/g;

if($i <= $max) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=$i\">Next</a> \n";

} else {

print "next \n";

}

if($i <= $max - 10) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=", $i + 9, "\">Jump ahead 10 pictures</a> \n";

} else {

print "Jump ahead 10 pictures \n";

}

if($i <= $max) {

print "<a href=\"/cgi-bin/pics.pl?directory=$hrefDirectory&title=$title&picNum=", $max, "\">End</a>\n";

} else {

print "end\n";

}

print (<<HTML);

<a href="/index.shtml">Return to ChristianGays.com</a>

</td>

</td>

<TD>

</td>

</tr>

</table>

</BODY>

</HTML>

HTML

}

trq · October 14, 2009

That is indeed a Perl script, not PHP.

marypearson · October 15, 2009

Thank you for your help. The problem has been resolved.

Sign In

. and .. appearing instead of pictures

Recommended Posts

marypearson

Link to comment

Share on other sites

trq

Link to comment

Share on other sites

marypearson

Link to comment

Share on other sites

Archived

Browse

Activity

Important Information