doesn't work anymore

[andreas57]

this script works on a cobalt linux web server but not on a iis nt server. does anyone know why. the only thing we changed was the top line.




#!c:\perl\bin\perl --

# The use or viewing, in any way, shape, or form, of the content
# found or available on syndetics.net means agreement with all clauses
# and statements found in the legal disclaimer.
# LEGAL DISCLAIMER:
# THE PARTIES WITHIN ARE, INCLUDING, BUT NOT LIMITED TO, THE OWNER OF SYNDETICS.NET, SYNDETICS.NET DEVELOPERS, CLIENTS OF SYNDETICS.NET, USERS OF SERVICES AND/OR PRODUCTS PROVIDED BY SYNDETICS.NET, THE HOST OF SYNDETICS.NET, THE ISP OF SYNDETICS.NET, AND THE FAMILIES AND/OR THOSE RELATED TO THE PARTIES WITHIN.
# YOU HEREBY AGREE TO INDEMNIFY SYNDETICS.NET AND THE PARTIES WITHIN OF ANY DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, SPECIAL, EXEMPLARY, AND PUNITIVE DAMAGES (EVEN IF SYNDETICS.NET OR ANY PARTIES WITHIN HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES).
# YOU EXPRESSLY UNDERSTAND AND AGREE THAT UNDER NO CIRCUMSTANCES SHALL SYNDETICS.NET OR ANY PARTIES WITHIN BE LIABLE TO ANY USER ON ACCOUNT OF THAT USER'S USE OR MISUSE OF AND RELIANCE ON THE PRODUCTS AND SERVICES. SUCH LIMITATION OF LIABILITY SHALL APPLY TO PREVENT RECOVERY OF DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, SPECIAL, EXEMPLARY, AND PUNITIVE DAMAGES (EVEN IF SYNDETICS.NET OR ANY PARTIES WITHIN HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES). SUCH LIMITATION OF LIABILITY SHALL APPLY WHETHER THE DAMAGES ARISE FROM USE OR MISUSE OF AND RELIANCE ON THE PRODUCTS AND SERVICES, FROM INABILITY TO USE THE PRODUCTS AND SERVICES, OR FROM THE INTERRUPTION, SUSPENSION, OR TERMINATION OF THE PRODUCTS AND SERVICES (INCLUDING SUCH DAMAGES INCURRED BY THIRD PARTIES).
# SUCH LIMITATION SHALL ALSO APPLY WITH RESPECT TO DAMAGES INCURRED BY REASON OF OTHER SERVICES OR GOODS RECEIVED THROUGH OR ADVERTISED ON THE PRODUCTS AND SERVICES OR RECEIVED THROUGH ANY LINKS PROVIDED IN THE PRODUCTS AND SERVICES, AS WELL AS BY REASON OF ANY INFORMATION OR ADVICE RECEIVED THROUGH OR ADVERTISED ON THE PRODUCTS AND SERVICES OR RECEIVED THROUGH ANY LINKS PROVIDED IN THE PRODUCTS AND SERVICES. SUCH LIMITATION SHALL APPLY, WITHOUT LIMITATION, TO THE COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, LOST PROFITS, OR LOST DATA. SUCH LIMITATION SHALL APPLY WITH RESPECT TO THE PERFORMANCE OR NON-PERFORMANCE OF THE PRODUCTS AND SERVICES OR ANY INFORMATION OR MERCHANDISE THAT APPEARS ON, OR IS LINKED OR RELATED IN ANY WAY TO, THE SYNDETICS.NET NETWORK OR PARTIES WITHIN. SUCH LIMITATION SHALL APPLY NOTWITHSTANDING ANY FAILURE OF ESSENTIAL PURPOSE OF ANY LIMITED REMEDY. SUCH LIMITATION SHALL APPLY TO THE FULLEST EXTENT PERMITTED BY LAW.
# SUCH LIMITATION OF LIABILITY SHALL ALSO APPLY TO ANY DAMAGE CAUSED BY LOSS OF ACCESS TO, DELETION OF, FAILURE TO STORE, FAILURE TO BACK UP, OR ALTERATION OF ANY CONTENT STORED ON THE SYNDETICS.NET NETWORK OR THE PROPERTY OF ANY SYNDETICS.NET USERS OR PARTIES WITHIN SYNDETICS.NET. SYNDETICS.NET AND ANY PARTIES RELATED TO SYNDETICS.NET, INCLUDING, BUT NOT LIMITED TO, THE OWNER, ISP, AND DOMAIN REGISTRAR, HAVE A LIABILITY, IF ANY, NOT EXCEEDING THE AMOUNT PAID BY A USER. FOR ALL CLAIMS RELATING TO THE PERFORMANCE OR NONPERFORMANCE UNDER THESE TERMS AND CONDITIONS, WHETHER IN CONTRACT, TORT, STRICT LIABILITY, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, CLAIMS FOR FAILURE OF THE SYSTEM TO OPERATE, IN NO EVENT SHALL THE LIABILITY OF SYNDETICS.NET OR PARTIES WITHIN, WHETHER ARISING IN CONTRACT, TORT, STRICT LIABILITY, OR OTHERWISE, EXCEED THE FEE, IF ANY PAID BY THE USER FOR THE SYSTEM.
# UNDER NO CIRCUMSTANCES SHALL SYNDETICS.NET OR THE PARTIES WITHIN BE HELD LIABLE FOR ANY DELAY OR FAILURE IN PERFORMANCE RESULTING DIRECTLY OR INDIRECTLY FROM ACTS OF NATURE, FORCES, OR CAUSES BEYOND ITS REASONABLE CONTROL, INCLUDING, WITHOUT LIMITATION, INTERNET FAILURES, COMPUTER EQUIPMENT FAILURES, TELECOMMUNICATION EQUIPMENT FAILURES, OTHER EQUIPMENT FAILURES, ELECTRICAL POWER FAILURES, STRIKES, LABOR DISPUTES, RIOTS, INSURRECTIONS, CIVIL DISTURBANCES, SHORTAGES OF LABOR OR MATERIALS, FIRES, FLOODS, STORMS, EXPLOSIONS, ACTS OF GOD, WAR, GOVERNMENTAL ACTIONS, ORDERS OF DOMESTIC OR FOREIGN COURTS OR TRIBUNALS, NON-PERFORMANCE OF THIRD PARTIES, OR LOSS OF OR FLUCTUATIONS IN HEAT, LIGHT, OR AIR CONDITIONING.
# In some jurisdictions, limitations of liability are not permitted. In such jurisdictions, the foregoing limitation may not apply to you.


# Simple Password Protection Script
# Call by just going to the location of the script, or using
# A form with the POST method. See below.

#########################################################
# Copyright 1999 Syndetics.Net #
# webmaster@syndetics.net #
# This copyright notice must stay #
# Attached to the script, or you are in violation #
# of copyright law. #
# You may freely distribute this script if the #
# Syndetics.Net copyright notice is attached. #
#########################################################

#$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$#
# After Uploading, CHMOD This Script to 755 or All Read, Owner/Admin Write, All Execute #
#$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$@$#

##############################
######### VARIABLES
##############################
# Correct Password
$password = "nibur";

# URL to get if wrong password.
$wrongpass = "

http://www.forumemoko.info/vorraum.htm";

# URL to get if correct password.
$goodpass = "

http://www.forumemoko.info/grrubin/gr_rubin.htm";

##############################

# Checks for GET request and asks the user to use POST.
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
print "Content-type: text/html\n\n";
print &quot;Please Use Post.<br>&quot;;
print &quot;<p> Password:&quot;;
print &quot;<p><FORM ACTION=\&quot;pass.cgi\&quot; METHOD=\&quot;POST\&quot;><INPUT TYPE=\&quot;password\&quot; NAME=\&quot;pass\&quot; SIZE=\&quot;8\&quot;>&quot;;
print &quot;<p><INPUT TYPE=\&quot;submit\&quot; VALUE=\&quot;Validate\&quot;></FORM>&quot;;
exit;
}

#############################################
# This reads the variable from the HTML form
# and puts them into the variable $fields{'formvalue'}
#############################################
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
{
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack(&quot;c&quot;,hex($1))/ge;
$fields{$key}=$content;
}
###########################################

# If the field &quot;pass&quot; was filled in, then check it. Else, get $wrongpass.
if ($fields{'pass'}) {
&verify;
} else {
print &quot;Location: $wrongpass\n\n&quot;;


exit;
}

# See if $password is equal to the field &quot;pass&quot; and if yes, take the user to $goodpass. Else, get $wrongpass.
sub verify {
if ($fields{'pass'} eq $password) {
print &quot;Location: $goodpass\n\n&quot;;
exit;
} else {
print &quot;Location: $wrongpass\n\n&quot;;
}
}

exit; andreas owen
aowen@arcade.ch

 

[goBoating]

Your syntax if fine. Maybe there is a problem with IIS. I use apache and am ignorant about IIS so I can't give specifics. I'd check your server error logs a make sure IIS thinks your script is an executable piece of code. I think it does that via the file name extension, but I'm not sure. Maybe see if you can find a faq on doing CGI with IIS. 'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.