[7310] in Perl-Users-Digest
Perl-Users Digest, Issue: 935 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 27 23:17:24 1997
Date: Wed, 27 Aug 97 20:00:21 -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 Wed, 27 Aug 1997 Volume: 8 Number: 935
Today's topics:
Re: && and associativity (Abigail)
Re: 'abandon' hope (was: Re: Need help: how to exit a s (Abigail)
Re: <> operator memory leak? <justinb@springer.cray.com>
Can ANYONE point me to perl5 built for OSF1V3 guest@dunkel.accordance.com
Re: CGI timing out problem (David Efflandt)
CGI.pm, go to another script and delaying access times. <guitarplayer@hotmail.com>
Check if a URL exists <ccadic@planetepc.fr>
Re: Does anyone know how to call a perl script with 2 a (David Efflandt)
Re: Error creating files (David Efflandt)
Re: error: Close on unopened file <GEN0> during global <alanj@ti.com>
Re: Fork Problem again (Andrew M. Langmead)
Re: guestbook: new entry at top && fast (David Efflandt)
Re: Help with security of log file (David Efflandt)
Re: include tags (David Efflandt)
Need help finding/making a cgi script <zzp@headquarterz.com>
Re: Perl 5.004_01 tests fail w/ SunOS 4.1.4 <rbush@up.net>
Re: Randal and Intel, Was: Scrambling using tr <jeffrey@rahul.net>
Re: servername?? (David Efflandt)
Re: SSI in SSI.. (Bryan Wilkinson)
win95 perl/cgi ng - roblem <joe_g@i-2000.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Aug 1997 02:10:35 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: && and associativity
Message-Id: <EFLq1n.1zD@nonexistent.com>
Tom Phoenix (rootbeer@teleport.com) wrote on 1456 September 1993 in
<URL: news:<Pine.GSO.3.96.970826112429.13463P-100000@julie.teleport.com>>:
++ On Mon, 25 Aug 1997 denis@mathi.uni-heidelberg.de wrote:
++
++ > next && ($abc eq "")
++
++ Perl lets you do some pretty weird things. This crosses the line. :-)
++
++ I think you may have meant one of these.
++
++ next if $abc eq '';
++
++ next unless $abc eq '';
Or:
($abc eq "") && next;
Which I would write as:
$abc eq "" and next;
As I can remember and has pretty low precedence, and I can never bother
myself to learn whether && has a higher precedence than eq.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Thu, 28 Aug 1997 02:02:15 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: 'abandon' hope (was: Re: Need help: how to exit a sub)
Message-Id: <EFLpnr.yL@nonexistent.com>
Tom Phoenix (rootbeer@teleport.com) wrote on 1457 September 1993 in
<URL: news:<Pine.GSO.3.96.970827073556.1757G-100000@julie.teleport.com>>:
++
++ Hmmm....
++
++ sub abandon {
++ goto sub { warn shift; return }
++ }
++
++ This is getting scary. :-)
sub abandon {'warn "' . shift . '"; return';}
open FILE, $file or eval abandon "couldn't open file '$file': $!";
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 27 Aug 1997 19:19:29 -0500
From: Justin Banks <justinb@springer.cray.com>
Subject: Re: <> operator memory leak?
Message-Id: <o8nlo1n88ha.fsf@springer.cray.com>
daku@nortel.ca (Mark Daku) writes:
> joshu@diku.dk (Gargle Zndflxtzyh) writes:
>
> No leak on my system:
Ditto here.
springer<justinb>118% uname -a
IRIX springer 6.2 03131015 IP22
springer<justinb>119% perl -v
This is perl, version 5.004_01
Copyright 1987-1997, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.
springer<justinb>120% perl -V
Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration:
Platform:
osname=irix, osvers=6.2, archname=IP22-irix
uname='irix springer 6.2 03131015 ip22 '
hint=previous, useposix=true, d_sigaction=define
bincompat3=y useperlio= d_sfio=
Compiler:
cc='cc', optimize='-O2', gccversion=
cppflags='-D_BSD_TYPES -D_BSD_TIME -I/opt/local/include -I/opt/gnu/include -DLANGUAGE_C'
ccflags ='-D_BSD_TYPES -D_BSD_TIME -I/opt/local/include -I/opt/gnu/include -DLANGUAGE_C'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=1, d_casti32=define, d_castneg=
intsize=4, alignbytes=8, usemymalloc=n, randbits=15
Linker and Libraries:
ld='ld', ldflags ='-L/usr/local/lib -L/opt/local/lib -L/opt/gnu/lib'
libpth=/usr/local/lib /opt/local/lib /opt/gnu/lib /lib /usr/lib
libs=-lm -lc
libc=/usr/lib/libc.so, so=so
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
cccdlflags=' ', lddlflags='-shared -L/usr/local/lib -L/opt/local/lib -L/opt/gnu/lib'
Characteristics of this binary (from libperl):
Built under irix
Compiled at Aug 1 1997 10:23:12
@INC:
/home/craypark/justinb/lib/perl5/IP22-irix/5.00401
/home/craypark/justinb/lib/perl5
/home/craypark/justinb/lib/perl5/site_perl/IP22-irix
/home/craypark/justinb/lib/perl5/site_perl
--
Justin Banks \ If you spam me, I promise to go upstream from you until I
Silicon Graphics \ find someone that cares. Then, I'll think about charging
Eagan, Minnesota \ you for my time. Do it at your own risk
------------------------------
Date: 27 Aug 1997 21:38:46 -0400
From: guest@dunkel.accordance.com
Subject: Can ANYONE point me to perl5 built for OSF1V3
Message-Id: <s8b203fgk7t.fsf@dunkel.i-have-a-misconfigured-system-so-shoot-me>
I can't make it build.
Someone please help.
Morgan <morgan @ Software.com>
PS: Sorry about the bad address format. I'm trying to avoid spam.
Thanks again.
------------------------------
Date: Thu, 28 Aug 1997 00:55:29 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: CGI timing out problem
Message-Id: <3409ca30.4872832@flood.xnet.com>
kchadha@hotmail.com wrote:
>My CGI script needs to execute a subroutine
>which takes a long time to run- this causes
>the browser to time out. To avoid this,
>I fork a process, let the child process
>execute the subroutine and let the parent
>keep printing "wait" until the child is done.
>The problem is that while it runs fine
>from the command line, from the browser,
>it saves up all the "wait" statements until
>teh subroutine has finished and then prints
>them all together. This problem remains even if
>I flush out the buffer. Any ideas on how
>to force the web browser to print even while
>teh routine is executing ?
>Or any other way to avoid the timeout issue ?
>
>Please e-mail answers to kchadha@hotmail.com
>
>Thanks!
Start the script name with 'nph-' (like 'nph-foo.cgi').
Before you print the content-type header:
print "$ENV{SERVER_PROTOCOL) 200 OK\n";
or if that gives you any trouble try:
print "HTTP/1.0 200 OK\n";
Note that the browser may not display new unbuffered html unless it is
followed by <P> or <BR> (newlines are ignored by browsers).
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Wed, 27 Aug 1997 19:25:57 -0700
From: "rocker..." <guitarplayer@hotmail.com>
Subject: CGI.pm, go to another script and delaying access times...
Message-Id: <3404E1B4.20DA@hotmail.com>
Please bear with me, I know this sounds terrible and as if it's too easy
to justify posting, but I have two questions, the first is very simple,
and the second might not be?..
Firstly...
I switched from cgi-lib.pl to using the CGI.pm, and I like it, but as
I'm re-writing and modifying the perl scipts, I'm running into simple
problems that I can't seem to find the answers for! Is there anywhere
that has infomation on this? I've also upgraded from perl 5.003, to
5.004.. it's a whole new world.. I like it.. but a little new to
scripting that's *not* for perl 4 anymore. I have the docs and info on
CGI.pm, and the info about migrating from cgi-lib.pl to CGI.pm, yet it's
still very vegue. Is there a few people tat can point me as to where I
can get this info? I've gone so many places and found nothing new. So
the more people suggesting url's, the better. And sad but true, I don't
have the money for a good book, so for the last few months, I've been in
a 1/2 pathetic attempt to find all the info on Perl I need off the net..
tearing apart other people's scripts, reading docs,. FAQ's, etc.. this
works, but is obviously a slower learning process then a camel book,
etc. So, if anyone knows of a good place for information and examples..
as many as possible would be very wonderful to find! It's like finding
gold! Now onto my simple questions:
How (I seriously can't find this info anywhere) can I simply make a
script go to another script.. for example <FORM
ACTION="/cgi-bin/script2.pl" METHOD="POST>
For example.. script1.pl's info to input into script2.pl
start_form,
--stuff--
p, pre(" Name: ", textfield(-name=>'person',
-size=>25,
-maxlength=>25),
br, " Email: ", textfield(-name=>'email'
-more pointless stuff--)),
br, submit("test button","Go to the Room"),
end_form
### Now.. how do I make a path, or have it go to another srcipt as I
would in regular HTML?. I really liek the perl5 and CGI.pm (but it just
seems wierd on some things of the code) and want to use them as much as
possible and not have "cheap, get the job done and forgot performance"
code. I want it to be as effecient and fast as possible..
My other question is:
(I've never found info on this. ever)..
Is there a code or module can I use to put a delay in my script? Like a
chat script I have, I need to have it so it only allows an indivildual
to hit update or chat, etc. once every 10 seconds or so.. just a delay
so idiots can't keep hitting chat every second when they get impatient
and spawn a million proccesses on my server that will kill my CPU! I
want to use the get and set priority, but don't quite know how, and I
really need to implement something where is will give people a message
saying "sorry, only chat once every 10 seconds, in the best interests of
the CPU" and not read or write or spawn a proccess -- or if it does, for
it to die or get whiped out very fast to avoid lingering and putting a
huge load on the server. I'm not asking for a code.. just if someoen can
point me of a URL with the info I can use.. or on how to do this. I have
never found this info anywhere, and I really need it.. Thanks for your
time.. If I can find the right places (until I can buy a book someday),
then I won't waste ng bandwidth again.. :-)
Rob...
------------------------------
Date: Wed, 27 Aug 1997 17:59:04 -0700
From: "RCI Federation" <ccadic@planetepc.fr>
Subject: Check if a URL exists
Message-Id: <01bcb34c$34ea7bc0$0101a8c0@sexytop>
Does any one know if a Perl script which would check whether a URL exists
or not is available ?
I do want to program it myself because a lack of time.
I wonder if someone has not already done this.
Yours
------------------------------
Date: Thu, 28 Aug 1997 01:01:43 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Does anyone know how to call a perl script with 2 arguments in an html file?
Message-Id: <340acce6.5567181@flood.xnet.com>
knetsch@golden.net.no.spam (SJK) wrote:
>On Tue, 26 Aug 1997 05:38:51 GMT, "Roxy" <dongmien@cs.washington.edu> wrote:
>
>>I got a perl script, and I would like to execute the perl script with 2
>>arguments from an
>>html file as I did in a unix shell.
>>Something likes
>>perl filename.pl input.txt output.txt
>>Could anyone help me?
>>TIA,
>>--
>>--------------------------------------------------
>>Roxy
>
>As this is a CGI question, this should actually be asked in a CGI newsgroup.
>And you didn't have to post your question in four newsgroups!
>
>But anyhoo....
>
>What you need to do is send a GET method to the CGI script.
>
>For example the following snippet of HTML sends the properly formatted data
>
>click <A HREF="myfile.pl?file1=input.txt+file2=output.txt">here</A> to do file
>manipulation.
Note: Variables should be separated by '&' like in form output. The
'+' is used for spaces. So above link should be:
click <A HREF="myfile.pl?file1=input.txt&file2=output.txt">here</A> to
do file manipulation.
>Then in your cgi script (your PERL program) read the environment variable
>QUERY_STRING to get your results.
(snip)
>
>Stuart Knetsch
>
>Remove the you know what from my address to send me E-mail
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Thu, 28 Aug 1997 00:29:52 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Error creating files
Message-Id: <3407c571.3658040@flood.xnet.com>
shodan@shodan.erols.com (Dave Schenet) wrote:
>Martin Fischer (mf@fishbone.ruhr.de) wrote:
>: Arthur Merar <amerar@unsu.com> wrote:
>: >I have a script that is supposed to create some files during it's
>: >process. When I run the script from the shell, everything works fine.
>: >but when I invoke it from the browser, it dies trying to create the
>: >file??
>
>: >What do the rights need to be on the directory? Right now I have them
>: >set at 755......What else could it be besides the rights? I mean, it I
>: >open the file for output and it does not exist, then perl should create
>: >it, right?
>: You set it to 755, that means the owner can read, write and execute,
>: group and world can only read and execute. If you execute the script
>: from the shell, it is running under your id, when you invoke it from
>: a browser as CGI-script it runs under the id of your www server. So
>: chmod the dir to 777 and it should work.
>
>And a slightly more secure method, if there are multiple users on your
>system, is to chown the directory to the EUID of your webserver, and keep
>the permissions 755. That way, other system users can't write to the dir,
>only the webserver process can. (If you're on a system that's only a
>webserver with no users who actually log into it, then 777 will work fine.
>But I'm somewhat paranoid by nature, so..)
>
>--Dave
However, since you probably cannot create a directory in the name of
another user (webserver) the easiest thing to do is give the directory
707 or 747 permission. That way the webserver (usually 'nobody') can
write to it, but usually not shell users in the group 'users'.
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Wed, 27 Aug 1997 19:26:05 -0500
From: Alan Jones <alanj@ti.com>
Subject: Re: error: Close on unopened file <GEN0> during global destruction.
Message-Id: <3404C59D.388F3F24@ti.com>
OK, so my request did not give enough information to allow
anyone to help me. I understand. I've been playing around
with it, and I've traced it to the FileHandle.pm module. Here's
the code:
use FileHandle;
package Junk2;
$file->{handle} = new FileHandle;
Then I do:
% perl -we 'use Junk2'
Close on unopened file <GEN0> during global destruction.
It looks like FileHandle.pm does a "close" inside of it's DESTROY
method. Should it be doing this? What happens if your program has
to exit AFTER the constructor but BEFORE you can open the file?
Alan Jones wrote:
> I've got a fairly large (1000+ lines) Perl script which is printing out
> messages like the following
> just before it exits:
>
> Close on unopened file <GEN0> during global destruction.
>
> "GEN0" is not a filehandle used anywhere in my script. Any idea where
> this is coming from?
> BTW, I recently added "use POSIX qw(uname ctime)" and "use
> Text::Wrap". The problem
> never occurred before I used these modules. Could there be a
> connection?
>
> % perl -v
>
> This is perl, version 5.003 with EMBED
> built under solaris at Jun 11 1997 11:17:46
> + suidperl security patch
>
> Copyright 1987-1996, Larry Wall
>
> Perl may be copied only under the terms of either the Artistic License
> or the
> GNU General Public License, which may be found in the Perl 5.0 source
> kit.
>
> --
> Alan Jones email = a l a n j @ti.com
--
Alan Jones email = a l a n j @ti.com
------------------------------
Date: Thu, 28 Aug 1997 00:10:52 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Fork Problem again
Message-Id: <EFLKI4.6Mp@world.std.com>
kchadha@hotmail.com writes:
>This prints "Completed" and then "abc" and then completed and abc
>again ! I know this is a problem of output buffering and $|
>but I can't figure out how to solve it !
>Any ideas on how to solve this will be greatly appreciated !
You probably aren't making the child call exit() when it is done. The
parent returns from execute_sub(), prints "Completed", and when the
child is done from its work, it returns from execute_sub() and prints
"Completed" too.
This is one of those things that you can spend tons of time to figure
out, ripping your hair out in the process. Once you go through that
experience, you seldom make the same mistake again.
--
Andrew Langmead
------------------------------
Date: Thu, 28 Aug 1997 01:24:17 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: guestbook: new entry at top && fast
Message-Id: <340cd23a.6931133@flood.xnet.com>
s.reker@cray.ping.de (Siegfried Reker) wrote:
>Hi
>I'm just creating a guestbook using cgi/perl. I want new entries to
>appear at the top of the guestbook. Thus opening the file in append
>mode does not work. So by now, I create a temporary file, write the
>new entry into it, append the old guestbook entries and finally move/
>rename the temporary file to replace the old guestbook. As the
>guestbook grows this gets increasingly time consuming. Is there a
>better way?
>
>Siggi
See Matt's Scripts: http://worldwidemart.com/scripts/
You don't really need to copy to a new file. Just read it in, modify
it and write it back to the same file. If Matt's system date doesn't
work on your system use perl localtime functions.
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Thu, 28 Aug 1997 00:20:59 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Help with security of log file
Message-Id: <3406c34d.3110021@flood.xnet.com>
"Lic. Juan Carlos Murillo" <murillo@infocostarica.com> wrote:
>Hi everybody,
>
>just a small question.
>
>How do I write with a from a form to a script to a log file and make the
>file only accesible to myself whem I'm teleneting using my userid.
>Someone said use umask but I'm at a loss as to how to do it.
>
>Maybe it can be done by changing the permissions of the log file. Any
>ideas?
To have a log file writable by a CGI script, but only readable or
writeable by you, the CGI script has to be run suid. However, some
systems ignore suid for scripts, so you may have to use a C wrapper.
An example of a wrapper was given in the old "Learning perl" (perl4)
from O'Reilly or is probably available from the CPAN sites. But make
sure it has the proper path to your compiler (cc or gcc).
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Thu, 28 Aug 1997 00:15:41 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: include tags
Message-Id: <3405c2b9.2961180@flood.xnet.com>
Ed Vander Bush <temp.ed.vanderbush@bentley.com> wrote:
>Can I print a include tag in a dynamicly generated web page is this
>possible?
This is not really perl related, but most servers do not parse CGI
output for SSI's because anything you would do in an SSI, you could do
quicker and more efficiently from the original script.
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Wed, 27 Aug 1997 21:16:25 -0400
From: Ex|zzp| <zzp@headquarterz.com>
Subject: Need help finding/making a cgi script
Message-Id: <3404D169.3A0A@headquarterz.com>
Hi,
I am a newbie with cgi scripting. I currently have a web page at
http://www.headquarterz.com for mIRC scripts. How would i be able to
make a script for the following:
A> So no one can download anything from other ppl's site from mine(ie:
someone from another mirc have a direct downlink from my page)
and
B> How would i make a script so people can upload a script to my
ftp..but without being able to go in any other dir on my ftp except the
one i selected?
Can someone here make me one of these scripts, or tell me where or how
to get/make it.
can somepne please e-mail me the answer or post here (i don't really go
on here)
Ex|zzp|
webmaster@headquarterz.com
zzp@headquarterz.com
------------------------------
Date: Wed, 27 Aug 1997 22:00:45 -0400
From: Ray Bush <rbush@up.net>
Subject: Re: Perl 5.004_01 tests fail w/ SunOS 4.1.4
Message-Id: <3404DBCD.1E10@up.net>
Anne Kilarjian wrote:
>
> I compiled up Perl 5.004_01 under SunOS 4.1.4. The compile goes
> OK but 4 of the tests fail with the following errors:
>
> Failed Test Status Wstat Total Fail Failed List of failed
> ------------------------------------------------------------------------------
> lib/anydbm.t 127 32512 ?? ?? % ??
> lib/gdbm.t 127 32512 ?? ?? % ??
> lib/ndbm.t 127 32512 ?? ?? % ??
> lib/odbm.t 127 32512 ?? ?? % ??
>
> (errors generated:)
>
> ld.so: call to undefined procedure _dbm_open from 0xf7762180
> ld.so: Undefined symbol: ___builtin_alloca
> ld.so: call to undefined procedure _dbm_open from 0xf7762180
> ld.so: call to undefined procedure _creat from 0xf77661b8
>
> Everything worked fine under SunOS 4.1.3, any ideas about whats
> going on here?
>
I dont know about your box but mine didnt have any of these installed on
it as default from sun. You can get them from sunsite.unc.edu though i
believe.
------------------------------
Date: 28 Aug 1997 01:01:22 GMT
From: Jeffrey Kegler <jeffrey@rahul.net>
Subject: Re: Randal and Intel, Was: Scrambling using tr
Message-Id: <5u2il2$kp7$1@samba.rahul.net>
In article <cav67sriesu.fsf@fri001.fm.intel.com>,
Justin Masters - remove "Y" to reply <jmastYers@pcocd2.intel.com> wrote:
>
>Stuart Cooper <stuartc@ind.tansu.com.au> writes:
>> Yeah- 1) get your organization to stop (pro|per)secuting Randal Schwartz.
>> 2) ask the Intel guy who prosecuted Randal; he's a *real* expert.
>> He unlearned Perl in 40 days!
>
>I'm trying to decide how to respond here.
Justin, you are to be congratulated for doing so temperately.
Must as I like to see attention drawn to Intel's villainous actions
against Randal, I think this does not make every Intel employee
villainous. Indeed, in supporting Randal, I have seen some incredible
actions of courage by employees of Intel.
I have had, and will have, many extremely, harsh things to say about
Intel in general, and individuals employed by Intel who purported to be
acting on its behalf. These will be embarrassing to decent, guiltless
individuals with connections to Intel. I regret this and hope they
will understand the necessity which compelled me.
New harsh anti-Intel statement: Everything I learn of this matter
convinces me that being a voice for the principles of American justice
and decency within Intel is fruitless. Intel's top management has not
lacked good counsel. It lacks the strength to hear their voices over
those of the self-interested yes-men, even stupid ones.
To learn more about Oregon/Intel v. Randal Schwartz:
<URL:http://www.rahul.net/jeffrey/ovs/>.
Jeffrey Kegler
President, Algorists, Inc.
------------------------------
Date: Thu, 28 Aug 1997 00:41:26 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: servername??
Message-Id: <3408c806.4318385@flood.xnet.com>
Danny LaPrade <dannyl@computize.com> wrote:
>I want to be able to find out on my webpage
>what people is viewing my page.
>I want to retrieve the servername of the each user
>that hits my site.
>
>How do I retrieve the servername?
It is $ENV{REMOTE_HOST}
However, many webservers do no resolve remote host, so you may need to
do the lookup with your script. For an example see "What I know about
you?" on my home page. I use something similar to log who views my
pages and where they came from in my hit counter script.
Note that some people are behind firewalls and not all IP addresses
can be resolved to a name, so sometimes all you can get is their IP
address.
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Thu, 28 Aug 1997 00:49:04 GMT
From: nardo@pobox.com (Bryan Wilkinson)
Subject: Re: SSI in SSI..
Message-Id: <3407caa8.7225766@newshost.cc.utexas.edu>
>Problem : I have a perl script wich reads a html file
>containing a SSI...does a bunch of things and print
>everything back...What's wrong is while using
>Content-type: text-html\n\n, the call to the SSI
>(<--#exec cgi="/foo/foo.cgi" -->) is not executed, but
>simply printed in the output...
>
>Is there a solution to this SSI in SSI problem?
you probably want something like:
s/<!--#exec cmd="([^"]*)"-->/`$1`/eg;
so that your perl script executes the SSI
------------------------------
Date: Wed, 27 Aug 1997 21:11:45 -0400
From: joe_g <joe_g@i-2000.com>
Subject: win95 perl/cgi ng - roblem
Message-Id: <3404D051.3773@i-2000.com>
Having a problem:
- I'm using windows 95
- I have perl 5.003, cgi.pm
- Netscape 3.01 gold
the problem:
If I open my perl script (somefile.pl) in my browser I get a DOS
window, the HTML code generated within the perl script is then printed
as a literal , and the DOS windows closes.
If I pipe the output of the perl script to a file from a DOS prompt
( perl somefile.pl > test.html )
and then open the test.html file in my browser , everything is ok.
Any ideas ??
Thanks Joe
------------------------------
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 935
*************************************
