[17661] in Perl-Users-Digest
Perl-Users Digest, Issue: 5081 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 11 14:05:58 2000
Date: Mon, 11 Dec 2000 11:05:16 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976561516-v9-i5081@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 11 Dec 2000 Volume: 9 Number: 5081
Today's topics:
Re: %ENV does not contain some variables? (Garry Williams)
Re: Anywhere to put my scripts? (Richard Zilavec)
Re: Anywhere to put my scripts? <bart.lateur@skynet.be>
Re: Bet you can't guess what this does (spoiler) (Mark-Jason Dominus)
Bet you can't guess what this does (Mark-Jason Dominus)
Can't load 'C:/perl/site/lib/auto/Tk/Event/Event.dll' f <danielo@laragh.com>
Re: combining regexps into one eggrock@my-deja.com
compressed files transparently <jdhunter@nitace.bsd.uchicago.edu>
Re: DBM File Open Problem <sbobrows@ix.netcom.com>
Re: Did that but still dont work... <jeffp@crusoe.net>
Re: Did that but still dont work... (Colin Watson)
Re: directory monitoring <bodoni26@resnet.gatech.edu>
Re: directory monitoring <bodoni26@resnet.gatech.edu>
fileupload with CGI <s.franke@unwired.nl>
Re: fileupload with CGI <hmerrill@my-deja.com>
Re: fileupload with CGI <s.franke@unwired.nl>
Re: fileupload with CGI nobull@mail.com
GD::Graph <francois@idylic.com>
Re: How can I access seconds since the epoch? (M.J.T. Guy)
Re: HTTP_RANGE nobull@mail.com
HTTPS::Cookies apacheproblems@my-deja.com
Re: HTTPS::Cookies <mbjorkman1@qwest.net>
ImageMagick problem on FreeBSD lugmayrm@my-deja.com
Installing a script <bjobern@online.no>
Installing PerlEx fails. (Ted Wart)
Is it possible to WRITE THE GUESTBOOK IN SEVERAL COLUMN <fabian@markisspecialisten.com>
Re: Is it possible to WRITE THE GUESTBOOK IN SEVERAL CO <camerond@mail.uca.edu>
Re: Is it possible to WRITE THE GUESTBOOK IN SEVERAL CO <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Dec 2000 15:17:42 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: %ENV does not contain some variables?
Message-Id: <qe6Z5.488$uF3.35855@eagle.america.net>
On Mon, 11 Dec 2000 09:17:31 GMT, Bart Lateur <bart.lateur@skynet.be>
wrote:
>Dave Brondsema wrote:
>There can be some black magic involved, WRT environment variables.
What do you mean by that?
>Sometimes, these aren't imported from the environment into Perl until
>they're actually needed. Each import takes time, and you may not need
>most of them anyway.
What are you talking about? There is no such mechanism that I know
of. Could you elaborate on this?
>Imagine the whole thing to work through the tie
>mechanism. Look into "perltie" to see how tieing works in Perl.
>
>Access them once individually, and each will be imported the first time
>they're needed.
What does that mean?
>For example, try something like this:
>
> my @dummy = @ENV{qw(SCRIPT_NAME DOCUMENT_ROOT HTTP_COOKIE)};
>
>After that, your looping code should work.
I am at a loss for words!
Other posters have correctly explained that there is a difference
between setting a variable in the shell and setting a variable in the
*environment*. Export the variables into the environment and they
will be available to perl. Don't and they aren't. It doesn't matter
how much time elapses. If an environment variable is not set, there
is no way to coerce it to "show up".
--
Garry Williams
------------------------------
Date: Mon, 11 Dec 2000 14:15:52 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: Anywhere to put my scripts?
Message-Id: <3a38e189.602467154@news.tcn.net>
On Sat, 09 Dec 2000 08:36:31 -0500, H C <carvdawg@patriot.net> wrote:
>duh
My mistake, sorry.
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: Mon, 11 Dec 2000 16:14:17 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Anywhere to put my scripts?
Message-Id: <lav93t0036q7jtsssm324kf7er9ubp3ts3@4ax.com>
Fryar386 wrote:
>Does anyone know of a good place to put my scripts?
On your hard disk, that would be nice. Then you can actually run them,
and still have a copy of them after you switch off your computer.
--
Bart.
------------------------------
Date: Mon, 11 Dec 2000 18:59:00 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Bet you can't guess what this does (spoiler)
Message-Id: <3a3523f4.4995$360@news.op.net>
In article <3a35237b.498b$37c@news.op.net>,
Mark-Jason Dominus <mjd@plover.com> wrote:
> perl -le 'print "$$$"'
This is interpreted as if you had written ${$$}. That is, it uses $$
to get the PID of the current process, say 4391, and then uses that
PID as a symbolic reference to the scalar $4391.
Under 'strict refs' you get the expected error.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Mon, 11 Dec 2000 18:57:00 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Bet you can't guess what this does
Message-Id: <3a35237b.498b$37c@news.op.net>
This code:
perl -le 'print "$"'
produces a fatal error:
Final $ should be \$ or $name at -e line 1, within string
syntax error at -e line 1, near "print "$""
Execution of -e aborted due to compilation errors.
But this doesn't:
perl -le 'print "$$$"'
In fact, it doesn't print anything at all.
Why not?
(Solution in followup article.)
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Mon, 11 Dec 2000 16:10:56 +0200
From: "DanielO" <danielo@laragh.com>
Subject: Can't load 'C:/perl/site/lib/auto/Tk/Event/Event.dll' for module Tk::Event:
Message-Id: <3a34e00f.0@news1.mweb.co.za>
Hi
Can anyone help with this problem. I posted it on the perlTk newsgroup but
got no reply.
I installed the tk package for ActiveState Perl 5.6.0 build 616 on a windows
95 machine.
When I try to run a script that uses tk , I get this error message :
Can't load 'C:/perl/site/lib/auto/Tk/Event/Event.dll' for module
Tk::Event: load_file:
One of the library files needed to run this application cannot be found
at
C:/perl/lib/DynaLoader.pm line 200.
at C:/perl/site/lib/Tk.pm line 13
Compilation failed in require at C:/perl/site/lib/Tk.pm line 13.
BEGIN failed--compilation aborted at C:/perl/site/lib/Tk.pm line 13.
Compilation failed in require at myfirst.pl line 5.
BEGIN failed--compilation aborted at myfirst.pl line 5.
Thanks.
DanielO
------------------------------
Date: Mon, 11 Dec 2000 17:45:40 GMT
From: eggrock@my-deja.com
Subject: Re: combining regexps into one
Message-Id: <9133s2$k15$1@nnrp1.deja.com>
> >while(/href=['|"]?(+)/gi) {
> > $addy = $1;
> >}
>
> Oh puhhlease.
>
> It is nice that you are trying to help, but your "help" has
> multiple problems itself, requiring that someone give yet
> more help to straighten out the mess.
I have no idea what happened when I
hit the Post button.. Don't mean to confuse
anyone. What I really need to do is preview the post before I send it.
:-)
>
> Please be sure that your code will work (which implies that
> it also compiles) before you post it.
>
> If you can't be bothered to test it, don't post it.
>
> Your code does not compile.
Refer to the above.
>
> Your code allows vertical bars as the quote char,
>
> href=|foo.com
>
> will match your pattern (assuming you first fix it so that it
> will compile).
>
> You should find out how character classes work if you want to
> use character classes.
I agree, that part wasn't an accident, it was a mistake on my part. I
was thinking (?:) when I was typing [] - don't ask me why...
>
> >You could play around with $' as well, I don't know if it's more
> ^^ ^^^^
> >efficient than a while loop with /g..
> ^^^^^^^^^
>
> Using $' (or $` or $&) slows down every single pattern match
> throughout your entire program. Mentioning it once can make
> your program 10 times slower.
>
> Mentioning it in connection with efficiency is just plain silly.
Hence the "I don't know if..."
Let me try this again with what I really mean to post...
while(/href=['"]?([a-z_0-9\-\.:\/\#]+)/gi) {
print "$1\n";
}
If you like strict:
/href=['"]?((?:http:\/\/)?(?:[a-z_0-9\-]+\.)+[a-z]{2,4})/gi
That will leave out any #location_in_page parts hyperlinks though.
I think these are better... ;-)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Dec 2000 08:49:34 -0600
From: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Subject: compressed files transparently
Message-Id: <1rk897au81.fsf@video.bsd.uchicago.edu>
I have some email files that are compressed with gzip (GNUS nnml
format / 1 message per file). I would like to use the mail::header
package with these files without unzipping them all the way (since
they can be quite large with attachements, etc...).
I can parse out the header myself with Compress::Zlib and gzreadline, but
I don't know how to get a Mail::Header object, which has these
constructors,
$head = new Mail::Header;
$head = new Mail::Header \*STDIN;
$head = new Mail::Header [<>], Modify => 0;
Notably, I can't initialize it with a string header that I have
obtained independently.
Is there a way to create a file handle to a (possibly) compressed file
which can then be used transparently by other packages, as in
use Transparent::Compress;
my $gz = new Transparent::Compress;
my $handle = $gz->get_gzhandle($filename);
my $header = new Mail::Header $handle;
Thanks,
John Hunter
------------------------------
Date: Mon, 11 Dec 2000 09:25:52 -0800
From: "Steve Bobrowski" <sbobrows@ix.netcom.com>
Subject: Re: DBM File Open Problem
Message-Id: <t3a3f3suvtck79@corp.supernews.com>
Trevor,
Thanks for your notes. I independently hit the jackpot this AM, which
confirms your suspicions.
Here's a little more background on the situation in case anyone else
encounters a similar problem:
* Our DBM files where originally created on a FreeBSD 2.2.8 system, perl is
5.004_04.
* When we moved our website about 9 months ago, we moved to a Linux system
(system and perl version unknown at this point).
* During the transfer, the DBM files were copied to the new Linux system and
our scripts were able to access the DBM files correctly.
* Our new webhost did an upgrade to the Linux host last week. The new system
is Linux 2.2.16-3smp, perl is 5.005_03.
* After the upgrade, our previously functioning scripts failed, leading us
to find that the DBM files were no longer accessible. However, the scripts
functioned correctly if we created new DBM files.
* By moving the DBM files back to the original host, we were able to run the
scripts and access the original DBM files once again.
After doing a bunch of research on this problem, I'm am confused why the
perl version upgrade is causing the problem. It was my understanding from
the perl doc that the AnyDBM_File library was meant to resolve DBM file
compatibility problems when perl is linked with different DBM libraries.
However, my tests proved that this does not appear to be the case, unless
there is some other dependency in the perl build of which I am not aware.
Anyway, the lesson I learned is to ALWAYS HAVE FLAT FILE BACKUPS OF YOUR DBM
FILES.
I hope my problem and solution help someone else who encounters this issue
in the future. -- Thanks to Trevor for his replies, Steve B.
"Trevor Ward" <tward10@jaguar.com> wrote in message
news:91223p$s3u5@eccws12.dearborn.ford.com...
> Here is a little point, If your ISP has upgraded the version of perl then
> you will not be able to access the DBM files, created with a previous perl
> version. I have encountered this on numerous occasions also if you create
> the files on NT and move to Unix you cannot read them.
>
> The only solution I have ever found to this is to write an extract to a
flat
> file from my development system and then reload this into the production
> system.
>
> Saying that the actual reason for this I dont know but would like to.
>
> Steve Bobrowski <sbobrows@ix.netcom.com> wrote in message
> news:t37quanbckav34@corp.supernews.com...
> > Hi,
> >
> > Our webhost recently did some kind of server upgrade that knocked out
all
> of
> > our site's DBM files. Specifically, the working version of our scripts
> > accessed our DBM files with dbmopen, dbmclose. I thought that during
their
> > upgrade, they might have modified the type of DBM implementation
available
> > on the server, so I rewrote the scripts to use tie() with the
AnyDBM_File
> > library, but still cannot access the existing DBM files (or restored
> backups
> > of the files). However, I can create new DBM files and access them just
> fine
> > with both the old and new versions of the scripts.
> >
> > I've been searching around for anyone that has had a similar experience,
> but
> > have not had any luck. Can anyone help?
> >
> > Thanks!
> > Steve B.
> > sbobrows@ix.netcom.com
> >
> >
>
>
------------------------------
Date: Mon, 11 Dec 2000 09:27:43 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Did that but still dont work...
Message-Id: <Pine.GSO.4.21.0012110926420.19179-100000@crusoe.crusoe.net>
On Dec 11, Fabian Thorbj=F6rnsson said:
> @LINES =3D <FILE>;
>
> foreach (@lines) {
You're obviously not using the -w switch to Perl, nor the 'use strict'
pragma. The array is @LINES, not @lines.
--=20
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: 11 Dec 2000 14:51:35 GMT
From: cjw44@flatline.org.uk (Colin Watson)
Subject: Re: Did that but still dont work...
Message-Id: <912pln$otd$1@riva.ucam.org>
Fabian Thorbjörnsson <fabian@markisspecialisten.com> wrote:
>Thank you! I ges I was to tired to see that. Anyway, I changed that but it
>does'nt work anyway.
[snip]
> @LINES = <FILE>;
> foreach (@lines) {
@LINES isn't the same as @lines; Perl is case-sensitive.
By the way, if you had been running under 'perl -w', Perl would have
warned you straight away about both this bug and the one pointed out
further up this thread. You'll save yourself and others a lot of time by
getting into this habit now.
--
Colin Watson [cjw44@flatline.org.uk]
"People will be free to devote themselves to activities that are fun,
such as programming, after spending the necessary ten hours a week on
... robot repair and asteroid prospecting." - The GNU Manifesto
------------------------------
Date: Mon, 11 Dec 2000 09:29:47 -0500
From: "Steven Scott" <bodoni26@resnet.gatech.edu>
Subject: Re: directory monitoring
Message-Id: <912ocs$rdg$1@news-int.gatech.edu>
> Unless you tell us under which OS you want to do this, it's hard to tell.
> But since you're referring to kde, I assume it's some kind of Un*x
derivative.
> No, Un*x does not have a means of sending an asynchronous message to a
> process that the contents of a file or directory has changed. What you
> can do is to monitor the directory's inode (by using stat) and
> periodically checking for changes in the mtime.
yeah I'm running linux
I just did a "man 2 stat" and found this:
Traditionally, st_mtime is changed by mknod(2), utime(2),
and write(2). The st_mtime is not changed for changes in
owner, group, hard link count, or mode.
So that says to me that the mtime is definately changed when a file is
created or changed, but what about deleted? or, since this is the mtime of
the directory, would the mtime be changed if a file was changed, and kept
the same length?
I guess this is getting away from Perl....thanks for your help though.
--
Steven Scott [imnotgoth@progoth.com]
"...computer technicians spent huge portions of their youth heavily
steeped in Lego and its highly focused, solitude-promoting culture.
Lego was their common denominator toy." --Douglas Coupland
------------------------------
Date: Mon, 11 Dec 2000 09:56:52 -0500
From: "Steven Scott" <bodoni26@resnet.gatech.edu>
Subject: Re: directory monitoring
Message-Id: <912pvl$rti$1@news-int.gatech.edu>
>No, Un*x does not have a means of sending an asynchronous message to a
>process that the contents of a file or directory has changed. What you
>can do is to monitor the directory's inode (by using stat) and
>periodically checking for changes in the mtime.
so since the directory's mtime doesn't change when a file changes (I just
played around with it a bit), there's really not a way to do this without
checking each file individually, is there?
--
Steven Scott [imnotgoth@progoth.com]
"...computer technicians spent huge portions of their youth heavily
steeped in Lego and its highly focused, solitude-promoting culture.
Lego was their common denominator toy." --Douglas Coupland
------------------------------
Date: Mon, 11 Dec 2000 15:33:45 +0100
From: "Sven Franke" <s.franke@unwired.nl>
Subject: fileupload with CGI
Message-Id: <912onp$2um$1@enterprise.cistron.net>
Hi,
I want to use the fileupload, but I can't get it work.
If I'm correct, this would do the trick:
$q = new CGI;
$q->upload("Filename");
but what then?
I want to do some translations with the file and then store it as a .txt
file.
Can someone help me?
Sven.
------------------------------
Date: Mon, 11 Dec 2000 15:18:13 GMT
From: Hardy Merrill <hmerrill@my-deja.com>
Subject: Re: fileupload with CGI
Message-Id: <912r7d$c6u$1@nnrp1.deja.com>
In article <912onp$2um$1@enterprise.cistron.net>,
"Sven Franke" <s.franke@unwired.nl> wrote:
> Hi,
>
> I want to use the fileupload, but I can't get it work.
>
> If I'm correct, this would do the trick:
> $q = new CGI;
> $q->upload("Filename");
>
> but what then?
> I want to do some translations with the file and then store it as a
.txt
> file.
>
> Can someone help me?
>
> Sven.
>
>
I assume that you're using CGI.pm to do the file upload - to see some
documentation on how to use CGI.pm for file uploads, do
perldoc CGI
and search for "upload" - you'll see a whole section entitled "CREATING
A FILE UPLOAD FIELD".
HTH.
--
Hardy Merrill
Mission Critical Linux, Inc.
http://www.missioncriticallinux.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 17:43:39 +0100
From: "Sven Franke" <s.franke@unwired.nl>
Subject: Re: fileupload with CGI
Message-Id: <91301v$d5n$1@enterprise.cistron.net>
Hardy Merrill <hmerrill@my-deja.com> schreef in berichtnieuws
912r7d$c6u$1@nnrp1.deja.com...
> In article <912onp$2um$1@enterprise.cistron.net>,
> "Sven Franke" <s.franke@unwired.nl> wrote:
> > Hi,
> >
> > I want to use the fileupload, but I can't get it work.
> >
> > If I'm correct, this would do the trick:
> > $q = new CGI;
> > $q->upload("Filename");
> >
> > but what then?
> > I want to do some translations with the file and then store it as a
> .txt
> > file.
> >
> > Can someone help me?
> >
> > Sven.
> >
> >
>
> I assume that you're using CGI.pm to do the file upload - to see some
> documentation on how to use CGI.pm for file uploads, do
>
> perldoc CGI
>
> and search for "upload" - you'll see a whole section entitled "CREATING
> A FILE UPLOAD FIELD".
>
> HTH.
> --
> Hardy Merrill
> Mission Critical Linux, Inc.
> http://www.missioncriticallinux.com
>
Yeah, I know. I've already tried that one. I can't seem to make it work. Is
there another solution???
Sven
------------------------------
Date: 11 Dec 2000 17:50:11 +0000
From: nobull@mail.com
Subject: Re: fileupload with CGI
Message-Id: <u9itoq6e5o.fsf@wcl-l.bham.ac.uk>
"Sven Franke" <s.franke@unwired.nl> writes:
> Hardy Merrill <hmerrill@my-deja.com> schreef in berichtnieuws
> 912r7d$c6u$1@nnrp1.deja.com...
> > In article <912onp$2um$1@enterprise.cistron.net>,
> > "Sven Franke" <s.franke@unwired.nl> wrote:
> > > I want to use the fileupload, but I can't get it work.
> > >
> > > If I'm correct, this would do the trick:
> > > $q = new CGI;
> > > $q->upload("Filename");
Well sort of, you'd have to do something with the return value from upload().
> > I assume that you're using CGI.pm to do the file upload - to see some
> > documentation on how to use CGI.pm for file uploads, do
> >
> > perldoc CGI
> >
> > and search for "upload" - you'll see a whole section entitled "CREATING
> > A FILE UPLOAD FIELD".
> Yeah, I know. I've already tried that one. I can't seem to make it work.
Can you show us? Generate a small, strict, warning-free,
self-contained script that you think should work but doesn't. How are
we expected to guess what part of the manual you've failed to
understand properly.
> Is there another solution???
There is always another solution but using CGI.pm is by far the easiest.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 11 Dec 2000 17:51:56 +0000
From: =?iso-8859-1?Q?Fran=E7ois?= Breuiller <francois@idylic.com>
Subject: GD::Graph
Message-Id: <3A35143C.8A14BF42@idylic.com>
Hello,
I would like to know how set a grid in a graph ...
Is there a possibility with GD::Graph ?
Thanks in advance
Francois
------------------------------
Date: 11 Dec 2000 16:50:54 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: How can I access seconds since the epoch?
Message-Id: <9130le$f71$1@pegasus.csx.cam.ac.uk>
LimboStar <dontspamme@awdang.com> wrote:
>"Stan Brown" <stanb@panix.com> wrote...
>>
>> Question is, how can I easily obtain this value in perl?
>
>time() returns the time in seconds since the epoch.
It's also worth mentioning that the epoch time when the the job started
is storted in $^T (see perlvar). So Perl has done half the job for
you already;
printf "Job running time %s seconds\n", time - $^T;
Mike Guy
------------------------------
Date: 11 Dec 2000 18:06:17 +0000
From: nobull@mail.com
Subject: Re: HTTP_RANGE
Message-Id: <u9u28a6exm.fsf@wcl-l.bham.ac.uk>
"EM" <me@privacy.net> writes:
> My question is what http header do i sent to tell it that the script can
> support resume?
At a guess I'd say Accept-Range, Etag and Last-Modified.
Why do you think this has anything to do with Perl?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 11 Dec 2000 17:27:32 GMT
From: apacheproblems@my-deja.com
Subject: HTTPS::Cookies
Message-Id: <9132pq$j1k$1@nnrp1.deja.com>
I am trying to obtain the following libraries for the following:
use LWP::UserAgent;
use HTTPS::Cookies;
$ua = new LWP::UserAgent;
$ua->cookie_jar(new HTTPS::Cookies);
$req = new HTTPS::Request 'GET', 'https://www.company.com';
As I have a piece of code (as shown) that uses the above libraries. I
currently have donwloaded and installed Crypt-SSLeay-0.17 and libwww
but there seems to be another piece missing. WHich modules do I need to
dowload? I can't seem to find HTTPS module in CPAN.
Can anybody help please.
thanks
-a
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 10:38:20 -0800
From: "Ice Demon" <mbjorkman1@qwest.net>
Subject: Re: HTTPS::Cookies
Message-Id: <tg9Z5.290$Jd7.230240@news.uswest.net>
<apacheproblems@my-deja.com> wrote in message
news:9132pq$j1k$1@nnrp1.deja.com...
|
|
| I am trying to obtain the following libraries for the following:
|
| use LWP::UserAgent;
| use HTTPS::Cookies;
|
| $ua = new LWP::UserAgent;
| $ua->cookie_jar(new HTTPS::Cookies);
|
| $req = new HTTPS::Request 'GET', 'https://www.company.com';
|
|
| As I have a piece of code (as shown) that uses the above libraries. I
| currently have donwloaded and installed Crypt-SSLeay-0.17 and libwww
| but there seems to be another piece missing. WHich modules do I need to
| dowload? I can't seem to find HTTPS module in CPAN.
|
| Can anybody help please.
|
| thanks
|
| -a
I might be mistaken, but there is no HTTPS module. You just need to have the
'Bundle::LWP'
http://search.cpan.org/search?dist=libwww-perl
installed and that should give you everything you need. If you go to
http://search.cpan.org/doc/GAAS/libwww-perl-5.48/lwpcook.pod
It'll tell you how to access a secure server (the only difference is in the
url, you use https instead of just http). It also tells you how to use
cookies in case the server you are using it on needs cookies to get access
to what you need on the server. You are going to need to tell the perl
script where to store the cookies on your server. You might have to also
tell the perl script when to send the cookie back to the server (it's been
awhile since I've done this with cookies so I'm not sure on that). There
more info on the using cookies with LWP at
http://search.cpan.org/doc/GAAS/libwww-perl-5.48/lib/HTTP/Cookies.pm
Ice Demon
http://erotic-games.com
http://gracegrimes.com
------------------------------
Date: Mon, 11 Dec 2000 16:06:42 GMT
From: lugmayrm@my-deja.com
Subject: ImageMagick problem on FreeBSD
Message-Id: <912u2c$er4$1@nnrp1.deja.com>
Hello,
i finally got perlmagick installed - as far as i can say it compiled. I
dont have root access at my ISP so i configured it to have magick libs
on my user account.
it compiles ok no problems, but when i run a cgi scrpipt which uses
magick i get the following error:
Can't load '/usr/home/lugmayrm/public_html/lib/site_perl/5.6.0/i386-
freebsd/auto
/Image/Magick/Magick.so' for module Image::Magick: Undefined
symbol "_GetOnePixe
l" in perl:/usr/home/lugmayrm/public_html/lib/site_perl/5.6.0/i386-
freebsd/auto/
Image/Magick/Magick.so at /usr/local/lib/perl5/5.6.0/i386-
freebsd/DynaLoader.pm
line 200.
at index.cgi line 26
Compilation failed in require at index.cgi line 26.
BEGIN failed--compilation aborted at index.cgi line 26.
do you have an idea how to fix that ?
has anybody got imagemagick to run on FreeBSD on a local user account ?
thanks for the help.
luigi
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 15:35:50 +0100
From: "Bjørnar Berntsen" <bjobern@online.no>
Subject: Installing a script
Message-Id: <_D5Z5.1283$pj.37391@news1.oke.nextra.no>
I need to get in contact whit somebody who can install Authentication 5.2
one my domain. I can´t pay any money for it, so i hope someone is kind and
help me.
bjb
--
Bjørnar Berntsen
E-mail
bjobern@online.no
------------------------------
Date: Mon, 11 Dec 2000 19:00:40 GMT
From: t_wart@hotmail.com (Ted Wart)
Subject: Installing PerlEx fails.
Message-Id: <3a351ba2.67339200@netnews.worldnet.att.net>
Hi,
I'm trying to install PerlEx from ActiveState. My host is NT4.0 Sp6a.
When I try to install the program fails with the message that IIS,
Netscape, or the O'Reilly web server needs to be installed. I have
IIS installed but not running at boot time..instead I boot up with
Apache. Stopping Apache and starting IIS at boot does not get me farther
along in the installation. Anyone seen this behaviour before? TIA.
---------------------------------------------------------
Ted Wart t_wart@hotmail.com
Government Tech. Support/AUAAC - Austin-818 extention 121
---------------------------------------------------------
------------------------------
Date: Mon, 11 Dec 2000 14:32:30 GMT
From: "Fabian Thorbjörnsson" <fabian@markisspecialisten.com>
Subject: Is it possible to WRITE THE GUESTBOOK IN SEVERAL COLUMNS?
Message-Id: <2A5Z5.3425$Kd1.388298@newsb.telia.net>
I want it to write like this:
VISITOR1 VISITOR2 VISITOR3
VISITOR4 VISITOR5 VISITOR6 ...
Happy for any help
Fabian
#This is the script:
if ( $FORM{'post'} && $linkmail ) {
open (FILE,"+< $guestbookreal") || die "Can't Open $guestbookreal:
$!\n";
flock FILE,2; # lock file during modification
seek FILE,0,0;
@LINES = <FILE>;
seek FILE,0,0;
truncate FILE,0;
foreach (@LINES) {
if (/<!--begin-->/) {
print FILE "<!--begin-->\n" if $entry_order;
print FILE "$FORM{'foretag'}<br>$FORM{'realname'}<br>",
"$FORM{'adress'}<br>$FORM{'post'}<br><br>" ;
print FILE "<!--begin-->\n" unless $entry_order;
} else {
print FILE $_;
}
}
close FILE;
}
------------------------------
Date: Mon, 11 Dec 2000 12:05:49 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Is it possible to WRITE THE GUESTBOOK IN SEVERAL COLUMNS?
Message-Id: <3A35177C.C673440C@mail.uca.edu>
"Fabian Thorbjörnsson" wrote:
>
> I want it to write like this:
> VISITOR1 VISITOR2 VISITOR3
> VISITOR4 VISITOR5 VISITOR6 ...
>
> Happy for any help
> Fabian
Yes.
You can write just about anything you want using print "......" just
like you did in the script I snipped out. Since this is all the Perl
content in your question, I'll stop here and let you find out about the
HTML you need in an appropriate newsgroup.
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: Mon, 11 Dec 2000 18:46:50 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Is it possible to WRITE THE GUESTBOOK IN SEVERAL COLUMNS?
Message-Id: <9o7a3tcel71a7jdqnuvilsgn9t5oqdsqa9@4ax.com>
Fabian Thorbjörnsson wrote:
>I want it to write like this:
>VISITOR1 VISITOR2 VISITOR3
>VISITOR4 VISITOR5 VISITOR6 ...
I'll get you on your way. Maybe.
@data = qw(one two three four five six seven eight nine ten);
print "<html><body><table align=center width=\"80%\"
border=1>\n";
%escape = ( '&' => '&', '<' => '<', '>' => '>');
while(@row = splice @data, 0, 3) {
$#row = 2;
print "<tr>\n";
foreach(@row) {
defined or $_ = '';
s/([&<>])/$escape{$1}/g;
length or $_ = ' ';
print "<td>$_</td>\n";
}
print "</tr>\n";
}
print "</table><html>\n";
--
Bart.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 5081
**************************************
