Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

PerlScript Error error '80004005'

by phipe (Initiate)
on May 29, 2013 at 16:08 UTC ( #1035880=perlquestion: print w/replies, xml ) Need Help??

phipe has asked for the wisdom of the Perl Monks concerning the following question:

Hi Guys,

I really tried my best to solve my problem myself but it seems that I will still need some help. Long story in short - This is an old web based solution written in Perl. I installed the original copy and then decided to add make some design changes on the HTML part of the login ASP. In the Perl part itself I just changed the $Response->Redirect with another page in the same folder on the server. And then my troubles began. Every time I try to submit my login details I am getting :

PerlScript Error error '80004005' (in cleanup) Can't call method "EOF" on an undefined value /poplineV1/login.asp, line 36


On some PC`s this is fixed when I clear cache and cookies, but on others this makes not difference and I`m still getting the error.

Makes no sense to me as the same program in a different dir of the server is working perfectly. The only change I`ve done is a single redirect. All else is in the HTML part. I am attaching the ASP file causing the troubles. Any suggestions ?

Thank you in advance!

<%@LANGUAGE=PerlScript%> <% use lib "c:/inetpub/wwwroot/mrtopline"; use genericLIB; use debug; use sqlLIB; use OLE; my $Conn; my $user; my $pass; my $sql; my $RS; loadinivariables("c:/inetpub/wwwroot/mrtopline/mrtopline.def",\%va +rnames); $user = getvariable("_user"); $pass = getvariable("_password"); if ($user eq "" && $pass eq "") { # see if there is a session v +ariable $user=$Session->{'loginuser'}; $pass=$Session->{'loginpass'}; } $img = $varnames{appearance}->{"images"}; if ($user ne "" && $pass ne "") { # Win32::OLE->Option(Warn => 3); $db = sqlLIB->opendatabase($varnames{database}->{dbnm}); $puser = $user; $ppass = $pass; $puser =~ s/'/''/g; $ppass =~ s/'/''/g; $rst = $db->execute("select fldUserID,fldMRInterviewAdmin from + tblUsers where fldUserName = '".$puser."' and fldPassword = '".$ppas +s."';"); if (!$rst->EOF) { if ($varnames{special}->{plbroken} ne "yes") { $Session->Contents->SetProperty('Item','user',$rst +->Fields("fldUserID")->Value); $Session->Contents->SetProperty('Item','username', +$user); $Session->Contents->SetProperty('Item','admin',$rs +t->Fields("fldMrInterviewAdmin")->Value); } else { # # alternative method: not as pretty but it works. # $ScriptingNamespace->setVars("user",$rst->Fields(" +fldUserID")->value); $ScriptingNamespace->setVars("username",$user); $ScriptingNamespace->setVars("admin",$rst->Fields( +"fldMRInterviewAdmin")->value); } $Response->Redirect("mainmenu.html"); # $Response->Flush(); $Response->End(); exit(0); } } sub refuse() { $Response->Redirect("login.asp"); # $Response->Flush(); $Response->End(); exit(0); } %> <script language="vbscript" runat="server"> Sub setVars(vname,vvalue) Session(vname) = vvalue Exit Sub End Sub </script> <HTML> <head><title>TOPLINE LOGIN</title> <script language=javascript> function validateform() { with(window.document.forms[0]) { if (!_password.value.length || !_user.value.length) { alert("Enter your " + (_user.value.length?"password":"user + name")); return false; } } return true; } </script> </head> <body bgcolor="#00719b" > <div id="bg" style="position: absolute; text-align: center; width: 100 +%; z-index: 0;"> <img id="bgmenu" style="width: 45%" src="img/login5.jpg" /> </div> <TABLE style="position:absolute; width: 10%; margin-left: 46.3%; marg +in-top: 19%; "> <tr><td> <table border="0" cellpadding="0" cellspacing="0" style="width +: 100%;" > <form name="login" action="login.asp" method="post" onsubmit +=" return validateform();"> <tr> <td style="font-size: 23; font-family: Trebuchet MS, Helvetica, s +ans-serif"> &nbsp;&nbsp;&nbsp;User name <br> &nbsp;<input type="text" name="_user" style="height: 2 +1%; width: 85%"> <br> &nbsp;&nbsp;&nbsp;Password <br> &nbsp;<input type="password" name="_password" style="he +ight: 21%; width: 85%" > <br><br> <input type="SUBMIT" alt="Login" DEFAULT NAME="LOGIN" V +ALUE="Login" style="height: 35%; width: 95%"> </td> </tr> </form> </table> </td> </tr> </TABLE> </font> </BODY> </HTML>

Replies are listed 'Best First'.
Re: PerlScript Error error '80004005'
by cdarke (Prior) on May 29, 2013 at 16:57 UTC
      Thank you for the replies guys ! I will now try the suggestion from Microsoft to see if that works for me :)
Re: PerlScript Error error '80004005'
by Laurent_R (Canon) on May 29, 2013 at 18:16 UTC

    PerlsScript is not the same thing as Perl. It is a Microsoft product ressembling vagueky to Perl.

      Are you sure this is a Microsoft product? IIRC perlscript is an ActiveState product.

        Yes, of course, you are right, I don't even know why I wrote Microsoft, just a silly error. Sorry about that.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1035880]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (1)
As of 2021-12-06 03:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (31 votes). Check out past polls.

    Notices?