[9539] in Perl-Users-Digest
Perl-Users Digest, Issue: 3133 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 12 20:07:22 1998
Date: Sun, 12 Jul 98 17:00:24 -0700
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, 12 Jul 1998 Volume: 8 Number: 3133
Today's topics:
Re: "The opposite of read()" (Gabor)
Re: @$_ causes variable corruption? (M.J.T. Guy)
\Q and \E (Marc Haber)
Re: \Q and \E (Larry Rosler)
Re: BEGIN statement and PERL reference book (Jonathan Stowe)
Re: Bug? shift( split(' ',$_)); won't compile. (Andre L.)
Re: CGI: PB with NT network (Jonathan Stowe)
Re: Date utility functions in perl <marius@ace.funcom.com>
Re: DB_File.pm (Paul Buder)
Re: First meeting of Dallas.pm <merlyn@stonehenge.com>
Re: Getting Yesterday's Date (Larry Rosler)
Re: Getting Yesterday's Date (Brandon S. Allbery KF8NH)
Re: Getting Yesterday's Date (Chip Salzenberg)
Re: Help! MacPerl and STDIN (Eric Schissel)
Re: HELP: Internet Database Design questions... (Jonathan Stowe)
logscribe (Jens Arvidsson)
Looking for MySQL Access Sample <k.joch@kmjeuro.com>
Microscripting (was: Are folk really using Tcl for cgi (Cameron Laird)
Re: new charter and moderator for comp.lang.perl.announ (Kendall P. Bullen)
Problem returning Hash from a procedure (Phil Taylor)
Re: PUZZLE: make hat, take ham (Daniel S. Lewart)
Reading Radius files (Peter)
REPOST: Re: Dejanews/closed lists/moderated groups/list (Nicholas Carey)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Jul 1998 16:49:00 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: "The opposite of read()"
Message-Id: <slrn6qhqc1.1al.gabor@guava.vmunix.com>
In comp.lang.perl.misc, John Siracusa <macintsh@cs.bu.edu> wrote :
# Ronald J Kimball (rjk@coos.dartmouth.edu) wrote:
# : What return value were you looking for?
#
# I was looking for "number of bytes actually written" so I
# know how far I got before failure. Actually, I think I've
# found something suitable: POSIX::write()
You could also use syswrite.
------------------------------
Date: 12 Jul 1998 14:00:36 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: @$_ causes variable corruption?
Message-Id: <6oafi4$lpb$1@pegasus.csx.cam.ac.uk>
Kin Cho <kin@omni.c-cube.com> wrote:
>
>So I started changing things in hopes of making the problem go away.
>Nothing worked until I changed the use of $_ to reference the entries
>of the global variable within a for loop to using an explicit for loop
>variable. Now my script works correctly. However, I wonder if the use
>of the following is safe in general:
>
>for (@aoa) { # aoa is an array of array
> my ($a,$b,$c) = @$_;
> ...
> &mysub($a); # causes @aoa to be corrupted
> ...
>}
>
>The following is my workaround:
>
>for $ndx (@aoa) { # aoa is an array of array
> my ($a,$b,$c) = @$ndx;
> ...
> &mysub($a); # works fine!
> ...
>}
It's impossible to know what your bug is if you don't provide a *complete*
script. But the obvious guess is that mysub() (or something it
calls) is writing to $_.
You could avoid such problems by putting a "local $_;" before the call
to mysub(). But it's generally better to avoid the default use of $_
as the loop variable, except when the loop body is *very* simple,
because of action-at-a-distance effects of this sort. As you have
done in your workaround.
Mike Guy
------------------------------
Date: Sun, 12 Jul 1998 14:13:29 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: \Q and \E
Message-Id: <6oagbe$n01$4@nz12.rz.uni-karlsruhe.de>
Hi!
look at this:
>mh@torres:/home/mh/torres_config > perl -v
>
>This is perl, version 5.004_04 built for i686-linux
>
>Copyright 1987-1997, Larry Wall
>
>Perl may be copied only under the terms of either the Artistic License or the
>GNU General Public License, which may be found in the Perl 5.0 source kit.
>
>mh@torres:/home/mh/torres_config > cat test3.pl
>#!/usr/bin/perl -w
>
>my $search1 = "[bw]ird";
>my $search2 = "\Q[bw]ird\E";
>
>print "enter [bw]ird here >: ";
>my $search3 = <>;
>chomp $search3;
>my $search4 = "$search3";
>
>print "enter \\Q[bw]ird\\E here >: ";
>my $search5 = <>;
>chomp $search5;
>my $search6 = "$search5";
>
>print "\$search1 = |$search1|\n";
>print "\$search2 = |$search2|\n";
>print "\$search3 = |$search3|\n";
>print "\$search4 = |$search4|\n";
>print "\$search5 = |$search5|\n";
>print "\$search6 = |$search6|\n";
>mh@torres:/home/mh/torres_config > test3.pl
>enter [bw]ird here >: [bw]ird
>enter \Q[bw]ird\E here >: \Q[bw]ird\E
>$search1 = |[bw]ird|
>$search2 = |\[bw\]ird|
>$search3 = |[bw]ird|
>$search4 = |[bw]ird|
>$search5 = |\Q[bw]ird\E|
>$search6 = |\Q[bw]ird\E|
>mh@torres:/home/mh/torres_config >
Obviously, \Q and \E are invoked during the assignment to $search2.
How do I make \Q and \E do their magic when the string comes in from a
file?
Any hints will be appreciated.
Greetings
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: Sun, 12 Jul 1998 08:17:30 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: \Q and \E
Message-Id: <MPG.10127365434ce7c4989733@nntp.hpl.hp.com>
In article <6oagbe$n01$4@nz12.rz.uni-karlsruhe.de> on Sun, 12 Jul 1998
14:13:29 GMT, Marc Haber <Marc.Haber-usenet@gmx.de> says...
...
> Obviously, \Q and \E are invoked during the assignment to $search2.
> How do I make \Q and \E do their magic when the string comes in from a
> file?
`perldoc -f quotemeta` might be what you are looking for.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 12 Jul 1998 23:31:53 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: BEGIN statement and PERL reference book
Message-Id: <35a9458d.29940221@news.btinternet.com>
On Fri, 10 Jul 1998 15:39:35 +0200, Felix Fernandez wrote :
>
>I'm posting this message for a friend who has problems for posting in this
>news group, you could answer him directly or do a reply to this message.
>
Likely story ;-}
>Thank you very much in advance.
>
>_______________________________________________________________________
>1. Could somebody give me a good explanation about BEGIN. It's really a
>PERL statement? What is it used for ??
>
It is documented in perlmod thus (along with END):
...
A `BEGIN' subroutine is executed as soon as possible, that is,
the moment it is completely defined, even before the rest of the
containing file is parsed. You may have multiple `BEGIN' blocks
within a file--they will execute in order of definition. Because
a `BEGIN' block executes immediately, it can pull in definitions
of subroutines and such from other files in time to be visible
to the rest of the file. Once a `BEGIN' has run, it is
immediately undefined and any code it used is returned to Perl's
memory pool. This means you can't ever explicitly call a
`BEGIN'.
...
But you would be better off reading the whole document
>2. I am looking for a good book on PERL available on the net for free
>use but I can't find it. Can somebody give the address of a good
>PERL reference book ??
>
One of the best comes free with every Perl distribution.
PS. Thats Perl and not PERL.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sun, 12 Jul 1998 13:01:37 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Bug? shift( split(' ',$_)); won't compile.
Message-Id: <alecler-1207981301370001@dialup-900.hip.cam.org>
In article <6o9o0m$6tg@fohnix.metronet.com>, tye@fohnix.metronet.com (Tye
McQueen) wrote:
> ) Rob Hutchings wrote:
> ) > But if you're going to throw away the rest of the array, you
> ) > migt as well use
> ) >
> ) > $x=(split)[0];
>
> Dan Boorstein <danboo@negia.net> writes:
> ) and you might as well limit the split to 2.
>
> I'm surprised that isn't optimized by Perl like this is:
>
> ($x)= split;
>
> [But then I haven't run benchmarks to prove that this is
> actually optimized.]
#!/usr/local/bin/perl
use Benchmark;
$s = 'a b c d e';
timethese (25000, {
SPLIT1 => '($ss) = split / /, $s, 2;',
SPLIT2 => '($ss) = split / /, $s;',
SPLIT3 => '$ss = (split / /, $s, 2)[0];',
SPLIT4 => '$ss = (split / /, $s)[0];'
} );
__END__
Benchmark: timing 25000 iterations of SPLIT1, SPLIT2, SPLIT3, SPLIT4...
SPLIT1: 6 secs ( 5.13 usr 0.00 sys = 5.13 cpu)
SPLIT2: 6 secs ( 5.13 usr 0.00 sys = 5.13 cpu)
SPLIT3: 6 secs ( 5.20 usr 0.00 sys = 5.20 cpu)
SPLIT4: 9 secs ( 9.38 usr 0.00 sys = 9.38 cpu)
------------------------------
Date: Sun, 12 Jul 1998 23:31:51 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: CGI: PB with NT network
Message-Id: <35a94132.28966840@news.btinternet.com>
On Fri, 10 Jul 1998 11:12:17 +0200, Samuel Becker wrote :
>Hello,
>
>I'm trying to make file copy on a WindowsNT Network in a perl script.
>It looks like that:
>copy \\IPAdress1\... \\IPAdress2\...
>
>=> It's OK when I execute it in the command line
>=> But not in a CGI script (Http Daemon: IIS) !
>
Eh,oh
>If i do a copy in a CGI script without using "\\AdresseIP\..." but copying
>local files that's ok.
>
This is *NOT A PERL QUESTION*. Pause for reflection for a second then
check out the permissions that your IUSR_<whatever> user has in User
Manager. Then write 500 times: "if it works at the command line but
not as CGI then it isnt a problem with Perl" - you are not allowed to
use a script to achieve this.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 12 Jul 1998 13:27:23 +0200
From: Marius Kjeldahl <marius@ace.funcom.com>
Subject: Re: Date utility functions in perl
Message-Id: <52ww9jpaw4.fsf@ace.funcom.com>
Date::Calc
Marius
------------------------------
Date: Sun, 12 Jul 1998 15:17:05 GMT
From: paulb@user1.teleport.com (Paul Buder)
Subject: Re: DB_File.pm
Message-Id: <6oak1g$lrc$1@user1.teleport.com>
In <35A76FCA.98E1E16B@pcs.usp.br> Jorge Kinoshita <jkinoshi@pcs.usp.br> writes:
>DCash wrote:
>> Can some tell me where I can locate DB_File.pm I was told that it came
>> bundled with Perl but my sys admin doesn't have it.
>>
>> Thanks
>> DCash
> To my concern, you must be looking a generic DB_File. You must specify
>this DB_File by choosing GDBM_File.pm, SDBM_File.pm, etc. Yes, these files
>comes with Perl.
Wrong. DB_File comes with perl but doesn't install unless you have
the underlying C library. Look at www.sleepycat.com for that.
------------------------------
Date: Sun, 12 Jul 1998 22:14:59 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: First meeting of Dallas.pm
Message-Id: <8csok667j4.fsf@gadget.cscaper.com>
>>>>> "Brand" == Brand and Karina Hilton <bkhilton@netcom.com> writes:
Brand> The first meeting of the Dallas Perl Mongers is on:
Brand> Date: Wednesday, July 15
Brand> Time: 7:00pm
Brand> Place: Juan's Cantina, southwest corner of Central
Brand> Espressway and Belt Line Rd, Richardson.
Yes, it's nice that all the new Perl Monger groups seem to be
following that fine old tradition established by the prototype PM
(NY.PM) of holding their meetings in a bar. :-)
print "Just another Perl Monger,"
--
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: Sun, 12 Jul 1998 07:11:21 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Getting Yesterday's Date
Message-Id: <MPG.101263e35525e89f989732@nntp.hpl.hp.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <6oacd6$d0f$1@csnews.cs.colorado.edu> on 12 Jul 1998 13:06:46
GMT, Tom Christiansen <tchrist@mox.perl.com> says...
...
> Perl's time() function returns the number of seconds that have passed
> since the epoch--more or less. 29 seconds less as of this writing,
> actually, if you want to be to be precise. It turns out that POSIX
> requires that time() not include leap seconds, a peculiar practice of
> adjusting the world's clock by a second here and there to account for
> vicissitudes of the Earth's orbital wobble. See the sci.astro FAQ,
> section 3, in
>
> http://astrosun.tn.cornell.edu/students/lazio/sci.astro.3.FAQ
That source is out of date, as it doesn't include the leap seconds added
on December 31, 1995 and June 30, 1997. That would give an offset of 31
seconds from TAI (International Atomic Time). However, the Epoch is
defined not in TAI but in UTC (Coordinated Universal Time, commonly
called GMT -- Greenwich Mean Time).
The error in time() relative to UTC is simply the number of leap seconds
added since the Epoch, which is 21. The additional offset of 10 seconds
between TAI and UTC is irrelevant.
See <URL:http://physics.nist.gov/News/Releases/n97-17.html> among many
other current references turned up by a search for "leap second".
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 12 Jul 1998 15:01:11 -0400
From: allbery@kf8nh.apk.net (Brandon S. Allbery KF8NH)
Subject: Re: Getting Yesterday's Date
Message-Id: <6ob15n$7n6$1@rushlight.kf8nh.apk.net>
Also sprach tchrist@mox.perl.com (Tom Christiansen) (<6oacd6$d0f$1@csnews.cs.colorado.edu>):
+-----
| Perl's time() function returns the number of seconds that have passed
| since the epoch--more or less. 29 seconds less as of this writing,
| actually, if you want to be to be precise. It turns out that POSIX
| requires that time() not include leap seconds, a peculiar practice of
+--->8
Solaris apparently violates this: see the manpages for localtime and
strftime. (strftime() could be rationalized away, but localtime() blows
the whole thing.)
OS-dependent time() values, anyone? grrr....
--
brandon s. allbery [os/2][linux][solaris][japh] allbery@kf8nh.apk.net
system administrator [WAY too many hats] allbery@ece.cmu.edu
electrical and computer engineering
carnegie mellon university (bsa@kf8nh is still valid.)
------------------------------
Date: Sun, 12 Jul 1998 17:04:59 GMT
From: chip@pobox.com (Chip Salzenberg)
Subject: Re: Getting Yesterday's Date
Message-Id: <6oaqeg$g1k$1@cyprus.atlantic.net>
According to tchrist@mox.perl.com (Tom Christiansen):
> It turns out that POSIX requires that time() not include leap
> seconds ...
I had *no* idea. And here I've been going to extra work for years
because I thought it was Not Allowed to assume that time()%60 is the
current second...
The ANSI allowance that tm_sec be <=60 (rather than <60) is
effectively pointless in a POSIX system, I guess.
LSNED (learn something new every day)
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: 12 Jul 98 19:38:00 GMT
From: schissel@adore.lightlink.com (Eric Schissel)
Subject: Re: Help! MacPerl and STDIN
Message-Id: <35a91098.0@news2.lightlink.com>
Perl5 for Dummies has a page on how to create a dialog box in MacPerl (a
simple open box or a simple save box). I could check my own files for an
example and send it along by email, if you want (email me if you need it).
-Eric Schissel
--
schissel@lightlink.com
http://www.lightlink.com/schissel ICQ#7279016
standard disclaimer
------------------------------
Date: Sun, 12 Jul 1998 22:58:58 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: HELP: Internet Database Design questions...
Message-Id: <35a938d4.26825919@news.btinternet.com>
On Sat, 11 Jul 1998 19:35:22 -0400, Craig Bloom wrote :
<snip>
> These Unix snobs really irk me
>sometimes.
<snip>
>OR you can waste many hours learning your way around the unix operating
>system, teaching yourself perl and stuffing data into (real efficient, yeah
>right) flat file databases. Boy, tough choice.
>
>OK, now you can tell us again how much smarter you are because you use unix.
>
>
I love it when a cross-post goes bad ;-0
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sun, 12 Jul 1998 22:41:44 GMT
From: hosarvid-jens@algonet.se (Jens Arvidsson)
Subject: logscribe
Message-Id: <35a938c2.4876341@news.algonet.se>
I don't get any logs from visitors that are using IE.
Anyone who can help?
--
Jens Arvidsson, hosarvid-jens@algonet.se
------------------------------
Date: Sun, 12 Jul 1998 11:38:56 +0100
From: "Karl M. Joch" <k.joch@kmjeuro.com>
Subject: Looking for MySQL Access Sample
Message-Id: <6oa0eu$m33$1@orudios.magnet.at>
hi, i am new to perl and was reading a lot of books now. basicly my first
programms work :-). but i have to make a few small listings from an MySql
Database. Can somebody mail me an URL where i find Online Documentation or
samples?
many thanks
karl - webadmin@proline.at
Austria
------------------------------
Date: 12 Jul 1998 10:23:01 -0500
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Microscripting (was: Are folk really using Tcl for cgi scripting?)
Message-Id: <6oakcl$r1m$1@Starbase.NeoSoft.COM>
In article <35A61D1B.B34B9657@zveno.com>,
Steve Ball <Steve.Ball@zveno.com> wrote:
>Cameron Laird wrote:
>>
>> In article <6o0quo$2ta$1@nz12.rz.uni-karlsruhe.de>,
>> Heribert Dahms <DAHMS@ifk20.mach.uni-karlsruhe.de> wrote:
.
.
.
>> >This is the first time I see the term "microscripting".
.
>Microscripting is where you "attach" code to a document - the code lives inside
>a document, rather than having a document live inside some code (like a CGI
>script).
.
.
.
>Bear in mind that microscripting is not restricted to Tcl. Verity pattern
>files are an example. I've heard of examples using Perl, though I've not
>seen them. You could also say that JavaScript falls into the same class,
For Perl examples, see <URL:http://
starbase.neosoft.com/~claird/comp.lang.perl.misc/perl_architectures.html#embedded>
There are indeed examples in lots of other languages,
including JavaScript, VBScript, Python, LISP, and many
(MANY) (more) proprietary languages.
.
.
.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 713 996 8546 FAX
------------------------------
Date: Sun, 12 Jul 1998 07:02:22 -0500
From: see-my-sig@his.com (Kendall P. Bullen)
Subject: Re: new charter and moderator for comp.lang.perl.announce
Message-Id: <see-my-sig-1207980702220001@kendall.his.com>
In article <6o49h3$8kk$1@monet.op.net>, mjd@op.net (Mark-Jason Dominus) wrote:
>In article <6o2tru$lgk$1@bell.pconline.com>,
>John Erjavec V <jev@newton.pconline.com> wrote:
>
>>People have been taken to court over their decisions on what to let
>>through, and what to reject.
>
>Cite, please?
Sounds like an urban myth, doesn't it? ;-) I'm curious about the cite as
well. . . .
--
Kendall P. Bullen Web: http://www.his.com/~kendall/
E-mail: kendall@-->^^^^^^^
I get too much spam & UCE. Please reconstruct my address if you
e-mail me. But please NEVER send me COPIES of Usenet postings.
------------------------------
Date: Sun, 12 Jul 1998 15:13:45 GMT
From: phil@ackltd.demon.co.uk (Phil Taylor)
Subject: Problem returning Hash from a procedure
Message-Id: <35a8d0b6.5875195@news.demon.co.uk>
I am trying to load a hash with data as follows:-
my %list
%list = load_list();
#
# end of main processing
# ---------------
sub load_list
# ----------------
{
my (%list);
processing to load the list
return %list
}
Can anyone advise me why the returned list is empty and what do I
need to do to get it working. The above works if the hash was replaced
with an ordinary array.
Thanks
Phil
------------------------------
Date: 12 Jul 1998 15:45:45 GMT
From: d-lewart@uiuc.edu (Daniel S. Lewart)
Subject: Re: PUZZLE: make hat, take ham
Message-Id: <6oaln9$8qr$1@vixen.cso.uiuc.edu>
d-lewart@uiuc.edu (Daniel S. Lewart) writes:
> Hoping for better solutions,
... and seeing them from Abigail and from Bart! Below is a script
synthesized from Abigail's and from my earlier one, that runs in O(N**2).
* Abigail's is fast, but long.
* Bart's is short and clear, but slow.
* This one is short and fast, but obscure.
Hoping for a fast and clear one-liner :),
Daniel Lewart
d-lewart@uiuc.edu
-------------------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
my (%aaax, %bbby, %xyaaa, %xybbb);
while (<>) {
chomp;
next unless /^([a-z])([a-z]*)([a-z])$/;
my ($X, $aaa, $bbb, $Y) = ($1, "$2$3", "$1$2", $3);
foreach my $w (@{$aaax{$aaa}}) {
push @{$xyaaa{$w}{$X}}, $aaa;
foreach my $ccc (@{$xybbb{$w}{$X}}) {
print "$w$aaa $ccc$X, $X$aaa $ccc$w\n";
}
}
push @{$aaax{$aaa}}, $X;
foreach my $w (@{$bbby{$bbb}}) {
push @{$xybbb{$w}{$Y}}, $bbb;
foreach my $ccc (@{$xyaaa{$w}{$Y}}) {
print "$w$ccc $bbb$Y, $Y$ccc $bbb$w\n";
}
}
push @{$bbby{$bbb}}, $Y;
}
-------------------------------------------------------------------------------
------------------------------
Date: Sun, 12 Jul 1998 22:35:25 GMT
From: delphiask@sale-net.com.au (Peter)
Subject: Reading Radius files
Message-Id: <35a93994.40845478@loomi.telstra.net>
I need a basic script to read a radius log file. I suppose it should
be a lot of log files as it writes a different one for each day. I
would like users to be able to insert there login name into a form and
be able to see their usage etc etc etc up untill the current login.
Has anyone worked with radius files? Also is there any accounting
scripts available to read the same files. I am not an ISP but have a
couple of my mates dial into my system.
Please CC: to delphiask@sale-net.com.au as news is very slow.
------------------------------
Date: Fri, 10 Jul 1998 17:46:56 GMT
From: ncarey@harlequin.com (Nicholas Carey)
Subject: REPOST: Re: Dejanews/closed lists/moderated groups/lists [Was: Re: Is perl5-porters closed to subscription?
Message-Id: <REPOST-27616.1571960449.35a64bb4.59351963@newshost.harlequin.com>
On Fri, 10 Jul 1998 08:59:53 -0500, fl_aggie@thepentagon.com (I R A
Aggie) wrote:
> In article <6o4tee$k5i$1@nnrp1.dejanews.com>, birgitt@my-dejanews.com wrote:
>
> + Is it a matter of netiquette or is it really against the law (violation
> + of the author's copyright - is there really a written law for that ?)
[elided]
> Of course, you can only sue for damages caused unless you file a copyright
> with your local copyright office. And _you_ have to file suit to enforce
> your rights -- copyright infringement is typically a civil matter, not
> criminal.
Not true -- see below.
>
> And who among us is rich enough to file suit over what we post to Usenet?
> The cost is likely to far exceed any monetary rewards.
>
> + What are my rights as the author of that email ? Have there been
> + cases where this became a point of a severe dispute ?
>
> My understanding is that you still retain rights to your {e}mail, but
> that the receipiant also some rights to what you *gave* them. That's not
> real clear to me, but I haven't been bothered to gain clarification.
Right. It's pretty much the same as a book or a handwritten letter.
Copyright Law is [pretty much] based on a manufacturing paradigm:
the only way to 'copy' something is to make a *physical* copy of it.
So, as the author of a work owns the copyright and controls the right
to copy the work, while the owner of a particular copy of a work
controls the use and disposition of that instance but can't copy it.
This paradigm breaks down somewhat with works like email, USENET
news posts or computer software, since its only physical expression
is a pattern of electron states. Ordinary use of such works
*requires* that the pattern be copied. But that is a whole 'nother
topic for discussion.
For instance, only the author or his licensees may make a copy of a
book, but the book's buyer may [within broad limits] do what she
likes with it (sell it, shred it and use it for garden mulch, etc.],
with the sole exception that she can't make a copy of it. Similiarly,
if you are, say, Ms. Monica Lewinski, and decide to publish the
love letters written to you by Mr. William Jefferson Clinton, you've
probably got both a criminal and civil problem on your hands:
although the letters are your property, the text [the expression
of an idea] belongs to the author -- even though the copyright
is not registered the the Copyright Office, even though the letter
makes no assertion of copyright, the copyright still belongs to the
author.
As almost any rental videotape takes great delight in telling you,
copyright violations *are* a criminal offense under Federal Law
with pretty severe penalties. And the copyright holder can sue
for damages in civil court as well. Whether or not the author can
get the FBI or a Federal Prosecutor to take your case is another
matter -- I suspect they have other, better things to do with their
time. But if you're willing to pay a lawyer, you most certainly
can drag the copyright violator into Federal Court. But you
probably won't get much in the way of damages for somebody
misusing a piece of email you sent them. Unless of course,
you're the President of the United States and the email is
a love letter to Monica Lewenski ;-)
DISCLAIMER: This advice is worth exactly what you paid for it.
If you really care about this issue, talk to an intellectual
property lawyer.
Nicholas
========= WAS CANCELLED BY =======:
Control: cancel <35a64bb4.59351963@newshost.harlequin.com>
Newsgroups: news.groups
Path: ...!news-peer.gip.net!news-penn.gip.net!news.gsl.net!gip.net!news-feed.netvision.net.il!news.NetVision.net.il!elscintcorp.co.il!nntp.HipCrime.new!cyberspam!hipcancel!usenet
From: HipCrime@diitjvrxng.org
Subject: cmsg cancel <35a64bb4.59351963@newshost.harlequin.com>
Approved: HipCrime@diitjvrxng.org
Message-ID: <cancel.35a64bb4.59351963@newshost.harlequin.com>
X-No-Archive: Yes
Sender: ncarey@harlequin.com (Nicholas Carey)
Organization: HipCrime International, unLtd.
Date: Sun, 12 Jul 1998 15:52:58 GMT
Lines: 2
Cancelled by HipCrime's NewsAgent.
------------------------------
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 3133
**************************************
