[12799] in Perl-Users-Digest
Perl-Users Digest, Issue: 209 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 21 08:08:13 1999
Date: Wed, 21 Jul 1999 05:05:08 -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, 21 Jul 1999 Volume: 9 Number: 209
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Re: [Q] In-Browser technology (Cameron Laird)
Checking files in a directory tree <jont@uk.uu.net>
Re: Checking files in a directory tree <gellyfish@gellyfish.com>
Re: Checking files in a directory tree <thomas@bibsyst.no>
example for HTML SELECT MULTIPLE <dchender@esn.net>
Re: example for HTML SELECT MULTIPLE <gellyfish@gellyfish.com>
Re: Hashes (Bart Lateur)
Re: Hashes <gellyfish@gellyfish.com>
Re: Hashes <thomas@bibsyst.no>
Re: Keeping competitors out <chris@inta.net.uk>
Perl binary IO question <eyal.ben-david@aks.com>
Re: Perl CGI Performance <clint@drtech.co.uk>
Re: regular Expression (Bart Lateur)
Re: regular Expression (Marcel Grunauer)
Re: Runtime Error in LanMan EnumShares <carvdawg@patriot.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 21 Jul 1999 10:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage932552641.5444@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 10 Sep 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 21 Jul 1999 11:49:29 GMT
From: claird@starbase.neosoft.com (Cameron Laird)
Subject: Re: [Q] In-Browser technology
Message-Id: <FE280F7BBBA37CB8.59F593825701D528.AC56447361430CED@lp.airnews.net>
In article <932522335.684.43@news.remarQ.com>,
Vladik <reason@shadow.net> wrote:
>OK, I will try to clarify my question.
>With the warning that I may not be speaking
>authoritatively about the web technologies yet:
>I am just starting this research.
.
.
.
>I do not know what it is supposed to be
>a plugin or not --- but a technology that
>allows to develop not-trivial GUI applications
>that run withing a browser.
What's the benefit of the browser? It sounds
as though you want something that works over
a network, and operates something like Java
and JavaScript, but programmed in a language
"better" than Java or JavaScript, and with no
particular server-side component. Why are we
talking about Web applications at all? Is
there some reason you're not choosing your own
language and designing your own protocol? Many
of us do that sort of work daily.
.
.
.
>
>> 2. "... a prototype of the client
>> in MS ASP (active server pages)
>> and, I think but not sure, blended
>> with Visual Basic ..." I have no
>> definite idea of what you're say-
>> ing here. Is it that your
>> customer has a picture of the
>> visual appearance of the desired
>> deliverable? What is there about
>> the ASP prototype that does *not*
>> meet the requirements? Is VB
>> blended on the server or client
>> side? Does it matter? Is it really
>> VB, or VBScript?
>
> I meant that VB script was used in the prototype, not VB
I'll ask again: what constrains your team from
rewriting the display-handling in JavaScript,
refining the prototype business rules, and
declaring that you have won the war? Is there
something in the architecture of the prototype,
apart from VBScript's non-portability, that
doesn't meet your requirements.
>
>> 3. Are you aware that *lots* of browsers
>> read pages served as ASP? You can
>> use ASP without requiring IE.
>NO I was not aware. Thanks for pointing out
>I will try to find more about netscape (the only
>two browser we are to support are Netscape and IE).
What does it mean to support the browsers?
It sounds as though you're willing to deploy
plugins on every desktop anyway; what benefit
do the browsers give?
.
.
.
>I guess what I was looking for is something like
>this:
>"Here is a technology like Java (or different
>but accomplises the same thing), and it is based on this
>OO programing language and here is the page where you
>can read more about that also includes technical comparasings
>between this technology and JavaScript (or other)
>"
OK, sure. Tcl has a plugin. There's a whole book
on Perl-coded Web clients. The Grail Web browser
is written in and fully programmable in Python.
You've already found out about Juice. People have
done wonderful Web and more general client-server
things with Eiffel and Forth and Scheme and ... I
have unpacked a few of my notes on language compar-
isons at <URL:http://
starbase.neosoft.com/~claird/comp.lang.misc/language_comparisons.html>.
Still, I feel I'm just not getting it. You want
something just like Java, except faster; you're not
going to find it. I acknowledge Juice is zippier
and more compact for particular test cases; I have
no way of knowing, though, whether those isolated
measurements have *any*thing to do with your domain.
I rather suspect they don't.
.
.
.
>I have never used JavaScript for development, for comparising Juice
>applet gets to my computer faster and draws the wireframe
>example faster.
>The client app we will have to develop will have to
>a) maintain a limited set of bussiness rules
>b) apply a to relatively large sets of data from the database
Are you quite sure you want all this processing to
be on the client side? Why is this a Web application
at all?
>
>
>> 6. How much client-side programming are
>> you doing? Why does object-orienta-
>> tion there matter to you?
>
>Yes it does. Because the app will contain some bussiness
>rules, some data access and data presentation layers.
I'll take this as a religious matter.
.
.
.
>Well, I guess what I was asking the ability to have
>the server run on any platform and this web client
>be executable withing a browser that runs on any platform.
Everything we've discussed, apart from
VBScript, is as portable as you seem to
need.
.
.
.
>They make SRC available, I downloaded it,
>the license does not seem to be restrictive, but I am
>clear on that 100% yet.
I repeat: talk with them. Perhaps Juice
is more portable than you realize.
.
.
.
There's something about this picture that
doesn't make sense to me. You are rela-
tively inexperienced in designing Web
architectures, so you're asking for help.
Good. It sounds as though you're respon-
sible for quite a serious project. If
this work is as important as it seems,
and you don't have local experts to offer
seasoned judgment, and you're in the hurry
I gather you are, then I advise you to fly
in someone you trust for a couple days of
consultation. It will be far less expen-
sive than trying to recreate on short
notice the expertise that comes only with
practice.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 281 996 8546 FAX
------------------------------
Date: Wed, 21 Jul 1999 11:32:08 +0100
From: "Jonathan Tracey" <jont@uk.uu.net>
Subject: Checking files in a directory tree
Message-Id: <7n47mn$oag$1@lure.pipex.net>
Hi
Can anyone point me in a simple way of reading a large directory tree and
checking file extensions. I want to report back on the number and total size
of a particular filetype eg *.doc. I can think of a number of very long
winded ways of doing it but I am sure there must be a simpler way.
Cheers
Jon
------------------------------
Date: 21 Jul 1999 11:39:17 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Checking files in a directory tree
Message-Id: <3795a355@newsread3.dircon.co.uk>
Jonathan Tracey <jont@uk.uu.net> wrote:
> Hi
>
> Can anyone point me in a simple way of reading a large directory tree and
> checking file extensions. I want to report back on the number and total size
> of a particular filetype eg *.doc. I can think of a number of very long
> winded ways of doing it but I am sure there must be a simpler way.
>
You will be wanting use the module File::FInd for this - refuse all
proffered alternatives.
/J\
--
"I don't have access to the intelligence" - Michael Howard
------------------------------
Date: Wed, 21 Jul 1999 13:03:26 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Re: Checking files in a directory tree
Message-Id: <3795A8FE.12FB7630@bibsyst.no>
> You will be wanting use the module File::FInd for this - refuse all
> proffered alternatives.
What do you mean 'refuse all proffered alternatives'? I mean, what ever
works, use it. BUT,
the File::Find-mod. is great; easy to use and fast. I have had some
problems with cd-roms not getting read correctly. It was fixed setteting
nlinks=0 or some value. See the docs or code for correct values. But I
still have some cds which seems to be hard for it to read. Some files
are ignored etc. I won`t say this for sure, until I`ve tested it
properly. If somebody has anymore tips on how to configure this module,
please post it.
Just for the record, the cd-roms I`ve had some problems with are burned
under Windows, using Joliet-standard, and the perl-script are used on
Linux.
Thomas Weholt
------------------------------
Date: Wed, 21 Jul 1999 07:01:42 -0700
From: "M.A. Henderson" <dchender@esn.net>
Subject: example for HTML SELECT MULTIPLE
Message-Id: <3795D2C6.3538F03D@esn.net>
Could someone give an example how to retrieve the multiple selections in
this:
print '<SELECT MULTIPLE NAME="BanList" SIZE="5">'."\n" ;
foreach my $elem (@banarray) {
print "<OPTION VALUE=>$elem </OPTION>\n" ;
}
------------------------------
Date: 21 Jul 1999 12:13:29 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: example for HTML SELECT MULTIPLE
Message-Id: <3795ab59@newsread3.dircon.co.uk>
M.A. Henderson <dchender@esn.net> wrote:
> Could someone give an example how to retrieve the multiple selections in
> this:
>
> print '<SELECT MULTIPLE NAME="BanList" SIZE="5">'."\n" ;
> foreach my $elem (@banarray) {
> print "<OPTION VALUE=>$elem </OPTION>\n" ;
> }
If you are using the module CGI.pm this will be documented in the manpage.
/J\
--
"Tony Blair is reported to be detained indefinitely under plans unveiled
by the Home Secretary" - Corrupt Teletext Page
------------------------------
Date: Wed, 21 Jul 1999 10:15:21 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Hashes
Message-Id: <379a9ca5.2945737@news.skynet.be>
05317@stblaw.com wrote:
>In using Hashes, every once in a while I get, Odd number of elements in
>hash. What am I doing wrong ?
I sometimes find myself having this error by using a statement like:
%hash = { a => 1, b => 2 };
See the curly braces?
But, since you only "occasionally" have this error, this probably won't
be it. You may doing something like
%hash = ( 'a', 'b', 'c', 'd', 'e' );
where the list on the right hand side contains, er, an odd number of
elements.
Try printing the keys out. Somewhere, you'll see some keys that were
supposed to be values. That's where you went wrong.
Bart.
------------------------------
Date: 21 Jul 1999 11:21:13 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Hashes
Message-Id: <37959f19@newsread3.dircon.co.uk>
Thomas Weholt <thomas@bibsyst.no> wrote:
> David Cassell wrote:
>>
>> [courtesy cc emailed, assuming this is a legit return address]
>>
>> 05317@stblaw.com wrote:
>> >
>> > In using Hashes, every once in a while I get, Odd number of elements in
>> > hash. What am I doing wrong ?
>> >
>> > these hashes have at least 4500 items in them.
>>
>> Well, 4500 isn't an odd number of elements for a hash. But 4501
>> would be. This error message typically means that you managed to
>> give a hash a bunch of key-value pairs, plus one. Arrays don't
>> care about their size, but hashes ought to come in key-value
>> pairs.
>>
>> One way to avoid this if you're just typing stuff in, is to use
>> the arrow => instead of the comma between the key and the value.
>> That way you can see how things line up.
>>
>> HTH,
>> David
>> --
>> David Cassell, OAO cassell@mail.cor.epa.gov
>> Senior computing specialist
>> mathematical statistician
>
> In fact, I`ve managed to get the 'odd number of elements'-error/warning
> using the -> method as well. I stored something like
>
> $rec = {
> name => $name,
> age => $age,
> phone => $phone,
> };
>
> in a tied MLDBM-hash-kinda-thing. Does it matter where the input comes
> from, I mean the $name,$age and $phone, because in my case it was from
> to different record-like ... things.
> To be exact the code above looked more like
>
> $rec = {
> name => $some_other_rec->{name},
> age => $some_other_rec->{age},
> phone => $some_third_thing->{phone},
> };
>
> How can this be odd numbered elements ( or whatever ) ?
This can be an odd number if any of those things are undef ...
/J\
--
"If I was going to wear a wig I'd choose something a lot better than this"
- Barry Norman
------------------------------
Date: Wed, 21 Jul 1999 12:37:55 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Re: Hashes
Message-Id: <3795A303.1C1765AC@bibsyst.no>
> >
> > $rec = {
> > name => $some_other_rec->{name},
> > age => $some_other_rec->{age},
> > phone => $some_third_thing->{phone},
> > };
> >
> > How can this be odd numbered elements ( or whatever ) ?
>
> This can be an odd number if any of those things are undef ...
Ah ... I see. Are there any idiomatic ( or whatever you cool perl-wiz
say ) to check this,
perhaps like an java try-catch exception-like thing, that could trap
instances like these and deal with them, put default values into the
record instead etc.
------------------------------
Date: Wed, 21 Jul 1999 12:58:41 +0100
From: "Chris Denman" <chris@inta.net.uk>
Subject: Re: Keeping competitors out
Message-Id: <7n4cr3$1a6o$1@news2.vas-net.net>
It all depends on what sort of access we are talking about.
If your competitors are just simply looking at your information, then you
are buggered as they will get this information in one way or another.
If they are dynamically stealing content from your site (using get) to show
this content on their site, then this can be stopped to a cirtain degree as
the script stealing this information would be on a static machine, probably
with a static IP address (or at least a range).
Look at the server logs, determine the IP address of the machine with the
'steal' script, and simply paste something like the following at the top of
your code:
if($ENV{'REMOTE_ADDR'} eq 'ip address of machine'){
print "Location: http://www.fred.com/core/goaway.html\n\n";
exit;
}
Hope that is of any help.
Chris Denman
------------------------------
Date: Wed, 21 Jul 1999 13:24:06 +0200
From: Eyal Ben-David <eyal.ben-david@aks.com>
Subject: Perl binary IO question
Message-Id: <3795ADD6.500892BB@aks.com>
Hello,
I'd like to know how I write perl code which its effect
is identical to the following C code.
/**** C code *****/
long n;
/* ... */
FILE* fp = fopen("foo", "rb");
read( fileno(fp), &n, sizeof(n));
fclose(fp);
++n;
fp = fopen("foo", "wb");
write(fileno(fp), &n, sizeof(n));
fclose(fp);
/**** End of C code ***/
This code writes raw bytes of the number n.
I'm well aware to the problems of this code but I'm
porting some old C code to Perl.
Thanks in advance,
Eyal
------------------------------
Date: Wed, 21 Jul 1999 11:35:13 +0100
From: "Clinton Gormley" <clint@drtech.co.uk>
Subject: Re: Perl CGI Performance
Message-Id: <7n47np$m56$1@taliesin.netcom.net.uk>
Hi Dave
Dave Ortman <dortman@my-deja.com> wrote in message
news:7n2v9n$b7u$1@nnrp1.deja.com...
> Question,
>
> I've typically worked with server side Java to generate web pages; and
> have found them to be satisfactory with regards to speed and
> resources. However, I've now working on a web site that was written in
> Perl, which I have had no previous experience with.
>
> I always had the understanding that CGI proved to be a less than
> perfect tool to implement web site with any decent amount of traffic;
> due to the spawning of additional threads for each and every page
> request. Is this an issue in reality?
Yes it is an issue. For every call, the server needs to set up the CGI
environment, load Perl, load the script, compile it run it, and then shut
down again. It has quite an effect on performance.
>
> Along that same line, what does mod perl offer? Does it offer some of
> the same qualities that other server side technologies might offer?
> (i.e. ASP, JSP, Java Servlets)
mod_perl is fantastic. It offers all that the above offers and more. It
allows you all of the flexibilty and power of Perl, combined with lightning
fast reaction times, and access to every part and stage of Apache.
Also, you can use java servlets with Apache if you so desire.
>
> I have done a little reading on mod perl. Am I correct that it is only
> available with Apache. Also, it seems that migrating a decent sized
> project to mod perl would a less than trivial task?
Yes it is only available with Apache (to my knowledge). If the project is
currently running with perl under CGI, it would not be too difficult to
migrate using Apache::Registry.
>
> Can somebody offer me some information regarding these items? If it's
> quicker to point me to a URL, please do so.
Fantastic book available from O'Reilly (Apache Modules).
Also, look at http://perl.apache.org and especially
http://perl.apache.org/guide (you'll find most answers to problems in this
guide)
>
> Thanks in advance,
> -Dave
>
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don'
Clint.
------------------------------
Date: Wed, 21 Jul 1999 10:09:20 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: regular Expression
Message-Id: <37999a57.2356392@news.skynet.be>
Abigail wrote:
>for (my $i = my $c = 0; $i < length ($str); $i ++) {
> my $char = substr ($str, $i, 1);
> $c ++ if $char eq '(';
> $c -- if $char eq ')';
> die "Not balanced" if $c < 0;
I feel tempted to "perlify" this to:
--$c < 0 and die "Not balanced" if $char eq ')';
I think it's better not to do the "die" test every single time, but only
when $c is decremented.
>}
>die "Not balanced" if $c;
Oops. This gives me a "Name "main::c" used only once: possible typo at"
warning. Reason is the use of "my" in "my $c" in the "for" statement.
Bart.
------------------------------
Date: Wed, 21 Jul 1999 10:18:32 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: regular Expression
Message-Id: <37969e51.5703401@enews.newsguy.com>
On 21 Jul 1999 00:12:41 -0500, abigail@delanet.com (Abigail) wrote:
>I've given the "detect whether an expression has balanced parenthesis"
>so often to newbie students, and it's so trivial to do in any language,
>I wouldn't even think 'regex' if I want to solve this.
>
>for (my $i = my $c = 0; $i < length ($str); $i ++) {
> my $char = substr ($str, $i, 1);
> $c ++ if $char eq '(';
> $c -- if $char eq ')';
> die "Not balanced" if $c < 0;
>}
>die "Not balanced" if $c;
gives a warning on the last line, since $c is local to the for-loop.
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: Wed, 21 Jul 1999 06:10:56 -0400
From: HC <carvdawg@patriot.net>
Subject: Re: Runtime Error in LanMan EnumShares
Message-Id: <37959CB0.8D2E8798@patriot.net>
Giovanni...
I have had this problem and have sent it off to the author...with exact steps
as to what I was doing. For example, I get the error when I log into a machine
via a null session...not Administrator, not as a user, but via a null session.
I
don't know why, but other applications that enumerate shares via null sessions
work just fine...EnumShares does not. The author emailed me back stating that
he couldn't duplicate the error, and suggested that I use Microsoft C++ to
debug what was going on...
Giovanni Davila wrote:
> I'm getting all the shares from my NT servers but when this function fails I
> get a "runtime error". Even though, I'm using if (!Win32::LanMan....) my
> function does not seem to handle the error and it quits.
> Any ideas?
> Thank you.
------------------------------
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 209
*************************************
