[7698] in Perl-Users-Digest
Perl-Users Digest, Issue: 1324 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 16 14:08:01 1997
Date: Sun, 16 Nov 97 11:00:35 -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 Sun, 16 Nov 1997 Volume: 8 Number: 1324
Today's topics:
Re: "perl aware" vi editor? (Charlie Stross)
Re: "perl aware" vi editor? (Patrick)
Re: CGI PERL SCRIPT to TAR? (John Armsby)
Re: Chomp vs Chop (Bart Lateur)
Effective Perl Programming: Done! <joseph@5sigma.com>
Get the E-mail ?? (Patrick Rosenhoj)
launch, monitor and kill forked processes ()
Re: Multi-threading Perl interpreter? (Jeremy D. Zawodny)
need script to strip html tags from file g@world.std.com
Re: On the fly GIF and CGI <billg@networkapparel.com>
Re: On the fly GIF and CGI (Honza Pazdziora)
Origin of "Nutshell"-Scripts on CPAN? (Florian Cramer)
Re: Origin of "Nutshell"-Scripts on CPAN? <joseph@5sigma.com>
Re: PERL interpreter in Java? <sbekman@iil.intel.com>
Re: printing lines following the line with a match <godzilla@netmeg.net>
Re: printing lines following the line with a match (Tad McClellan)
Re:Running a .EXE file from a PERL script <marshall@bgumail.bgu.ac.il>
recursion, help, I'm scared. <bill@bill.co.uk>
Re: recursion, help, I'm scared. (Tad McClellan)
Re: Regular Expressions (Bart Lateur)
Re: Running a .EXE file from a PERL script (Eric Bohlman)
Securityproblems with a webchat in Perl? (Calle ]sman)
Re: Securityproblems with a webchat in Perl? (Jeremy D. Zawodny)
Sort example for Dummy ?? (Burt Lewis)
The Confidence of the Public [OR v. Randal] (Jeffrey Kegler)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 16 Nov 1997 15:35:26 +0000
From: charlie@nospam.antipope.mapson.org (Charlie Stross)
Subject: Re: "perl aware" vi editor?
Message-Id: <slrn66u4lu.a17.charlie@antipope.demon.co.uk>
, snailgem@aol.com<,snailgem@aol.com> wrote
(in article <3467D5EA.4267@aol.com>):
>Does anyone know what a "perl aware" vi editor is?
>Thanks.
Two types:
* vi-clones with syntax colourising, perl debugger interfaces, and other
features to make editing perl easier
* vi-clones with an embedded perl interpreter (so you can run arbitrary
bits of perl over an edit buffer, for example)
The former category contains:
* elvis 2.1 (syntax colourising)
* Xemacs with Cperl and Viper modes (emulates vi nicely :)
[ possibly others, too]
The latter contains:
* Berkeley nvi (with embedded perl interpreter)
-- Charlie
When you say `I wrote a program that crashed Windows', people just stare
at you blankly and say `Hey, I got those with the system, *for free*'
-- Linus Torvalds
>> To reply: remove NOSPAM and anagrams, or see http://www.antipope.org/ <<
------------------------------
Date: Sun, 16 Nov 1997 18:15:03 GMT
From: patrickq@hotmail.com (Patrick)
Subject: Re: "perl aware" vi editor?
Message-Id: <346f3606.347079083@news.autobahn.mb.ca>
On Sun, 16 Nov 1997 15:35:26 +0000, charlie@nospam.antipope.mapson.org
(Charlie Stross) wrote:
>Two types:
>
>* vi-clones with syntax colourising, perl debugger interfaces, and other
> features to make editing perl easier
>* vi-clones with an embedded perl interpreter (so you can run arbitrary
> bits of perl over an edit buffer, for example)
>
>The former category contains:
>
>* elvis 2.1 (syntax colourising)
>* Xemacs with Cperl and Viper modes (emulates vi nicely :)
>[ possibly others, too]
>
>The latter contains:
>
>* Berkeley nvi (with embedded perl interpreter)
>
>
>
>-- Charlie
>
VIM (VI iMproved) version 5 is in both categories. Currently in alpha
but very close to beta, and is ported to most all platforms. Also,
VIM is to replace nvi as the freeBSD vi editor (?)
http://www.vim.org
Patrick
------------------------------
Date: Sun, 16 Nov 1997 14:24:55 GMT
From: jaws@atl.mindspring.com (John Armsby)
Subject: Re: CGI PERL SCRIPT to TAR?
Message-Id: <64n025$e53@camel20.mindspring.com>
John Nolan <nospam@domain.com> wrote:
>John Armsby wrote:
>>
>> We need to provide an "idiots" gui to tar and compress files and
>> directories. It is simple enough to write a Perl script to enable the
>> user to "browse" to a file via Netscape (content type =files...), copy
>> a file to a directory, and then jump out of the script to unix and
>> gzip the file.
>Maybe you can use WinZIP ?
>
>> My problem is How do I get the browser to select directories and then
>> tar recursively down the tree, finally gzipping the resulting file? I
>> don't see any nifty tools in the Perl tool box to enable directory
>> selection for a subsequent tar.
>tar recurses by default. (Have you ever actually used tar?)
>Some versions of tar will gzip on the fly if you use
>the -z switch. "tar -cvzf mydirectory.tgz mydirectory",
>or something similar.
>You might want to consider using a special ftp server for this
>purpose. The wuftp daemon will automatically tar and gzip
>a raw directory tree for you, on the fly, if you request it as
>"mydirectory.tar.gz" rather than "mydirectory".
>http://www.sgi.com/TasteOfDT/public/freeware1.0/fw_wuftp/wuftp.html
>BTW an idiot succeeds in tarring, compressing, and downloading,
>what happens next? Just curious.
>-John Nolan
In our process, the file is archived to a webserver. The user can
retrieve his source file by performing a simple web/cgi search and
clicking on the hypertext.
Thanks for the advice.
John
------------------------------
Date: Sun, 16 Nov 1997 15:09:37 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Chomp vs Chop
Message-Id: <347b0b71.6936258@news.tornado.be>
Mark Mielke <markm@nortel.ca> wrote:
>They did indeed make chomp() because chop() was ineffective.
"Ineffective"? I think they made chomp() for the cases where the last
line doesn't end in "\n" (whatever that represents). Also, chomp()
verifies WHAT it is about to chop of before doing it. So chomp() should
be a bit slower.
>True programs
>that will not crash in wierd places were always doing s/\n$// or similar
>constructs. The problem is that that is SLOW.
I use
tr/\012\015//d;
I don't complain about the speed, although it should be much slower than
anything else. But it does allow me to read PC text files on a Mac,
without even checking what it is. In this case, $/ is chr(13); the
chr(10) (if any) comes at the START of a line. Neither chop() or chomp()
won't be able to help me there.
Bart.
------------------------------
Date: Sun, 16 Nov 1997 02:57:29 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Effective Perl Programming: Done!
Message-Id: <346EC32C.15F931FC@5sigma.com>
I produced what I hope is the final Postscript a few hours ago.
The book should be showing up in bookstores sometime in December.
Although I have been writing for years and years, this is my first
published work and I am very excited about it.
I have some fairly recent (a few days old) chapter proofs on-line at:
http://www.effectiveperl.com
Watch this site for future developments, including errata, additional
acknowledgements, code snippets, etc.
Many thanks to you Perl programmers out there for all the input,
comments, etc., and especially for generating all those backorders!
Many thanks, also, to the Perl Reference page for linking to my
book site and approximately, it would appear, doubling the traffic.
Clay, I'll be happy to buy you an adult beverage of your choice
should we ever run into each other.
-joseph
------------------------------
Date: Sun, 16 Nov 1997 19:39:50 GMT
From: Patrick.Comptech@ping.be (Patrick Rosenhoj)
Subject: Get the E-mail ??
Message-Id: <346f4bb5.926474@news.ping.be>
How do I get the E-mail from somebody ?
I mean like the way with USER_AGENT and such commands
Or is it possible to write something to grab somebody's
e-mail ?
__________________________________
|http://www.ping.be/patrick_hp/ |
| |
| There is only one @ in my E-mail |
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|\_/| /\ /\
(0_0) (0 0)
==(Y)== (V)
---(u)---(u)---------o0o--U--o0o--
|___|_______|________|_______|____|
| |
| |
| Patrick Rosenhxj |
| Patrick.Comptech@ping.be |
| babyjoe@cyberdude.com |
| |
| ping7496@pophost.ping.be |
| Bruges BELGIUM |
------------------------------------------------
|http://www.ping.be/patrick_hp/ |
|------------------------------------------- |
|http://www.ping.be/~ping7496/ |
------------------------------------------------
------------------------------
Date: 16 Nov 1997 13:17:24 GMT
From: mathias@linux.ek79.uni-koeln.de ()
Subject: launch, monitor and kill forked processes
Message-Id: <64mrp4$fn0@news.rrz.Uni-Koeln.DE>
Hi,
I am trying to build a loop that
starts a binary, waits a predefined
amount of time, and then either kills
the launched process if it is still
running, or does something with its
output if it has successfully completed.
The procedure then starts over, and loops
as long as it takes to get a specified
amount of successful completions of the
binary.
So the problem is how to launch a process,
to later on check for its existence and
finally kill it properly if needed.
Thank you in advance for your emailed
answer.
Regards,
Mathias.
------------------------------
Date: Sun, 16 Nov 1997 13:56:16 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Multi-threading Perl interpreter?
Message-Id: <346efb54.35531101@woody.wcnet.org>
[original author automagically cc'd via e-mail]
On Sat, 15 Nov 1997 18:12:32 -0800, "Robert Pang"
<robpang@cs.stanford.edu> wrote:
>I am trying to embed a Perl interpreter (5.004_01) in a software. I want to
>run multiple Perl scripts in multiple threads. I wonder if anyone knows how
>well the existing Perl interpreter supports multiple interpreter instances
>in a process. I want to do it because I want to ensure total isolation of
>name space and state of Perl library packages.
>
>I tried instantiating multiple Perl interpreters in a process and I got a
>crash when it tries to clean up. I heard that Perl interpreter
>implementation is still not thread-safe yet. However, I heard some people
>claiming success in doing so. Any suggestion?
Perl 5.005 will have multithreading support.
Beta a release should be coming yet this year.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Sun, 16 Nov 1997 18:13:19 GMT
From: g@world.std.com
Subject: need script to strip html tags from file
Message-Id: <EJr3y8.u5@world.std.com>
Can anyone help a beginner out there? I'm looking for a script that will strip
html tags from a file. Note: the tags might cross lines.
Thanks,
Gary Jutras
------------------------------
Date: Sun, 16 Nov 1997 08:00:28 -0500
From: Bill Guindon <billg@networkapparel.com>
To: frederic@xilinx.com
Subject: Re: On the fly GIF and CGI
Message-Id: <346EEE6B.DF79B9DC@networkapparel.com>
[Posted & Mailed]
Frederic RIVOALLON wrote:
> I'm using the gd.pm module to dynamically create a GIF file. Once
> this file is created I can't print it on the screen through my cgi-bin.
Although I haven't been able to install it (all tips appreciated), I have a
guess on the problem.
> Here an exemple of the code I'm using
>
> use CGI ':standard';
> use GD;
>
> $im = new GD::Image(50,50);
> .
> ..
> # Draw image
> .
> ..
> $temp = $im->gif;
> print "<img src=$temp alt=\"temp\" >";
Although I see you are using the GD.pm library, I don't see what you are
putting out for a header. If you look at the file "demos/gd_example.cgi"
(that came with the install), you'll see that they are using:
print "Content-type: image/gif\n\n";
> The last print of the program does not print a GIF in my HTML browser
> instead it print tons of funky characters
It would seem to me that unless your browser is told to expect an image, it
will try to display the incoming "funky characters" as text.
Hope that helped,
Bill Guindon
billg@networkapparel.com
------------------------------
Date: Sun, 16 Nov 1997 13:17:41 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: On the fly GIF and CGI
Message-Id: <adelton.879686261@aisa.fi.muni.cz>
Frederic RIVOALLON <frederic@xilinx.com> writes:
>
> Hello everybody,
>
> I'm using the gd.pm module to dynamically create a GIF file. Once
> this file is created I can't print it on the screen through my cgi-bin.
>
> Here an exemple of the code I'm using
>
> use CGI ':standard';
> use GD;
>
> $im = new GD::Image(50,50);
> .
> ..
> # Draw image
> .
> ..
> $temp = $im->gif;
> print "<img src=$temp alt=\"temp\" >";
The gif method of GD prints the content of the image in the gif
format. But you are trying to include this gif format in your page,
inside of the <img ...> tag. That's not the way HTML works. What you
are expected to do is:
Have one script (on plain HTML file) that will have
<IMG SRC="http://www.domain.com/pics/picture.gif" ALT="picture">
and then install you GD sript so that the path after SRC will point to
it. The GD script should print correct (image/gif) header and then the
content of the image, your $temp variable.
> The last print of the program does not print a GIF in my HTML browser
> instead it print tons of funky characters
> Anybody an idea (I already read the perl faq)
This is not really Perl question so you should look for some general CGI
FAQ.
Hope this helps.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Sun, 16 Nov 1997 18:04:01 +0100
From: paragram@earthcorp.com (Florian Cramer)
Subject: Origin of "Nutshell"-Scripts on CPAN?
Message-Id: <199711161804011008032@cantsin.dialup.fu-berlin.de>
The "scripts" directory on the CPAN mirrors contains a subdirectory
"Nutshell". The Perl scripts inside obviously belong to some O'Reilly
book - but it's neither the "Learning Perl", nor "Programming Perl".
I am looking for explanation of one of the scripts ("travesty.pl"). Does
anyone know the title of the book?
Florian
------------------------------
Date: Sun, 16 Nov 1997 09:08:53 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Origin of "Nutshell"-Scripts on CPAN?
Message-Id: <346F1A2E.AF82C83C@5sigma.com>
They were in the first edition of the Camel.
-joseph
Florian Cramer wrote:
>
> The "scripts" directory on the CPAN mirrors contains a subdirectory
> "Nutshell". The Perl scripts inside obviously belong to some O'Reilly
> book - but it's neither the "Learning Perl", nor "Programming Perl".
------------------------------
Date: Sun, 16 Nov 1997 14:19:34 +0200
From: Bekman Stanislav <sbekman@iil.intel.com>
Subject: Re: PERL interpreter in Java?
Message-Id: <346EE4D6.15FB@iil.intel.com>
Douglas E. Schwartz wrote:
>
> In article <647a33$ddn$2@nntp2.ba.best.com>, Zenin <zenin@best.com> wrote:
> >Jim Voll <jjv@netapp-nospam.com> wrote:
> >: This may seem silly, but does anyone know of a PERL interpreter
> >: written in Java?
> >
> > No, but there is a Perl regexp engine in Java, somewere. Check
> > out the search engines.
PerlTools TM
http://www.oroinc.com/products/index.html
______________________________________________________________________
Stas Bekman mailto:sbekman@iil.intel.com [just another webmaster]
Home Page: http://www.eprotect.com/stas
A must visit: http://www.eprotect.com/stas/TULARC (Java,CGI,PC,Linux)
Linux-il Home: http://www.linux.org.il/
------------------------------
Date: 16 Nov 1997 07:40:49 -0500
From: Les Schaffer <godzilla@netmeg.net>
Subject: Re: printing lines following the line with a match
Message-Id: <m23ekxhuzy.fsf@netmeg.net>
psycler@netcom.com (PsyTours) writes:
> I am trying to parse a file where I look for pattern-matching
> in a specific line and upon locating that line, that line and
> the following 5 lines (only) get print to the output.
> open (IN, "outfile");
> $line = <IN>;
> while ($line ne "") {
> if ($line =~ /[7-9][0-9]/ || $line =~ /Query/) {
> print "$line\n";
for ( $i=0; $i<5; $i++ ) { $line = <IN>; print $line };
> }
> $line = <IN>;
> }
> close (IN);
------------------------------
Date: Sun, 16 Nov 1997 10:09:19 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: printing lines following the line with a match
Message-Id: <fr5n46.fg1.ln@localhost>
Les Schaffer (godzilla@netmeg.net) wrote:
: psycler@netcom.com (PsyTours) writes:
: > I am trying to parse a file where I look for pattern-matching
: > in a specific line and upon locating that line, that line and
: > the following 5 lines (only) get print to the output.
: > open (IN, "outfile");
: > $line = <IN>;
: > while ($line ne "") {
: > if ($line =~ /[7-9][0-9]/ || $line =~ /Query/) {
: > print "$line\n";
: for ( $i=0; $i<5; $i++ ) { $line = <IN>; print $line };
Or, if you want to handle the case where there are not five lines following:
for ( $i=0; defined($line = <DATA>) && $i<5; $i++ ) { print $line }
: > }
: > $line = <IN>;
: > }
: > close (IN);
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 16 Nov 1997 11:30:39 +0200
From: Marshall Grant <marshall@bgumail.bgu.ac.il>
Subject: Re:Running a .EXE file from a PERL script
Message-Id: <346EBD3F.63D5@bgumail.bgu.ac.il>
I want to run a .EXE file written and compiled in C. What is the
command to do so?? Do I just write the file name? With the suffix exe?
Is there a "run" command??
------------------------------
Date: Sun, 16 Nov 1997 12:50:07 +0000
From: "$Bill Dossett" <bill@bill.co.uk>
Subject: recursion, help, I'm scared.
Message-Id: <346EEBFE.13BE75E4@bill.co.uk>
Hi,
I'm using Perl 5.004_4 under Linux kernel
2.0.30 on a P233 with 128Meg RAM and
lots of disk space.
I've written a program that walks a web
site and while converting long filenames
to 8.3 format creates a new website structure
with 8.3 filenames. It generally is ok, but I
have been trying to process a large web site
and it doens't do the whole thing. Really
large, about 180 megabytes, probably at
least 60% or more is html...
So I am using recursion to walk through
the site. Made sure all my variables are
local, about 10 times now...
When I process the site I have used the
-w switch to pick up obvious errors.
About 1/10 of the way in processing I get
a message about deep recursion. I have
no doubt that it is very deep, but reckoned
with the amount of memory and virtual
memory, that it would handle it. The
deep recursion message doesn't seem
to cause a problem and it's only quite
early on during the process of the site,
which is currently taking about 2 1/2 hours
to do about 50% of the site...
So, my question: is the deep recursion
message semi-fatal, is it perhaps bailing
out of levels of recursion? It's the only
error message I get. I'm basically going
to have to rewrite if I have hit a limit on the
levels of recursion and I'm scared.
Thanks for any advice...
Bill
------------------------------
Date: Sun, 16 Nov 1997 08:03:11 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: recursion, help, I'm scared.
Message-Id: <veum46.7j.ln@localhost>
$Bill Dossett (bill@bill.co.uk) wrote:
: I'm using Perl 5.004_4 under Linux kernel
: 2.0.30 on a P233 with 128Meg RAM and
: lots of disk space.
: I've written a program that walks a web
: site and while converting long filenames
: to 8.3 format creates a new website structure
: with 8.3 filenames. It generally is ok, but I
: have been trying to process a large web site
: and it doens't do the whole thing. Really
: large, about 180 megabytes, probably at
: least 60% or more is html...
: So I am using recursion to walk through
: the site. Made sure all my variables are
: local, about 10 times now...
: When I process the site I have used the
: -w switch to pick up obvious errors.
: About 1/10 of the way in processing I get
: a message about deep recursion. I have
: no doubt that it is very deep, but reckoned
: with the amount of memory and virtual
: memory, that it would handle it. The
: deep recursion message doesn't seem
: to cause a problem and it's only quite
: early on during the process of the site,
The 'perldiag' man page describes messages that perl might issue.
----------------
=item Deep recursion on subroutine "%s"
(W) This subroutine has called itself (directly or indirectly) 100
times more than it has returned. This probably indicates an infinite
recursion, unless you're writing strange benchmark programs, in which
case it indicates something else.
----------------
: which is currently taking about 2 1/2 hours
: to do about 50% of the site...
You haven't told us what the script does in the end.
Does it finish?
Does it run so long that you have never let it finish?
If it does finish, has it done the Right Thing to all the web pages?
: So, my question: is the deep recursion
: message semi-fatal, is it perhaps bailing
: out of levels of recursion? It's the only
: error message I get. I'm basically going
: to have to rewrite if I have hit a limit on the
: levels of recursion and I'm scared.
Loops in a recursion are Bad.
Does your program have checking to ensure that it does not knock its
head against the wall with circular references?
ie. A.html refers to B.html and
B.html refers to A.html and
A.html refers to B.html and
B.html refers to A.html and ...
You may need to maintain a list of 'already done' filenames
that you check before recursing to ensure that you don't get stuck
in an infinite loop.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 16 Nov 1997 14:59:49 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Regular Expressions
Message-Id: <347a0a07.6573808@news.tornado.be>
bsa@void.apk.net (Brandon S. Allbery KF8NH; to reply, change "void" to
"kf8nh") wrote:
>How do you plan to cope with "van den Wolle" or "de Lint"? (Stoplists won't
>work: "de Lint", but "De La Peqa".)
"Blue Blood", huh? Here in Belgium, for ORDINARY people, "Van Den Wolle"
or "De Lint" would be the correct spelling.
HTH,
Bart.
------------------------------
Date: Sun, 16 Nov 1997 10:26:14 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Running a .EXE file from a PERL script
Message-Id: <ebohlmanEJqIBr.M5G@netcom.com>
Marshall Grant (marshall@bgumail.bgu.ac.il) wrote:
: I want to run a .EXE file written and compiled in C. What is the
: command to do so?? Do I just write the file name? With the suffix exe?
: Is there a "run" command??
None of the above. You might use system(), you might use exec(), you
might use backticks, or you might open a pipe to or from the executable.
I used a number of keywords in the previous sentence, and you should
search your Perl documentation (all that stuff that came *absolutely
free* with your copy of perl) for them to find out which one is most
appropriate for your situation.
------------------------------
Date: 16 Nov 1997 17:01:11 +0100
From: md4calle@mdstud.chalmers.se (Calle ]sman)
Subject: Securityproblems with a webchat in Perl?
Message-Id: <w7poh3kg75k.fsf@dada5.mdstud.chalmers.se>
Hi, have made a small chat in Perl, and is wondering if there are any
special secutriythings I should have in mind?
example, I put all the postings to the webchat in a directory:
cgi-bin/chat-postings
on the directory I've done a chmod 777, should I keep it that way?
or shall the directory be placed somewhere where it can't be accessed?
e.g. move it to
/user/calle/postings or something?
anyone has any other comments, or some tutorials/articles about creating
webchats with cgi would be great.
all best,
/Calle
**************************************************************************
* * My homepage about the author Tom Holt: *
* /_\ http://www.mdstud.chalmers.se/~md4calle/holt/ *
* { ~._.~ } *
* ( Y ) other things like OnLine Guitar Archive linkpage *
* ( )~*~( ) and heaps of musiclinks can be found at *
* (__)-(__) http://www.mdstud.chalmers.se/~md4calle/ *
**************************************************************************
------------------------------
Date: Sun, 16 Nov 1997 16:16:51 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Securityproblems with a webchat in Perl?
Message-Id: <346f1c31.43944649@woody.wcnet.org>
[original author automagically cc'd via e-mail]
On 16 Nov 1997 17:01:11 +0100, md4calle@mdstud.chalmers.se (Calle
]sman) wrote:
>Hi, have made a small chat in Perl, and is wondering if there are any
>special secutriythings I should have in mind?
>
>example, I put all the postings to the webchat in a directory:
>
>cgi-bin/chat-postings
>
>on the directory I've done a chmod 777, should I keep it that way?
>or shall the directory be placed somewhere where it can't be accessed?
A general rule is to only assign the permissions necessary to do what
the program needs to do. In this case, you've probably gone overboard
by setting 777 on that directory.
Won't something like 700 do?
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: 16 Nov 1997 16:10:29 GMT
From: burt@ici.net (Burt Lewis)
Subject: Sort example for Dummy ??
Message-Id: <64n5tl$lt$1@bashir.ici.net>
Hi,
I've read the books, man pages, faq's, etc. and am still having trouble
understanding sorting by multiple or specified fields.
Appreciate any help on this, here's an
example of my data file.
aaaa Sat Nov 1 = 1537
bbbb Sat Nov 1 = 1506
aaaa Sun Nov 2 = 1547
aaaa Mon Nov 3 = 1679
bbbb Mon Nov 3 = 1618
bbbb Tue Nov 4 = 1288
bbbb Sun Nov 2 = 1540
aaaa Tue Nov 4 = 1347
bbbb Wed Nov 5 = 1543
aaaa Wed Nov 5 = 1566
I need to sort this first by field #4 then by field #1
the result I'm looking for is:
aaaa Sat Nov 1 = 1537
bbbb Sat Nov 1 = 1506
aaaa Sun Nov 2 = 1547
bbbb Sun Nov 2 = 1540
aaaa Mon Nov 3 = 1679
bbbb Mon Nov 3 = 1618
aaaa Tue Nov 4 = 1347
bbbb Tue Nov 4 = 1288
aaaa Wed Nov 5 = 1566
bbbb Wed Nov 5 = 1543
Appreciate any help with this but please keep it as simple as possible.
Thanks!
Burt Lewis
burt@ici.net
------------------------------
Date: 16 Nov 1997 17:57:50 GMT
From: cybersalem@algorists.com (Jeffrey Kegler)
Subject: The Confidence of the Public [OR v. Randal]
Message-Id: <64nc6u$mp2$1@samba.rahul.net>
Letter from Cybersalem 13
The Confidence of the Public
by Jeffrey Kegler
The California Supreme Court:
A system in which affluent victims, including prosperous
corporations, were assured of prompt attention from the
district attorney s office, while crimes against the poor
went unprosecuted, would neither deserve nor receive the
confidence of the public. Even the appearance of such
impropriety would be highly destructive of public trust. [1]
>From a preliminary hearing in Oregon v. Schwartz:
Tom Tintera, prosecuting Randal Schwartz on a accusation
brought by Intel: "I have no objection with that. I think we
discussed that at the prior hearing and there has been the
necessary changes."
Judge Bonebrake: "When you say no objection, does that mean
none by the State and you leave it to Mr. Pierce or Intel to
any issues they may have?"
Tintera: "That's right. I don't represent Intel."
Bonebreak: "Not yet."
Tintera: "That's true." [2]
Office Paul Lazenby of the Washington County Sheriff's Office:
"High tech, high tech, high tech. That's what's coming in
here. How many people from outside do you think are going to
be coming into this community to get secrets? There will be
more of it. We could probably use two or three more people
in this (detectives) unit." [3]
>From the Associated Press:
"Beset by a series of expensive thefts at its Hillsboro
facilities, Intel Corp. is handing the local police $100,000
to have two detectives concentrate their computer theft
efforts at the company."
"But both Intel and the Hillsboro Police Department are wary
of giving the impression that Intel is buying special
treatment." [4]
===========================================================
The Letters from Cybersalem are among the material at the "Intel
v. Randal Schwartz" Web site:
<URL:http://www.rahul.net/jeffrey/ovs/>. The "Friends of Randal
Schwartz Web" site archives the material on all sides of this
issue, including the trial transcripts:
<URL:http://www.lightlink.com/fors>.
Of the many opportunities to do something, two head the list:
1.) To sign a letter objecting to Intel's role in this sorry
matter, see <URL:http://www.rahul.net/jeffrey/ovs/#todo>.
2.) To get an auto-reply giving Randal's own statement, and
discussing how you can contribute to his Legal Defense Fund, send
an empty message to <URL:mailto:fund@stonehenge.com>
Permission is granted to freely copy the Cybersalem Letters in
electronic form, or to print them for personal use.
===========================================================
Note 1: The California Supreme Court, in its ruling in People v.
Gordon Eubanks et al., <URL:http://www.ilspi.com/borland.htm>,
filed 12/23/96.
Note 2: Tr. 10-7-94,
<URL:http://www.lightlink.com/fors/court/10-7-94.txt>, page 33,
lines 4 to 14. The non-objection is to the subpoena of Rick
Pierce, an Intel lawyer who had been present at the search.
Note 3: _Oregonian_, 7/21/1995, page B7.
Note 4: In the _San Jose Mercury News_, this story appeared
under the headline, "Intel gives Crime Top billing. It gives
Oregon Cops $100,000" on 7/25/96.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1324
**************************************
