[10623] in Perl-Users-Digest
Perl-Users Digest, Issue: 4215 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 13 15:07:20 1998
Date: Fri, 13 Nov 98 12:01:38 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 13 Nov 1998 Volume: 8 Number: 4215
Today's topics:
passing variables from perl2perl <ours@casema.net>
Re: PERL CGI on an ordinary file server? ashish_nina@my-dejanews.com
Perl for CGI scripts <hugh.brianNOSPAM@mwk.com>
Re: Perl for CGI scripts <harrisp2@cf.ac.uk>
Re: Perl for CGI scripts <perlguy@technologist.com>
Re: Perl for CGI scripts <merlyn@stonehenge.com>
Re: perl questions PLEASE HELP ASAP! <aqumsieh@matrox.com>
Re: perl script -> msdos/win31 executable? (Bbirthisel)
Perl Usage Standings - It's a mudbath out here! (Rich Morin)
Re: pointer question <aqumsieh@matrox.com>
Problem with Object method calling (Joe Schwab)
Re: Problem with Object method calling <merlyn@stonehenge.com>
problems using tie (Rachel J King)
Q: Frustrated! Converting Cisco config files to DNS (Kathleen Applegate)
Re: Q: are symbolic refs really needed (was Re: Modific <uri@fastengines.com>
Re: Raw Sockets lordvorp@my-dejanews.com
Re: reg. expr question. <aqumsieh@matrox.com>
Running a perl/cgi program as root <frido@tebenet.nl>
Weird error. Can anyone help? <john.wood@diamond.co.uk>
Re: XQL (Adam Turoff)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 13 Nov 1998 20:44:52 +0100
From: "Casema" <ours@casema.net>
Subject: passing variables from perl2perl
Message-Id: <72i2k9$916$1@sun4000.casema.net>
Hi newsgroup
in one perl proggie I have a scalar $a and the following code:
print "<A HREF=\"directory_on_host/new.pl?$a\">link</A>";
now in the new.pl I want the content of $a to be available.......
I thought: $A = $ENV{'QUERY_STRING'}; would do this...though..it does
not.
What would be the correct way to pass variables to another perl proggie?
thanks,
Michel
------------------------------
Date: Fri, 13 Nov 1998 16:26:08 GMT
From: ashish_nina@my-dejanews.com
Subject: Re: PERL CGI on an ordinary file server?
Message-Id: <72hmj0$bic$1@nnrp1.dejanews.com>
In article <36498CFF.4CFF688A@technologist.com>,
perlguy@technologist.com wrote:
> You cannot call a CGI script from a web browser and just "expect" the
> server to know what to do with it, it just doesn't work that way.
>
> You seem to have access to the whole system so why not load a web
> server? There are several *free* ones out there for NT,
> http://www.apache.org has one.
>
> Once you get the web server up and properly configured to handle CGI
> scripts, (instructions will be in the documentation), THEN come back
> and ask question(s) about why they aren't working.
>
> With your current configuration, the __only__ way you are going to run
> Perl programs is via the command line...
>
> Good luck!
> Brent
>
Thanks Brent,
I installed apache server, put my form in localhost directory, put script in
cgi-bin directory and presto -
it worked like a charm.
I can not thank you enough - keep up the good work.
> --
> Java? I've heard of it, it is what I drink when I am hacking Perl. -me
> $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
> $ Brent Michalski $
> $ -- Perl Evangelist -- $
> $ E-Mail: perlguy@technologist.com $
> $ Resume: http://www.inlink.com/~perlguy $
> $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 13 Nov 98 09:10:42 CST
From: <hugh.brianNOSPAM@mwk.com>
Subject: Perl for CGI scripts
Message-Id: <01be0f17$c79667e0$235033a1@nt1840>
What is your opinion on PERL versus other languages for writing CGI
scripts?
Hugh Brian
Please reply to huey1@pdq.net
------------------------------
Date: Fri, 13 Nov 1998 16:42:41 -0000
From: "Phil Harris" <harrisp2@cf.ac.uk>
Subject: Re: Perl for CGI scripts
Message-Id: <364c6e64.0@d032>
<Facetious>
I wonder what sort of answer you'll get?
Bearing in mind that this is a perl NG.
</Facetious>
:o)
<hugh.brianNOSPAM@mwk.com> wrote in message
news:01be0f17$c79667e0$235033a1@nt1840...
>What is your opinion on PERL versus other languages for writing CGI
>scripts?
>
>Hugh Brian
>
>Please reply to huey1@pdq.net
------------------------------
Date: Fri, 13 Nov 1998 17:38:04 GMT
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: Perl for CGI scripts
Message-Id: <364C6E7C.D81E9931@technologist.com>
hugh.brianNOSPAM@mwk.com wrote:
>
> What is your opinion on PERL versus other languages for writing CGI
> scripts?
Perl is __THE__ best language for it. Would you expect a different
answer from this newsgroup?
I'd assume you would get similar answers from the other newsgroups if
you ask.
However, go to http://www.cgi-resources.com and see which area has the
most information and scripts. Perl is the hands-down winner.
Need more info? Go to: http://www.perl.com or
http://www.perl.org/advocacy/
> Hugh Brian
> Please reply to huey1@pdq.net
99% of the time I'd say NO, Post here, read here. But for some reason I
feel like CC'ing today :-)
Brent
--
Java? I've heard of it, it is what I drink when I am hacking Perl. -me
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Fri, 13 Nov 1998 19:04:43 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Perl for CGI scripts
Message-Id: <8c4ss3s9by.fsf@gadget.cscaper.com>
>>>>> "Brent" == Brent Michalski <perlguy@technologist.com> writes:
Brent> hugh.brianNOSPAM@mwk.com wrote:
>>
>> What is your opinion on PERL versus other languages for writing CGI
>> scripts?
Brent> Perl is __THE__ best language for it. Would you expect a different
Brent> answer from this newsgroup?
I wouldn't quite go that far. Perl is probably the predominant CGI
language simply because it can be optimized in so many different
directions, usually all leaning towards rapid development, deployment,
and re-engineering... all very important problems to solve in this
wild world of web.
However, there are other languages that can compete with Perl for
narrow segments of CGI applications.
If you're gonna learn just one thing to make you a "web programmer",
be sure it's Perl.
But if you're gonna learn five things about "web programming", make
sure one of them is Perl. :)
print "Just another Perl hacker and web whacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 13 Nov 1998 12:21:56 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: perl questions PLEASE HELP ASAP!
Message-Id: <x3yk90zecej.fsf@tigre.matrox.com>
jcl4sale@yahoo.com (jcl) writes:
>
> Hey everyone,
> I do not like to go to newsgroups for my programming problems, but
> this has to be done my tomorow afternoon, and i don't know what else
> to do. The program has to simulte the part of a network layer and i
> have most of it done with two main problems.
I hate to solve other people's assignment .. but ..
>
> 1)
> I need to search in a string for five ones, and if so replace it
> with a five ones and a zero i.e.
>
> 11111 would become 111110
>
> and 111111011111101110111111 would become :
> 111110101111101011101111101
> and so on,
> i tried using : s/11111/111110/ and with the g option, but the
> program just waits or freezes, it can't tell but ctrl+c stops it. It
Hmmm... strange .. what exactly are you doing? do you have a piece of
code to show us?
aqumsieh@tigre [aqumsieh] perl
$_ = '111111011111101110111111';
s/1{5}/111110/g;
print "$_\n";
__END__
111110101111101011101111101
Works pretty well for me
> works as s/1111/11110/ and s/111111/1111101/ but not the way i need it
> to.
>
> 2)
> I also would like to know away, to thorw away the current input.
> What i mean is, i'm reading from stdio, and i sometime just wan't to
> toss the current string and read the next one, there's probably a real
> simple way to do this, but i don't know, (BTW i'm using a while to get
> data from stdio).
while (defined ($_ = <>)) {
next if /I don't like this line/;
blah blah;
...
}
Hope this helps,
Ala
------------------------------
Date: 13 Nov 1998 16:51:52 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: perl script -> msdos/win31 executable?
Message-Id: <19981113115152.12227.00000536@ng108.aol.com>
Hi Michael:
>Is there any way to make a perl script into a .exe for win31 (actually, to run
>in a dos box under win31)? There is such a beastie for win95/NT
>(www.perl2exe.com) which works very well, but does NOT support the >older OS.
Help. If I can't figure out how to do this, I'll have to rewrite my
>script in vbasic, c, or (gasp) as a dos .bat file. :( Can't install perl on
the
>target pcs....
Is the "Can't install..." a management dictate, lack of a perl port, or the
need to use features in your script that are not supported in the DOS ports?
The current DOS ports on CPAN should run in a dos box (did a while ago).
What are you trying to do in your script?
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Fri, 13 Nov 1998 09:33:08 -0800
From: rdm@cfcl.com (Rich Morin)
Subject: Perl Usage Standings - It's a mudbath out here!
Message-Id: <rdm-1311980933090001@140.174.42.30>
Almost two weeks into the Survey, the field is an absolute mudbath. The
Camels are clearly ready for the long haul, but the spectators and riders
are in for a very messy race. In any case, here's the rundown from the
stadium (located at http://www.perl.org/cgi-bin/survey).
Linux, the underground hero from the bazaar, continues to dominate the
race. Breaking all previous records, he is far ahead of his nearest
competitors, Solaris and Winstar. These animals continue to race neck
and neck, almost as if some sort of grudge match was involved.
Grand Sultan Gates has left the arena for the moment, saying that he had
some legal affairs to handle. It also appears that he is disconcerted by
the strength of the Bazaar's champion. He muttered something about using
some sort of legal tactics, but I could not hear his exact words.
Grand Sultan McNealy continues to cheer on Solaris, but he has also been
casting foul glances at his old contender, SunOS. He has been heard to
mutter that Solaris would be racing better if SunOS had not been eating
his lunch for the past few years.
Meanwhile, MacOS is falling back into the pack of minor contenders. He
is running hard, but he is a relative newcomer and may lack the strength
to run this massive a course. He is still leading the pack, however; not
a bad showing for a newcomer whom the bookies had recently counted out!
The rest of the pack continues to stay bunched. HP-UX is giving his best
effort: a robust stride that is keeping him just behind MacOS. StarBSD
has pulled out in front of IRIX, AIX, and DecSTAR, but their ultimate
positions are really too close to call with any certainty...
Respondents so far: 3444
Top 10 most used platforms
Linux 2524
Win 95, 98, NT 1601
Solaris 1599
SunOS 882
MacOS 605
HP-UX 585
Free-, Net-, OpenBSD 542
IRIX 499
AIX 423
DEC Unix, OSF/1 371
--
Canta Forda Computer Laboratory | Prime Time Freeware - quality
UNIX consulting, training, & writing | freeware at affordable prices
+1 650-873-7841 | +1 408-433-9662 -0727 (Fax)
Rich Morin, rdm@cfcl.com | www.ptf.com, info@ptf.com
------------------------------
Date: 13 Nov 1998 12:26:33 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: pointer question
Message-Id: <x3yiugjec6u.fsf@tigre.matrox.com>
"Raj Singh" <rsingh@polymail.calpoly.edu> writes:
>
> When I run the following code:
>
> $a = 2;
> $b = /$a;
$b = \$a;
> print $b;
>
> This is supposed to print the value of $a b/c $b is a reference to it.
Nope .. this will output the value of $b which is a reference to
$a. The output will look like:
SCALAR(0xb7d10)
To print the value of $a, you must dereference $b:
print $$b;
Ala
------------------------------
Date: 6 Nov 1998 17:46:37 GMT
From: jschwab@trey.tss.nwu.edu (Joe Schwab)
Subject: Problem with Object method calling
Message-Id: <71vclt$s74@news.acns.nwu.edu>
Hello,
Using PERL version 5.005_02 built for PA-RISC1.1 I am having
trouble with some objects I've created. There is an object called Service
that has a method new($$). I can create new objects in some parts of my
script by saying:
my $service = new Service($foo, $bar)
But in other parts of the script, that gives me an error that says:
"bareword found where operator expected at service.cgi line 933, near "new
service""
That error message goes away, however, if I change the call to
my $service = Service::new($foo, $bar);
the error message goes away. Does anyone have any ideas? It might be best to
respond to me via e-mail. Thanks in advance!
Cheers!
Joe
------------------------------------------------------------------
| Joseph Schwab Internet Access Project Developer |
| http://www.nwu.edu/people/jschwab mailto:jschwab@nwu.edu |
------------------------------------------------------------------
------------------------------
Date: Fri, 13 Nov 1998 19:10:40 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Problem with Object method calling
Message-Id: <8cww4zquhl.fsf@gadget.cscaper.com>
>>>>> "Joe" == Joe Schwab <jschwab@trey.tss.nwu.edu> writes:
Joe> Using PERL version 5.005_02 built for PA-RISC1.1 I am having
Joe> trouble with some objects I've created. There is an object called Service
Joe> that has a method new($$). I can create new objects in some parts of my
Joe> script by saying:
Joe> my $service = new Service($foo, $bar)
The "indirect object" syntax works under nicely controlled
circumstances: namely, you must have seen some reference to the
package "Service" somewhere ahead of this (like when you say "use
Service").
Joe> But in other parts of the script, that gives me an error that says:
Joe> "bareword found where operator expected at service.cgi line 933, near "new
Joe> service""
This is probably one of those places where it hasn't yet been seen.
Are you sure that's lowercase? If it is, there's your error. :)
Joe> That error message goes away, however, if I change the call to
Joe> my $service = Service::new($foo, $bar);
No, this is entirely not the same thing. You can get the equivalent
of the method call above by using arrow form instead of indirect form
like so:
my $service = Service->new($foo,$bar);
or you could emulate that somewhat by using a direct function call:
my $service = Service::new('Service', $foo, $bar); # caution
but only *if* Service::new exists. If it has to do inheritance, you
lose. Only the indirect and arrow forms do inheritance... the direct
function call DOES NOT.
print "Just another object-oriented Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 13 Nov 1998 19:22:25 GMT
From: rjking@blue.seas.upenn.edu (Rachel J King)
Subject: problems using tie
Message-Id: <72i0th$upn$1@netnews.upenn.edu>
Hi. I'm trying to teach myself how to use tie so I don't have to
actually open the 10 files my script needs to access. I'm trying to
write the contents of each file to a tied array and am having trouble
figuring out exactly how the contents are stored.
Here's a couple things I've tried to do:
1)
@t = tie @test, "Array", "/usr/local/etc/aliases/lists/studorg-list";
$r = 0;
$p = (tied @test)->FETCH(50);
do {
$s= (tied @test)->FETCH($r);
print $s;
$r++;
}
while ($r<=50);
The problem: there are actually a lot more than 50 lines in the file.
How do I find the actual number of lines without explicitly opening the
file and finding the scalar of, say, @test = <FH>;? If I do that, I
might as well not use tie at all if I'm opening the file anyway.
2)
@t = tie @test, "Array", "/usr/local/etc/aliases/lists/studorg-list";
$r = 0;
foreach $t ((tied @test)->FETCH($r)) {
print $t;
$r++;
}
The problem: it appears that FETCH does not return the element of the
tied array but rather everything up to and including the index passed as
its argument. Or something like that, I can't completely figure it out.
That's what I gathered just by looking at the actual function.
I'm very confused about how I'm supposed to make use of my tied array.
Eventually I'm going to be using it to do:
foreach $test (@test) {
# process stuff for each element here
}
Any help will be greatly appreciated!
Thanks,
Rachel
--
Rachel J. King
University of Pennsylvania, B.S.E. Computer Science & Engineering '99
Society of Women Engineers * Hexagon Senior Society * Ayalah
http://www.seas.upenn.edu/~rjking
------------------------------
Date: 13 Nov 1998 19:12:31 GMT
From: kathleen@msfc.nasa.gov (Kathleen Applegate)
Subject: Q: Frustrated! Converting Cisco config files to DNS entries
Message-Id: <72i0av$s7m$1@hammer.msfc.nasa.gov>
Keywords: help
Mentally deadzoned, seeking help.
This program will someday (soon) take as input Cisco IOS
configuration files, and output forward/reverse DNS
entries for all interfaces possessing an IP address.
There are only 3 lines in the IOS config file I care about:
ones that begin with "interface", "ip address", or
"no ip address". This is my first extended perl effort,
so please don't be too critical if you see inefficiencies.
Right now, running the program gives me:
syntax error at ios2dns line 42, near "next LINE"
syntax error at ios2dns line 45, near "next LINE"
Execution of ios2dns aborted due to compilation errors.
Yet my eyeballs see utterly nothing wrong with
the syntax. Please, what am I missing?
#!/usr/local/bin/perl -w
#NAME
#
# ios2dns - Translate Cisco router config files to name
# server file format.
#
#SYNOPSIS
#
# ios2dns router-config-file DNS-resourceRecord-A-name
# Declarations
use English;
# Initialize Variables
$IOSfile = $ARGV[0];
$nameRRa = $ARGV[1];
# Open the file provided on the command-line.
open(IOSfile, $IOSfile) || die "can not open $IOSfile\n";
-e $IOSfile or die "$IOSfile does not exist\n";
-r _ or die "You cannot read $IOSfile\n";
-s _ or die "There is nothing in $IOSfile\n";
-T _ or die "$IOSfile is a binary file\n";
# Read the file
LINE: while(<IOSfile>)
{
chomp; # remove the trailing newline
tr/A-Z/a-z/; # translate to lower case
$thisline = $_;
$first9char = substr($thisline,0,9);
if ($first9char eq 'interface') {
&hitBegin;
next LINE;
} elseif ($first9char eq 'no ip add') {
&hitDud;
next LINE; #### THIS IS LINE 42
} elseif ($first9char eq 'ip addres') {
&hitEnd;
next LINE; #### THIS IS LINE 45
} else {
next LINE;
}
}
sub hitBegin {
$interface = "";
$interfaceType = "";
$slot = "";
$port = "";
$interface = substr($thisline, 10, 100);
$interfaceType = substr($interface, 0, 3);
$slash = rindex($interface,"/");
if ($slash > -1) {
$noslash = 0;
$slot = substr($interface,0,$slash);
$slot =~ s/[a-z]//g;
$port = substr($interface,$slash+1);
} else {
$slot = $interface;
$slot =~ s/[a-z]//g;
$noslash = 1;
}
}
sub hitDud {
$gotinterface = 'no'; # This is an unnumbered interface which
$interface = ""; # means it gets no DNS entry so we'll
$interfaceType = ""; # initialize variables and read next line.
$slot = "";
$port = "";
}
sub hitEnd {
($scrap1, $scrap2, $ipaddress, $ipmask, $secondary) = split(' ', $thisline, 5);
$revaddr = &REVERSE($ipaddress);
# Within this loop, the output to the DNS files will occur.
}
# Reverse the octets and append in-addr.arpa.
#
sub REVERSE {
join('.', reverse(split('\.', $_[0]))) . '.IN-ADDR.ARPA.';
}
--
----
Kathleen Applegate kathleen@montana.msfc.nasa.gov
NASA/Wang Government Services Tel. (256)544-7656
Marshall Space Flight Center Huntsville, AL 35812
------------------------------
Date: 13 Nov 1998 12:56:45 -0500
From: Uri Guttman <uri@fastengines.com>
Subject: Re: Q: are symbolic refs really needed (was Re: Modification of a read-only??)
Message-Id: <sar90hfh3xe.fsf@camel.fastserv.com>
>>>>> "BL" == Bart Lateur <bart.mediamind@ping.be> writes:
BL> Zenin wrote:
>>
>> Dynamically affecting other package's global data, ala some of the
>> black magic Exporter does:
>>
>> *{"${PackageName}::$VarName"} = "Some value";
BL> Can't you do that using eval?
BL> eval "\$$Packagename\::$VarName = \"Some Value\"";
too slow! can't do that for all imports.
uri
--
Uri Guttman Fast Engines -- The Leader in Fast CGI Technology
uri@fastengines.com http://www.fastengines.com
------------------------------
Date: Fri, 13 Nov 1998 19:13:28 GMT
From: lordvorp@my-dejanews.com
Subject: Re: Raw Sockets
Message-Id: <72i0co$ktc$1@nnrp1.dejanews.com>
In article <364BCE2D.8E160172@patriot.net>,
keydet89@yahoo.com wrote:
> What you have provided is good, and I do appreciate your time,
> but it is not at all what I am looking for...I am looking for "raw"
> sockets.
>
> I need to be able to specify the header information...TCP flags, even
> addresses (to check for source routing problems).
>
> What you have provided below for the client is the standard TCP connect()
> code...I have already written port scanners, etc. What I need to do now
> is craft my own packets.
I suggest looking at &Net::Ping::ping_icmp for the right direction.
Basically, you will have to manually construct, using pack(), a TCP packet.
This will presumably require you learn the TCP guts enough to do this, but
the function I've mentioned will be a great start (I'm planning to do this
myself).
L8r,
L V
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 13 Nov 1998 12:47:29 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: reg. expr question.
Message-Id: <x3yg1bneb7y.fsf@tigre.matrox.com>
Kjetil Svendsberget <kjetil@balder.no> writes:
>
>
> i have a string which looks like one these:
> a. $dest_dir = 'f:'
> b. $dest_dir = 'f:\'
> c. $dest_dir = 'f:\a
> d. $dest_dir = 'f:\a\
> e. $dest_dir = 'f:\a\b\c\d';
> f. $dest_dir = 'f:\a\b\c\d\';
>
> what i want to get hold of is this:
> a: gives nothing
> b: gives nothing
> c: gives 'a'
> d: gives 'a'
> e: gives 'd'
> f: gives 'd'
>
> any suggestions?
yep.
1) read some documentation of regular expressions. I suggest getting
familiar with Regexps using a simple book like "Learning Perl". If you
want to really plunge into Regexps, get "Mastering Regular
Expressions".
2)
($what_you_want) = $dest_dir =~ /^\w:\\.*([^\\])+\\?$/;
or something like that.
Ala
------------------------------
Date: Fri, 13 Nov 1998 20:28:05 +0100
From: Frido Ferdinand <frido@tebenet.nl>
Subject: Running a perl/cgi program as root
Message-Id: <364C8845.2B548156@tebenet.nl>
Hi,
Is it possible to run a perl/cgi program as root ? I've tried cgi-wrap
but when I tell it to run a program as root it doesn't work (CGIwrap
Error: Configured server userid not found) The program I'm using does a
system call to tar to backup some
files. Security is no problem because it runs in a protected directory.
------------------------------
Date: Fri, 13 Nov 1998 18:43:05 -0000
From: "Paul Wood" <john.wood@diamond.co.uk>
Subject: Weird error. Can anyone help?
Message-Id: <72huf5$5t0$1@nclient3-gui.server.ntli.net>
When running my perl program this line,
if (! defined $form_results{'name'}) { &Error("no_name") }
throws up this error:
Bad name after name:: at member.pl line 580.
I certainly can't spot any problems with the line itself and the sub routine
is present and correct.
Can anyone help me out with this?
Thanks in advance...
-Paul Wood.
------------------------------
Date: 13 Nov 1998 14:30:33 -0500
From: ziggy@panix.com (Adam Turoff)
Subject: Re: XQL
Message-Id: <72i1cp$54@panix.com>
Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM> wrote:
>Gustaf Liljegren wrote:
>>
>[snip]
>> Am I right that XQL is an alternative for Perl?
>
>No. You are wrong. It would be possible to implement an XQL engine in
>perl (as there's already an XML-QL engine in perl), but it's certainly
>not a replacement for perl. Perhaps you should join the Perl-XML mailing
>list - see http://www.activestate.com for details.
Note that M$ is trying to 'de-commoditize' querying XML. There's a
W3C submission for XQL and a W3C submission for XML-QL. Of the two,
XML-QL looks more interesting.
Check out http://www.w3.org/TandS/QL/QL98/pp.html for a series
of position papers at an upcoming 'querying xml' meeting.
Z.
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4215
**************************************
