No, the # was just to be sure nothing strange happens in email.
Here are the two little test programs I've been using to try different things.:
------------------------------------------------------------
#!/usr/local/bin/perl5
use strict;
use CGI qw( :standard );
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>Formioc</title>";
print "</head>";
print "<body>";
print "Hello from formioa.cgi<br>And once more!<br>\n";
print "Guess this ran.<p>\n";
print("<form method='post' action='formioa.cgi'>");
print("<input type='text' name='name'>");
print("<input type='submit'>");
print("</form>");
print "</body>";
print "</html>";
------------------------------------------------------------
#!/usr/local/bin/perl5
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>formioa.cgi</title>";
print "</head>";
print "<body>";
print "Hello from formioa.cgi<br>And once more!<br>From somewhere!<p>\n";
$url="http://www.dmatca6.org";;
print "Location: $url\n\n";
print "<p>";
print "Location: $url\n\n" unless ($condition);
print "</body>\n";
print "</html>";
-------------------------------------------------------------
The result from above is that formioa.cgi prints:
Hello from formioa.cgi
And once more!
From somewhere!
Location: http://www.dmatca6.org
Location: http://www.dmatca6.org
It does not load the location. There must be some small detail I'm missing.
THANKS for thus far!
Walt.
At 05:04 PM 7/7/2001 -0400, you wrote:
> >I need to do an if(condition) load a .html, or load unless(condition).
>
>Try:
>
>print "Location: $url1\n\n" if (condition);
>print "Location: $url2\n\n" unless (condition);
>
> >or, in another case, when a certain .cgi is called, have it immediately
> >load a new .html.
>
>print "Location: $url\n\n";
>
> >I use an isp service running Apache, and CGI.pm is installed, but there
> >is no possibility to install any other modules.
>
>If all your doing is directing the browser to some URL, you shouldn't even
>need to worry about using CGI.pm or any other modules.
>
> >I've found in books the following and played with nearly every
> >permutation:
> >
> > #Location: http://www.dmatca6.org;
> > #URI: http://www.dmatca6.org;
> >
> > #$url = "http://www.dmatca6.org";;
> > #print "Location: $url\n\n";
> > #exit;
> >
> > #print redirect("../index.html");
> >
> >#header( -Refresh => "1; URL = http://www.dmatca6.org/index.html"; );
> >#print("<meta http-equiv='refresh' content='1';
> >URL='http://www.dmatca6.org'>");
> >
> >Nothing works. I clearly don't know what I'm doing. It is really
> >infuriating not being able to do such a seemingly simple task!
>
>I'm not sure if you're really putting pound sign at the beginning of each
>line in your code (like in your email) but that's telling perl those lines
>are just comments, so it's not gonna try to execute any code there.
>
>If you're still having problems, send the full script.
>
>HTH
>
>-Dave
>
>
>--
>
>David Rankin
>President, Surf This! Web Design Inc.
>Tel: 401.277.9966/877.528.5213
>Fax: 603.590.4925
>Email: [EMAIL PROTECTED]
>http://www.surfthisdesign.com
