[7551] in Perl-Users-Digest
Perl-Users Digest, Issue: 1177 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 14 23:27:11 1997
Date: Tue, 14 Oct 97 20:00:22 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 14 Oct 1997 Volume: 8 Number: 1177
Today's topics:
Anyone use Servlets? (Chan)
Back button work-around smcnabb@netcom.ca
Re: Back button work-around (Faust Gertz)
Can I use Perl cgi script to control external programme (B.S.LEE)
goto &NAME on a method? (Peter Scott)
Re: Help with MacPerl help (David Merberg)
HTTP Connect with PROXY? <formwalt@concentric.net>
last modified question (steven morgan friedman)
Re: last modified question (Faust Gertz)
Re: Perl and Sockets <ramon@ramonc.icix.net>
Perl for NT <gkaatz1@nycap.rr.com>
Re: Perl for NT (Steve Frost)
Re: reg exp size limit !? (Brendan O'Dea)
Re: split(/$dirsep/) problem ($dirsep = "\\") <westxga@ptsc.slg.eds.com>
Static variables <joegottman@worldnet.att.net>
Re: statics or const in perl ? (Faust Gertz)
Re: strange perl semop behavior (dave)
Re: sybperl/oraperl <boei@trifox.com>
Trouble installing on Solaris <as6f@cs.virginia.edu>
win32/sockets <pwalker@email.net>
win32/sockets <pwalker@email.net>
win32/sockets <pwalker@email.net>
win32/sockets <pwalker@email.net>
win32::netadmin(createuser) <Sven_Steinike@mn.man.de>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Oct 1997 22:22:59 GMT
From: hc@toraix1.torolab.ibm.com (Chan)
Subject: Anyone use Servlets?
Message-Id: <620rc3$3dg2$1@tornews.torolab.ibm.com>
Hi,
I was wondering if anyone here used Servlets instead of
CGI Perl scripts.
If so, why?
thx,
Henry
hc@ca.ibm.com
------------------------------
Date: Tue, 14 Oct 1997 18:12:27 -0600
From: smcnabb@netcom.ca
Subject: Back button work-around
Message-Id: <876848036.6783@dejanews.com>
Hi All:
I'm trying to figure out a way to prevent a user from going backwards
through a series of screens created/handled by a single perl script.
The
scenerio goes more or less as follows:
1) show a screen
2) show a second screen (increment value)
3) do "1" again, but with the new value
So, I wrote some little write-protect tabs (text files which contain
the
word "ON" or "OFF" ;-) to protect the increment functions from hapless
reloaders, but if they use the back button, I fear they may still end
up
incrementing something where they shouldn't....
I'v thought about a little timestamp thing that checks each time the
form
is loaded, but I'm not sure if that's going to do it (does the CGI
form
get processed each time even if it is accessed via the back
button????)
Any suggestions vehemently appreciated :)
thanks,
Steve
(smcnabb@netcom.ca)
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Wed, 15 Oct 1997 02:12:49 GMT
From: faust@wwa.com (Faust Gertz)
Subject: Re: Back button work-around
Message-Id: <34451dd6.1774901@news.wwa.com>
On Tue, 14 Oct 1997 18:12:27 -0600, smcnabb@netcom.ca wrote:
>I'm trying to figure out a way to prevent a user from going backwards
>through a series of screens created/handled by a single perl script.
People always seem to want to go about things in the most fascist
ways. Why prevent them?
>The scenerio goes more or less as follows:
>
>1) show a screen
>2) show a second screen (increment value)
>3) do "1" again, but with the new value
>
>So, I wrote some little write-protect tabs (text files which contain
>the word "ON" or "OFF" ;-) to protect the increment functions from hapless
>reloaders, but if they use the back button, I fear they may still end
>up incrementing something where they shouldn't....
Probably. You could set the time for the cache to expire, but this
won't work for all browsers. I think you will have to find a work
around to your problem which does not rely on forcing a person to go
through your series of pages _your_ way.
>I'v thought about a little timestamp thing that checks each time the
>form is loaded, but I'm not sure if that's going to do it (does the CGI
>form get processed each time even if it is accessed via the back
>button????)
Not sure what you mean, but I think the answer is no.
>Any suggestions vehemently appreciated :)
Try to make it not matter whether or not the user uses the back
function on the browser instead of trying to disable it. You just
don't have the power to disable people from viewing documents in their
cache. :-)
Here is a modification of a script Lincoln Stein once had on his site
to demonstrate how to maintain state and keep things in order even if
the user uses the back function on the browser. I didn't see it on
his site today, or else I would have posted the URL and not my
modified version. Take a look at it and see if some of the ideas in
this simple script help you. If I am missing the entire point of your
post, please let me know and I, or someone more intelligent, will try
again.
>#!/usr/local/bin/perl -Tw
>
>use strict; # Restrict unsafe use of variables, references, and barewords
>use CGI; # Evoke the CGI module
>$ENV{'PATH'} = '/usr/bin:/bin'; # Set PATH for the kids
>my $STATE_DIR = './STATES'; # Set place for state maintaining files. 'Nobody' must have read and write access.
>my ($old_state, $query, $session_key);
>
>$query = new CGI; # Create a new CGI object
>
>$session_key = $query->path_info; # Set $session_key equal to path info.
>$session_key =~ s|^/||; # Get rid of intial '/'
>
>unless ($session_key = &valid($session_key)) { # If session_key isn't valid, create one and redirect
> $session_key = &generate_session_key;
> print $query->redirect($query->url() . "/$session_key");
> exit (0);
>}
>
># Get any old state information based on the session key
># and place it in a CGI object called '$old_state'
>
>$old_state = &fetch_old_state($session_key);
>
># Take appropriate action.
>
>if ($query->param('action') eq 'ADD') { # Add any new values of 'item' to $old_state
> $old_state->param('item', $old_state->param('item'), $query->param('item'));
>}
>elsif ($query->param('action') eq 'CLEAR') { # Delete any values of 'item'
> $old_state->delete('item');
>}
>
>&save_state($old_state, $session_key); # Save current state based on session key
>
># Send HTML page to standard output
>
>print <<END;
>@{[$query->header]}
>@{[$query->start_html('The Growing List')]}
>@{[$query->h1('The Growing List')]}
>@{[$query->p('Type a short phrase into the text below. When you press', $query->em('ADD'), ", it will be added to a history of the phrases that you've typed. The list is maintained on disk at the server end, so it won't get out of order if you press the back button. Press", $query->em('CLEAR'), 'to clear the list and start fresh.')]}
>@{[$query->start_form]}
>@{[$query->textfield(-name=>'item',-default=>'',-size=>50,-override=>1)]}<BR>
>@{[$query->submit(-name=>'action',-value=>'CLEAR')]}
>@{[$query->submit(-name=>'action',-value=>'ADD')]}
>@{[$query->end_form]}
>END
>
>if ($old_state->param('item')) {
> print "<OL>\n";
> for ($old_state->param('item')) { print $query->li($query->escapeHTML($_)), "\n" }
> print "</OL>\n";
>}
>else {
> print $query->em('Empty'), "\n";
>}
>print $query->end_html;
>
>&clean_up; # Delete state maintaining files older than a day.
>
>exit (0);
>
>################################################################################
>
>sub valid {
>
># Make sure session key is twelve characters of hex followed by a '.' and ends
># with some digits and return "untainted" value.
>
> my ($key) = shift;
> $key=~/^([\da-fA-F]{12}\.\d+)$/;
> return $1;
>}
>
>################################################################################
>
>sub generate_session_key {
>
># Generate session ID based on time of day and ID number of the perl process
># to guarantee some degree of uniqueness. First eight characters are the four
># byte time of day string, the next four characters are the two byte process
># ID number, and final characters after the '.' are the non-encoded process
># ID number. There is nothing here that Randal Schwartz hasn't already shown
># us in _Web Techniques_.
>
> my($remote) = unpack("H*", pack("Nn", time, $$));
> return "$remote.$$";
>}
>
>################################################################################
>
>sub fetch_old_state {
>
># Open file based on session ID, lock it (though there probably is no need
># to), parse it by passing a reference to the filehandle glob to $state (the
># new CGI object), close the file, and return the CGI object. It is fine if
># open fails. That means no previously saved state and no value will be
># returned, which, of course, is desired.
>
> open (SAVEDSTATE, "+<$STATE_DIR/state.$_[0]"); # If the file were opened read only,
> flock SAVEDSTATE, 2; # would the exclusive lock still work?
> my $state = new CGI(\*SAVEDSTATE);
> close SAVEDSTATE;
> return $state;
>}
>
>################################################################################
>
>sub save_state {
>
># Open file based on session ID for writing or die, lock it (though, again,
># this probably isn't necessary), write contents of the CGI object named
># '$state' ($old_state in the main block) to the reference of the filehandle
># glob, and close (save) it.
>
> my ($state, $session_key)=@_;
> open(SAVEDSTATE, ">$STATE_DIR/state.$session_key") || die "$0 failed opening session state file: $!";
> flock (SAVEDSTATE, 2) || warn "$0 failed locking session state file: $!";
> $state->save(\*SAVEDSTATE);
> close (SAVEDSTATE) || die "$0 failed closing session state file: $!";
>}
>
>
>################################################################################
>
>sub clean_up {
>
># Iterate over the STATE_DIR glob (state maintaining files begin with 'state.'),
># if the file hasn't been modified in over a day, delete it or warn.
>
>for (glob ("$STATE_DIR/state.*")) {
> /^($STATE_DIR\/state\.[\da-fA-F]{12}\.\d+)$/;
> (-M $1 < 1) || unlink $1 || warn "$0 is having trouble deleting $1: $!";
>}
>}
>
>################################################################################
HTH
Faust Gertz
Philosopher at Large
"You cannot solve the problem with the same kind of thinking that has
created the problem." - Albert Einstein
------------------------------
Date: Wed, 15 Oct 1997 15:49:42 GMT
From: bslee@pl.jaring.my (B.S.LEE)
Subject: Can I use Perl cgi script to control external programme ???
Message-Id: <6214k8$bbn@news2.jaring.my>
Currently, I am setting up a windows NT server (ver 4.0). I am using
Perl 5 to compose my cgi script. I want to use this cgi script to
control or communicate with the external program( probably written in
c++) which this external programme is trying to control the external
device through the interfacing card.
Can I do this under windows NT environment ?????
Can anybody give me some guides ?????
------------------------------
Date: 14 Oct 1997 22:59:32 GMT
From: pjscott-remove-to-email@euclid.jpl.nasa.gov (Peter Scott)
Subject: goto &NAME on a method?
Message-Id: <620tgk$b96@netline.jpl.nasa.gov>
My original reasons for doing this are less important now than
getting the answer for curiosity's sake... you know how it is :-)
How do I use the "highly magical" goto &NAME on a method?
Where you don't know the class nor the method name at compile time?
Let's say that you have an object $x and a method whose name is in $m.
You can invoke it from a subroutine with $x->$m(@_); How can I do the
same with the goto &NAME form of goto so that caller() doesn't see
the intervening subroutine?
Note: I can get by without doing this, so this is just a request for
information; I don't need workarounds. Oh, and FWIW, I'm using 5.004_01.
TIA.
--
This is news. This is your | Peter Scott, NASA/JPL/Caltech
brain on news. Any questions? | (Peter.J.Scott at jpl.nasa.gov)
Sorry to force respondents who choose to reply by email to edit the
to: header; the spam is just too bad otherwise.
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Tue, 14 Oct 1997 22:08:58 -0400
From: dmerberg@genetics.com (David Merberg)
Subject: Re: Help with MacPerl help
Message-Id: <dmerberg-1410972208580001@d13.dial-2.ltn.ma.ultra.net>
Thank you, Chris Nandor, for your help with my question about MacPerl help.
I'm almost certain that the first time I installed MacPerl it worked with
Netscape and then it somehow stopped - but that's irrelevant.
So I set Shuck as the helper app for pods in IC. Now when I try to use
the online help, it fires up Shuck. But Shuck never seems to show me the
document.
It is correctly receivng some sort of event from MacPerl: If I choose
"Syntax" from the Help menu, the title bar on the empty Shuck window says
"perlsyn.pod".
Even if I try to open the "Shuck Manual" from the Shuck file menu, I
still get a blank window in Shuck.
My copy of Shuck is v 1.0.
Any help would be appreciated.
> You need to set, in Internet Config's Helper Apps section, "Shuck" as the
> helper for "pod". Shuck is a POD viewer that comes with MacPerl.
>
> --
> Chris Nandor pudge@pobox.com http://pudge.net/
> %PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
> #== MacPerl: Programming for the Rest of Us ==#
> #== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: Tue, 14 Oct 1997 22:30:13 +0000
From: "Byron Formwalt" <formwalt@concentric.net>
Subject: HTTP Connect with PROXY?
Message-Id: <6219lg$rop@examiner.concentric.net>
Can someone tell me how to connect to an HTTP server, when there is a fixed
proxy that has to be used?
--Byron Formwalt
------------------------------
Date: 14 Oct 1997 22:24:52 GMT
From: steven@ccat.sas.upenn.edu (steven morgan friedman)
Subject: last modified question
Message-Id: <620rfk$dtk$1@netnews.upenn.edu>
Hi,
One of my Web pages is a Perl script, index.cgi. I would like
to print the date the file was last modified and also the URL
of the file as part of this page. What sort of variables can
I call up to get this information? Can you direct me to a Web
page with directions on how to so?
Thanks a million.
steven
------------------------------
Date: Wed, 15 Oct 1997 01:41:38 GMT
From: faust@wwa.com (Faust Gertz)
Subject: Re: last modified question
Message-Id: <34441879.402545@news.wwa.com>
On 14 Oct 1997 22:24:52 GMT, steven@ccat.sas.upenn.edu (steven morgan
friedman) wrote:
>One of my Web pages is a Perl script, index.cgi. I would like
>to print the date the file was last modified and also the URL
>of the file as part of this page.
If this is a index of when various and sundry files were _last_
modified, then it is a static index and you don't need to use a CGI
script to make the page dynamic. :-) For example:
Sports Fan #1: Did you see Michael Jordan's last game?
Sports Fan #2: No! You mean he retired again!
>What sort of variables can I call up to get this information?
You can look at the FAQ.
How do I get a file's timestamp in perl?
If you want to retrieve the time at which the file was last read,
written, or had its meta-data (owner, etc) changed, you use the -M,
-A, or -C filetest operations as documented in the perlfunc manpage.
These retrieve the age of the file (measured against the start-time of
your program) in days as a floating point number. To retrieve the
``raw'' time in seconds since the epoch, you would call the stat
function, then use localtime, gmtime, or POSIX::strftime() to convert
this into human-readable form.
Here's an example:
$write_secs = (stat($file))[9];
print "file $file updated at ", scalar(localtime($file)), "\n";
If you prefer something more legible, use the File::stat module (part
of the standard distribution in
version 5.004 and later):
use File::stat;
use Time::localtime;
$date_string = ctime(stat($file)->mtime);
print "file $file updated at $date_string\n";
Error checking is left as an exercise for the reader.
>Can you direct me to a Web page with directions on how to so?
Sure.
ftp://ftp.digital.com/pub/plan/perl/CPAN/doc/manual/html/pod/perlfunc/stat.html
HTH
Faust Gertz
Philosopher at Large
------------------------------
Date: Tue, 14 Oct 1997 09:46:36 -0400
From: Ramon Castillo <ramon@ramonc.icix.net>
Subject: Re: Perl and Sockets
Message-Id: <344377BC.7412@ramonc.icix.net>
Joshua Pincus wrote:
>
> I am writing a Perl-based Proxy server. I have come up against a bunch
> of bizarre problems. Whenever I try to read from a socket using
> sysread(), the system call hangs. For instance, if I create the socket
> and then connect to the server with Netscape or Lynx, the while loop that
> reads in the Netscape header hangs after the header has been read in. It
> blocks waiting for more data from the filehandle. How do I stop this? I
> merely want the darn while loop to act like a read() in C. I want to be
> able to read in the data and, when their is no more data, to have sysread()
> return 0.
>
> I have searched the Perl FAQ and man pages for answers to no avail. Any
> help would be appreciated.
>
> Josh Pincus
I wrote a Daemon/Server in Perl that keeps listening a port for new
coonections and forks a child if it detectes one.
I made it with Perl 5.004_01 Solaris 2.5. CPAN IO::Socket.
I don't know if it is the State of the Art but works.
Just let me know if you're interesting on it , I'd send you the sources.
RC
--
#!/usr/local/bin/perl
use Hart::WithBrain;
while ($god->bless == $Internet && $Perl == $Cool){
$Be = "Happy";
$Live = "Love";
$Hack = "Fun";
} # RC ray@icix.net
------------------------------
Date: 15 Oct 1997 02:01:35 GMT
From: "Glen Kaatz" <gkaatz1@nycap.rr.com>
Subject: Perl for NT
Message-Id: <01bcd90e$ea577160$0d255c18@glen>
Can anyone direct me to where I can get a non-TARd Perl for Win NT?
Please, please,please help.
Thanks in advance for your help.
Glen Kaatz (GKaatz@Nycap.rr.com)
------------------------------
Date: Wed, 15 Oct 1997 02:44:30 GMT
From: frostbyt@shell02.ozemail.com.au (Steve Frost)
Subject: Re: Perl for NT
Message-Id: <621aln$237$1@reader1.reader.news.ozemail.net>
Some time ago "Glen Kaatz" <gkaatz1@nycap.rr.com> wrote:
>Can anyone direct me to where I can get a non-TARd Perl for Win NT?
>Please, please,please help.
Hi Glen,
Grab a copy of WinZip (www.winzip.com). It handles TAR and GZ
files. Much easier than trying to obtain non-tar files.
Cheers
Steve
--
********************************************************************
Stephen Frost Stephen Frost
Managing Director Technical Consultant
Frostbyte Computer Consultants Pty Ltd OzEmail Limited
Melbourne, Australia (ACN 078 000 030) Sydney, Australia
--------------------------------------------------------------------
http://www.frostbyte.com.au "Faith is the evidence
frostbyt@shell02.ozemail.com.au of things unseen."
--------------------------------------------------------------------
Please remove the 'shell02' if emailing me or the mail will bounce.
------------------------------
Date: 15 Oct 1997 02:12:53 GMT
From: bod@compusol.com.au (Brendan O'Dea)
Subject: Re: reg exp size limit !?
Message-Id: <6218r5$k09$1@diablo.compusol.com.au>
In article <61v4i0$7s4$1@agate.berkeley.edu>,
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
>In article <61v4c2$7qi$1@agate.berkeley.edu>,
>Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
>> + has no limit (unless in very old Perls). something-harder+ _will_
>> have the limit 32K which the poster noticed.
>
>Hmm, in the message I sent out it was written:
>
> .+ has no limit (unless...
>
>Some bad guy on the way ate dot. Any ideas?
Since NNTP treats a line containing only a period as end-of-text, I
would guess that the leading period may have been munged by some
flakey news software.
Regards,
--
Brendan O'Dea bod@compusol.com.au
Compusol Pty. Limited (NSW, Australia) +61 2 9809 0133
------------------------------
Date: Tue, 14 Oct 1997 09:27:40 +0000
From: Glenn West <westxga@ptsc.slg.eds.com>
To: Simon Oosthoek <s.oosthoek@student.utwente.nl>
Subject: Re: split(/$dirsep/) problem ($dirsep = "\\")
Message-Id: <34433B0B.5A28@ptsc.slg.eds.com>
Simon Oosthoek wrote:
>
> Hi,
>
> I seem to be stuck with a splitting problem:
>
> $dirsep = "\\";
> $path = "C:\foo\bar\blip";
> @path = split (/$dirsep/, $path);
>
> when I run this:
> /\/: trailing \ in regexp at test.pl line 3.
>
> Context: I'm working on a script to process lists of files with a path
> structure and I intend it to work on different OS's (mainly MSWin32 and
> linux).
>
> A solution to this might be to convert the \\ to some other character,
> but I've got a feeling that this is a more interesting problem. There
> should be a way to split on a variable, regardless if it contains an
> escape character, right?
Right. You actually have two problems. You need to add an extra \\
sequence to the $dirsep variable assignment so that you are left with \\
by the time execution gets to the split. In addition, the assignment to
$path has the same sort of problem in that your \ is being interpreted
as an escape sequence. So you need to double up the \ in the $path
assignment.
>
> any suggestions welcome,
>
> Simon.
>
> PS, please CC by e-mail (but don't forget to post as well ;-)
------------------------------
Date: Tue, 14 Oct 1997 22:14:48 -0400
From: Joe Gottman <joegottman@worldnet.att.net>
Subject: Static variables
Message-Id: <34442718.3F54@worldnet.att.net>
Is it possible to declare a static variable inside a Perl
subroutine? By static I mean that the variable is initialized only
once (when the subroutine is first called), maintains its value
between calls, and is only in scope inside the subroutine. In other
words, I would like a C-style static variable.
--
Joe Gottman
joegottman@nospam.worldnet.att.net
[Remove nospam to reply]
------------------------------
Date: Tue, 14 Oct 1997 22:46:47 GMT
From: faust@wwa.com (Faust Gertz)
Subject: Re: statics or const in perl ?
Message-Id: <3443f3ca.5305425@news.wwa.com>
On Tue, 14 Oct 1997 20:35:25 GMT, over@the.net (dave) wrote:
>I took a look and "use constant" seems to have some gotchas. Why use it over
>typeglob references?
Please enlighten us. What are the gotchas?
Faust Gertz
Philosopher at Large
------------------------------
Date: Tue, 14 Oct 1997 21:51:01 GMT
From: over@the.net (dave)
Subject: Re: strange perl semop behavior
Message-Id: <3443e803.1849269@news.one.net>
James Tau <jtau@spd.analog.com> wrote:
>
>Hi there,
>
>I was wondering if anyone has experienced this curious situation:
>
>a parent forks off some children in some order without waiting for one
>to finish before forking the next one. Then it sits back and waits
>for the first to finish, then the second, and so on so as to preserve
>the original order in which the data are fed back. The
>synchronization is done with semaphores(semget,semop) on an ultra II.
>The curious thing is while the children have no problems executing
>semop, when the parent attempts to wait on it it fails, no matter how
>many times it tries! I have also tried to simultaneously use a C
>program with semop to wait on it and it works! I have no idea
>why this is so, and would appreciate any information any one can share
>which sheds light on what I'm seeing. Thanks very much.
>
I can remember having similar problems with shell scripting that were also
cured by forks from C. Perhaps you could explain your methods and show what's
failing. Maybe I can help.
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: Tue, 14 Oct 1997 15:31:28 -0700
From: Bob Eisner <boei@trifox.com>
To: Patrick Charles Perroud <pperroud@interlog.com>
Subject: Re: sybperl/oraperl
Message-Id: <3443F2C0.5400@trifox.com>
Patrick Charles Perroud wrote:
>
> I was wondering if someone could point me in the right direction?
>
> I've read through this newsgroup picking up tidbits of info that
> should help!!
>
> Heres what I'm looking for:
>
> I've got sybperl installed on a SunOs 4.1.2 box and have been using
> it for several years now, accessing our SYBASE db. The version of
> perl I've got installed is an old version (4.010). Sybperl is also
> from 1993.
>
> We have recently purchased and application that uses Oracle 7.3.x
> running on Solaris 2.5.1 and was wondering if there was a perl
> beast out there that
> would allow me to access both RDBM's. I need to select from, and
> update
> tables on both Oracle and Sybase at the same time.
>
> If this beast does not exist are there any suggestions as to how I
> would go about doing this?
>
> Thanks in advance,
>
> Pat Perroud
> pperroud@interlog.com
Hi Pat,
Have a look at VORTEXperl from Trifox. It will allow you access
Sybase on SunOS 4.1.2 and Oracle 7.3.x on Solaris at the same
time from the same Perl Script! It uses Perl Sockets so there
is no need to re-build the Perl runtime.
You can obtain an evaluation copy of VORTEXperl and VORTEXserver
from our WEB site at http://www.trifox.com/vortex/vtxperl.html
Regards,
Bob
------------------------------
Date: Tue, 14 Oct 1997 21:22:54 -0400
From: Anish Singh <as6f@cs.virginia.edu>
Subject: Trouble installing on Solaris
Message-Id: <34441AEE.1E77@cs.virginia.edu>
HI,
I'm getting the following error when I'm running make while installing
perl5.004_1
***************************************************************
gcc -B/usr/ccs/bin/ -L/usr/local/lib -L/opt/gnu/lib -o miniperl
miniperlmain.o libperl.a -lsocket -lnsl -ldl -lm -lc -lcrypt
Undefined first referenced
symbol in file
do_aspawn libperl.a(pp_sys.o)
do_spawn libperl.a(pp_sys.o)
ld: fatal: Symbol referencing errors. No output written to miniperl
*** Error code 1
make: Fatal error: Command failed for target `miniperl'
***************************************************************
My OS is solaris 5.5.1. I'm installing it in my home directory.
What all options should I specify if I want to install
libww-perl as well ?
Thanx in Advance
Anish
e-mail: as6f@cs.virginia.edu
------------------------------
Date: Tue, 14 Oct 1997 19:33:16 -0500
From: Paul Walker <pwalker@email.net>
Subject: win32/sockets
Message-Id: <34440F4C.90174207@email.net>
Ok, I give. I have a script that when run interactivly (eg via a cmd window or
telnet session)
to my NT box(s), correctly allocates a port and waits patiently for a
connection. Ala tcp-srv
in the distribution (activeware 5.003_007 build 307). Sooo, sockets do work
on both my NT3.51 and NT4.0 servers. However, when I call the script via
the w3c jigsaw web server as a cgi script, it fails to allocate. Mainly because
the getprotobyname() and other like functions seem to fail...hence you can not
allocate/bind to the socket.
Soooo, whats up with this..I have added enough debug info to the cgi script to
verify
@INC is correct. The only thing I can think of is this is somehow related to the
fact that I am running a thread on the web server that is starting a thread to
execute the
perl script vs just running a thread to execute the perl script. Any hints
would be
most appreciated.
BTW, the ultimate task of the cgi script is to return a web page with an
embedded
java telnet applet. Once the applet initializes, it establishes a persistant
connection
with the server on a different port.
Thanks in advance.
Paul Walker
------------------------------
Date: Tue, 14 Oct 1997 19:23:21 -0500
From: Paul Walker <pwalker@email.net>
Subject: win32/sockets
Message-Id: <34440CF9.B139347B@email.net>
Ok, I give. I have a script that when run interactivly (eg via a cmd window or
telnet session)
to my NT box(s), correctly allocates a port and waits patiently for a
connection. Ala tcp-srv
in the distribution (activeware 5.003_007 build 307). Sooo, sockets do work
on both my NT3.51 and NT4.0 servers. However, when I call the script via
the w3c jigsaw web server as a cgi script, it fails to allocate. Mainly because
the getprotobyname() and other like functions seem to fail...hence you can not
allocate/bind to the socket.
Soooo, whats up with this..I have added enough debug info to the cgi script to
verify
@INC is correct. The only thing I can think of is this is somehow related to the
fact that I am running a thread on the web server that is starting a thread to
execute the
perl script vs just running a thread to execute the perl script. Any hints
would be
most appreciated.
BTW, the ultimate task of the cgi script is to return a web page with an
embedded
java telnet applet. Once the applet initializes, it establishes a persistant
connection
with the server on a different port.
Thanks in advance.
Paul Walker
------------------------------
Date: Tue, 14 Oct 1997 19:29:36 -0500
From: Paul Walker <pwalker@email.net>
Subject: win32/sockets
Message-Id: <34440E70.5BB598C8@email.net>
Ok, I give. I have a script that when run interactivly (eg via a cmd window or
telnet session)
to my NT box(s), correctly allocates a port and waits patiently for a
connection. Ala tcp-srv
in the distribution (activeware 5.003_007 build 307). Sooo, sockets do work
on both my NT3.51 and NT4.0 servers. However, when I call the script via
the w3c jigsaw web server as a cgi script, it fails to allocate. Mainly because
the getprotobyname() and other like functions seem to fail...hence you can not
allocate/bind to the socket.
Soooo, whats up with this..I have added enough debug info to the cgi script to
verify
@INC is correct. The only thing I can think of is this is somehow related to the
fact that I am running a thread on the web server that is starting a thread to
execute the
perl script vs just running a thread to execute the perl script. Any hints
would be
most appreciated.
BTW, the ultimate task of the cgi script is to return a web page with an
embedded
java telnet applet. Once the applet initializes, it establishes a persistant
connection
with the server on a different port.
Thanks in advance.
Paul Walker
------------------------------
Date: Tue, 14 Oct 1997 19:31:51 -0500
From: Paul Walker <pwalker@email.net>
Subject: win32/sockets
Message-Id: <34440EF7.EDA755FA@email.net>
Ok, I give. I have a script that when run interactivly (eg via a cmd window or
telnet session)
to my NT box(s), correctly allocates a port and waits patiently for a
connection. Ala tcp-srv
in the distribution (activeware 5.003_007 build 307). Sooo, sockets do work
on both my NT3.51 and NT4.0 servers. However, when I call the script via
the w3c jigsaw web server as a cgi script, it fails to allocate. Mainly because
the getprotobyname() and other like functions seem to fail...hence you can not
allocate/bind to the socket.
Soooo, whats up with this..I have added enough debug info to the cgi script to
verify
@INC is correct. The only thing I can think of is this is somehow related to the
fact that I am running a thread on the web server that is starting a thread to
execute the
perl script vs just running a thread to execute the perl script. Any hints
would be
most appreciated.
BTW, the ultimate task of the cgi script is to return a web page with an
embedded
java telnet applet. Once the applet initializes, it establishes a persistant
connection
with the server on a different port.
Thanks in advance.
Paul Walker
------------------------------
Date: Tue, 14 Oct 1997 09:40:08 +0200
From: "Sven Steinike" <Sven_Steinike@mn.man.de>
Subject: win32::netadmin(createuser)
Message-Id: <61v7kp$k3p@mmas.mn.man.de>
I to administrate a NT Domain with Internet Information Server.
So I am looking for a describtion to win32::netadmin.
For example I could not use the function createuser, because I do not know
what is meant with "passwordage", "flag" and "privilege", and which format
is expected.
UserCreate(server, userName, password, passwordAge, privilege, homeDir,
comment, flags, scriptPath)
Creates a user on server with password, passwordAge, privilege, homeDir,
comment, flags, and scriptPath
Can anyone tell me how to use win32::netadmin or where I can find a detailed
describtion for this library.
Thank you for your
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1177
**************************************
