-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of [EMAIL PROTECTED] Sent: Friday, April 06, 2001 12:08 PM To: [EMAIL PROTECTED] Subject: Perl-Win32-Web digest, Vol 1 #332 - 4 msgs Send Perl-Win32-Web mailing list submissions to [EMAIL PROTECTED] To subscribe or unsubscribe via the World Wide Web, visit http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web or, via email, send a message with subject or body 'help' to [EMAIL PROTECTED] You can reach the person managing the list at [EMAIL PROTECTED] When replying, please edit your Subject line so it is more specific than "Re: Contents of Perl-Win32-Web digest..." Today's Topics: 1. Apache::ASP - Server->CreateObject (Jakob Adeltoft) 2. Win32::Lanman from WEB (Jason Howard) 3. RE: Win32::Lanman from WEB ([EMAIL PROTECTED]) 4. RE: Win32::Lanman from WEB (Gray, Martha J.) --__--__-- Message: 1 From: "Jakob Adeltoft" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Subject: Apache::ASP - Server->CreateObject Date: Sat, 24 Mar 2001 15:56:15 +0100 I have a problem - I'm trying to convert my ASP code to Perl code for use with Apache::ASP on Win98. Currently I make Server.CreateObject calls fra within my asp page that generates an html page for me. The code is as below: <% Dim ASPLightningclogin Set ASPLightningclogin = Server.CreateObject("WPRS303_CWP.clogin") ASPLightningclogin.Execclogin %> Is below conversion the correct for Perl? <% my $ASPLightningclogin = $Server->CreateObject("WPRS303_CWP.clogin"); $ASPLightningclogin->Execclogin; %> This only generates a blank html page in my browser? The ".htm" examples from site/eg directory works fine, but all ".asp" files does not execute. I get an "Internal Server Error". Any idea what's wrong? By the way I'm not a member of any discussion board - how do I get that? Do I have to check in the discussion groups every day for any responds to my question or do I recieve an e-mail? I hope you are able to help me:) Best Regards, Jakob Vedel --__--__-- Message: 2 Date: Mon, 26 Mar 2001 11:12:45 -0800 (PST) From: Jason Howard <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Subject: Win32::Lanman from WEB I have a perl script that I want to run from a web server. It runs just fine from a command prompt, but I need to be able to call it from a web page. For example, I need to click on a link and it map a drive and stop an NT service. If the perl script is called from a web browser running on the machine that the web server is on, everything works fine. But if it is called from a different machine it does not work... Any ideas? *********************** Here is a sample of what I am doing. require "cgi-lib.pl"; print "HTTP/1.0 200 OK\n" if $ENV{"PERLXS"}=~/PerlIS/i; print "Content type: text/html\n\n"; print "<body>"; print "<p><img border='0' src='../sailogo.gif' width='600' height='83'></p>"; print "<p align='left'><font face='Book Antiqua' size='6'>Test Site for TSM Service restarting</font></p>"; print "<p> </p>"; use Win32::NetResource; $User = "administrator"; $Password = "blahblah"; %NetResource = ( LocalName => "X:", RemoteName => "\\\\1.2.3.4\\c\$" ); Win32::NetResource::AddConnection ( \%NetResource, $Password,$User); print "Done"; ********************************* The code runs fine, it just doesn't map the drive. _______________________________________________________ Send a cool gift with your E-Card http://www.bluemountain.com/giftcenter/ --__--__-- Message: 3 From: [EMAIL PROTECTED] Date: Fri, 6 Apr 2001 07:07:29 -0500 Subject: RE: Win32::Lanman from WEB TO: [EMAIL PROTECTED], [EMAIL PROTECTED] --openmail-part-236df1a8-00000001 Content-Type: text/plain; charset=US-ASCII Content-Disposition: inline ;Creation-Date="Fri, 6 Apr 2001 07:07:29 -0500" Content-Transfer-Encoding: 7bit I never have had much luck with some administrative modules over the web, however if you're using IIS just make sure the IUSR account on the web server has permission to the share, which C$ is a hidden share. There also might be some user rights that IUSR needs. It's something you'll have to play around with. Hopefully you're the Admin on the box. Stanley G. Martin Midwest Consulting Group Sprint Platform & Strategy Mgmt 913.315.3133 [EMAIL PROTECTED] -----Original Message----- From: jztiger [mailto:[EMAIL PROTECTED]] Sent: Monday, March 26, 2001 1:13 PM To: perl-win32-web Cc: jztiger Subject: Win32::Lanman from WEB I have a perl script that I want to run from a web server. It runs just fine from a command prompt, but I need to be able to call it from a web page. For example, I need to click on a link and it map a drive and stop an NT service. If the perl script is called from a web browser running on the machine that the web server is on, everything works fine. But if it is called from a different machine it does not work... Any ideas? *********************** Here is a sample of what I am doing. require "cgi-lib.pl"; print "HTTP/1.0 200 OK\n" if $ENV{"PERLXS"}=~/PerlIS/i; print "Content type: text/html\n\n"; print "<body>"; print "<p><img border='0' src='../sailogo.gif' width='600' height='83'></p>"; print "<p align='left'><font face='Book Antiqua' size='6'>Test Site for TSM Service restarting</font></p>"; print "<p> </p>"; use Win32::NetResource; $User = "administrator"; $Password = "blahblah"; %NetResource = ( LocalName => "X:", RemoteName => "\\\\1.2.3.4\\c\$" ); Win32::NetResource::AddConnection ( \%NetResource, $Password,$User); print "Done"; ********************************* The code runs fine, it just doesn't map the drive. _______________________________________________________ Send a cool gift with your E-Card http://www.bluemountain.com/giftcenter/ _______________________________________________ Perl-Win32-Web mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web --openmail-part-236df1a8-00000001-- --__--__-- Message: 4 Date: Fri, 06 Apr 2001 09:35:44 -0400 From: "Gray, Martha J." <[EMAIL PROTECTED]> Subject: RE: Win32::Lanman from WEB To: "'Jason Howard'" <[EMAIL PROTECTED]> Cc: "'Perl List'" <[EMAIL PROTECTED]> Jason I connect all the time. This is what works for me. (I need to put out pause files and do registry modifications) I'm probably escaping \ more than I need but it works. The user selects 1-n hosts from a drop down that's why the host name is a variable Hope this helps!! Martha # Connect to the hosts # $connection = "\\\\$this_host\\d\$"; $passwd = "blahblah"; $usrname = "domain\\username"; $netresource{LocalName}="U:"; #not necessary step, I use this elsewher in my code $netresource{RemoteName}= $connection; $result = Win32::NetResource::AddConnection(\%netresource,$passwd,$usrname,0); if ($result == 0) { Win32::NetResource::GetError($result); print " path: $netresource{RemoteName}<BR>\n"; print Win32::FormatMessage($result); print "<BR>Error connecting to share: $netresource{RemoteName}. Error code: $result <BR>\n"; } else{ print "<HR>Host Name: <B>$this_host </B><BR>\n"; } } -----Original Message----- From: Jason Howard [mailto:[EMAIL PROTECTED]] Sent: Monday, March 26, 2001 2:13 PM To: [EMAIL PROTECTED] Subject: Win32::Lanman from WEB I have a perl script that I want to run from a web server. It runs just fine from a command prompt, but I need to be able to call it from a web page. For example, I need to click on a link and it map a drive and stop an NT service. If the perl script is called from a web browser running on the machine that the web server is on, everything works fine. But if it is called from a different machine it does not work... Any ideas? *********************** Here is a sample of what I am doing. require "cgi-lib.pl"; print "HTTP/1.0 200 OK\n" if $ENV{"PERLXS"}=~/PerlIS/i; print "Content type: text/html\n\n"; print "<body>"; print "<p><img border='0' src='../sailogo.gif' width='600' height='83'></p>"; print "<p align='left'><font face='Book Antiqua' size='6'>Test Site for TSM Service restarting</font></p>"; print "<p> </p>"; use Win32::NetResource; $User = "administrator"; $Password = "blahblah"; %NetResource = ( LocalName => "X:", RemoteName => "\\\\1.2.3.4\\c\$" ); Win32::NetResource::AddConnection ( \%NetResource, $Password,$User); print "Done"; ********************************* The code runs fine, it just doesn't map the drive. _______________________________________________________ Send a cool gift with your E-Card http://www.bluemountain.com/giftcenter/ _______________________________________________ Perl-Win32-Web mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web --__--__-- _______________________________________________ Perl-Win32-Web mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web End of Perl-Win32-Web Digest _______________________________________________ Perl-Win32-Web mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
