[24259] in Perl-Users-Digest
Perl-Users Digest, Issue: 6450 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 23 03:05:41 2004
Date: Fri, 23 Apr 2004 00: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 Fri, 23 Apr 2004 Volume: 10 Number: 6450
Today's topics:
CGI.pm, was Re: cgi.pm <flavell@ph.gla.ac.uk>
Re: free source guestbook (finished) <matthew.garrish@sympatico.ca>
Re: free source guestbook (finished) <tassilo.parseval@rwth-aachen.de>
Re: Help with TCP_NODELAY and socket.ph <uri@stemsystems.com>
Re: Huffman coding and Parse::RecDescent <uri@stemsystems.com>
Re: I know, I know, I don't know <nospam@bigpond.com>
indexing <bckumari@yahoo.com>
Re: indexing <mgjv@tradingpost.com.au>
need a good module. <robin @ infusedlight.net>
Re: need a good module. <spamtrap@dot-app.org>
Re: need a good module. <uri@stemsystems.com>
Re: need a good module. <matthew.garrish@sympatico.ca>
Re: need a good module. <tassilo.parseval@rwth-aachen.de>
Re: Operator overloading <nospam-abuse@ilyaz.org>
operator <bckumari@yahoo.com>
Re: operator <nospam@bigpond.com>
Re: operator <dave@dave.org.uk>
Re: perl -d interfering with program execution? <nospam-abuse@ilyaz.org>
Re: perl book list <1usa@llenroc.ude>
Re: perl book list <robin @ infusedlight.net>
Re: perl book list <uri@stemsystems.com>
perl <bckumari@yahoo.com>
Re: perl <nospam@bigpond.com>
Re: perl <vetro@online.no>
SOLVED: Creating hash with an array as value <anders_postkasseKEINEJUNK@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Apr 2004 02:07:53 +0100
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: CGI.pm, was Re: cgi.pm
Message-Id: <Pine.LNX.4.53.0404230205090.7938@ppepc56.ph.gla.ac.uk>
On Thu, 22 Apr 2004, Sherm Pendley wrote:
> Robin wrote:
>
> > well, I was looking through the code, and I thought I could get it to
> > print some information on how to use it, but then I realized it's probably
> > just the comments and some docs in there as commnets
>
> That's more or less what it is. The docs you read with the 'perldoc' tool
> (or as man pages, or HTML, or ...) aren't stored separately. They're
> embedded in the module itself, in a format called POD - Plain Ol'
> Documentation.
That's true of the Perl core (which includes -a- version of CGI.pm).
> See 'perldoc perldoc' for more about the perldoc tool.
> See 'perldoc perlpod' for more about the POD format.
See http://stein.cshl.org/WWW/CGI/ for the author's own
maintained-in-HTML documentation for CGI.pm, and download of the
recent version to which it refers.
------------------------------
Date: Thu, 22 Apr 2004 23:24:16 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: free source guestbook (finished)
Message-Id: <w%%hc.80473$Gp4.1883818@news20.bellglobal.com>
"Robin" <robin @ infusedlight.net> wrote in message
news:c69p23$j4p$1@reader2.nmix.net...
>
> your right, I misread my code...sorry everyone...
>
My right? Your left!
How does one misread their own code presumably after having just written it?
Would you please stop posting every stupid thought that comes into your
head.
Matt
------------------------------
Date: 23 Apr 2004 04:24:30 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: free source guestbook (finished)
Message-Id: <c6a5pt$9oi7h$1@ID-231055.news.uni-berlin.de>
Also sprach Robin:
> "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> wrote in message
> news:c69d1j$906pa$1@ID-231055.news.uni-berlin.de...
>> You also mailed this as a CC to me. It would help if you could in future
>> mention this in your mail, otherwise I reply via mail just to realize a
>> bit later that I should have better responded in the group.
>
> yeah, I had more to say than one message could say, and I didn't realize it
> at first.
That was not what I meant. If you post a follow-up to a posting and
additionally send the follow-up as mail, state that in the mail with
something like
[ also posted to comp.lang.perl.misc ]
or
[ posted and mailed ]
or so.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Fri, 23 Apr 2004 02:54:45 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Help with TCP_NODELAY and socket.ph
Message-Id: <x7smevjte2.fsf@mail.sysarch.com>
>>>>> "KI" == Kevin Ireland <kevin_ireland@adaptec.com> writes:
KI> I am trying to set TCP_NODELAY for a perl socket object, but I am
KI> having problems with socket.ph on my system, which I had made
KI> using h2ph.The error I get is:
why are you using socket.ph? and why did you run h2ph? those are for
perl4. Socket.pm has all you need for that and even better, use
IO::Socket.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 23 Apr 2004 02:58:07 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Huffman coding and Parse::RecDescent
Message-Id: <x7pt9zjt8g.fsf@mail.sysarch.com>
>>>>> "JE" == Jon Ericson <Jon.Ericson@jpl.nasa.gov> writes:
JE> Uri Guttman <uri.guttman@fmr.com> writes:
>>
>> home_run: /\bH\b/ | /\bHR\b/
>>
>> also i was under the impression that basic P:RD will split input on
>> white space so the home_run production should only match H when the
>> token is H.
JE> Right. The problem is this data is *not* split into tokens by white
JE> space. For instance `H8' is the code for an inside the park home run
JE> fielded by the center fielder. Sorry I didn't make that clear.
well, i can't help much with poor specs! :)
JE> Someone wrote an email with the suggestion:
JE> home_run: /H(?![A-Z])/ | 'HR'
JE> That does the trick, I think.
looks ok. if you gave a complete spec then we could help more.
JE> I'm not sure Parse::RecDescent is the right tool for the job, but it
JE> sure is fun to play around with. :)
sounds like overkill for this. is it all just one line? P:RD is meant
for real grammars and such and what you have seems like a simple string
with some tricky parsing. a decent set of regexes could do that but a
proper and full spec is needed.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 23 Apr 2004 12:17:49 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: I know, I know, I don't know
Message-Id: <1627041.FZ7Sjaj7sT@GMT-hosting-and-pickle-farming>
Andries wrote:
> Hello all,
>
> Yes I'm aware this is the wrong newsgroup (so please point me to the
> right one please) I looked in alt how to but only porn there.
> So please don't flame
>
> My question is this.
> I use whisper (a password generator) for accounts.
> Meanwhile i have 1500 accounts so i want to put things in a database
> or report to analyse.
> Problem is that Whisper doesn't have an export function to ascii text.
> I mailed the author of the program and he says it's programmed in
> delphi and he hasn't the time to programm this.
> I'm not a programmer but i remember from my dos days that you can
> print-to-file somehow. I like to think i have a text-file and then i
> can arrange things. (I'm trying to learn perl so i have a good
> playfield to experiment)
> I use Windows 2000 and i can't think of anything to solve my problem.
>
> Andries Meijer
> zilz@home.nl
My thought is to install http://www.cygwin.com/ to get a decent development
environment.
Then either use 'expect' and process the output, or capture the output using
nohup.
gtoomey
------------------------------
Date: Fri, 23 Apr 2004 01:23:06 -0400
From: "kums" <bckumari@yahoo.com>
Subject: indexing
Message-Id: <bbeaf74f82810d2a47bb9c6c6f203ae1@localhost.talkaboutprogramming.com>
A word has many no. of subdivisions of words.That subdivisions has many
no.of subdivisions.and etc.
how to provide number indexing to that words.
consider the foll.example
i want to prefix indexing like..
1.word
1.1 alphabets.
1.1.1 small
1.1.2 caps
1.2 numbers
2.color
------------------------------
Date: 23 Apr 2004 06:39:43 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: indexing
Message-Id: <slrnc8hehe.hva.mgjv@verbruggen.comdyn.com.au>
On Fri, 23 Apr 2004 01:23:06 -0400,
kums <bckumari@yahoo.com> wrote:
> A word has many no. of subdivisions of words.That subdivisions has many
> no.of subdivisions.and etc.
> how to provide number indexing to that words.
> consider the foll.example
> i want to prefix indexing like..
> 1.word
> 1.1 alphabets.
> 1.1.1 small
> 1.1.2 caps
> 1.2 numbers
> 2.color
And?
What is your question? Where is your code? What's the input?
Judging by your other posts, you're trying to answer questions that
sound a lot like homework...
Why don't you just post the original full questions, as well as the
name of your instructor. We can then do your homework for you, and
submit it directly, thereby saving you even more trouble.
Martien
--
|
Martien Verbruggen | +++ Out of Cheese Error +++ Reinstall
Trading Post Australia | Universe and Reboot +++
|
------------------------------
Date: Thu, 22 Apr 2004 18:06:36 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: need a good module.
Message-Id: <c6a09b$l57$2@reader2.nmix.net>
Does anyone know of any modules that create and display dynamically
dhtml/css layers?
--
Regards,
-Robin
--
[ webmaster @ infusedlight.net ]
------------------------------
Date: Thu, 22 Apr 2004 22:58:17 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: need a good module.
Message-Id: <POKdnWZmCfLbGxXdRVn-ug@adelphia.com>
Robin wrote:
> Does anyone know of any modules that create
Tons of 'em. CGI.pm has some basic HTML creation functions built in.
HTML::Mason is popular. There are a boatload of template modules on CPAN,
too many to list here - go to cpan.org and search for "html template".
> and display dynamically dhtml/css layers?
That's harder - much harder. What you're essentially asking is how to write
a browser in Perl, complete with CSS and JS support. That's a fairly meaty
project.
If you're using Mac OS X Panther, you can use CamelBones and WebKit to write
a browser - there's one at <http://jerakeen.org/programming/toybox/>.
If you're on Linux, you might be able to do something with GTK's HTML widget
and Perl bindings.
If you're using Windows, you'll have to ask someone else. I haven't done
much with Windows for a while.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Fri, 23 Apr 2004 03:03:07 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: need a good module.
Message-Id: <x7n053jt05.fsf@mail.sysarch.com>
>>>>> "R" == Robin <robin @ infusedlight.net> writes:
R> Does anyone know of any modules that create and display dynamically
R> dhtml/css layers?
i use Delete::Robin all the time. i highly recommend it.
why do these dumb self-taught coders never realize how little we care
about their opinions or code? is it some self-delusion that they
actually matter? i didn't read the books post but i am sure it was
useless, and given the 'reviewer', it will be a silly list as he never
seems to rtfm at all, so how could anyone trust him to pick books?
and books.perl.org already exists.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 22 Apr 2004 23:05:59 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: need a good module.
Message-Id: <nK%hc.80308$Gp4.1874484@news20.bellglobal.com>
"Robin" <robin @ infusedlight.net> wrote in message
news:c6a09b$l57$2@reader2.nmix.net...
> Does anyone know of any modules that create and display dynamically
> dhtml/css layers?
>
You just have to say the magic words: Click-a-dee-click. Barba trick!
On a more serious note, I heard once of a project to mesh PSI::ESP with
CGI.pm to create an automated interface that responds to what users want. In
other words, a webmaster like you could will the output from your scripts to
suit whatever needs you have. It might not be easy to find (not sure how far
the project has come along), but if nothing else you'll learn how to use
Google. You may even learn how write dhtml on your own.
Matt
------------------------------
Date: 23 Apr 2004 04:38:35 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: need a good module.
Message-Id: <c6a6kb$9fgvc$1@ID-231055.news.uni-berlin.de>
Also sprach Uri Guttman:
>>>>>> "R" == Robin <robin @ infusedlight.net> writes:
>
> R> Does anyone know of any modules that create and display dynamically
> R> dhtml/css layers?
>
> i use Delete::Robin all the time. i highly recommend it.
The more I see pointless postings such as this one, the more I'm tempted
to recommend giving you a negative score.
> why do these dumb self-taught coders never realize how little we care
> about their opinions or code? is it some self-delusion that they
> actually matter? i didn't read the books post but i am sure it was
> useless, and given the 'reviewer', it will be a silly list as he never
> seems to rtfm at all, so how could anyone trust him to pick books?
Eh, what is that? Making implicit crossreferences to other threads
(whose original posting, btw, is not carried by my news server) is not a
very clever thing to do unless they are made explicit by giving a
message-id or at least the subject.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Fri, 23 Apr 2004 02:46:57 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Operator overloading
Message-Id: <c6a030$2nq3$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Sisyphus
<kalinaubears@iinet.net.au>], who wrote in article <4087e0a9$0$16593$5a62ac22@freenews.iinet.net.au>:
> > What brought you to that conclusion? It's wrong. The overload routine
> > must *return* an object, it doesn't have to create it. It is perfectly
> > free to return its first argument with or without prior modification.
> That's what I needed to know.
> If I want to return the "first argument with or without prior
> modification" then the overload routine needs to increase the first
> arg's reference count - otherwise 'DESTROY($obj)' gets called.
This looks logical. Perl does not know whether you return a new
object, or an old one. If you return a new one, you preserve the
refcount of the old one, and create the new object with refcount 1.
When the new object is not needed (it is just a temporary needed until
the result is assigned somewhere), Perl will decrement its refcount.
So the total refcount is "the_old_refcount + 1". Does REFCOUNT_inc()
in the case when the old object is reused become logical now?
Hope this helps,
Ilya
------------------------------
Date: Fri, 23 Apr 2004 01:46:54 -0400
From: "kums" <bckumari@yahoo.com>
Subject: operator
Message-Id: <9d6926ebdbe6805405d9f41666c934ab@localhost.talkaboutprogramming.com>
tell me the difference between the substitution operator(s) and
transliteration operator(tr)
------------------------------
Date: Fri, 23 Apr 2004 15:52:14 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: operator
Message-Id: <10316698.9mkf4Pb1MT@GMT-hosting-and-pickle-farming>
kums wrote:
> tell me the difference between the substitution operator(s) and
> transliteration operator(tr)
Sounds like homework.
gtoomey
------------------------------
Date: Fri, 23 Apr 2004 07:44:15 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: operator
Message-Id: <pan.2004.04.23.06.44.15.197492@dave.org.uk>
On Fri, 23 Apr 2004 01:46:54 -0400, kums wrote:
> tell me the difference between the substitution operator(s) and
> transliteration operator(tr)
The substitution operator substitutes and the transliteration operator
transliterates.
Dave...
------------------------------
Date: Fri, 23 Apr 2004 02:58:49 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: perl -d interfering with program execution?
Message-Id: <c6a0p9$2o13$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Pat Deegan
<news**NO_SPAM**@psychogenic.com>], who wrote in article <pan.2004.04.22.21.35.15.893737@psychogenic.com>:
> > Check the data it is matched against, and whether you can reproduce th
> > failure in a standalone perl. If not, I suspect a bug in DBI XS code,
> > which may write over the a spurious pointer, breaking some Perl table.
>
> My main question here is: why would this only happen under the -d
> debugger?
By definition. ;-) A write though a spurious pointer hits an
unpredictable target. Any change to memory layout may lead to a
change of symptoms...
> > Another hint: enable REx debugging, and see what differs between these
> > situations.
>
> Ah, this is interesting. I've gone through the joyous process of
> compiling and installing the latest stable Perl (and just about every
> third party module I use), with -DDEBUGGING enabled in order to run the
> program with the -Dr switch.
?!!!
use re 'debugcolor';
> Matching REx `^dbi:(\w*?)(?:\((.*?)\))?:' against
> `dbi:mysql:database=mydb;host=localhost'
> Setting an EVAL scope, savestack=223
> 0 <> <dbi:mysql:database=mydb;host=localhost> | 1: BOL 0 <>
> <dbi:mysql:database=mydb;host=localhost> | 2: EXACTF <dbi:>
> Guessing start of match, REx `^_<' against
> `/usr/lib/perl5/5.8.3/utf8.pm'... String not equal...
> Match rejected by optimizer
Your data is in utf8 mode. My guess is:
a) such a match calls an external Perl module to understand what
Unicode case-conversions of 'dbi:' are;
b) under debugger, calling Perl code results in a REx match /^_</
somewhere in the internals of the debugger;
c) As a result, another REx is executed while Perl is trying to
understand what `dbi:' means in the original REx;
d) apparently, nobody continued my work to make the REx engine
reenterable. As a result, the REx engine is confused.
So it looks like a triple fault (a+b+d).
Enjoy, :-(
Ilya
------------------------------
Date: 23 Apr 2004 01:52:52 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: perl book list
Message-Id: <Xns94D3DE978ADE7asu1cornelledu@132.236.56.8>
"Robin" <robin @ infusedlight.net> wrote in news:c69phf$jae$1
@reader2.nmix.net:
> begin 666 vh32.gif
> Attachment saved: C:\Program Files\xnews\attachments\vh32.gif
> `
> end
18 binary attachments in a text newsgroup. You must be out of your mind to
think that anyone is going to bother helping you with anything.
According to your bio, you have been building web sites since before you
came out of the womb so "I didn't know" will not be a valid excuse. I have
sent an abuse report to your ISP. Hope they'll do something.
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Thu, 22 Apr 2004 19:47:26 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: perl book list
Message-Id: <c6a1dr$lf7$1@reader2.nmix.net>
shit, the images weren't supposed to be there.
-Robin
------------------------------
Date: Fri, 23 Apr 2004 03:20:36 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: perl book list
Message-Id: <x7isfrjs6z.fsf@mail.sysarch.com>
>>>>> "R" == Robin <robin @ infusedlight.net> writes:
R> shit, the images weren't supposed to be there.
shit, you are a moron.
just stop posting here already.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 23 Apr 2004 01:49:16 -0400
From: "kums" <bckumari@yahoo.com>
Subject: perl
Message-Id: <3a83479f9333ef9d7438fbe705cf0c5b@localhost.talkaboutprogramming.com>
why we are using perl?
what is the perl's usage and advantages?
------------------------------
Date: Fri, 23 Apr 2004 15:52:40 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: perl
Message-Id: <6087856.yg3Xq06RtX@GMT-hosting-and-pickle-farming>
kums wrote:
> why we are using perl?
> what is the perl's usage and advantages?
Do your own homework.
gtoomey
------------------------------
Date: Fri, 23 Apr 2004 08:44:23 +0200
From: Vetle Roeim <vetro@online.no>
Subject: Re: perl
Message-Id: <m3hdvbdwhk.fsf@quimby.dirtyhack.org>
* bckumari@yahoo.com
> why we are using perl?
Why are we here? Why do we exist? What is the meaning of life?
Interesting questions, indeed.
> what is the perl's usage and advantages?
Perl's advantages are numerous. First of all, it provides unparalell
fnordability. Secondly, it provides its users with a newsgroup for
posting all sorts of crap. However, this is outweighed by the fact
that Perl users actually have time to post answers to the crappy
postings on the newsgroups.
Thanks for listening.
--
#!/usr/bin/vr
------------------------------
Date: Fri, 23 Apr 2004 08:48:51 +0200
From: Anders Christensen <anders_postkasseKEINEJUNK@hotmail.com>
Subject: SOLVED: Creating hash with an array as value
Message-Id: <c6ae6m$r7u$1@news.cybercity.dk>
Thanx for the answers, my issue is now solved:)
./Anders
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6450
***************************************
