Gil — Thu, 16 Dec 1999 03:35:00 +0000

I was just trying to keep it simple for him japhy..that's the way I would've done it though if I needed it for myself..

------------------
Gil Hildebrand, Jr.
The Web Development Genius of the 21st Century
Boardzilla Programmer

japhy — Thu, 16 Dec 1999 01:53:00 +0000

Gil's is fine as long as you're only looking for HTML files.

In retrospect, the program doesn't need taint checking, since you're not using the filename in a system command.

Code Sample:
#!/usr/bin/perl -w use strict; my $file = $ARGV[0]; $file .= ".html" if $file !~ /\.\w+$/; print "Location: ", ( -e $file ? $file : "error.html" ), "\n\n";

------------------
--
MIDN 4/C PINYAN, NROTCURPI, USNR

Rob Pengelly — Thu, 16 Dec 1999 01:36:00 +0000

Not sure why mine didn't work, I just tried it again using
server.com/Cgi-Bin/test.cgi?html=yahoo

and it seemed to work fine. Might as well use Gil's though, nice and short.

------------------
A 'jiffy' is an actual unit of time for 1/100th of a second.

[This message has been edited by robp (edited 15 December 1999).]

Gil — Thu, 16 Dec 1999 01:17:00 +0000

Here's a small script, half the size of the others, that actually works simply.

Code Sample:
#!/usr/bin/perl if(-e "$ENV{QUERY_STRING}.html") { print "Location: $ENV{QUERY_STRING}.html"; } else { print "Location: error.html"; } exit;

------------------
Gil Hildebrand, Jr.
The Web Development Genius of the 21st Century
Boardzilla Programmer

jackchen — Thu, 16 Dec 1999 00:40:00 +0000

I'm sorry robp, but your code didn't work.

For your information, I'm entering the URL directly into the browser.

------------------
Goodbookmarks.com - Daily updates of good and honest website, plus a daily joke!
Submit Your Site Now!

fairhousing — Wed, 15 Dec 1999 20:19:00 +0000

there's 2 possible solutions, don't if they've beent tested though.

------------------
Get paid to surf, email, and everything else online! 75 hrs a month at 55+ cents an hour! Beats AllAdvantage Easily. CLICK 4 DETAILS

fairhousing — Wed, 15 Dec 1999 12:40:00 +0000

i could write something like that and i'm brain dead when it comes to cgi compared to some of these guys.

------------------
Get paid to surf, email, and everything else online! 75 hrs a month at 55+ cents an hour! Beats AllAdvantage Easily. CLICK 4 DETAILS

jackchen — Wed, 15 Dec 1999 07:31:00 +0000

Can someone here write a simple Perl script for me?

Let's say someone enter
"awards.cgi?yahoo", then the script will look for a file called "yahoo.html" in the same directory.

The query is the filename, the default extension will be html.

And if someone types "awards.cgi?yahoo", but the script can't find yahoo.html, then I would like the script to load an error.html.

All .html will be in the same directory as the CGI.

Thanks.

------------------
Goodbookmarks.com - Daily updates of good and honest website, plus a daily joke!
Submit Your Site Now!

japhy — Wed, 15 Dec 1999 05:58:00 +0000

Adhering more closely to the specs given, I offer this potential solution:

Code Sample:
#!/usr/bin/perl -Tw use strict; my $file = $ARGV[0]; # yahoo, for instance # this regex "detaints" the $file variable, # since we don't want to let it be anything # dangerous ($file) = $file =~ /^(\w+(?:\.\w+)?)$/; # $file will be defined if it's ok print("Location: error.html\n\n"), exit unless defined $file; # add the default .html extension $file .= ".html" if $file !~ /\.\w+$/; # this assumes, like you said, that the HTML # files are in the same directory as the CGI # program -- be sure your server allows this print("Location: $file\n\n"), exit if -e $file; print "Location: error.html\n\n"; __END__

------------------
--
MIDN 4/C PINYAN, NROTCURPI, USNR

[This message has been edited by japhy (edited 15 December 1999).]