[17764] in Perl-Users-Digest
Perl-Users Digest, Issue: 5184 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 23 00:05:41 2000
Date: Fri, 22 Dec 2000 21:05:12 -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: <977547911-v9-i5184@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 22 Dec 2000 Volume: 9 Number: 5184
Today's topics:
_umask_ <mds-resource@mediaone.net>
Re: _umask_ davidchew@my-deja.com
Re: assign to array of references (James Kufrovich)
Re: assign to array of references <rick.delaney@home.com>
Re: automatic FAQ answerer idea (Tad McClellan)
client binding <rickshaw@fast.net>
Re: Creating Union/Intersect arrays... nobull@mail.com
Re: DBIProxy question (Honza Pazdziora)
Re: file size - outside url? <tony_curtis32@yahoo.com>
Re: file size - outside url? (Tad McClellan)
Re: file size - outside url? <jhelman@wsb.com>
Re: how to install a module (a newby on modules) (Tad McClellan)
Re: How to write a packet sniffer for win32 (TCP Packet <carvdawg@patriot.net>
Re: Is there a standard, current Perl for Win32 (withou <nagle@animats.com>
Re: Is there a standard, current Perl for Win32 (withou <jhelman@wsb.com>
Re: Language evolution C->Perl->C++->Java->Python (Is P <nospam@david-steuber.com>
Re: Language evolution C->Perl->C++->Java->Python (Is P <nospam@david-steuber.com>
Re: Looking for a Canadian PERL/CGI programmer (Randal L. Schwartz)
Re: Need help with substitution: $HTML =~ s/\$(\w+)/${$ nobull@mail.com
not successful davidchew@my-deja.com
Re: not successful (Tad McClellan)
Re: not successful <you.will.always.find.him.in.the.kitchen@parties>
perl.com web site vs. browsers <phil@BuxTech.Com>
Perlshop 4.x printorders.pl/cgi problems george@geodimensions.netREMOVETHIS
Re: PWS - perl (ATTN: cwrites) (cwrites)
Re: Reverse "append to file" <jbuff1856@my-deja.com>
Re: Reverse "append to file" (Tad McClellan)
Re: Reverse "append to file" <you.will.always.find.him.in.the.kitchen@parties>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 22 Dec 2000 16:01:57 -0600
From: "Michael D. Schleif" <mds-resource@mediaone.net>
Subject: _umask_
Message-Id: <3A43CF55.43F8F931@mediaone.net>
You'd do well to consider the current _umask_ or you will *NOT* get the
results you intend . . .
Francis Woodhouse wrote:
>
> SORRY! A few errors crept in there (getting mixed up with UNIX chmod and
> Perl chmod)
>
> Francis Woodhouse wrote:
>
> > If you want to set permissions, then you could try the UNIX chmod command.
> > If the server you are using is UNIX (it'd have to be if you're
> > changing permissions) then try this:
> > system("chmod 0777,$filename");
>
> Shoud be system("chmod $filename 0777");
>
> >
> > If $filename is getting input by a user somehow then you may want to use
> > this for
> > security reasons:
> > system("chmod", "0777", $filename);
>
> Whoops! That should be
> system("chmod", $filename, "0777");
>
> >
> > This bypasses the shell and forces the arguments to be strictly to
> > chmod. This stops someone setting $filename (through input) as something
> > like:
> > ; cd /; rm -rf *.*
> > resulting in the server getting
> > chmod 0777; cd /; rm -rf *.* $filename
>
> Should be chmod; cd/; rm -rf *.* $filename 0777
>
> >
> > This would delete everything on the server successfully.
> >
> > Francis Woodhouse
--
Best Regards,
mds
mds resource
888.250.3987
"Dare to fix things before they break . . . "
"Our capacity for understanding is inversely proportional to how much we
think we know. The more I know, the more I know I don't know . . . "
------------------------------
Date: Fri, 22 Dec 2000 23:54:51 GMT
From: davidchew@my-deja.com
Subject: Re: _umask_
Message-Id: <920pk9$3jl$1@nnrp1.deja.com>
I tried all these but not successful.
I am trying to change the file permission
using a cgi script run from a browser
davidchew
In article <3A43CF55.43F8F931@mediaone.net>,
mds@helices.org wrote:
>
> You'd do well to consider the current _umask_ or you will *NOT* get
the
> results you intend . . .
>
> Francis Woodhouse wrote:
> >
> > SORRY! A few errors crept in there (getting mixed up with UNIX chmod
and
> > Perl chmod)
> >
> > Francis Woodhouse wrote:
> >
> > > If you want to set permissions, then you could try the UNIX chmod
command.
> > > If the server you are using is UNIX (it'd have to be if you're
> > > changing permissions) then try this:
> > > system("chmod 0777,$filename");
> >
> > Shoud be system("chmod $filename 0777");
> >
> > >
> > > If $filename is getting input by a user somehow then you may want
to use
> > > this for
> > > security reasons:
> > > system("chmod", "0777", $filename);
> >
> > Whoops! That should be
> > system("chmod", $filename, "0777");
> >
> > >
> > > This bypasses the shell and forces the arguments to be strictly to
> > > chmod. This stops someone setting $filename (through input) as
something
> > > like:
> > > ; cd /; rm -rf *.*
> > > resulting in the server getting
> > > chmod 0777; cd /; rm -rf *.* $filename
> >
> > Should be chmod; cd/; rm -rf *.* $filename 0777
> >
> > >
> > > This would delete everything on the server successfully.
> > >
> > > Francis Woodhouse
>
> --
>
> Best Regards,
>
> mds
> mds resource
> 888.250.3987
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Sat, 23 Dec 2000 03:40:41 GMT
From: eggie@REMOVE_TO_REPLYsunlink.net (James Kufrovich)
Subject: Re: assign to array of references
Message-Id: <slrn9487u7.cqd.eggie@melody.mephit.com>
On Fri, 22 Dec 2000 11:00:59 +0800, John Lin <johnlin@chttl.com.tw> wrote:
>Sorry, I should give a better example.
>
>my ($w,$x,$y,$z) = ('a'..'d'); # original values
>@refs = (\$w, \$x, \$y, \$z);
>??@refs = ('W'..'Z'); # Can we do it in one assignment?
>print "$w $x $y $z\n";
>
>__END__
>W X Y Z
>
Not sure, but map should be able to do it. Maybe something like
map { $refs->[$_] = ("W", "X", "Y", "Z")[$_] } (0 .. 3);
would work? I'm far from being a guru, though. HTH (tm)
Incidentally, the above command works (On the command line,
anyway), but the following, which should be identical, doesn't:
map { $refs->[$_] = qq(W X Y Z)[$_] } (0 .. 3);
It gives the following error message:
Can't use subscript on constant item at -e line 1, near "$_]"
And using qw/W X Y Z/[$_] gives a "can't use subscript on split" error.
Any ideas why?
Jamie Kufrovich, YAPH-wannabe
--
Egg, eggie@REMOVE_TO_REPLYsunlink.net
FMSp3a/MS3a A- C D H+ M+ P+++ R+ T W Z+
Sp++/p# RLCT a+ cl++ d? e++ f h* i+ j p+ sm+
--
Egg, eggie@sunlink.net
FMSp3a/MS3a A- C D H+ M+ P+++ R+ T W Z+
Sp++/p# RLCT a+ cl++ d? e++ f h* i+ j p+ sm+
------------------------------
Date: Sat, 23 Dec 2000 04:48:05 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: assign to array of references
Message-Id: <3A443221.5A681D02@home.com>
James Kufrovich wrote:
>
> Not sure, but map should be able to do it. Maybe something like
>
> map { $refs->[$_] = ("W", "X", "Y", "Z")[$_] } (0 .. 3);
>
> would work? I'm far from being a guru, though. HTH (tm)
Since map is an explicit loop, I don't see how that would help.
Rebuilding the entire list ("W", "X", "Y", "Z") on each iteration of the
loop is not really a good idea when you only need one element from it.
nobull has already shown some good code that doesn't do this so I won't
bother.
>
> Incidentally, the above command works (On the command line,
> anyway), but the following, which should be identical, doesn't:
If it "works", it's because you've changed John's code since he never
had a scalar $refs.
> map { $refs->[$_] = qq(W X Y Z)[$_] } (0 .. 3);
>
> It gives the following error message:
> Can't use subscript on constant item at -e line 1, near "$_]"
>
> And using qw/W X Y Z/[$_] gives a "can't use subscript on split" error.
> Any ideas why?
Because you wrote qq. Because you're using an older version of Perl.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Fri, 22 Dec 2000 18:33:11 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: automatic FAQ answerer idea
Message-Id: <slrn947p5n.8lq.tadmc@magna.metronet.com>
Chris Stith <mischief@velma.motion.net> wrote:
>Anything
^^^^^^^^
>that saves a potential poster time before posting could result
>in fewer FAQ posts to the newsgroup.
Checking the FAQ before posting could result in fewer FAQ posts
to the newsgroup.
That ain't working so good :-)
You probably meant "anything that people will actually do"
instead?
:-)
>> It's the damn ISPs (and "web-to-news gateways") turning folks
>> loose on Usenet without indicating that it is a foreign society
>> whose rules should probably be looked into before you start posting.
>> (along with the user's impatience and unwillingness to lurk first)
>
>This is the same reason why many people around the world have
>negative views of Americans, since we tend to travel with too
>little regard for the locales we visit. It is a social problem.
>Can we blame the travel agents? Should we blame the tourists
>instead of the travel agents?
You make a very good point.
I retract my quoted paragraph, with the exception of the
final parenthetical.
>I work for an ISP, and if someone asks what newsgroups are,
>we tell them they really don't want to use them unless they
>know what they are and how to use them. Is this enough,
Yes.
>There
>should be a mailing list or group or web page for arguments
>around the point that the Internet has degraded in usefulness as
>it has grown ever more popular.
Yes, that would be interesting.
Clifford Stoll (of "Cuckoo's Egg" fame) has a book on that
topic that I've been meaning to get around to buying/reading:
http://www.ocf.berkeley.edu/~stoll/silicon_snake_oil.html
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Dec 2000 23:51:08 -0800
From: "Rick Langschultz" <rickshaw@fast.net>
Subject: client binding
Message-Id: <t48c18o7071b4a@corp.supernews.com>
my company has a perl script it uses to bind a client to the server through
a port.
localhost:80 => The server, and its port
maincomputer => localhost:81
maincomputer => localhost:82
clientcomputer 1 through 200 => localhost:83 ...283
get my point
can someone tell me how i can do that on my own computer......... I'd
appreciate it.
------------------------------
Date: 22 Dec 2000 08:37:24 +0000
From: nobull@mail.com
Subject: Re: Creating Union/Intersect arrays...
Message-Id: <u9wvcsyd8s.fsf@wcl-l.bham.ac.uk>
stefan@borgia.com writes:
> I can't seem to find...
...the FAQ.
You should find that it was installed alongside your copy of Perl.
You can look for keywords in questions using "perldoc -q keyword".
For example you could find the question: "How do I compute the
difference of two arrays? How do I compute the intersection of two
arrays?" by typing "perldoc -q intersection".
This doesn't answer all you questions in detail but it does show you
the basic principle which is: the ARRAY datatype is not the right
datatype to represent an unordered set, the correct datatype is a
HASH with only keys, no values.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 22 Dec 2000 20:18:30 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: DBIProxy question
Message-Id: <slrn947dmm.9aemg.adelton@aisa.fi.muni.cz>
On Thu, 21 Dec 2000 20:00:07 -0800, news <loy_x@yahoo.com> wrote:
>
> $ dbiproxy --debug --mode=fork --logfile=STDERR
> --configfile=c:/temp/dbiproxy.conf
>
> and my configfile contains:
>
> {
> 'localport' => 4321,
> 'pidfile' => 'c:\temp\dbiproxy.pid',
> 'logfile' => 1,
> 'debug' => 1,
> 'mode' => 'fork',
Does the single mode work, for a start?
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
.project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------
------------------------------
Date: 22 Dec 2000 17:26:25 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: file size - outside url?
Message-Id: <871yv0f36m.fsf@limey.hpcc.uh.edu>
>> On Fri, 22 Dec 2000 22:45:51 +0100,
>> "Karol Nowakowski" <karol@imm.org.pl> said:
> to check the size of the file I'm normally useing: $urlzd =
> "file.txt"; $w = -s "$urlzd";
> $w ---> file size
> but when I wan't: $urlzd =
> "http://www.server.com/catalogue/catalogue/file.txt"; it doesn't
> work
> Is there any posiibility for this to work?
A URL is not (necessarily) a file.
You need to fetch it (perldoc lwpcook) and then see how much data gets
returned, if any.
hth
t
--
Eih bennek, eih blavek.
------------------------------
Date: Fri, 22 Dec 2000 19:18:19 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: file size - outside url?
Message-Id: <slrn947rqb.8n8.tadmc@magna.metronet.com>
Tony Curtis <tony_curtis32@yahoo.com> wrote:
>>> On Fri, 22 Dec 2000 22:45:51 +0100,
>>> "Karol Nowakowski" <karol@imm.org.pl> said:
>
>> to check the size of the file I'm normally useing: $urlzd =
>> "file.txt"; $w = -s "$urlzd";
^ ^
Useless use of quotes.
$w = -s $urlzd;
>> but when I wan't: $urlzd =
>> "http://www.server.com/catalogue/catalogue/file.txt"; it doesn't
>> work
>
>> Is there any posiibility for this to work?
>
>A URL is not (necessarily) a file.
>
>You need to fetch it (perldoc lwpcook) and then see how much data gets
^^
>returned, if any.
You don't need to fetch the whole URL to determine the size,
just the headers will do.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 23 Dec 2000 03:05:17 GMT
From: Jeff Helman <jhelman@wsb.com>
Subject: Re: file size - outside url?
Message-Id: <3A441686.D6FCA7@wsb.com>
Tad McClellan wrote:
> You don't need to fetch the whole URL to determine the size,
> just the headers will do.
Uh, I disagree. This only works if the URL requests a static file
(which the example does, I admit.) If, though, the URL was
http://www.somesite.com/text.pl, and if the script did not return a
Content-length header, then the headers are useless (at least for our
purposes here). And I have seen sites out there that use the .txt
extension to map to a CGI, so the safest way to get the length value of
a URL is to retrieve the whole thing and then call length().
JH
------------------------------
Date: Fri, 22 Dec 2000 18:34:34 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: how to install a module (a newby on modules)
Message-Id: <slrn947p8a.8lq.tadmc@magna.metronet.com>
Karol Nowakowski <karol@imm.org.pl> wrote:
>Użytkownik "Tad McClellan" <tadmc@metronet.com> napisał w wiadomości
>news:slrn947087.7ta.tadmc@magna.metronet.com...
>> Karol Nowakowski <karol@imm.org.pl> wrote:
>> >I don't even know where to start.
>> perldoc perlmodinstall
>I still don't know where to write all this commands.
>My computer is on Win Millenium
>But where do I wan't install a module is the virtual server by my ISP with
>Unix OS
>do I have to connect with a telnet to put all this commands?
^^^^^^^^^^^^^^^^^^^^^
Yes.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Dec 2000 19:20:28 -0500
From: H C <carvdawg@patriot.net>
Subject: Re: How to write a packet sniffer for win32 (TCP Packets)
Message-Id: <3A43EFCC.B8F8E407@patriot.net>
The reference below won't work...by simply looking at the sniffer.pl
script, you can see
that it's Unix-specific.
However, with modifications to the Windows system you can probably get it
to work.
First, go here:
http://netgroup-serv.polito.it/winpcap/
and get the winpcap library. Install it per the instructions, along with
the WinDump program.
You can even rename it to "tcpdump" if you like. Then change the path to
the tcpdump program
in the sniffer.pl script, and run it to see what you get.
> Patrick Steiner wrote:
> > I need a packet sniffer for Windows NT, written in perl. It must be
> > analyse TCP Packets.
> > Which Modul can i use?
> > Have anyone a example Script?
>
> http://stein.cshl.org/~lstein/talks/WWW6/sniffer/
------------------------------
Date: Fri, 22 Dec 2000 19:07:19 -0800
From: John Nagle <nagle@animats.com>
Subject: Re: Is there a standard, current Perl for Win32 (without ActivePerl?)
Message-Id: <3A4416E7.3D859F37@animats.com>
Abe Timmerman wrote:
> There is even a binary distribution available from ActiveState for
> people that can't/won't install MSInstaller.
Where? That's not what the ActiveState download page at
http://www.activeState.com/Products/ActivePerl/Download.html
says.
> My NT-box doesn't have a (new) Internet Explorer, and runs with
> ServicePack 4 just fine. ActivePerl will install and run fine under
> those minimum conditions. (I don't know why they say those things.)
Which version, downloaded from where?
John Nagle
Animats
------------------------------
Date: Sat, 23 Dec 2000 03:10:20 GMT
From: Jeff Helman <jhelman@wsb.com>
Subject: Re: Is there a standard, current Perl for Win32 (without ActivePerl?)
Message-Id: <3A4417B6.EDBCB4E7@wsb.com>
John Nagle wrote:
>
> Abe Timmerman wrote:
> > There is even a binary distribution available from ActiveState for
> > people that can't/won't install MSInstaller.
>
> Where? That's not what the ActiveState download page at
>
> http://www.activeState.com/Products/ActivePerl/Download.html
>
> says.
Which part of the link that states:
Windows AS Package(see footnote)*
ActivePerl-5.6.0.623-MSWin32-x86-multi-thread.zip, 9,392,128 bytes
did you not understand? The URL is (without the line wraps):
http://www.activestate.com/download/ActivePerl/Windows/5.6/ActivePerl-5.6.0.623-MSWin32-x86-multi-thread.zip
JH
------------------------------
Date: Sat, 23 Dec 2000 02:16:34 GMT
From: David Steuber <nospam@david-steuber.com>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE oflanguages??)
Message-Id: <m3puijq3v8.fsf@solo.david-steuber.com>
Just Me <just_me@nowhere.com> writes:
' And as you can see, no types mean less typing!
Typical.
--
David Steuber | Perl apprentice. The axe did not stop the
NRA Member | mops and buckets from flooding my home.
ICQ# 91465842
*** http://www.david-steuber.com/ ***
------------------------------
Date: Sat, 23 Dec 2000 02:26:17 GMT
From: David Steuber <nospam@david-steuber.com>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE oflanguages??)
Message-Id: <m3lmt7q3ep.fsf@solo.david-steuber.com>
Tom Almy <toma@fluence.com> writes:
' Just Me wrote:
' > Where else can you use fractions und numbers of
' > unlimited size than in Smalltalk.
'
' Common Lisp
And any other Turing complete language, baring limitations on memory.
--
David Steuber | Perl apprentice. The axe did not stop the
NRA Member | mops and buckets from flooding my home.
ICQ# 91465842
*** http://www.david-steuber.com/ ***
------------------------------
Date: 22 Dec 2000 16:23:43 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Looking for a Canadian PERL/CGI programmer
Message-Id: <m1zohoq92o.fsf@halfdome.holdit.com>
>>>>> "Steven" == Steven Merritt <smerr612@mailandnews.com> writes:
Steven> Nope. DHA is a real flesh and blood person who knows how to cut-n-paste.
Steven> He's been using that reply for as long as I can remember. It's well
Steven> stated and polite.
Thank you. I'd been using it for about a year before he borrowed it
(with permission and encouragement!), but only in email replies.
Steven> No reason to change it and no reason to re-type it. I've done
Steven> the same thing myself on occasion to discourage trolls or
Steven> spammers.
Good for you!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 22 Dec 2000 08:28:48 +0000
From: nobull@mail.com
Subject: Re: Need help with substitution: $HTML =~ s/\$(\w+)/${$1}/g;
Message-Id: <u9vgscyc0t.fsf@wcl-l.bham.ac.uk>
"Summers, Bob [FITZ2:8m81:EXCH]" <bobsummers@americasm97.nt.com> writes:
> Subject: Need help with substitution: $HTML =~ s/\$(\w+)/${$1}/g;
Please give more thought to your subject lines - they _do_ matter.
Space is limitied in subject lines so omit words that convey no useful
information such as "Need help with".
Many newsreaders truncate subjects in thread listings so put more
important information at the start of the subject. The fact that your
question is about package qualifiers is very relevant an you miss it
out completely.
Subject: Package qualifier to symbolic reference in substitution
> The guts of the my script uses:
> $HTML =~ s/\$(\w+)/${$1}/g;
> However, I've been trying unsuccessfully to put the "Template"
> subroutine into a common package but I can't seem to find the proper way
> to reference the variables in the "main" cgi (eg, $main'subject). I
The use of the Perl4 syntax with ' as the deleimeter between the
pacakge name and the symbol is highly depreciated. I'm not sure it
ever worked for scalars.
> think I need something like:
> $HTML =~ s/\$(\w+)/$main'{$1}/g;
$HTML =~ s/\$(\w+)/${"main::$1"}/g;
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 22 Dec 2000 23:47:57 GMT
From: davidchew@my-deja.com
Subject: not successful
Message-Id: <920p7c$386$1@nnrp1.deja.com>
In article <3A43C876.3A7C10E6@contessa.u-net.com>,
Francis Woodhouse <francis@contessa.u-net.com> wrote:
> SORRY! A few errors crept in there (getting mixed up with UNIX chmod
and
> Perl chmod)
>
> Francis Woodhouse wrote:
>
> > If you want to set permissions, then you could try the UNIX chmod
command.
> > If the server you are using is UNIX (it'd have to be if you're
> > changing permissions) then try this:
> > system("chmod 0777,$filename");
>
> Shoud be system("chmod $filename 0777");
>
> >
> > If $filename is getting input by a user somehow then you may want to
use
> > this for
> > security reasons:
> > system("chmod", "0777", $filename);
>
> Whoops! That should be
> system("chmod", $filename, "0777");
>
> >
> > This bypasses the shell and forces the arguments to be strictly to
> > chmod. This stops someone setting $filename (through input) as
something
> > like:
> > ; cd /; rm -rf *.*
> > resulting in the server getting
> > chmod 0777; cd /; rm -rf *.* $filename
>
> Should be chmod; cd/; rm -rf *.* $filename 0777
>
> >
> > This would delete everything on the server successfully.
> >
> > Francis Woodhouse
>
>
I tried all the above
but it still doent work.
By the way I am calling the cgi script
from the browser
davidchew
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 22 Dec 2000 19:47:20 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: not successful
Message-Id: <slrn947tgo.8qj.tadmc@magna.metronet.com>
davidchew@my-deja.com <davidchew@my-deja.com> wrote:
>I am calling the cgi script
>from the browser
No you're not.
That is not how CGI works. How CGI works is off-topic here, but
would be on-topic in a newsgroup related to WWW stuff, such as:
comp.infosystems.www.authoring.cgi
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 23 Dec 2000 17:25:23 +1300
From: "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
Subject: Re: not successful
Message-Id: <977545656.684511@shelley.paradise.net.nz>
<davidchew@my-deja.com> wrote in message news:920p7c$386$1@nnrp1.deja.com...
You shouldn't start a new thread for this as it is clearly still related to
your original thread. Secondly, you have a useless subject line. Choose
your subject very carefully. It should summarize the problem you have.
[big snip of stuff from a previous thread]
> I tried all the above
> but it still doent work.
Define doesn't work.
>
> By the way I am calling the cgi script
> from the browser
Which should give you a clue that it is not a Perl problem. I'll give you a
short answer (although you have already been told this and have either
missed it or ignored it). You can not chmod a file you have no permission
for. Simple as that.
------------------------------
Date: 22 Dec 2000 19:48:05 -0500
From: Phil Eschallier <phil@BuxTech.Com>
Subject: perl.com web site vs. browsers
Message-Id: <86ae9odku2.fsf@BuxTech.Com>
A bit of help please ...
I just went to www.perl.com/cpan to get updates to the CPAN modules
I've installed on the machines here ... unfortunately, neither IE5.5
under NT or Win2k nor Netscape 4.75 under Solaris is able to display
the XML pages generated by the perl CPAN site.
Have I missed a key technology change or is there some configuration
change I should be making to view the available CPAN modules?
Any feedback would be appreciated ... and Happy Holidays.
--
Phil Eschallier
Bux Technical Services
70 Irish Meetinghouse Rd
Perkasie, PA 18944
215.249.TECH (215.249.8324)
215.249.8325 (fax)
http://www.BuxTech.Com
------------------------------
Date: Fri, 22 Dec 2000 23:50:57 GMT
From: george@geodimensions.netREMOVETHIS
Subject: Perlshop 4.x printorders.pl/cgi problems
Message-Id: <3a43e7d7.29562900@news.pacbell.net>
Greetings!
I have been everywhere in an attempt to resolve a dilemma I am having
with Perlshop. Everything works great with the new version from
waverider systems, except I cannot get the printorders function to
work properly. I get the initial user/password page, but when I
initiate the information, I cannot retrieve the order information, I
am taken back the the entry page. Here's what I have done:
changed the variables in the script for my system
place the script in the /MyStore directory
chmod 755 the script
create My .htpasswd file in the /MyStore directory
create My .htaccess file in the /MyStore/customers directory
I have tried both the original printorders.pl and printorders.cgi,
which is a modification of the original. I get the same results from
both. I have been to perlshop.org in an attempt to find a fix, but no
one seems to respond to the message board anymore. I have also sent
e-mails to arpanet, with no success. I would appreciate any
information to help fix this. E-mails can be sent by removing the
REMOVETHIS at the end of the address. Thank you in advance!
------------------------------
Date: Sat, 23 Dec 2000 00:19:44 GMT
From: bconnats@bellsouth.net (cwrites)
Subject: Re: PWS - perl (ATTN: cwrites)
Message-Id: <3a43ef13.23786830@news.lig.bellsouth.net>
Here is the content of my autoexec.bat file:
C:\PROGRA~1\NETWOR~1\MCAFEE~1\SCAN.EXE C:\
@IF ERRORLEVEL 1 PAUSE
@ECHO OFF
@REM Setup for QR, BW & HIBERNATE
@PATH
C:\CPQS\SAVEREST;C:\CPQS\TOOLS;C:\WINDOWS\COMMAND;C:\WINDOWS;%PATH%;C:\PERL\BIN
@IF EXIST C:\APPL.ZIP\*.* IF EXIST C:\WINDOWS\SMARTDRV.EXE
C:\WINDOWS\SMARTDRV.EXE
@IF EXIST C:\CPQS\SAVEREST\QRSETUP.* CALL C:\CPQS\SAVEREST\QRSETUP
/MFG C: D: E: F:
CALL c:\hibernat\hibchk.bat
CALL C:\CPQS\TOOLS\WINPATH.BAT
@ECHO OFF
After adding "C:\PERL\BIN" to the @PATH, my PWS worked fine.
Brad
On Fri, 22 Dec 2000 11:36:18 +0100, "Sven Franke"
<snefsite@hotmail.com> wrote:
><CUT>
>
>How does your windows sytem bat file look then?
>Is it just a line to be added???
>
>
>Sven
>
>
------------------------------
Date: Sat, 23 Dec 2000 00:38:56 GMT
From: jbuff <jbuff1856@my-deja.com>
Subject: Re: Reverse "append to file"
Message-Id: <920s70$5e5$1@nnrp1.deja.com>
In article <3A43D12E.8030000@sweden.com>,
chr1st1an <cyner.mail@sweden.com> wrote:
> Joe Schaefer wrote:
>
> > % man perldoc
> > % perldoc -q insert
>
> Well, if I had Linux or a manual of any kind I'd look there first.
I'm
> new to Perl, not an idiot. You may want to change your attitude
towards
> newbies.
>
>
Folks around here will change their attitude to newbies when the
newbies make some effort to find the documentation before asking an FAQ.
Install ActiveState Perl on your machine. It comes with the docs you
need, and will let you test your code before uploading it to your
server.
-- jbuff
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 22 Dec 2000 19:31:50 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Reverse "append to file"
Message-Id: <slrn947sjm.8n8.tadmc@magna.metronet.com>
chr1st1an <cyner.mail@sweden.com> wrote:
>Joe Schaefer wrote:
>
>> % man perldoc
>> % perldoc -q insert
>
>Well, if I had Linux or a manual of any kind I'd look there first.
You *do* have a manual. That is what Joe was pointing out.
'perldoc' is installed along with perl. If you have perl, you
have perldoc.
If that second command does not show you discussion and code
that answers your problem, then you do not have a properly
installed perl.
>I'm
>new to Perl, not an idiot. You may want to change your attitude towards
>newbies.
He has not displayed any anti-newbie-to-Perl that I can see.
He showed you how to find the relevant answer (that you claim
to have missed).
You have a strange way of repaying people that answer your questions.
That may have an effect on the responses that you can expect for
future questions as well...
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 23 Dec 2000 17:20:09 +1300
From: "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
Subject: Re: Reverse "append to file"
Message-Id: <977545342.764461@shelley.paradise.net.nz>
"chr1st1an" <cyner.mail@sweden.com> wrote in message
news:3A43D12E.8030000@sweden.com...
> Joe Schaefer wrote:
>
> > % man perldoc
> > % perldoc -q insert
>
> Well, if I had Linux or a manual of any kind I'd look there first. I'm
> new to Perl, not an idiot. You may want to change your attitude towards
> newbies.
If you don't have Perl installed on your PC, don't have telnet access to
your ISP account, don't have the ability to view www.perl.com and click on
the Documentation link, don't have the ability to view www.perldoc.com,
don't know about search engines or in fact don't have an Internet
connection, then you may well be valid in claiming you are not an idiot.
------------------------------
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 5184
**************************************
