. and .. appearing instead of pictures

Posted on 16th Feb 2014 07:03 pm by admin

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/htmlnn";
print "Couldn't open directory $directory!nn";
}
}

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/htmlnn";
print (<<HTML);
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML LANG="en">
<HEAD>
<meta http-equiv="Content-Language" content="en-us">
<TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-">
<META NAME="generator" CONTENT="Jeff Berwick OR A PROGRAM WRITTEN BY HIM">
<META NAME="AUTHOR" CONTENT="Jeff Berwick">
<LINK REL="STYLESHEET" TYPE="text/css" HREF="/css.css">
</HEAD>
<BODY>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" SUMMARY="LAYOUT" width="100%">
<TR>
<TD>
<img src="/images/blank.gif" width="10" height="1" alt="" border="0">
</td>
<TD class="yellow">
<img src="/images/blank.gif" width="15" height="1" alt="" border="0">
</td>
<td class="yellow2">
 
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 "startn";
}

#put the spaces back in
$title =~ s/%20/ /g;

print(<<HTML);
 
 
<a href="/pics.shtml">Return to pictures list</a>
</td>
<td class="yellow">
<H1 class="center">$title</H1>

You are viewing picture $i of $max


<img src="$directory/$picName" alt="$picName" border="0">

 
</td>
<td class="yellow3">
 
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 "endn";
}

print (<<HTML);
 
 
<a href="/index.shtml">Return to ChristianGays.com</a>
</td>
<TD class="yellow">
<img src="/images/blank.gif" width="15" height="1" alt="" border="0">
</td>
<TD>
<img src="/images/blank.gif" width="10" height="1" alt="" border="0">
</td>
</tr>
</table>
</BODY>
</HTML>
HTML

}

No comments posted yet

Your Answer:

Other forums

download directory onto C drive
I am attempting (if this is possible) to write a routine to automatically dump the contents of a dir

Remove letter from numeric textbox
I have a textbox that will search the employee database by entering in the employee ID and it will r

couldn't connect to your database
Hello I am new to php mysql

Actually i have read A tutorial on nettuts
"http://net.tu

Getting PHP to ammended the selected in option field
Hey Guys

thanks for everyones help so far. This site and its users are oozing awesomness.

Displaying image pathname instead of image
Hello

Im trying to upload and then display images from a mysql database - Its only basic and

Can you help please? Php file
I have to write this php file to allow users to register their nicknames on nickserv

For an I

Rss feed question
Hi

My blog and my website are different. Am i able to take my rss feed
from my blog and p

Problem with passing variables
I'm not really a php programmer so I'm really struggling with this issue.

I have a banner s

Add trigger to UpdatePanel programmatically
Hi,I'm working on a website which uses AJAX and Masterpages. What I have is an AJAX UpdatePanel whi

Async WSAConnect failed on XP with error code = 2 ("File not found")
Hi all,

I have very strange bug, please help me if you can.

It is reproduced o

Indyaspeak

. and .. appearing instead of pictures

Your Answer:

Other forums

Follow Us