[22057] in Perl-Users-Digest
Perl-Users Digest, Issue: 4279 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 18 09:05:44 2002
Date: Wed, 18 Dec 2002 06:05:12 -0800 (PST)
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, 18 Dec 2002 Volume: 10 Number: 4279
Today's topics:
Re: comment on 2 or 4 spaces indentation (Anno Siegel)
Re: FTPing without Net::FTP <me@privacy.net>
Re: FTPing without Net::FTP <BROWNHIK@Syntegra.Bt.Co.Uk>
Re: FTPing without Net::FTP (Helgi Briem)
Re: FTPing without Net::FTP <flavell@mail.cern.ch>
Re: FTPing without Net::FTP <BROWNHIK@Syntegra.Bt.Co.Uk>
Re: FTPing without Net::FTP <BROWNHIK@Syntegra.Bt.Co.Uk>
How to access to last expression? (i5513)
Re: How to access to last expression? (Anno Siegel)
Re: How to access to last expression? (Jay Tilton)
Installing an event handler with use / require? (Paul Cody Johnston)
Re: Installing an event handler with use / require? <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Re: Installing an event handler with use / require? (Anno Siegel)
Re: mkdir -p <mgjv@tradingpost.com.au>
Re: mkdir -p (Anno Siegel)
Re: mkdir -p <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Re: mkdir -p (Helgi Briem)
Re: mkdir -p news@roaima.freeserve.co.uk
Re: mkdir -p <krahnj@acm.org>
Negation inside a pattern match <sl58554@uta.fi>
Re: Negation inside a pattern match <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: PerlCE on PocketPC <renz-t@web.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Dec 2002 11:55:20 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: comment on 2 or 4 spaces indentation
Message-Id: <atpnn8$34$1@mamenchi.zrz.TU-Berlin.DE>
According to Benjamin Goldberg <goldbb2@earthlink.net>:
[...]
> Personally, I prefer 3 spaces ... I used to use 2 spaces, but on
> occasion, I would look at a piece of code where I'd typoed on the number
> of spaces, and couldn't tell if I'd put in one too few, or one too many.
I agree about the three spaces and used them for a coulple of years, though
the particular reason you mention never occurred to me when I was using two
before that.
These days, I'm up to four, just because so many others use four.
When working with someone else's code, it is a *must* that you adapt
to the given style and not mess up the source by sticking to your
own. It is also a pain to have to suppress your long-trained coding
habits, so I'm trying to minimize that experience.
Just recently I read a style guide which also mentioned indentation
by three, saying that it is a good compromise, but "it's not a power
of two, so it's out". Hmm...
Anno
------------------------------
Date: Wed, 18 Dec 2002 22:49:57 +1100
From: "Tintin" <me@privacy.net>
Subject: Re: FTPing without Net::FTP
Message-Id: <atpnn2$1cv63$1@ID-172104.news.dfncis.de>
"Kevin Brownhill" <BROWNHIK@Syntegra.Bt.Co.Uk> wrote in message
news:atpkai$g4l$1@pheidippides.axion.bt.co.uk...
> # This will work for Unix
Might well do, but why write a shell script as a Perl script?
>
> $cmd = "'open $HOSTNAME\\nuser $USER $PASSWORD\\nasc\\ncd $REMDIR\\nlcd
> LOCALDIR\\nget $filename\\nquit\\n'";
>
> @res = `echo $cmd | /usr/bin/ftp -ivn`;
>
############################################################################
> ########################
> # This works for DOS/Windows
>
> $cmd = <<EOC;
> open $HOSTNAME
> user $USER $PASSWORD
> asc
> lcd $LOCALDIR
> cd $REMDIR
> get $filename
> quit
> EOC
>
> open (FIL, '>c:\\temp.ftp');
> print (FIL $cmd);
> close FIL;
>
> @res = `ftp -ivns:c:\\temp.ftp`;
> unlink 'c:\\temp.ftp';
>
>
------------------------------
Date: Wed, 18 Dec 2002 12:34:03 -0000
From: "Kevin Brownhill" <BROWNHIK@Syntegra.Bt.Co.Uk>
Subject: Re: FTPing without Net::FTP
Message-Id: <atpqbt$jcb$1@pheidippides.axion.bt.co.uk>
"Tintin" <me@privacy.net> wrote in message
news:atpnn2$1cv63$1@ID-172104.news.dfncis.de...
>
> "Kevin Brownhill" <BROWNHIK@Syntegra.Bt.Co.Uk> wrote in message
> news:atpkai$g4l$1@pheidippides.axion.bt.co.uk...
> > # This will work for Unix
>
> Might well do, but why write a shell script as a Perl script?
>
Because it answers the original question.
It is not writing a shell script as Perl - it uses the shell for a small
part of the program. The original poster may need (or want) to use Perl for
the rest of the code. If the OP can't or won't use a module, then this will
work.
Has anyone heart the phrase:
There's more than one way to do it.
------------------------------
Date: Wed, 18 Dec 2002 13:01:31 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: FTPing without Net::FTP
Message-Id: <3e007183.1183970860@news.cis.dfn.de>
On Wed, 18 Dec 2002 12:34:03 -0000, "Kevin Brownhill"
<BROWNHIK@Syntegra.Bt.Co.Uk> wrote:
>If the OP can't or won't use a module, then this will work.
If the OP can't or won't use a module, S/he shouldn't
be coding in Perl.
--
Regards, Helgi Briem
helgi AT decode DOT is
A: Top posting
Q: What is the most irritating thing on Usenet?
- "Gordon" on apihna
------------------------------
Date: Wed, 18 Dec 2002 14:09:52 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: FTPing without Net::FTP
Message-Id: <Pine.LNX.4.40.0212181406070.29616-100000@lxplus072.cern.ch>
On Dec 18, Kevin Brownhill inscribed on the eternal scroll:
> "Tintin" <me@privacy.net> wrote in message
> news:atpnn2$1cv63$1@ID-172104.news.dfncis.de...
> >
> > Might well do, but why write a shell script as a Perl script?
>
> Because it answers the original question.
"Elegant variation" sometimes throws an interesting new light on a
problem. Sometimes, it makes a sow's ear out of a silk purse.
> Has anyone heart the phrase:
> There's more than one way to do it.
Some of them are suboptimal, though.
------------------------------
Date: Wed, 18 Dec 2002 13:26:51 -0000
From: "Kevin Brownhill" <BROWNHIK@Syntegra.Bt.Co.Uk>
Subject: Re: FTPing without Net::FTP
Message-Id: <atpter$kmn$1@pheidippides.axion.bt.co.uk>
> >If the OP can't or won't use a module, then this will work.
>
> If the OP can't or won't use a module, S/he shouldn't
> be coding in Perl.
Is that the law or just your opinion?
------------------------------
Date: Wed, 18 Dec 2002 13:33:55 -0000
From: "Kevin Brownhill" <BROWNHIK@Syntegra.Bt.Co.Uk>
Subject: Re: FTPing without Net::FTP
Message-Id: <atpts4$kt3$1@pheidippides.axion.bt.co.uk>
"Alan J. Flavell" <flavell@mail.cern.ch> wrote in message
news:Pine.LNX.4.40.0212181406070.29616-100000@lxplus072.cern.ch...
> On Dec 18, Kevin Brownhill inscribed on the eternal scroll:
>
> > "Tintin" <me@privacy.net> wrote in message
> > news:atpnn2$1cv63$1@ID-172104.news.dfncis.de...
> > >
> > > Might well do, but why write a shell script as a Perl script?
> >
> > Because it answers the original question.
>
> "Elegant variation" sometimes throws an interesting new light on a
> problem. Sometimes, it makes a sow's ear out of a silk purse.
>
> > Has anyone heart the phrase:
> > There's more than one way to do it.
>
> Some of them are suboptimal, though.
>
What is the optimal answer to the question <FTPing without Net::FTP> then.
------------------------------
Date: 18 Dec 2002 03:11:06 -0800
From: i5513@hotmail.com (i5513)
Subject: How to access to last expression?
Message-Id: <a657ec02.0212180311.537d7cf6@posting.google.com>
Hi, I have a problem, I want to work with expresions that contains
more than nine sub-expresion:
If you have a expresion that has more than nine parenthesis, and you
want the last sub-expresion, how can I access it?
For example:
I've got this expresion:
( {DIA} [,]?)?(( {DECENA} y {UNIDAD} | {DECENA} | {UNIDAD} )| {NUM} )
de {MES} (de(( {NUM} |(( {UNIDAD} )?( {MIL} )?( {CENTENA} )?((
{DECENA} (y {UNIDAD} )?)| {NUM} | {UNIDAD} )?))(d. c.)?))?
Thanks you
------------------------------
Date: 18 Dec 2002 11:16:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How to access to last expression?
Message-Id: <atples$r8f$2@mamenchi.zrz.TU-Berlin.DE>
According to i5513 <i5513@hotmail.com>:
> Hi, I have a problem, I want to work with expresions that contains
> more than nine sub-expresion:
> If you have a expresion that has more than nine parenthesis, and you
> want the last sub-expresion, how can I access it?
>
> For example:
> I've got this expresion:
> ( {DIA} [,]?)?(( {DECENA} y {UNIDAD} | {DECENA} | {UNIDAD} )| {NUM} )
> de {MES} (de(( {NUM} |(( {UNIDAD} )?( {MIL} )?( {CENTENA} )?((
> {DECENA} (y {UNIDAD} )?)| {NUM} | {UNIDAD} )?))(d. c.)?))?
What makes you think you can't go past $9? $10, etc, work just as well.
Anno
------------------------------
Date: Wed, 18 Dec 2002 11:18:50 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: How to access to last expression?
Message-Id: <3e005885.45228985@news.erols.com>
i5513@hotmail.com (i5513) wrote:
: Hi, I have a problem, I want to work with expresions that contains
: more than nine sub-expresion:
: If you have a expresion that has more than nine parenthesis, and you
: want the last sub-expresion, how can I access it?
There's nothing magical about the number nine.
You can keep going, e.g. $10, $11, $12 . . .
If you want the very last capture, look in $+ .
------------------------------
Date: 18 Dec 2002 03:48:11 -0800
From: pcj-google@inxar.org (Paul Cody Johnston)
Subject: Installing an event handler with use / require?
Message-Id: <9d4ea49.0212180348.36fdaf1a@posting.google.com>
I would like to receive notification when a particular Module is fully
loaded. This would look something like:
my $sub = { print "My::Module loaded!\n; };
add_loader_listener("My::Module", $sub);
Later at some unpredictable time during program execution, if
"My::Module" is dynamically loaded, $sub would be invoked.
Any way to do this?
Paul
------------------------------
Date: Wed, 18 Dec 2002 13:12:30 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: Installing an event handler with use / require?
Message-Id: <newscache$vwdb7h$2nl$1@news.emea.compuware.com>
Paul Cody Johnston wrote:
> I would like to receive notification when a particular Module is fully
> loaded. This would look something like:
>
> my $sub = { print "My::Module loaded!\n; };
> add_loader_listener("My::Module", $sub);
>
> Later at some unpredictable time during program execution, if
> "My::Module" is dynamically loaded, $sub would be invoked.
>
> Any way to do this?
>
> Paul
Do you have a multi-threaded application? Otherwise I fail to see the use,
as use/require are atomic actions (from the application point of view).
So after a use or require you don't have to wait or check if the module has
been loaded.
--
KP
------------------------------
Date: 18 Dec 2002 12:52:30 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Installing an event handler with use / require?
Message-Id: <atpr2e$2i5$1@mamenchi.zrz.TU-Berlin.DE>
According to Paul Cody Johnston <pcj-google@inxar.org>:
> I would like to receive notification when a particular Module is fully
> loaded. This would look something like:
>
> my $sub = { print "My::Module loaded!\n; };
> add_loader_listener("My::Module", $sub);
>
> Later at some unpredictable time during program execution, if
> "My::Module" is dynamically loaded, $sub would be invoked.
>
> Any way to do this?
You mean, without changing what's in "My::Module"? Since "use"
(and require(), and do()) aren't overridable, there doesn't seem
to be a way to regain control after a module is loaded.
The closest I can come up with is this:
unshift @INC, sub { print "loading: $_[ 1]\n"; return };
This sub will now be called with the module name as its second parameter
each time "use" or "require" is called (See perldoc -f require for more.)
So each module will be reported, but *before* the attempt to load it.
Whether the load succeeded will only be known later.
Anno
------------------------------
Date: Wed, 18 Dec 2002 22:07:23 +1100
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: mkdir -p
Message-Id: <slrnb00lnb.aid.mgjv@martien.heliotrope.home>
On Wed, 18 Dec 2002 16:23:06 +0530,
Sandeep Grover <sgrover@quicklogic.com> wrote:
> Hi,
>
> I am using
> `mkdir -p a/b/c/d`
> to create a directory a/b/c/d, where a, b, c
> are also not exisint.. -p switches creates
> the hierarchical directories.
It is probably better to use
use File::Path;
mkpath("a/b/c/d");
More portable, most likely more efficient.
Also: If you are not interested in the output of a program, don't run it
with backticks. Instead use system(), and check the return value. See
the perlfunc entry on system() for more information.
If you must use backticks, check the return value as well. If it comes
back with undef, something went wrong, and you should check $? to find
out more. See the entry for qx// in the perlop documentation.
> This command when executed on shell is working fine
> but when invoked thru perl doesnt !
Use File::Path's mkpath (and check the return value), or use system (and
check the return status)
> Can anyone tell me what I am doing wrong ?
Perl and your OS probably will tell you when you pay attention to what
they have to say, by always checking return values.
Are you sure you're in the directory you think you're in? Are you sure
that the user executing the program has the needed permissions? Was
anything printed on stderr?
You're not executing this a a CGI program, are you? See Perl FAQ,
section 9 for some things you need to read before continuing in that
case.
> Also does perl's native mkdir provides support
> for -p switch in any case ?
No (unless your OS can do it), but File::Path's mkpath does support it.
Martien
--
|
Martien Verbruggen | Little girls, like butterflies, need no
| excuse - Lazarus Long
|
------------------------------
Date: 18 Dec 2002 11:10:16 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: mkdir -p
Message-Id: <atpl2o$r8f$1@mamenchi.zrz.TU-Berlin.DE>
According to Sandeep Grover <sgrover@quicklogic.com>:
> Hi,
>
> I am using
> `mkdir -p a/b/c/d`
> to create a directory a/b/c/d, where a, b, c
> are also not exisint.. -p switches creates
> the hierarchical directories.
The '-p' switch is an extension of the mkdir *command*. It is supported
on some versions of Unix, but not all.
> This command when executed on shell is working fine
> but when invoked thru perl doesnt !
Perl's mkdir() is an interface to the system call mkdir(), not the
command. The system call creates only one directory at a time, there
is no support for the -p functionality.
Many Unix commands share names with a system- or library call, and
hence with the corresponding Perl builtins, but the builtins always
mimic the basic calls, never the command.
> Can anyone tell me what I am doing wrong ?
> Also does perl's native mkdir provides support
> for -p switch in any case ?
Well, there's "system mkdir -p ...", and then there's File::Path.
For portability, the latter is preferred.
Anno
------------------------------
Date: Wed, 18 Dec 2002 12:14:28 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: mkdir -p
Message-Id: <newscache$58bb7h$3ml$1@news.emea.compuware.com>
Sandeep Grover wrote:
> Hi,
>
> I am using
> `mkdir -p a/b/c/d`
> to create a directory a/b/c/d, where a, b, c
> are also not exisint.. -p switches creates
> the hierarchical directories.
>
> This command when executed on shell is working fine
> but when invoked thru perl doesnt !
>
> Can anyone tell me what I am doing wrong ?
> Also does perl's native mkdir provides support
> for -p switch in any case ?
>
> Regards
> Sandeep
Why don't you read the documentation (perldoc -f mkdir) and find the answer
yourself? With these questions you are likely to influence someone's
scorefile. That same one you may desperately need help from if you *really*
have a Perl problem.
--
KP
------------------------------
Date: Wed, 18 Dec 2002 11:19:32 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: mkdir -p
Message-Id: <3e005859.1177528597@news.cis.dfn.de>
On Wed, 18 Dec 2002 16:23:06 +0530, Sandeep Grover
<sgrover@quicklogic.com> wrote:
>I am using `mkdir -p a/b/c/d`
Don't use backticks unless you want to
return the values from a system command.
Use system instead:
system ('mkdir -p a/b/c/d');
>to create a directory a/b/c/d, where a, b, c
>are also not exisint.. -p switches creates
>the hierarchical directories.
>
>This command when executed on shell is working fine
>but when invoked thru perl doesnt !
Always, *always*, ALWAYS return the error value ($?)
from forked child processes. Let the computer tell
you what's wrong:
system ('mkdir -p a/b/c/d') == 0 or
die "Cannot mkdir a/b/c/d:$?\n";
>Can anyone tell me what I am doing wrong ?
Not without the returned error.
>Also does perl's native mkdir provides support
>for -p switch in any case ?
Here's one way:
#!perl
use strict;
use warnings;
use File::Path;
my $path = 'a/b/c/d';
my $printpath = 1;
my $perms = '0711';
mkpath $path,$printpath,$perms
or die "Cannot mkpath $path:$!\n";
__END__
--
Regards, Helgi Briem
helgi AT decode DOT is
A: Top posting
Q: What is the most irritating thing on Usenet?
- "Gordon" on apihna
------------------------------
Date: Wed, 18 Dec 2002 11:58:15 +0000
From: news@roaima.freeserve.co.uk
Subject: Re: mkdir -p
Message-Id: <nsnpta.rae.ln@moldev.cmagroup.co.uk>
Sandeep Grover <sgrover@quicklogic.com> wrote:
> Also does perl's native mkdir provides support
> for -p switch in any case ?
No, but you can use File::Path to provide a function to emulate this:
use File::Path;
mkpath ('a/b/c/d', 0, 0700);
Or, with some error trapping,
eval { @a = mkpath("a/b/c/d", 0, 0700) };
if ($@) {
# Got an error of some sort
warn "ERROR: $@";
...
}
if (@a) {
print "Created directories: ", join(", ", @a), ".\n";
}
Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}
------------------------------
Date: Wed, 18 Dec 2002 12:08:13 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: mkdir -p
Message-Id: <3E0064E7.5BE25F29@acm.org>
Sandeep Grover wrote:
>
> I am using
> `mkdir -p a/b/c/d`
> to create a directory a/b/c/d, where a, b, c
> are also not exisint.. -p switches creates
> the hierarchical directories.
>
> This command when executed on shell is working fine
> but when invoked thru perl doesnt !
>
> Can anyone tell me what I am doing wrong ?
> Also does perl's native mkdir provides support
> for -p switch in any case ?
Use the File::Path module
use File::Path;
mkpath( 'a/b/c/d' );
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 18 Dec 2002 13:44:15 +0000 (UTC)
From: Sami Leino <sl58554@uta.fi>
Subject: Negation inside a pattern match
Message-Id: <atpu3f$7l3$1@news.cc.tut.fi>
Hi.
I need to write mail filtering rules for Postfix, and for this purpose I
intended to use Perl Compatible Regular Expressions (PCRE). In Postfix
header filter files I can use REJECT for rejecting messages, but it seems
that I cannot use OK or ACCEPT for accepting messages. Therefore, I would need
to convert an ACCEPT rule to REJECT rule using negation inside the regexp.
Here's an example use case:
* I want to accept all messages that are coming from "allowed.com", but
reject all messages that are coming from elsewhere.
If I would like to reject all messages that are coming from "bogus.com",
the filter entry would be something like this:
/^From: (.*)bogus.com$/ REJECT
So, how do I convert this to use negation? I tried to use the negation
notation '?!' to achieve this, but had no luck with it. Does anyone have
an idea about this?
Regards,
Sami
--
---------------------------------------------------------------------------
---- Sami Leino E-mail: sami.leino@uta.fi ----
---- Tullikatu 12 A 9 GSM: (050) 518 5037 ----
---- 21100 Naantali, Finland ---------------- ----
---------------------------------| A500 Forever |--------------------------
----------------
------------------------------
Date: Wed, 18 Dec 2002 13:50:05 +0000 (UTC)
From: Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: Negation inside a pattern match
Message-Id: <atpued$hir$1@korweta.task.gda.pl>
In article <atpu3f$7l3$1@news.cc.tut.fi>, Sami Leino wrote:
> Hi.
>
> I need to write mail filtering rules for Postfix, and for this purpose I
> intended to use Perl Compatible Regular Expressions (PCRE). In Postfix
> header filter files I can use REJECT for rejecting messages, but it seems
> that I cannot use OK or ACCEPT for accepting messages. Therefore, I would need
> to convert an ACCEPT rule to REJECT rule using negation inside the regexp.
>
> Here's an example use case:
>
> * I want to accept all messages that are coming from "allowed.com", but
> reject all messages that are coming from elsewhere.
>
> If I would like to reject all messages that are coming from "bogus.com",
> the filter entry would be something like this:
>
> /^From: (.*)bogus.com$/ REJECT
>
> So, how do I convert this to use negation? I tried to use the negation
> notation '?!' to achieve this, but had no luck with it. Does anyone have
> an idea about this?
I'd suggest using ?!...*correctly*.
How did you use it?
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Wed, 18 Dec 2002 13:27:15 +0100
From: "Tobias Renz" <renz-t@web.de>
Subject: Re: PerlCE on PocketPC
Message-Id: <atppis$76k$1@news.online.de>
Wow, i'm amazed.
Perl running on my PocketPC
, it's quite slow but i'll see what it can do for me...
:-)
Thanks for the posting.
--
Greetings
Tobias Renz
------------------------------
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.
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 4279
***************************************
