[12732] in Perl-Users-Digest
Perl-Users Digest, Issue: 142 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 14 12:17:25 1999
Date: Wed, 14 Jul 1999 09:10:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 14 Jul 1999 Volume: 9 Number: 142
Today's topics:
Perl on NT - SIG handlers <pandich@my-deja.com>
Re: Sending email by perl in NT (Henri Schomäcker)
Re: Sending email by perl in NT (Abigail)
Re: Sending email by perl in NT <donnawalk@netscape.net>
Re: simple regex question (Abigail)
Re: Something in Perl I can do but can't in PHP (Abigail)
Re: Statistics for comp.lang.perl.misc (Greg Bacon)
Test if a File Exists? (Vice Admiral Acker)
Re: Test if a File Exists? (Andreas Fehr)
Re: Test if a File Exists? <marshalc@NO-SPAMamericasm01.nt.com>
Re: Test if a File Exists? <dgris@moiraine.dimensional.com>
Re: Test if a File Exists? (Larry Rosler)
Re: Test if a File Exists? <jcreed@cyclone.jprc.com>
Re: timeout problem (Abigail)
Re: translating carrage returns in CGI Forms (Larry Rosler)
Re: waitpid equivalent in NT? (Henri Schomäcker)
Re: Why Perl instead of ColdFusion? (brian d foy)
Re: Why Perl instead of ColdFusion? (brian d foy)
Re: Win32 Perl Editors <aperrin@mcmahon.qal.berkeley.edu>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 Jul 1999 15:47:55 GMT
From: Stephen Pandich <pandich@my-deja.com>
Subject: Perl on NT - SIG handlers
Message-Id: <7mibf6$jnh$1@nnrp1.deja.com>
Hello,
I have a fair amount of experience with Perl on UNIX, but I am still
pretty new to the Perl on NT world. Is anyone aware of something like
signal handlers for NT perl?
I am specifically looking for ways to trap control-c.
Thanks a lot,
Steve
--
------------------
Stephen Pandich
steve@pandich.com
www.pandich.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 14 Jul 1999 14:07:43 GMT
From: hschomae@rz-online.de (Henri Schomäcker)
Subject: Re: Sending email by perl in NT
Message-Id: <378c9802.14392598@news.rhein-zeitung.de>
On Tue, 06 Jul 1999 13:04:35 GMT, bababozorg@aol.com wrote:
>hi
>i know how to send email by perl in unix, i simply would using these:
>$mailprog= '/usr/lib/sendmail';
> open(MAIL,"|$mailprog -t");
> print MAIL "To: reciver\n";
> print MAIL "From: sender\n";
> print MAIL "Subject: subject\n\n";
> print MAIL "text";
> close (MAIL);
>but i just want to know can i use the same thing in NT?
>i dont have NT to check it so i can test it! :)
>if i cant what do i have to change?
>thanks for your help
>hamed
>
>
>Sent via Deja.com http://www.deja.com/
>Share what you know. Learn what you don't.
Allright,
here`s the solution to all of you who need to send Email with
attachments from a perl script on NT:
Use BlatMail
Get the newest version,
it can send multiple attachments, base 64, UUencodet, mime and works
great for me!
Just get the thing and contact your webspace-provider tho install it
on the machine where your script runs, which is pretty fast done.
It always helps to send the zip-file as attachment to the provider and
tell him the exact machine name (consult the @Env of a test script!).
If you do so, the admin has just to unpack and install it, so he may
do it.
Yous Henri
+---------------------------------------+
| Henri Schomäcker - VIRTUAL HOMES |
| Datendesign für Internet und Intranet |
| http://www.virtual-homes.de/ |
| henri.schomaecker@virtual-homes.de |
+---------------------------------------+
------------------------------
Date: 14 Jul 1999 09:16:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Sending email by perl in NT
Message-Id: <slrn7op6sv.c9j.abigail@alexandra.delanet.com>
Donna Walker (donnawalk@netscape.net) wrote on MMCXLII September MCMXCIII
in <URL:news:378BA063.99072F95@netscape.net>:
%% Hello group. I'm not a perl programmer but have need of a perl script
%% similar to the one below. I need to send email with body text and an
%% attachment (or two). Can anyone tell me the complete script to handle my
%% wish?
Does each of us Perl coders here now get to send in their rate charts?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 14 Jul 1999 10:31:01 -0400
From: Donna Walker <donnawalk@netscape.net>
Subject: Re: Sending email by perl in NT
Message-Id: <378C9F25.5CF667A3@netscape.net>
I thought I'd get rate charts instead of code but I'm happy with the code.
Abigail wrote:
> Donna Walker (donnawalk@netscape.net) wrote on MMCXLII September MCMXCIII
> in <URL:news:378BA063.99072F95@netscape.net>:
> %% Hello group. I'm not a perl programmer but have need of a perl script
> %% similar to the one below. I need to send email with body text and an
> %% attachment (or two). Can anyone tell me the complete script to handle my
> %% wish?
>
> Does each of us Perl coders here now get to send in their rate charts?
>
> Abigail
> --
> perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
> 0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
> =>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
> !$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 14 Jul 1999 09:18:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: simple regex question
Message-Id: <slrn7op71d.c9j.abigail@alexandra.delanet.com>
phillip@rhoderunner.com (phillip@rhoderunner.com) wrote on MMCXLII
September MCMXCIII in <URL:news:7mfilp$k5p$1@nnrp1.deja.com>:
// Hi,
// Trying to come up with a regex that would match against one or multiple
// words, but not all spaces. No combination that I have come up with as
// worked thus far.
Why don't you show us what you tried, how it worked out, and what you
expected it to do?
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 14 Jul 1999 09:23:35 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Something in Perl I can do but can't in PHP
Message-Id: <slrn7op7aa.c9j.abigail@alexandra.delanet.com>
Kiernan Holland (kholland@swcp.com) wrote on MMCXLII September MCMXCIII
in <URL:news:7meqfo$qe7@kitsune.swcp.com>:
$$
$$ This is a simple problem, since I couldn't find a single newsgroup
$$ on PHP, I decided to share the problem with you guys..
$$ Here is the problem..
That's stupid. There isn't a group about cooking penguins either, but
does that mean I should go to rec.food.vegetarian asking for recipies of
BBQed penguin? I don't think so.
$$ I'm using regexpressions in PHP ,
$$ how would a PHP enthusiast translate the follwing lines
$$ of Perl code:
$$
$$ while ($_ =~ s/^([^\n=]+)=([^\n]+)\n(.*)$/$3/gi) {
$$ $stuff{$1} = $2;
$$ }
Doesn't PHP have an equivalent of "system"? In that case, you just call
Perl from your PHP. :)
$$ I've searched up and down the PHP man pages for about an hour or two
$$ and looked under array functions, string functions, file functions..
$$ Nothing.. I can think of really really dirty ways of doing this
$$ but I was hoping there might be a few Perl/PHP hybrid enthusiasts..
Well, as all PHP enthusiasts will tell you: "if you want Perl, you
know where to get it."
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 14 Jul 1999 15:18:37 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7mi9od$9j1$2@info2.uah.edu>
In article <slrn7ol8bk.h7.abigail@alexandra.delanet.com>,
abigail@delanet.com (Abigail) writes:
: Greg Bacon (gbacon@cs.uah.edu) wrote on MMCXLI September MCMXCIII in
: <URL:news:7mcuea$19n$1@info2.uah.edu>:
: ''
: '' 178 414.2 (201.3/135.0/127.6) abigail@delanet.com
:
: Why does it only give my email address and not the '(Abigail)' part?
: Is there something missing in my headers?
From the Notes section of the stats:
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
That address is what's in your Reply-To: header. Add your name to
your Reply-To: header if you want to see it in the stats reports.
Greg
--
We have enough youth, how about a fountain of SMART?
------------------------------
Date: Wed, 14 Jul 1999 14:35:21 GMT
From: KamiBot@rotfl.com (Vice Admiral Acker)
Subject: Test if a File Exists?
Message-Id: <378ca014.4238283@news3.inxpress.net>
How would I test if a file existed or not?
--
.-.-||-----||-.-.----------------------.-.----------------------.-.
|K| || .-. || |T| "FOR THE GREATER |E| Vice Admiral Acker |S|
|I| ||=|@|=|| |H| GLORY OF THE EMPIRE, |B| KamiBot@rotfl.com |C|
|L| ||='-'=|| |E| DESTROY EVERYTHING!" |E| http://fly.to/VAA |U|
|L| || || |R| ~Briefing Officer |L| 15310412 -ICQ |M|
'-'-||-----||-'-'----------------------'-'----------------------'-'
------------------------------
Date: Wed, 14 Jul 1999 14:51:13 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Test if a File Exists?
Message-Id: <378ca374.20793940@news.uniplus.ch>
On Wed, 14 Jul 1999 14:35:21 GMT, KamiBot@rotfl.com (Vice Admiral
Acker) wrote:
>How would I test if a file existed or not?
>
Look at your harddisk? Use 'ls' or 'dir' or test if the file
-exists (with perl).
^^
Andreas
------------------------------
Date: Wed, 14 Jul 1999 10:02:58 -0500
From: Marshall Culpepper <marshalc@NO-SPAMamericasm01.nt.com>
Subject: Re: Test if a File Exists?
Message-Id: <378CA6A1.58C93377@NO-SPAMamericasm01.nt.com>
Andreas Fehr wrote:
> On Wed, 14 Jul 1999 14:35:21 GMT, KamiBot@rotfl.com (Vice Admiral
> Acker) wrote:
>
> >How would I test if a file existed or not?
> >
>
> Look at your harddisk? Use 'ls' or 'dir' or test if the file
> -exists (with perl).
> ^^
>
> Andreas
na...even easier:
open(FILE,"file") || die "File doesn't exist";
--
----------------------------------
just another guy trying to save the world
----------------------------------
------------------------------
Date: 14 Jul 1999 09:40:30 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Test if a File Exists?
Message-Id: <m3btdfutn5.fsf@moiraine.dimensional.com>
Marshall Culpepper <marshalc@NO-SPAMamericasm01.nt.com> writes:
> na...even easier:
It's always easier when it just doesn't work. :-)
> open(FILE,"file") || die "File doesn't exist";
% su
% touch file
% chmod 600 file
% exit
% perl -e 'open(f,+shift)||die"But it exists: $!" file
but it exists: Permission denied at -e line 1.
%
HTH.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Wed, 14 Jul 1999 08:40:18 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Test if a File Exists?
Message-Id: <MPG.11f64f37bda63b02989cca@nntp.hpl.hp.com>
In article <378CA6A1.58C93377@NO-SPAMamericasm01.nt.com> on Wed, 14 Jul
1999 10:02:58 -0500, Marshall Culpepper <marshalc@NO-
SPAMamericasm01.nt.com> says...
> Andreas Fehr wrote:
> > On Wed, 14 Jul 1999 14:35:21 GMT, KamiBot@rotfl.com (Vice Admiral
> > Acker) wrote:
> >
> > >How would I test if a file existed or not?
> >
> > Look at your harddisk? Use 'ls' or 'dir' or test if the file
> > -exists (with perl).
> > ^^
>
> na...even easier:
> open(FILE,"file") || die "File doesn't exist";
Na... the file may exist, but this account doesn't have permission to
read it. And in any case, the mechanics of opening a file to read are
much more expensive than simply 'stat'ting it, either directly with
stat() or indirectly with the '-e' operator as suggested.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 14 Jul 1999 11:35:05 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: Test if a File Exists?
Message-Id: <a1r9mbgs7q.fsf@cyclone.jprc.com>
Marshall Culpepper <marshalc@NO-SPAMamericasm01.nt.com> writes:
> > >How would I test if a file existed or not?
>
>...
>
> na...even easier:
> open(FILE,"file") || die "File doesn't exist";
An open can fail for other reasons than the
file existing, no?
-e is in fact probably what the original posted wanted.
---Jason
------------------------------
Date: 14 Jul 1999 09:27:32 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: timeout problem
Message-Id: <slrn7op7hn.c9j.abigail@alexandra.delanet.com>
Nicola (nicolabo@prof.it) wrote on MMCXLIII September MCMXCIII in
<URL:news:7mhfdi$o5c$1@serv1.iunet.it>:
'' If I launch a perl script through a telnet window, it will be killed by the
'' cgi-timeout limit of the server if the time of its execution is major of it?
'' Note that it is a perl script that does not return html code. It only
'' updates a txt database.
'' Launching it as a crontab process is a method to avoid cgi-timeot limit?
And your Perl question is?
Followups set.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 14 Jul 1999 07:02:18 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: translating carrage returns in CGI Forms
Message-Id: <MPG.11f63840bf18542c989cc6@nntp.hpl.hp.com>
In article <378f7186.410757938@news.insnet.net> on Wed, 14 Jul 1999
11:17:20 GMT, David Cantrell <NukeEmUp@ThePentagon.com> says...
> On Tue, 13 Jul 1999 07:25:05 -0700, lr@hpl.hp.com (Larry Rosler) said:
> >> $myVariable=~s/\n/ /g;
> >
> >If doing it about an order of magnitude faster matters, then use:
> >
> > $myVariable =~ tr/\n/ /;
>
> Oops!
>
> Errm ... [hurriedly searches for excuse] ... if you need to handle Mac
> or DOS text then use:
> $myVariable=~s/[\n\r]/ /g;
$myVariable =~ tr/\n\r/ /;
Too hurried. Try again? Hint: Anything with single characters and no
*context* can be done with tr.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 14 Jul 1999 14:20:03 GMT
From: hschomae@rz-online.de (Henri Schomäcker)
Subject: Re: waitpid equivalent in NT?
Message-Id: <378c9bfc.15410729@news.rhein-zeitung.de>
On Wed, 7 Jul 1999 00:05:15 -0600, "No Spam Please" <cooltekatibm.net>
wrote:
>I am trying to convert several perl scripts and need to figure out the
>equivalent process of a waitpid.
>
>I understand that NT is different in how it handles processes but wonder if
>anyone has had any success in using alternate methods.
>
>Regards
>steve
>replace at with @ when replying by email ;)
>
>
Sorry I can`t help you exactly, but I know that the Win32::API Module
at least supports a function $GetPID -> Call();
Perhapst it also provides something like waitpid?
Good Luck,
Henri
+---------------------------------------+
| Henri Schomäcker - VIRTUAL HOMES |
| Datendesign für Internet und Intranet |
| http://www.virtual-homes.de/ |
| henri.schomaecker@virtual-homes.de |
+---------------------------------------+
------------------------------
Date: Wed, 14 Jul 1999 09:57:44 -0500
From: brian@pm.org (brian d foy)
Subject: Re: Why Perl instead of ColdFusion?
Message-Id: <brian-1407990957440001@31.bloominton-01rs13-14rt.il.dial-access.att.net>
In article <7mghiu$1nn$1@nnrp1.deja.com>, Henry Porter <porterh@yahoo.com>
wrote:
>To me, the huge advantage, the real value of CF, and the main reason I'm
>asking this question, is time of development. A given project can
>be developed in CF in a fraction of the time it would take to create it
>in Perl. I do not consider my Perl skills to be on such a level that I
>could give an accurate CF hours : Perl hours conversion; however I
>strongly doubt that many with experience with both would disagree with
>this point (glad to hear from you if you do).
i guess if you are only taking stuff out of a database and displaying
it, Cold Fusion might be for you. Cold Fusion does its one thing. try
doing something else and you are stuck.
however, i've found that in companies that i work with who decide to
use Cold Fusion in-house deliver their versions of my Perl things either
a) several weeks later or b) never. i doubt that Cold Fusion
development is faster for anyone with reasonable Perl skills. that's
just my experience with companies trying to compete for my clients'
business. it's completely anecdotal.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Wed, 14 Jul 1999 10:01:29 -0500
From: brian@pm.org (brian d foy)
Subject: Re: Why Perl instead of ColdFusion?
Message-Id: <brian-1407991001290001@31.bloominton-01rs13-14rt.il.dial-access.att.net>
In article <7mghiu$1nn$1@nnrp1.deja.com>, Henry Porter <porterh@yahoo.com>
wrote:
>With CF taking time of development with a 1st round knockout (in my
>eyes), I'll address a few of the issues in favor of Perl that seem to
>come up in similar discussions I've seen here and in Allaire's forums:
>-Cost: The cost of CF is made up for quickly with the development hours
> tradeoff
that depends on how fast you develop. Perl development can be very
rapid if you program smartly and re-use code.
>-Speed: I'm not real interested in a highly technical discussion. I've
> heard both camps claim hands-down superiority here. If speed is
> *that* important I don't think you'd be using either.
Apache::DBI is pretty speedy assuming that you have a decent database
server on the other side.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Wed, 14 Jul 1999 07:55:27 -0700
From: Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu>
Subject: Re: Win32 Perl Editors
Message-Id: <378CA4DE.B50E01B9@mcmahon.qal.berkeley.edu>
Kevin Kuebler wrote:
> Hi all,
>
> It feels much like the Microsoft
> Visual Basic development environment.
Sounds like a reall good reason for avoiding it.
> What
> about other editors - any favorites among the Windows Perl community out
> there?
>
emacs for NT - free, fast, auto-indenting and color coding (using cperl, also
free and fast), runs perl 'inside' the editor.... what else could one want?
--
-------------------------------------------------------------
Andrew Perrin - NT/Unix/Access Consulting - aperrin@mcmahon.qal.berkeley.edu
I'M LOOKING FOR ANOTHER EXPERIENCED ACCESS
DEVELOPER - CONTACT ME IF INTERESTED.
http://www.geocities.com/SiliconValley/Grid/7544/
-------------------------------------------------------------
------------------------------
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 142
*************************************
