[17822] in Perl-Users-Digest
Perl-Users Digest, Issue: 5242 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 4 20:36:43 2001
Date: Thu, 4 Jan 2001 17:36:22 -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: <978658582-v9-i5242@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 4 Jan 2001 Volume: 9 Number: 5242
Today's topics:
Perldoc not working <don@lclcan.com>
Re: Perldoc not working <joe+usenet@sunstarsys.com>
Re: Perldoc not working (Tad McClellan)
Re: Perldoc not working msalerno@my-deja.com
Re: Perldoc not working (Colin Watson)
Re: Perldoc not working <mjcarman@home.com>
Re: Perldoc not working <garryknight@bigfoot.com>
Re: Perldoc not working <bart.lateur@skynet.be>
PERLLIB,PERL5LIB - How to unset inside perl script? <ekulis@apple.com>
Re: PERLLIB,PERL5LIB - How to unset inside perl script? <bart.lateur@skynet.be>
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Garry Williams)
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Martien Verbruggen)
Re: PERLLIB,PERL5LIB - How to unset inside perl script? <bart.lateur@skynet.be>
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Abigail)
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Martien Verbruggen)
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Abigail)
Re: PERLLIB,PERL5LIB - How to unset inside perl script? (Martien Verbruggen)
PerlScript / GD and ASP's <simon.plant@eu.citrix.com>
Photo Archive Script <ofirb1@netvision.net.il>
Re: Photo Archive Script (Abigail)
Re: Photo Archive Script (Steven Smolinski)
Re: Photo Archive Script (Abigail)
Re: Piping output from one script into another <mischief@velma.motion.net>
Re: Piping output from one script into another <nospam@nospam.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 03 Jan 2001 15:29:17 -0500
From: Don <don@lclcan.com>
Subject: Perldoc not working
Message-Id: <3A538B9D.6A97B2C5@lclcan.com>
When I log in as root and attempt to run "perldoc <some module>", I get
the following error message:
Superuser must not run /usr/bin/perldoc without security audit and taint
checks.
What does the above mean and how do I rectify?
------------------------------
Date: 03 Jan 2001 15:41:31 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Perldoc not working
Message-Id: <m3d7e45pxg.fsf@mumonkan.sunstarsys.com>
Don <don@lclcan.com> writes:
> When I log in as root and attempt to run "perldoc <some module>", I get
> the following error message:
>
> Superuser must not run /usr/bin/perldoc without security audit and taint
> checks.
>
> What does the above mean and how do I rectify?
It means you need to read the man pages for your perldoc
(perl version 5.6):
% man perldoc
...
-U run insecurely
Because perldoc does not run properly tainted, and is
known to have security issues, it will not normally
execute as the superuser. If you use the -U flag, it
will do so, but only after setting the effective and
real IDs to nobody's or nouser's account, or -2 if
unavailable. If it cannot relinguish its privileges,
it will not run.
...
--
Joe Schaefer
------------------------------
Date: Wed, 3 Jan 2001 13:56:34 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perldoc not working
Message-Id: <slrn956tf2.k1v.tadmc@magna.metronet.com>
Don <don@lclcan.com> wrote:
>When I log in as root and attempt to run "perldoc <some module>"
^^^^^^^^^^^^^^
You are playing fast and loose with the authority that has
been given to you. You should not have even tried what you tried.
>how do I rectify?
Do not do things as root unless they _require_ root.
You are not required to be root to use perldoc.
Login as a normal user.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 03 Jan 2001 20:54:03 GMT
From: msalerno@my-deja.com
Subject: Re: Perldoc not working
Message-Id: <9303h6$o0e$1@nnrp1.deja.com>
In article <3A538B9D.6A97B2C5@lclcan.com>,
Don <don@lclcan.com> wrote:
> When I log in as root and attempt to run "perldoc <some module>", I
get
> the following error message:
>
> Superuser must not run /usr/bin/perldoc without security audit and
taint
> checks.
>
> What does the above mean and how do I rectify?
>
>
Solution:
1. SECURITY: Don't run perldoc as root ! There is no need.
2. If you really need to use perldoc as root, then log in as root, open
netscape and go to http://www.perldoc.com.
I probably don't have to write this but, you should only log in as root
when you have to.
Matt
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 3 Jan 2001 21:18:14 GMT
From: cjw44@flatline.org.uk (Colin Watson)
Subject: Re: Perldoc not working
Message-Id: <9304um$sm8$1@riva.ucam.org>
msalerno@my-deja.com wrote:
>2. If you really need to use perldoc as root, then log in as root, open
>netscape and go to http://www.perldoc.com.
Hmm. I think I'd far rather use perldoc as root than Netscape!
--
Colin Watson [cjw44@flatline.org.uk]
"This is the only networking technology
that earns frequent flyer miles." - RFC 2549
------------------------------
Date: Wed, 03 Jan 2001 15:22:47 -0600
From: Michael Carman <mjcarman@home.com>
Subject: Re: Perldoc not working
Message-Id: <3A539827.188B7ED8@home.com>
Don wrote:
>
> When I log in as root and attempt to run "perldoc <some module>",
> I get the following error message:
>
> Superuser must not run /usr/bin/perldoc without security audit
> and taint checks.
>
> What does the above mean and how do I rectify?
It means you shouldn't run perldoc as root because it has security
holes. I don't personally know what they are; Tom C. could tell you if
he reads this thread. He's been working a "next generation" tool to
replace it.
The solution is simple: don't use a privileged account when running
perldoc. (You shouldn't really be logged in as root unless you're doing
sysadmin stuff anyway...)
-mjc
------------------------------
Date: Thu, 04 Jan 2001 00:30:47 +0000
From: "Garry Knight" <garryknight@bigfoot.com>
Subject: Re: Perldoc not working
Message-Id: <930g7n$ctm$1@taliesin.netcom.net.uk>
In article <m3d7e45pxg.fsf@mumonkan.sunstarsys.com> "Joe Schaefer"
<joe+usenet@sunstarsys.com> wrote:
> % man perldoc
> ...
> -U run insecurely
> Because perldoc does not run properly tainted, and is
> known to have security issues, it will not normally
> execute as the superuser. If you use the -U flag, it will
> do so, but only after setting the effective and real IDs
> to nobody's or nouser's account, or -2 if unavailable. If
> it cannot relinguish its privileges, it will not run.
s/g/q/ && /relinguish/;
--
Garry Knight
garryknight@bigfoot.com
------------------------------
Date: Thu, 04 Jan 2001 10:08:23 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Perldoc not working
Message-Id: <5ei85tcke1sgm53efe77bfct1v6od9ip8n@4ax.com>
msalerno@my-deja.com wrote:
>In article <3A538B9D.6A97B2C5@lclcan.com>,
> Don <don@lclcan.com> wrote:
>
>> When I log in as root and attempt to run "perldoc <some module>", I get
>> the following error message:
>>
>> Superuser must not run /usr/bin/perldoc without security audit and taint
>> checks.
>>
>> What does the above mean and how do I rectify?
You must be running your own box, because no sysadmain in his right mind
would let you do it. Please learn some good habits, such as logging in
as yourself, and only switching to root (su, and then enter the root
password) when necessary; do exit when you're done.
>Solution:
> SECURITY: Don't run perldoc as root ! There is no need.
Too true.
Why don't you simply open two terminals? One for perldoc, as plain user,
and one as root?
On FreeBSD, you have by standard the option to switch between 8 virtual
consoles, simply by pressing Alt + F1 through F8. And that is simply at
the plain text console.
--
Bart.
------------------------------
Date: Tue, 02 Jan 2001 12:47:00 -0800
From: Ed Kulis <ekulis@apple.com>
Subject: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <3A523E43.66AC53E0@apple.com>
Hi,
I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
don't get the library mismatch error below.
>name_split.pl
Perl lib version (5.003) doesn't match executable version (5.006)
Compilation failed in require at
/home/vantive7/perl_dir/lib/diagnostics.pm line 5.
BEGIN failed--compilation aborted at
/home/vantive7/perl_dir/lib/diagnostics.pm line 5.
Compilation failed in require at name_split.pl line 42.
BEGIN failed--compilation aborted at name_split.pl line 42.
Our Unix environment is a little wild and I can't trust environment
variables, and I've written Korn shell defender scripts that unset all
non standard Korn shell variables so the environment completely
understood.
So, my problem is solved for Korn shell.
I'd like to run perl scripts without necessarily calling them from a ksh
wrapper.
I've tried 'no lib ' and I've tried deleting paths from @INC but it
seems that the perl script detects the library mismatch at the very
beggining of execution.
I did find the the -T (taint) option did unset the external lib
variables. It's not practical for me to use the -T option because, I'm
training other developers in their first use of perl and they're just
not ready for the rigor of secure programming.
I also don't want to set the libraries explicitly. I want to rely on the
default locations of the libraries implicit from the shebang
#!/usr/local/bin/perl
You might think that I could just unset PERLLIB,PERL5LIB but I'm afraid
that it's not that simple. As we rollout code it ends up in
environments where there are many people trying to "help" by presetting
various variables.
-ed
------------------------------
Date: Tue, 02 Jan 2001 23:22:54 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <6go45t0ae7mgqjni8fm5g38u7dbmg7i7m5@4ax.com>
Ed Kulis wrote:
>I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
>don't get the library mismatch error below.
BEGIN {
delete @ENV{qw(PERLLIB PERL5LIB)}
}
If this does help (one never can be sure...) you could stuff it into a
tiny module (you don't need a separate package, import() or even the
BEGIN block; but you do need a true value at the end) and require it,
maybe even through the commandline:
use NoPerlLib;
or
perl script.pl -MNoPerlLib
I'm sure some purist will object about the language...
--
Bart.
------------------------------
Date: Wed, 03 Jan 2001 00:21:17 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <1gu46.1064$Dm5.30848@eagle.america.net>
On Tue, 02 Jan 2001 23:22:54 GMT, Bart Lateur <bart.lateur@skynet.be>
wrote:
>Ed Kulis wrote:
>
>>I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
>>don't get the library mismatch error below.
>
> BEGIN {
> delete @ENV{qw(PERLLIB PERL5LIB)}
> }
Bzzzt.
[ lines wrapped for posting ]
$ PERL5LIB=some/directory perl \
-wle 'BEGIN{delete @ENV{qw(PERLLIB PERL5LIB)}} print "@INC"'
some/directory /usr/local/lib/perl5/5.6.0/sun4-solaris
/usr/local/lib/perl5/5.6.0
/usr/local/lib/perl5/site_perl/5.6.0/sun4-solaris
/usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/perl5/site_perl .
$
>If this does help (one never can be sure...)
Oh, yes one can...
--
Garry Williams
------------------------------
Date: Wed, 3 Jan 2001 13:07:58 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <slrn9552bu.edk.mgjv@martien.heliotrope.home>
On Tue, 02 Jan 2001 12:47:00 -0800,
Ed Kulis <ekulis@apple.com> wrote:
>
> I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
> don't get the library mismatch error below.
First of all: I would get rid of those environment variables from the
user's environment, and clean up the environment on your machine. Perl
has the lib pragma to do exactly the opposite of what you're doing.
Maybe you should have a global module that you include in all your
scripts, in which you put the correct 'use lib' lines, or even better,
clean up your perl installations. I run 4 different versions on this
machine, without any problems, use lib lines, or environment variables.
That said:
You could use the lib mpragma, if $ENV{PERL5LIB} only contains one
pathname:
[Lines wrapped for legibility in the following]
$ PERL5LIB=/some/directory; export PERL5LIB
$ perl -wle 'print "@INC"'
/some/directory /opt/perl/lib/5.6.0/i686-linux /opt/perl/lib/5.6.0
/opt/perl/lib/site_perl/5.6.0/i686-linux /opt/perl/lib/site_perl/5.6.0
/opt/perl/lib/site_perl/5.005/i686-linux /opt/perl/lib/site_perl/5.005
/opt/perl/lib/site_perl .
$ perl -wle 'no lib $ENV{PERL5LIB}; print "@INC"'
/opt/perl/lib/5.6.0/i686-linux /opt/perl/lib/5.6.0
/opt/perl/lib/site_perl/5.6.0/i686-linux /opt/perl/lib/site_perl/5.6.0
/opt/perl/lib/site_perl/5.005/i686-linux /opt/perl/lib/site_perl/5.005
/opt/perl/lib/site_perl .
If you have more than one directory in your PERL5LIB, you'll have to
split on ':' and loop, and delete the occurences from @INC yourself:
#!/usr/local/bin/perl -wl
use strict;
use lib; # only needed for the @lib::ORIG_INC variable
BEGIN
{
for my $e (split /:/, $ENV{PERL5LIB})
{
for (my $i = 0; $i < @INC; $i++)
{
splice @INC, $i, 1 if $e eq $INC[$i];
}
}
}
print "@INC\n";
print "@lib::ORIG_INC";
Of course, this last one will also work when there's only one pathname
in PERL5LIB.
To make this more portable, you might need to insert some OS detection
to figure out what the correct character is to split on. On unices, this
is a colon, on other platforms, it may be something else. The
documentation in perlrun states that the separator is always a colon,
but this would make it impossible on DOS-derivatives, VMS and Mac to use
fully qualified pathnames, since the colon is used on those platforms as
part of a fully qualified path.
The perlvms documentation states that the separator is '|'. The
perlwin32 documentation states that it is ';', and I suspect it's the
same on os/2. I don't know what it is on Mac, or whether it exists at
all.
Something like (untested):
unless ($OS = $^O)
{
require Config;
$OS = $Config::Config{'os_name'};
}
for ($OS)
{
/^MS(DOS|Win)/i && do { $sep = ';'; last };
/^OS2/i && do { $sep = ';'; last };
/^VMS/i && do { $sep = '|'; last };
/^MacOS/i && do { $sep = "\0"; last }; # Just guessing
# default
$sep = ':'
}
You may need to insert others. I don't really know.
Now you can split (see above) on $sep:
for my $e (split /\Q$sep/, $ENV{PERL5LIB})
Martien
--
Martien Verbruggen |
Interactive Media Division | Little girls, like butterflies, need
Commercial Dynamics Pty. Ltd. | no excuse - Lazarus Long
NSW, Australia |
------------------------------
Date: Wed, 03 Jan 2001 14:11:32 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <sic65tckhnj8suq2hfank8669ogodg5nu5@4ax.com>
Martien Verbruggen wrote:
>$ perl -wle 'no lib $ENV{PERL5LIB}; print "@INC"'
Assuming this works, what about the case where PERL5LIB point to a
directory which is *standard* for searching, for example, the site/lib
or even the standard lib directory? Oops, there go all the standard
modules.
Disallowing PERL5LIB to be set, looks like a better solution to me.
Tell you what, why don't you (generic "you" that one) run all perl
scripts with the -T option. That one makes perl ignore the PERL5LIB and
PERLLIB settings. Amlongst others. See perlrun.
--
Bart.
------------------------------
Date: 3 Jan 2001 14:20:23 GMT
From: abigail@foad.org (Abigail)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <slrn956d97.f94.abigail@tsathoggua.rlyeh.net>
Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMDCLXXXII
September MCMXCIII in <URL:news:slrn9552bu.edk.mgjv@martien.heliotrope.home>:
`' On Tue, 02 Jan 2001 12:47:00 -0800,
`' Ed Kulis <ekulis@apple.com> wrote:
`' >
`' > I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
`' > don't get the library mismatch error below.
`'
`' First of all: I would get rid of those environment variables from the
`' user's environment, and clean up the environment on your machine. Perl
`' has the lib pragma to do exactly the opposite of what you're doing.
`' Maybe you should have a global module that you include in all your
`' scripts, in which you put the correct 'use lib' lines, or even better,
`' clean up your perl installations. I run 4 different versions on this
`' machine, without any problems, use lib lines, or environment variables.
Well, the lib pragma does its own opposite: no lib LIST;
`' BEGIN
`' {
`' for my $e (split /:/, $ENV{PERL5LIB})
`' {
`' for (my $i = 0; $i < @INC; $i++)
`' {
`' splice @INC, $i, 1 if $e eq $INC[$i];
`' }
`' }
`' }
Eeew. That's a three nested loops (splice needs to loop too).
BEGIN {
my %h = map {$_ => 1} split /:/ => $ENV {PERL5LIB};
@INC = grep {!$h {$_}} @INC;
}
No nested loops.
Abigail
--
:$:=~s:$":Just$&another$&:;$:=~s:
:Perl$"Hacker$&:;chop$:;print$:#:
------------------------------
Date: Thu, 4 Jan 2001 09:17:54 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <slrn95798i.edk.mgjv@martien.heliotrope.home>
On 3 Jan 2001 14:20:23 GMT,
Abigail <abigail@foad.org> wrote:
> Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMDCLXXXII
> September MCMXCIII in <URL:news:slrn9552bu.edk.mgjv@martien.heliotrope.home>:
> `' On Tue, 02 Jan 2001 12:47:00 -0800,
> `' Ed Kulis <ekulis@apple.com> wrote:
> `' >
> `' > I'd like to unset PERLLIB and PERL5LIB within the perl script so that I
> `' > don't get the library mismatch error below.
> `'
> `' First of all: I would get rid of those environment variables from the
> `' user's environment, and clean up the environment on your machine. Perl
> `' has the lib pragma to do exactly the opposite of what you're doing.
> `' Maybe you should have a global module that you include in all your
> `' scripts, in which you put the correct 'use lib' lines, or even better,
> `' clean up your perl installations. I run 4 different versions on this
> `' machine, without any problems, use lib lines, or environment variables.
>
> Well, the lib pragma does its own opposite: no lib LIST;
Euhmm, you did see my example of doing this with 'no lib' later on in
the article, right? I just was trying to say that I find it odd to first
add stuff to your environment, and then to have to jump through hoops to
remove it again. I'd rather not add it to the environment in the first
place, and include specific instructions in the programs that do need
them, as opposed to adding instructions to the programs that don't need
them. It just seems so... the wrong way around.
> `' BEGIN
> `' {
> `' for my $e (split /:/, $ENV{PERL5LIB})
> `' {
> `' for (my $i = 0; $i < @INC; $i++)
> `' {
> `' splice @INC, $i, 1 if $e eq $INC[$i];
> `' }
> `' }
> `' }
>
> Eeew. That's a three nested loops (splice needs to loop too).
>
> BEGIN {
> my %h = map {$_ => 1} split /:/ => $ENV {PERL5LIB};
> @INC = grep {!$h {$_}} @INC;
> }
>
> No nested loops.
Yep. I thought when I posted it that I should clean it up, but then I
couldn't be bothered anymore :).
Martien
--
Martien Verbruggen |
Interactive Media Division | I took an IQ test and the results
Commercial Dynamics Pty. Ltd. | were negative.
NSW, Australia |
------------------------------
Date: 4 Jan 2001 00:48:48 GMT
From: abigail@foad.org (Abigail)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <slrn957i3g.5lq.abigail@tsathoggua.rlyeh.net>
Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMDCLXXXII
September MCMXCIII in <URL:news:slrn95798i.edk.mgjv@martien.heliotrope.home>:
)) On 3 Jan 2001 14:20:23 GMT,
)) Abigail <abigail@foad.org> wrote:
)) >
)) > Well, the lib pragma does its own opposite: no lib LIST;
))
)) Euhmm, you did see my example of doing this with 'no lib' later on in
)) the article, right?
Eh, no, I had to go back to spot the example (inserting a blank line
between different programs isn't a waste of bandwidth).
However, the BEGIN segment isn't necessary to remove multiple directories
from a $PERL5LIB environment variable.
no lib split /:/ => $ENV {PERL5LIB};
works fine.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54" and s/<<EOT/<<EOT/e and print;
Just another Perl Hacker
EOT
------------------------------
Date: Thu, 4 Jan 2001 19:20:42 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: PERLLIB,PERL5LIB - How to unset inside perl script?
Message-Id: <slrn958ciq.edk.mgjv@martien.heliotrope.home>
On 4 Jan 2001 00:48:48 GMT,
Abigail <abigail@foad.org> wrote:
> Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMDCLXXXII
> September MCMXCIII in <URL:news:slrn95798i.edk.mgjv@martien.heliotrope.home>:
> )) On 3 Jan 2001 14:20:23 GMT,
> )) Abigail <abigail@foad.org> wrote:
> )) >
> )) > Well, the lib pragma does its own opposite: no lib LIST;
> ))
> )) Euhmm, you did see my example of doing this with 'no lib' later on in
> )) the article, right?
>
> Eh, no, I had to go back to spot the example (inserting a blank line
> between different programs isn't a waste of bandwidth).
Nope, you're right, but I just pasted what I had in another xterm.
> However, the BEGIN segment isn't necessary to remove multiple directories
> from a $PERL5LIB environment variable.
>
> no lib split /:/ => $ENV {PERL5LIB};
>
> works fine.
Hmmm.. you're right. I tried
BEGIN { no lib $_ for split /:/, $ENV{PERL5LIB} }
which doesn't work, and then gave up. Just need to be more persistent.
Martien
--
Martien Verbruggen |
Interactive Media Division | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Wed, 3 Jan 2001 10:06:59 -0000
From: "Simon Plant" <simon.plant@eu.citrix.com>
Subject: PerlScript / GD and ASP's
Message-Id: <978516177.178300@proxy1.ctxuk.citrix.com>
Guys,
Any chance anyone knows why this code doesn't work :-(
<% @LANGUAGE="PerlScript" %>
<%
use GD;
$Response->{ContentType} = "image/jpeg";
$image = new GD::Image(100,38);
$red = $image->colorAllocate(255,0,0);
$image->filledRectangle(0,0,100,38,$red);
$Response->BinaryWrite($image->jpeg);
%>
when used like this in another asp...
<img src="<% $Server->Execute("createbar.asp");%>">
Active perl 5.6 build620 on Win2K Server with IIS 5
Cheers
Si
------------------------------
Date: Sun, 31 Dec 2000 22:28:36 +0200
From: "biG" <ofirb1@netvision.net.il>
Subject: Photo Archive Script
Message-Id: <92o4vo$bk9$1@news.netvision.net.il>
Hi all,
What is the similar CGI script (if any), to a searchable photo archive?
I don't mean those "Galleries", but rather the Altavista style, or the one
in the following url:
http://ram1.huji.ac.il:83/ALEPH/eng/MSS/MSK/MSK/FIND-A?
TIA !
Ofir
------------------------------
Date: 3 Jan 2001 15:17:13 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Photo Archive Script
Message-Id: <slrn956gjp.f94.abigail@tsathoggua.rlyeh.net>
biG (ofirb1@netvision.net.il) wrote on MMDCLXXIX September MCMXCIII in
<URL:news:92o4vo$bk9$1@news.netvision.net.il>:
// Hi all,
//
// What is the similar CGI script (if any), to a searchable photo archive?
// I don't mean those "Galleries", but rather the Altavista style, or the one
// in the following url:
// http://ram1.huji.ac.il:83/ALEPH/eng/MSS/MSK/MSK/FIND-A?
And your Perl question is?
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
Date: Wed, 03 Jan 2001 16:05:03 GMT
From: sjs@linux.ca (Steven Smolinski)
Subject: Re: Photo Archive Script
Message-Id: <slrn956ng7.13j.sjs@ragnar.stevens.gulch>
Abigail <abigail@foad.org> wrote:
> sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
> h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
> c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
> print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
This japh runs under 5.005_3 on my system, but not 5.6.0. I tried to
fix it but failed miserably, just buggering it up worse. I can usually
get these things after some reformatting and study, but this one has me
beat.
Steve
--
Steven Smolinski => http://www.steven.cx/
------------------------------
Date: 3 Jan 2001 16:44:26 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Photo Archive Script
Message-Id: <slrn956lna.nmu.abigail@tsathoggua.rlyeh.net>
Steven Smolinski (sjs@linux.ca) wrote on MMDCLXXXII September MCMXCIII in
<URL:news:slrn956ng7.13j.sjs@ragnar.stevens.gulch>:
`` Abigail <abigail@foad.org> wrote:
`` > sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
`` > h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
`` > c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
`` > print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
``
`` This japh runs under 5.005_3 on my system, but not 5.6.0. I tried to
`` fix it but failed miserably, just buggering it up worse. I can usually
`` get these things after some reformatting and study, but this one has me
`` beat.
The JAPH depends on a feature that was removed from Perl.
Abigail
--
perl -wle'print"Κυστ αξοτθες Πεςμ Θαγλες"^"\x80"x24'
------------------------------
Date: Fri, 29 Dec 2000 16:32:16 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Piping output from one script into another
Message-Id: <t4pf4g393i2a03@corp.supernews.com>
The WebDragon <nospam@nospam.com> wrote:
> In article <qsy26.30103$59.9269492@news3.rdc1.on.home.com>, Arcana
> <emerald-arcana@home.com> wrote:
> | Hi,
> |
> | I have a Perl script that prints stuff to the screen using "print". (It
> | prints a variable-length record to the screen). The script is called
> | "psheet.pl" and it accepts 1 argument, a filename.
> |
> | I want to be able to pipe this output into the arguments of another Perl
> | script (so that the record from Script 1 becomes the arguments for
> | Script
If you want to `pipe', then you don't want to make it an argument.
Piping involves the STDOUT of one process going into the STDIN of
another. You can have one program print its results and another
read the results on STDIN. You can then either run them on the
same command line such as `program1 arguments | program2'. You could
also make the second program call the first, such as this:
$results_of_first_program = `program1 agruments`;
which would allow the same sort of programming in the first program.
Both of the above methods involve piping.
If you would rather use arguments, you could call the second program
from the first, such as:
$error_code = system('program2 $record_from_program1');
> well you could always use Storable.pm to pass the variables if all else
> fails. :/ Sorry that I don't yet know of an answer to your problem in
> the means that you wish to use.
Storable.pm could work, but I think it's overkill to use a persistence
module for this simple of a problem. Of course, persistant-data programs
can come in very handy at times. Sometimes, you really don't want things
hanging around though.
Chris
--
Christopher E. Stith
Product enlarged to make you think you're getting more.
------------------------------
Date: 30 Dec 2000 03:18:20 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: Piping output from one script into another
Message-Id: <92jk5s$ft8$5@216.155.32.187>
In article <t4pf4g393i2a03@corp.supernews.com>, Chris Stith
<mischief@velma.motion.net> wrote:
| Storable.pm could work, but I think it's overkill to use a persistence
| module for this simple of a problem. Of course, persistant-data programs
| can come in very handy at times. Sometimes, you really don't want things
| hanging around though.
well you can always unlink when you are through :) (barring any other
feasable solutions)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
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 5242
**************************************
