[12958] in Perl-Users-Digest
Perl-Users Digest, Issue: 368 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 4 15:17:27 1999
Date: Wed, 4 Aug 1999 12:10:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 4 Aug 1999 Volume: 9 Number: 368
Today's topics:
Perl Penetration Data <tchrist@mox.perl.com>
Re: Perl Penetration Data (Larry Rosler)
Re: Perl script as a FTP client <jalovel@spamblock.enteract.com>
Re: Problem: extracting terminology from text <cassell@mail.cor.epa.gov>
Re: Repetition in RE substitutions <jcreed@cyclone.jprc.com>
Re: Special delete <cassell@mail.cor.epa.gov>
Re: truncating decimals <paulm@dirigo.com>
Re: Where to post this? (Jon Bell)
Re: Why is it.... (Larry Rosler)
Re: Why is it.... <cassell@mail.cor.epa.gov>
Re: Why is it.... <tchrist@mox.perl.com>
Re: Working Telnet Script Needed <cassell@mail.cor.epa.gov>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 4 Aug 1999 12:12:39 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Perl Penetration Data
Message-Id: <37a88297@cs.colorado.edu>
Vendor Name: Apple Computer, Inc.
OS Name/Version: Mac OS X Server 1.0 and greater
Perl version: 5.005_03
Status: Standard part of installed system utility set
Since when: Spring 1999
Notes: http://www.apple.com/macosx/server/ Perl sharedlib
and headers are installed in the Perlframework; a
framework being a collection ofheaders, binaries,
and related other resources.I'm working to over
time have the main Perldistribution install
appropriately on Mac OSX Server.
Vendor Name: Be, Inc.
OS Name/Version: BeOS 4.5
Perl version: 5.005_03 (I think. might be 5.005_02)
Status: part of "optional" software set
Since when: June 1999
Vendor Name: Compaq Computer Corporation
OS Name/Version: OpenVMS VAX all versions, OpenVMS Alpha all
versions,Windows NT x86, Windows NT Alpha, Windows
98, Tru64 Unix
Perl version: perl5.003, 5.003_05, current versions, CPAN mirror
Status: Available on a Freeware CD that ships with OS
(VMS/T64Unix) as well as from a few web/ftp
sites:http://www.openvms.digital.com/freeware/PERL5
/ftp://www.openvms.digital.com/freeware/PERL5/ftp:/
/ftp.digital.com/pub/plan/perl/CPAN/
Since when: several years now
Vendor Name: Compaq Computer Corporation
OS Name/Version: Tru64 UNIX V5.0
Perl version: 5.004_04 (as of V5.0--will change with time)
Status: /usr/bin/perl is standard, but all run-timesupport
(modules and documentation) is part ofan optional
subset in the main distribution.
Since when: Summer 1999
Vendor Name: Compaq Computer Corporation
OS Name/Version: VMS 6.2
Perl version: 5.004_03
Status: On Freeware CD included as part of OS
distributionkit. Also included as part of the
Netscape FastTrackserver install kit distributed
with VMS 7.2.
Since when: 1995
Vendor Name: Data General
OS Name/Version: dgux/R4.20MU04 generic AViiON PentiumPro
Perl version: 5.x ships with OS.
Status: NIS on OS depends on a dgadm.pl library, oneneeds
to be careful before overwriting /usr/bin/perlwith
an update.
Since when: several years
Vendor Name: Debian Project
OS Name/Version: Debian GNU/Linux 2.1 (our stable release)Debian
GNU/Linux 2.2 (our unstable release)
Perl version: perl5.004_04 (in 2.1),perl5.005_03 (in 2.2)
Status: standard part of installed system utility set
Since when: Perl has been a standard component since the
project inceptionin 1993.
Notes: Lists latest installed version as "perl", others as
perl-ver;both threaded and non-threaded versions
supplied.
Vendor Name: DG
OS Name/Version: DG/UX R4.11MU04, DG/UX 5.4R3.10
Perl version: perl4.036
Status: UNKNOWN
Since when: UNKNOWN
Vendor Name: FreeBSD, Inc.
OS Name/Version: FreeBSD >=3.2 (see history)
Perl version: perl5.005_03
Status: standard part of installed system utility set
Since when: May 5, 1999
Notes: Since September 1998 FreeBSD has perl5 as a
standard part ofinstalled system utility set
(/usr/bin/perl). Before FreeBSDhad perl4 as its
/usr/bin/perl - since September 1994, version4.046.
Perl5 was available as a ``port''.
Vendor Name: Hewlett-Packard
OS Name/Version: HP-UX 10.X and 11.X
Perl version: perl4.036
Status: Part of USER-CONTRIB bundle
Since when: HP-UX 10.00
Notes: HP does not formally support Perl, except when
q4,the kernel debugger, is concerned.
Vendor Name: Hewlett-Packard Company
OS Name/Version: HP-UX 11.00
Perl version: perl4.036
Status: part of standard fileset OS-Core.Q4 (Crash Dump
Debugger)installed as /usr/contrib/bin/perl
Since when: November 1997
Notes: No man pages or docs except for some references
in/usr/contrib/doc/Q4Docs.tar.Z
Vendor Name: IBM
OS Name/Version: OS/390 R2.3 and later, OS/400 (version?), AIX SP/2
Perl version: perl5.001e last time I tried an SP/2.perl5.003
(OS/400) binary on $CPAN/ports/as400, 5.004_03
(OS/390 binary)
Status: The one for AIX on the SP/2 ships with the OS.
Theothers are available from ibm.com ftp servers
(that Icannot find right now) as well as
http://www.mks.com/.The as400 binaries in
CPAN/ports/ are from IBM Rochester, Minnesota.
Since when: several years for AIX SP/2 and OS/400, since fall
98 for OS/390
Vendor Name: Microsoft Corporation
OS Name/Version: Windows NT (recent versions)
Perl version: latest (or recent) activestate build.
Status: Ships with the "NT Resource Kit" (CD) not the OS.
Since when: several years
Vendor Name: Novell
OS Name/Version: Netware
Perl version: 5.003_07 (from Activestate NT Perl of October
1996).
Status: Ships with special "webified" version of OS +
packaging on CD.
Since when: UNKNOWN
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.0
Perl version: perl5.003
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.1
Perl version: perl5.003
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.2
Perl version: perl5.003
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.3
Perl version: perl5.003
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.4
Perl version: perl5.00404
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.5
Perl version: perl5.00404
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Vendor Name: OpenBSD Project
OS Name/Version: OpenBSD 2.6
Perl version: perl5.00503
Status: standard part of installed system utility set
Since when: Every formal OpenBSD release has included perl
Notes: OpenBSD 2.6 has not been released yet but thisis
the perl version in the source tree.
Vendor Name: Rebel(?) (formerly Corel Computer)
OS Name/Version: arm Linux (based on Redhat 5.x)
Perl version: 5.004_01 ships with Netwinder DM machines.
Status: see http://www.rebel.com/ for more info.
Since when: at least since Fall 1998 (DM), July 1999 "Office
Netwinder"
Vendor Name: Red Hat
OS Name/Version: Red Hat Linux 5.2
Perl version: perl5.004_04-m4
Status: standard part of installed system utility set
Since when: Oct. 14, 1998 (final build date before release)
Notes: Installed as /usr/bin/perl
Vendor Name: Red Hat
OS Name/Version: Red Hat Linux 6.0
Perl version: perl5.005_03
Status: standard part of installed system utility set
Since when: Apr 19, 1999 (final build date before release)
Notes: Installed as /usr/bin/perl
Vendor Name: SCO
OS Name/Version: Unixware 2.1/2.1.1/2.1.2/2.1.3
Perl version: perl4.036
Status: Installed in /usr/gnu/bin and probably unsupported
- infact it may be part of an optional package but
as theUnixware package manager can't tell you what
filesbelong to what package I can't check.
Since when: Release
Vendor Name: SCO
OS Name/Version: Unixware 7
Perl version: perl5.? (machine not bootable ATM so I can't check)
Status: UNKNOWN
Since when: Release
Vendor Name: SGI
OS Name/Version: IRIX 6.5.x
Perl version: perl 5.004_04
Status: standard part of installed system utility set
(/usr/sbin)
Since when: Since I've had IRIX, spring '98 (obviously, before
that)
Vendor Name: Siemens Nixdorf Informationssysteme AG
OS Name/Version: SINIX-N/Release 5.43 Version B0050 and Release 5.43
Version C4001
Perl version: 5.003 ships with stated OS versions.
Status: More recent versions seem to build fine on this
SysVR4platform.
Since when: at least since 1997
Vendor Name: Silicon Graphics
OS Name/Version: IRIX 6.5
Perl version: perl5.004_04
Status: UNKNOWN
Since when: summer 1999
Notes: SGI also has a contrib CD that usually has more
recent stuff on it.
Vendor Name: Slackware
OS Name/Version: Slackware Linux 3.5
Perl version: 5.00404
Status: 5.00404 binary and libraries as an optionally
installable standard package
Since when: June 1998
Notes: The "zipslack" sub-distribution - a prefab job
designed toinstall on top of a Dosish system and
fit on a 'zip'drive (77MB size) - also contains the
perl package.
Vendor Name: Sun Microsystems
OS Name/Version: Solaris 8 Beta
Perl version: 5.005_03
Status: standard part of installed system utility set
Since when: July 1999
Notes: Engineering support for Perl as an accepted
developmentlanguage within the Solaris product is
being developed,with full support being available
for the releasefollowing Solaris 8. An early
utility (that will shipin /usr/bin), based on Alan
Burlison's Kstat module,should be included in the
final version of Solaris 8.
--
"To claim any more than that is to invite a religious war, which I ain't.
Go thou and don't likewise."
--Larry Wall
------------------------------
Date: Wed, 4 Aug 1999 12:02:23 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl Penetration Data
Message-Id: <MPG.12122e171477884d989dc3@nntp.hpl.hp.com>
In article <37a88297@cs.colorado.edu> on 4 Aug 1999 12:12:39 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
...
> Vendor Name: Hewlett-Packard
> OS Name/Version: HP-UX 10.X and 11.X
> Perl version: perl4.036
> Status: Part of USER-CONTRIB bundle
> Since when: HP-UX 10.00
> Notes: HP does not formally support Perl, except when
> q4,the kernel debugger, is concerned.
>
> Vendor Name: Hewlett-Packard Company
> OS Name/Version: HP-UX 11.00
> Perl version: perl4.036
> Status: part of standard fileset OS-Core.Q4 (Crash Dump
> Debugger)installed as /usr/contrib/bin/perl
> Since when: November 1997
> Notes: No man pages or docs except for some references
> in/usr/contrib/doc/Q4Docs.tar.Z
<*B*L*U*S*H*>
However, for binaries, there's [Archived: 24 Dec 1997]
<URL:http://hpux.cs.utah.edu/hppd/hpux/Languages/perl-5.004_04/>
<blush>
And, of course, there's CPAN.
I gave up on HP, and just built and installed my first perl, 5.005_03,
from CPAN source, on an HP-UX 9000/735 workstation running HP-UX 9.05.
Ancient OS, new perl. Runs just fine!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 4 Aug 1999 18:31:59 GMT
From: Jeff Lovell <jalovel@spamblock.enteract.com>
Subject: Re: Perl script as a FTP client
Message-Id: <7oa0uv$2384$1@news.enteract.com>
Craig <cmd@nospam_altnews.com.au> wrote:
> I found a Perl script a while ago which could be used as a FTP client to
> do things such as make dirs, delete & upload etc....
> Does anyone know where I could find this script?
http://www.cpan.org
look for the Net::FTP module.
------------------------------
Date: Wed, 04 Aug 1999 11:21:05 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Problem: extracting terminology from text
Message-Id: <37A88491.955FDED3@mail.cor.epa.gov>
Denis Pleic wrote:
>
> Hi,
>
> Again, I have a linguistic-related problem, and I need suggestions.
>
> A while ago on a terminology mailing list, someone asked if there's
> a tool which would enable you to extract "new" terminology from a
> fairly large text. Here's an excerpt from the message:
[big snip]
> So, if the text to filter has 20,000 words, and the dictionary has
> 10,000 words, that would mean 20,000 individual comparison
> operations against a 10,000 word list... Quite time-consuming, right?
If you do it badly. You'll be interested in a good answer to
this, which is already in the Perl FAQ. Specifically, the
answer to:
"How do I compute the difference of two arrays? How do I compute
the intersection of two arrays?"
> I'd also like to hear any ideas regarding how to set about doing
> this (the original text should be split into lexical units - words,
> for comparing them with the dictionary)...
You'd have to deal with such arcana as singular vs. plural
words [see Lingua::EN::Inflect module], uppercase vs lowercase
[see the uc and lc functions], and some parsing issues [see
all the parsing and parser-like modules at CPAN].
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 04 Aug 1999 13:53:48 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: Repetition in RE substitutions
Message-Id: <a17lnbsa8j.fsf@cyclone.jprc.com>
lr@hpl.hp.com (Larry Rosler) writes:
> I hate to call you out in the midst of such a nice article [catcalls in
> the background -- yeah, sure you hate to :-], but that produces a count
> of the dashes, not a deletion. And there's more you would have to do to
> get what was requested.
>
> But you went on to do it much better, anyway.
Yeah, since in this case 'being a hypen within a \d+(-\d+)* match'
and 'being a hyphen between two digits' happen to be equivalent.
(pretty sure about that, at least)
Is there a cleaner solution other than a s///-within-s///e
for more general regexes than /\d+(-\d+)*/ and /-/, though?
---Jason
------------------------------
Date: Wed, 04 Aug 1999 11:48:10 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Special delete
Message-Id: <37A88AEA.8F728965@mail.cor.epa.gov>
Alex Farber wrote:
>
> Hi Jean-Pierre,
>
> Jean-Pierre Sangin wrote:
> > Please could you tell me the command to delete in a directory all
> > files created one week ago or more.
>
> maybe something like (no guarantee):
>
> opendir DIR, $DIR or die "can not read $DIR: $!\n"
> @files = grep {$_ = "$DIR/$_" and # change to full path
> -f and # plain file
> -M > 7} readdir DIR; # over 7 days old
> closedir DIR;
> unlink @files;
Ooh. Alex, you have given some good help today, but this is
not one of them. Can you even get this to compile?
I didn't think so. Please please please, learn from this
mistake [and those that I have made], and *always* test your
code before you post it. 'Unguaranteed' code from someone
who is supposed to know the answer is going to be treated as
'perfect' code by the naive reader.
HAND,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 04 Aug 1999 18:54:31 GMT
From: Stone Cold <paulm@dirigo.com>
Subject: Re: truncating decimals
Message-Id: <7oa292$qpr$1@nnrp1.deja.com>
In article <7o9ti1$rs7$1@nntp9.atl.mindspring.net>,
"Allan M. Due" <Allan@due.net> wrote:
> Stone Cold wrote in message <7o9rlt$lin$1@nnrp1.deja.com>...
> :In article <7o9jfa$e5k$1@nntp9.atl.mindspring.net>,
> : "Allan M. Due" <Allan@due.net> wrote:
> :> Please see Perlfaq4:
> :> which concludes with: "To get rid of the superfluous digits, just
use
> :> format (eg, printf("%.2f", 19.95)) to get the required precision.
See
> :> perlop. "
> :
> :Can this work in a foreach loop that I've setup? Can we specify the
> :"printf" statement at the beginning of the foreach?
>
> Not to be trying to be snippy but what happened when you tried it?
Did
> you take a look at the info about printf in perlfunc? (Actually,
> reading about sprintf is probably at least equally important.)
Anyway,
> printf works just like print except you have control over the format.
> See the sprintf and printf sections in perlfunc for more on format
> options, then take it for a test spin.
Yes, I did try it and I got some screwed up output. My print statement
currently is in a foreach loop. I'm using the CGI module to output to
a web page. The print statement looks as follows:
foreach $x (@$rows) {
print "<tr><td valign=middle align=center width=15%>$pmonth ";
$pmonth is the result of an equation within my script. It will output
the revenue dollars per month. My question is "where do I put the printf
(%.2f, etc) function if my "print" is in a foreach loop.
Thanks.
>
> HTH
>
> AmD
> --
> $email{'Allan M. Due'} = ' All@n.Due.net ';
> --random quote --
> You have to be very careful if you don't know where you are going,
> because you might not get there.
> - Yogi Berra
>
>
--
Paul R. Mesker
System Engineer
Dirigo Inc.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 4 Aug 1999 18:29:42 GMT
From: jtbell@presby.edu (Jon Bell)
Subject: Re: Where to post this?
Message-Id: <FFyE1I.C8v@presby.edu>
Jamie LeTual <jamie@hbe.ca> wrote:
>
>I work for a Montreal software company, and was told to 'find people'
> [...] So, the point here is, does
>anybody have any suggestions as to where I can post the information for
>these jobs?
In this case, the appropriate nesgroups would be misc.jobs.offered and (if
it exists) mtl.jobs.
--
Jon Bell <jtbell@presby.edu> Presbyterian College
Dept. of Physics and Computer Science Clinton, South Carolina USA
[ Information about newsgroups for beginners: ]
[ http://www.geocities.com/ResearchTriangle/Lab/6882/ ]
------------------------------
Date: Wed, 4 Aug 1999 11:33:46 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Why is it....
Message-Id: <MPG.12122761cffe50ed989dc1@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <37a86524@cs.colorado.edu> on 4 Aug 1999 10:07:00 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
<SNIP of trenchant but
> ... phenomenally politically incorrect ...
elitist article>
> Some people have a knack for programming, but most people don't.
> Not everyone is born to do everything.
...
> Very few are born gifted, but that's the only way you get it--which
> is why, after all, it's called a gift.
Some are born programmers, some achieve programming, and some have
programming thrust upon 'em.
Too many of the latter these days, I trow! But there is lots of hope
for the middle class, especially with modern tools and with this kind of
newsgroup support.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 04 Aug 1999 11:44:32 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Why is it....
Message-Id: <37A88A10.A96611AC@mail.cor.epa.gov>
Tom Christiansen wrote:
[a lovely post, heartlesly snipped]
Bravo! Bravo!
And you expect disagreement in *this* newsgroup?
BTW, why is it acceptable to tell people that they have no
athletic ability, no musical ability, etc., but you
are a creep if you try to tell someone they have no gift
for programming?
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 4 Aug 1999 12:53:38 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Why is it....
Message-Id: <37a88c32@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
><SNIP of trenchant but
>> ... phenomenally politically incorrect ...
>elitist article>
% grep elit geekspeaklist
competent = elitist
condescending = elitist
elite = competent
elite = professional
elite = top-notch
elitism = meritocracy
elitist = meritocratic
elitist = professional
professionalism = elitism
programmer = elitist
snob = elitist
snobs = elite
More seriously, I find "political correctness" to be more
often asssociated with censorship than with sensitivity.
--tom
--
Lispers are among the best grads of the Sweep-It-Under-Someone-Else's-Carpet
School of Simulated Simplicity. [Was that sufficiently incendiary? :-)]
--Larry Wall in <1992Jan10.201804.11926@netlabs.com
------------------------------
Date: Wed, 04 Aug 1999 11:11:06 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Working Telnet Script Needed
Message-Id: <37A8823A.62E9BC26@mail.cor.epa.gov>
Jonathan Stowe wrote:
>
> HC <carvdawg@patriot.net> wrote:
[snip]
>
> No but you *did* whine:
>
> HC <carvdawg@patriot.net> wrote:
> >
> > Wow, Dave! You don't have anything to contribute, so you hammer the guy!
[snip of rest]
But, as the person HC was complaining about, let me defend
him. He did have the sense to take this off-line. And he
did have the guts to discuss this with me personally, instead
of hiding behind an alias. And we didn't come to the e-mail
equivalent of 'pistols at twenty paces' either. And he did
actually write real Perl code [that actually runs] to help
the original poster. So I vote for giving him a break. Today,
anyway. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 368
*************************************
