[29655] in Perl-Users-Digest
Perl-Users Digest, Issue: 899 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 2 21:09:46 2007
Date: Tue, 2 Oct 2007 18:09:09 -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 Tue, 2 Oct 2007 Volume: 11 Number: 899
Today's topics:
$current_script_line_number jidanni@jidanni.org
Re: $current_script_line_number <dummy@example.com>
Re: $current_script_line_number <rkb@i.frys.com>
Re: $current_script_line_number charley@pulsenet.com
Re: Copy using system <rvtol+news@isolution.nl>
Re: How to set a COM Object property to TRUE <anonymous@127.0.0.1>
Re: howto generate html email with reference to a png-p (Darren Dunham)
Re: howto generate html email with reference to a png-p <spamtrap@dot-app.org>
jabba the tuh <zaxfuuq@invalid.net>
line 16 <zaxfuuq@invalid.net>
Re: line 16 <paduille.4061.mumia.w+nospam@earthlink.net>
Re: line 16 <rkb@i.frys.com>
Re: line 16 <jgibson@mail.arc.nasa.gov>
Re: Odd regex behavior sln@netherlands.co
Re: run perl program when there is new file? <rvtol+news@isolution.nl>
Re: the camel perl book <cwilbur@chromatico.net>
Re: Trivial? <tony@skelding.co.uk>
wana watch latest hindi hot videos? diprat7@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 03 Oct 2007 03:06:55 +0800
From: jidanni@jidanni.org
Subject: $current_script_line_number
Message-Id: <87tzp9jpyo.fsf@jidanni.org>
die() has access to these two:
$ perldoc -f die
the current script line number and input line number
The latter is $., but what about the former? No accessing that
from within one's program unless one wants to die() or warn()?
------------------------------
Date: Tue, 02 Oct 2007 19:46:02 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: $current_script_line_number
Message-Id: <_dxMi.138880$bO6.41170@edtnps89>
jidanni@jidanni.org wrote:
> die() has access to these two:
> $ perldoc -f die
> the current script line number and input line number
>
> The latter is $., but what about the former? No accessing that
> from within one's program unless one wants to die() or warn()?
Search perldata for __LINE__
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Tue, 02 Oct 2007 14:26:21 -0700
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: $current_script_line_number
Message-Id: <1191360381.420764.117880@o80g2000hse.googlegroups.com>
On Oct 2, 12:06 pm, jida...@jidanni.org wrote:
> die() has access to these two:
> $ perldoc -f die
> the current script line number and input line number
>
> The latter is $., but what about the former? No accessing that
> from within one's program unless one wants to die() or warn()?
Look for $0 in this perldoc
perldoc perlvar
Also read
perldoc -f caller
------------------------------
Date: Tue, 02 Oct 2007 16:26:07 -0700
From: charley@pulsenet.com
Subject: Re: $current_script_line_number
Message-Id: <1191367567.841941.29740@r29g2000hsg.googlegroups.com>
On Oct 2, 3:06 pm, jida...@jidanni.org wrote:
> die() has access to these two:
> $ perldoc -f die
> the current script line number and input line number
>
> The latter is $., but what about the former? No accessing that
> from within one's program unless one wants to die() or warn()?
__LINE__
see perldoc perldata (special literals)
Chris
------------------------------
Date: Wed, 3 Oct 2007 01:30:19 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Copy using system
Message-Id: <fdurh1.j0.1@news.isolution.nl>
Jürgen Exner schreef:
> if you want to copy files then you may want to check the
> File::Copy module.
Or maybe not:
http://www.google.co.uk/search?q=abigail+File%3A%3ACopy
"Another of those Perl modules that should never have been made."
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 2 Oct 2007 20:05:56 -0400
From: "Jim Carlock" <anonymous@127.0.0.1>
Subject: Re: How to set a COM Object property to TRUE
Message-Id: <4702dce4$0$19622$4c368faf@roadrunner.com>
<bmw108@gmail.com> wrote...
: I am trying to set a WIN32 COM Object bool property true to
: enable a validation option.
:
: I can do it in VB like so.
:
: emailPtr.CorrectSyntax = True
:
: How do I do it in PERL?
:
: I have tried so many different things to no avail.
:
: $emailObj->{MxLookup} = (TRUE);
: $emailObj->{MxLookup} = $TRUE;
: $emailObj->{MxLookup} = 1;
: $emailObj->{MxLookup} = TRUE;
Don't know much about how Perl handles 16-bit versus 32-bit,
but the True in VB3/4/5/6 is a 16-bit value and all those
versions of VB handle it as a 16-bit value.
If .CorrectSyntax property is configure as a VB Boolean, it
is 16-bit. If it's configured as a VB Long, it's 32-bit.
Perhaps someone here can comment on the bitness size and let
us know if there's a problem with that?
If the OP has access to the .CorrectSyntax code they might
try to change it to a Long variable and see if it returns the
proper results.
--
Jim Carlock
Swimming Pool, Spa And Water Feature Builders
http://www.aquaticcreationsnc.com/
------------------------------
Date: Tue, 02 Oct 2007 18:18:09 GMT
From: ddunham@taos.com (Darren Dunham)
Subject: Re: howto generate html email with reference to a png-picture (inline)
Message-Id: <BXvMi.37982$RX.966@newssvr11.news.prodigy.net>
thomas.frei@web.de wrote:
> Dear all,
> I want to send eMail with Text and a pricture inside in HTML code:
> The original HTML would be something like:
>
> <img alt=3D"BARCODE eKANBAN" src=3D"barcode.png" height=3D"144"
> width=3D"215">
>
> my email client generates somthing like: - how can I generate this via
> perl?
You might look at the Email::MIME::CreateHTML module. It has a number
of dependencies, but it seems to work pretty well for me.
--
Darren Dunham ddunham@taos.com
Senior Technical Consultant TAOS http://www.taos.com/
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Tue, 02 Oct 2007 15:17:24 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: howto generate html email with reference to a png-picture (inline)
Message-Id: <m28x6lwcl7.fsf@dot-app.org>
thomas.frei@web.de writes:
> I want to send eMail with Text and a pricture inside in HTML code
Have a look at MIME::Lite on CPAN. One of the examples given in its docs
is how to send HTML email with the images included.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Tue, 2 Oct 2007 14:52:09 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: jabba the tuh
Message-Id: <WM-dnZkktYznMp_anZ2dnUVZ_tqtnZ2d@comcast.com>
#!/usr/bin/perl -w
use strict;
use Net::NNTP ();
use constant NUMBER_OF_ARTICLES => 10;
use constant GROUP_NAME => 'alt.test';
use constant SERVER_NAME => 'newsgroups.comcast.net';
use constant NNTP_DEBUG => 0;
my $nntp = Net::NNTP->new(SERVER_NAME, 'Debug' => NNTP_DEBUG) or die;
my $USER = '';
my $PASS = '';
$nntp->authinfo($USER,$PASS) or die $!;
my($article_count, $first_article, $last_article) =
$nntp->group(GROUP_NAME) or die;
# Which XOVER fields contain Subject: and From:?
my $count = 0;
my %xover_fmt = map( ($_, $count++), @{ $nntp->overview_fmt or die} );
die unless exists $xover_fmt{'Subject:'};
my $subject_offset = $xover_fmt{'Subject:'};
my $from_offset = $xover_fmt{'From:'};
my(@xover, $start_article);
RETRIEVE: while ($#xover+1 < NUMBER_OF_ARTICLES and $last_article >=
$first_article) {
# How many articles do we need? Stop retrieving if we have enough
my $articles_required = NUMBER_OF_ARTICLES - ($#xover+1) or last
RETRIEVE;
# Fetch overview information for the articles
$start_article = $last_article - ($articles_required-1);
$start_article = $start_article > $first_article ? $start_article :
$first_article;
my $xover_query = $start_article == $last_article ?
$start_article :
[$start_article, $last_article];
my $xover_ref = $nntp->xover($xover_query) or die;
# Store headers for the articles we've retrieved
foreach (sort {$b <=> $a} keys %$xover_ref) {
push @xover, $xover_ref->{$_};
}
} continue {
# Move the pointer forward to fetch previous articles
$last_article = $start_article - 1;
}
# Disconnect from the NNTP server
$nntp->quit;
print join("\n", map ($_->[$subject_offset].' from
'.$_->[$from_offset], @xover)),"\n";
#end source begin comment
comment1) if you would like to killfile me, please do so now and save the
girlish "plonk" replies; it interrupts my threads. I can assure anyone who
wants to killfile me that they are antecedently non-entities in my life.
comment2) I think I'm making myself plenty clear, but without a referent
script, my questions are vague.
comment3) My output for this is:
echolot ping - ignore from Nomen Nescio <nobody@dizum.com>
echolot ping - ignore from Anonymous <nobody@remailer.paranoici.org>
Testing 1191356933 from <admin3@tiasbamail.com>
jabba the tuh from "Wade Ward" <zaxfuuq@invalid.net>
TEST TEST from @somewhere.com
Test from John Navas <spamfilter1@navasgroup.com>
Re: Open Source Developers Shun Micoshaft Corporation from "dennis@home"
<dennis@killspam.kicks-ass.net>
Re: Open Source Developers Shun Micoshaft Corporation from "dennis@home"
<dennis@killspam.kicks-ass.net>
echolot ping - ignore from Echolot Pinger <echolot@pinger.invalid>
help from Miles1373@yahoo.com
comment4) If you can't make the adjustments to the above script to get the
desired output, you lack the technical prereqs to reply categorically.
question 1) How do I use the ppl to get "jabba the hut" as output.
Thanks in advance and
Gruß,
--
wade ward
"The final irony is that cops
and rodney king have the same IQ."
------------------------------
Date: Tue, 2 Oct 2007 15:49:53 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: line 16
Message-Id: <-9CdnVfbnvufIJ_anZ2dnUVZ_jGdnZ2d@comcast.com>
#!/usr/bin/env perl
use strict;
use warnings;
use Net::NNTP;
my $nntp = Net::NNTP->new('newsgroups.comcast.net', Debug => 1 );
my $USER = '';
my $PASS = '';
$nntp->authinfo($USER,$PASS) or die $!;
$nntp->group('comp.lang.perl.misc')
or die "failed to set group c.l.p.m.\n";
my $msg_ids_ref = $nntp->newnews(time() - 24*60*60);
die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};
open my $ofh, '>', 'articles.txt'
or die "Cannot open articles.txt: $!";
for my $msg_id (@{$msg_ids_ref}) {
$nntp->article($msg_id, $ofh)
or die "Failed to retrieve article $msg_id\n";
}
close $ofh;
__END__
#end script begin comment
q3) Why does perl.exe not like line 16? I've correceted this before but
forget how. Thanks in advance.
gruss,
--
wade ward
"The final irony is that cops
and rodney king have the same IQ."
------------------------------
Date: Tue, 02 Oct 2007 18:42:55 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: line 16
Message-Id: <13g5luqi5jdfhb4@corp.supernews.com>
On 10/02/2007 05:49 PM, Wade Ward wrote:
> #!/usr/bin/env perl
> use strict;
> use warnings;
> use Net::NNTP;
>
> my $nntp = Net::NNTP->new('newsgroups.comcast.net', Debug => 1 );
> my $USER = '';
> my $PASS = '';
>
> $nntp->authinfo($USER,$PASS) or die $!;
>
>
> $nntp->group('comp.lang.perl.misc')
> or die "failed to set group c.l.p.m.\n";
> my $msg_ids_ref = $nntp->newnews(time() - 24*60*60);
> die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};
>
> open my $ofh, '>', 'articles.txt'
> or die "Cannot open articles.txt: $!";
> for my $msg_id (@{$msg_ids_ref}) {
> $nntp->article($msg_id, $ofh)
> or die "Failed to retrieve article $msg_id\n";
> }
> close $ofh;
> __END__
> #end script begin comment
> q3) Why does perl.exe not like line 16? I've correceted this before but
> forget how. Thanks in advance.
>
> gruss,
Which one is line 16?
Please create a much more descriptive and precise subject line.
Please read and act on the information here:
http://www.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Tue, 02 Oct 2007 17:26:13 -0700
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: line 16
Message-Id: <1191371173.703572.246450@50g2000hsm.googlegroups.com>
On Oct 2, 3:49 pm, "Wade Ward" <zaxf...@invalid.net> wrote:
> #!/usr/bin/env perl
> use strict;
> use warnings;
> use Net::NNTP;
>
> my $nntp = Net::NNTP->new('newsgroups.comcast.net', Debug => 1 );
> my $USER = '';
> my $PASS = '';
>
> $nntp->authinfo($USER,$PASS) or die $!;
>
> $nntp->group('comp.lang.perl.misc')
> or die "failed to set group c.l.p.m.\n";
> my $msg_ids_ref = $nntp->newnews(time() - 24*60*60);
> die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};
>
> open my $ofh, '>', 'articles.txt'
> or die "Cannot open articles.txt: $!";
> for my $msg_id (@{$msg_ids_ref}) {
> $nntp->article($msg_id, $ofh)
> or die "Failed to retrieve article $msg_id\n";}
>
> close $ofh;
> __END__
> #end script begin comment
> q3) Why does perl.exe not like line 16? I've correceted this before but
> forget how. Thanks in advance.
>
> gruss,
> --
> wade ward
> "The final irony is that cops
> and rodney king have the same IQ."
It would help if you tell us how perl.exe didn't like it. What was
the error message?
Your shebang line indicates that you're on some form of *nix, but your
reference to perl.exe would indicate that you're on Windows. Which is
it? If you're on *nix, try changing your shebang line to point
directly to the perl binary and see if that makes a difference.
------------------------------
Date: Tue, 02 Oct 2007 17:28:40 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: line 16
Message-Id: <021020071728402299%jgibson@mail.arc.nasa.gov>
In article <-9CdnVfbnvufIJ_anZ2dnUVZ_jGdnZ2d@comcast.com>, Wade Ward
<zaxfuuq@invalid.net> wrote:
> #!/usr/bin/env perl
> use strict;
> use warnings;
> use Net::NNTP;
>
> my $nntp = Net::NNTP->new('newsgroups.comcast.net', Debug => 1 );
> my $USER = '';
> my $PASS = '';
>
> $nntp->authinfo($USER,$PASS) or die $!;
>
>
> $nntp->group('comp.lang.perl.misc')
> or die "failed to set group c.l.p.m.\n";
> my $msg_ids_ref = $nntp->newnews(time() - 24*60*60);
> die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};
>
> open my $ofh, '>', 'articles.txt'
> or die "Cannot open articles.txt: $!";
> for my $msg_id (@{$msg_ids_ref}) {
> $nntp->article($msg_id, $ofh)
> or die "Failed to retrieve article $msg_id\n";
> }
> close $ofh;
> __END__
> #end script begin comment
> q3) Why does perl.exe not like line 16? I've correceted this before but
> forget how. Thanks in advance.
Not sure which line is 16. However, the documentation of Net::NNTP says
methods that are supposed to return a value will return undef on
failure. Therefore, you need to test the return value of newnews()
before trying to dereference it as an array:
die "Failed to retrieve message ids\n" unless defined $msg_ids_ref;
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 02 Oct 2007 18:03:34 -0700
From: sln@netherlands.co
Subject: Re: Odd regex behavior
Message-Id: <7sp5g39h7v6hh3h9j835ipnk9bgkrl7h7m@4ax.com>
On Mon, 01 Oct 2007 21:28:51 -0000, demerphq@gmail.com wrote:
>On Oct 1, 5:37 am, Mintcake <t...@skelding.co.uk> wrote:
>> I wouldd be grateful to anyone who can shed some light on the
>> unexpected
>> results from the regex in the following program.
>>
>> #!/usr/local/bin/perl -l
>>
>> use strict;
>>
>> my $y = ' href="/foo/bar?d=1&c=2&f=1&cards=1" x="123"';
>>
>> for ($y =~ /(\s+\w+=['"](.*?)["'])/gs)
>> {
>> print "1) $_";
>> print "2) [$1][$2]";
>>
>> my $x = /(\w+)=['"](.*)["']/;
>> print "3) [$x] [$1][$2]";
>>
>> my $x = /(\w+)=['"](.*)["']/;
>> print "4) [$x] [$1][$2]";
>>
>> my $x = /(\w+)=['"](.*)["']/;
>> print "5) [$x] [$1][$2]";
>>
>> print "";}
>>
>> __END__
>>
>> The results I get are as follows
>>
>> 1) href="/foo/bar?d=1&c=2&f=1&cards=1"
>> 2) [ x="123"][123]
>> 3) [1] [href][/foo/bar?d=1&c=2&f=1&cards=1]
>> 4) [1] [href][/foo/bar?d=1&c=2&f=1&cards=1]
>> 5) [1] [href][/foo/bar?d=1&c=2&f=1&cards=1]
>>
>> 1) /foo/bar?d=1&c=2&f=1&cards=1
>> 2) [href][/foo/bar?d=1&c=2&f=1&cards=1]
>> 3) [] [href][/foo/bar?d=1&c=2&f=1&cards=1]
>> 4) [] [href][/foo/bar?d=1&c=2&f=1&cards=1]
>> 5) [] [=2&f=][]
>
>This is a bug for sure. Notice that '=2&f=' is the same length as
>'cards'. How it ends up at that offset im not sure and I havent
>debugged it to see whats up.
>
>The good news is that I already fixed this for 5.10, although its hard
>to say which fix was responsible, there were a number related to
>capturing and rollbacks and the like done in the 5.9.x line.
>
>The bad news is that the patch is highly unlikely to be back ported to
>5.8.x :-(
>
>Interesting bug tho. Cheers.
>
>Yves
I browsed this article at work at lunch. It seems interresting to
observe the state of variables between non-matching regex itterations.
I don't recall that state being something reliable, nor predictable.
I've been on 5.8.x a long time, and have always known about this.
I don't understand the concern. The un-matched state of variables has
always been ignored. I can't think of a logical construct in this case.
If it's said the state will remain the same on fail, what good does
that do? You don't retro-actively "consume on fail".
------------------------------
Date: Wed, 3 Oct 2007 01:23:11 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: run perl program when there is new file?
Message-Id: <fduqu7.1co.1@news.isolution.nl>
Jie schreef:
> The challenge is that this perl program needs to know what files have
> already been processed, while only process on NEW files.
Mimic how maildir-type delivery works (new. tmp, cur).
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 02 Oct 2007 14:55:10 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: the camel perl book
Message-Id: <87abr18hyp.fsf@mithril.chromatico.net>
>>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
MD> On Tue, 2 Oct 2007 11:28:53 -0700, "Wade Ward"
MD> <zaxfuuq@invalid.net>
MD> wrote:
>>> I've been tolerating you till now, but such an irrespectful
>>> behaviour is bringing me very near to plonking you
>>> too. Honestly I can't understand most of your posts, and their
>>> humour, if that's humour.
>> This english is terrible. Please insult me correctly, or
>> don't.
MD> Please correct me, I'm not a native English speaker.
As I already noted in another post, 'irrespectful' is more properly
'disrespectful' (though the meaning is clear).
Other matters are stylistic rather than being clear-cut; I'd probably
use 'such disrespectful behavior' because I think it's a category of
behavior rather than a single behavior, and that's closer to your
meaning; I'd put a comma after 'Honestly'; and I note that you use
British spellings where I wouldn't, but you're rather closer to
Britain than I am.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Tue, 02 Oct 2007 17:32:48 -0700
From: Mintcake <tony@skelding.co.uk>
Subject: Re: Trivial?
Message-Id: <1191371568.084938.95270@g4g2000hsf.googlegroups.com>
On Oct 2, 9:08 pm, Charlton Wilbur <cwil...@chromatico.net> wrote:
> >>>>> "M" == Mintcake <t...@skelding.co.uk> writes:
>
> M> On Sep 30, 7:37 am, all mail refused
> M> <elvis-85...@notatla.org.uk>
> M> wrote:
>
> >> On 2007-09-29, El Bandolero <el_bandol...@libero.it> wrote:
> >>
> >> > I'm solving an exercise studying on a tutorial
> >>
> >> > The task is to print the (empty or not) lines of a file
> >> numbering only the > non empty ones.
> >>
> >> nl -bt
> >>
> >> -- Elvis Notargiacomo master AT barefaced DOT
> >> cheekhttp://www.notatla.org.uk/goen/
>
> M> That doesn't do the job - it still prints the empty lines it
> M> just doesn't number them
>
> Er, that's exactly what the OP asked for. "print the (empty or not)
> lines of a file numbering only the non empty ones."
>
> Charlton
>
> --
> Charlton Wilbur
> cwil...@chromatico.net
I think you missed my earlier apology
------------------------------
Date: Tue, 02 Oct 2007 11:45:54 -0700
From: diprat7@gmail.com
Subject: wana watch latest hindi hot videos?
Message-Id: <1191350754.960940.198200@d55g2000hsg.googlegroups.com>
wana watch latest hindi hot videos?
than www.yedil.com is the site you are looking for
have a nice time with www.yedil.com .Log on now
------------------------------
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 V11 Issue 899
**************************************
