[31854] in Perl-Users-Digest
Perl-Users Digest, Issue: 3117 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 5 14:09:22 2010
Date: Sun, 5 Sep 2010 11:09:05 -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 Sun, 5 Sep 2010 Volume: 11 Number: 3117
Today's topics:
Re: Can't spawn "cmd.exe" (dshirsath)
Re: Ideal data structure for nested list format? <uri@StemSystems.com>
Re: Ideal data structure for nested list format? <hjp-usenet2@hjp.at>
Re: Ideal data structure for nested list format? <tuxedo@mailinator.com>
Re: Ideal data structure for nested list format? <tuxedo@mailinator.com>
Minimizing DOS attacks (and other security issues) <paul@pstech-inc.com>
Re: Multidimensional array <paul@pstech-inc.com>
Re: Multidimensional array <paul@pstech-inc.com>
Re: Multidimensional array <ben@morrow.me.uk>
Re: Multidimensional array <paul@pstech-inc.com>
Re: Multidimensional array <tadmc@seesig.invalid>
Re: Multidimensional array <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 05 Sep 2010 15:55:14 +0000
From: linux.little_at_gmail_dot_com@foo.com (dshirsath)
Subject: Re: Can't spawn "cmd.exe"
Message-Id: <1e7d2$4c83bd62$cf3aab60$15268@news.flashnewsgroups.com>
responding to
http://www.1-script.com/forums/Can-t-spawn-cmd-exe-article105213--6.htm
dshirsath wrote:
T3X wrote:
> Dear Perl Gurus,
> I have a perl program that can work in command line mode or GUI mode
> (with Tk). In CLI mode it works fine, in GUI it sometimes throws an
> error:
> Can\'t spawn "cmd.exe": No such file or directory
> when call to system is made. I run this program in clean VM with WinXP
> and default settings. The path is set to:
> C:\Windows\system32;C:\Windows;C:\Windows\system32\wbem
> and cmd.exe is as usual in C:\Windows\system32.
> I\'m trying to figure out why I\'m getting this error and why only when
> Tk GUI is activated. By experimentation I found out that the error
> occurs when cmd.exe is located in the very first dir on the path. It
> is already enough to change the path to (add semicolon in front):
> ;C:\Windows\system32;C:\Windows;C:\Windows\system32\wbem
> to get rid of that error. Still, I would like to understand what might
> trigger that odd behaviour.
> Cheers,
> Tomek
Hi
The same error I was getting when did installation of Win32::GuiTest and
trying to run the script. The problem was not with the module but when
trying to run the 'system' function of Perl in Windows XP OS. The 'system'
function trying to execute using cmd.exe command which is present in
c:\Windows\System32, when I copied the cmd.exe to c:\Windows\System then
it works fine.
-------------------------------------
Devendra Shirsath
Linux SQA Engg.
------------------------------
Date: Sun, 05 Sep 2010 00:09:24 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Ideal data structure for nested list format?
Message-Id: <87zkvwj0gb.fsf@quad.sysarch.com>
>>>>> "T" == Tuxedo <tuxedo@mailinator.com> writes:
T> Thanks for the tip, I've not tried Template::Simple before so I'm
T> not sure how it works yet. I need to install and test it as well as
T> delve into the manual, which looks a little less than simple at
T> first sight...
it has 4 markups. 150 lines of total code. simple is as simple codes!
the docs are fairly clear (as clear as i can write them!). can you ask
specific questions?
T> Can anyone advise me how to generate the following type of nested list by
T> Template::Simple?
T> <ul>
T> <li><a href=1.1.html>Level 1.1</a>
T> <ul>
T> <li><a href=2.1.html>Level 2.1</a></li>
T> <li><a href=2.2.html>Level 2.2</a>
T> <ul>
T> <li><a href=3.1.html>Level 3.1</a></li>
T> <li><a href=3.2.html>Level 3.2</a></li>
T> </ul>
T> </li>
T> <li><a href=2.3.html>Level 2.3</a></li>
T> </ul>
T> </li>
T> </ul>
not much different than with any other templater. first break it up into
'chunks' as i call them. each ul/li level and possibly each data row
would be a chunk. a template chunk maps to a perl hash. lists are just
generated by passing an array of hashes instead of a single hash. note
that you can skip a chunk by not stuffing it or passing an empty hash to
it. that is how you do conditionals
so the inner levels would be something like this (VERY untested as i am
typing on the fly):
[% START unordered %]
<ul>
[% START link_line %]
<li><a href=[%level%].html>Level [%level%]</a></li>
[% END link_line %]
</ul>
[% END unordered %]
that is the basic template. recursion to make any depth is not directly
supported but you can fake it easily with a code ref in the data or
doing subtemplates yourself.
save that in a file and you can apply data to it and render it. if you
break up your data with code refs at different levels, each code ref can
render its level using the same template. a little more complex but
doable. the code refs are best if they are closures. they get passed the
template and they should have their data as closure args. i am not going
to teach that now.
so the basic data would look like this for the inner levels:
{
unordered => {
link_line => [
{ level => '3.1' },
{ level => '3.2' },
]
}
}
as you can see the data matches the tree shape of the template. when i
get some time i may show how to do deeper recursion with closures. just
not tonight.
T> And is it actually possible to apply the advanced formatting relating to
T> the $current_page URL along with any parent <li class=bits> if and where
T> parent entry <li>'s are present? (as detailed in my first post in this
T> thread). Can all of this be done with the help of Template::Simple?
didn't follow that so i can't help.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sun, 5 Sep 2010 10:33:58 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Ideal data structure for nested list format?
Message-Id: <slrni86lfn.bn3.hjp-usenet2@hrunkner.hjp.at>
On 2010-09-04 22:44, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>> "T" == Tuxedo <tuxedo@mailinator.com> writes:
>
> T> Ben Morrow wrote:
> T> [...]
>
> T> Many thanks for the detailed concept in how to build the particular menu
> T> and list format. I understand it's not entirely ready-to-run code, and so
> T> I'd like to know how your example can generate the final html code. Perhaps
> T> you or someone here can help fill in the missing parts?:
>
> T> #!/usr/bin/perl -w
>
> T> use warnings;
> T> use strict;
>
> T> my @pages = (
> T> { page => "1.1.html", title => "Level 1.1", children => [
> T> { page => "2.1.html", title => "Level 2.1" },
> T> { page => "2.2.html", title => "Level 2.2", children => [
> T> { page => "3.1.html", title => "Level 3.1" },
> T> { page => "3.2.html", title => "Level 3.2" },
> T> ] },
> T> { page => "2.3.html", title => "Level 2.3" },
> T> ] },
> T> );
>
> gack!! use a templater.
With a templater you still need to represent the data you want to render
with the templater. I don't see how you could represent a tree, where
each node contains a link to a page and a title, much differently in
perl than Ben showed above (I am assuming that "page" and "title" aren't
as redundant as the seem to be in the example. Instead of "Level 1.1"
the title would probably be something like "1.1 - Introduction" in the
real world).
> many to choose from. check out mine called Template::Simple. you pass
> it a data structure
Yup. But you have to have the data structure first. That's what you
quoted above.
hp
------------------------------
Date: Sun, 5 Sep 2010 13:01:09 +0200
From: Tuxedo <tuxedo@mailinator.com>
Subject: Re: Ideal data structure for nested list format?
Message-Id: <i5vt9m$a4t$03$1@news.t-online.com>
Ben Morrow wrote:
[...]
> That would be because I'm an idiot, and was typing in the code without
> testing it, and made an elementary mistake. However, I'm going to leave
> it to you to find it, because you need to understand the code at least
> that well before you use it. (I'll give you a hint: $pages isn't an
> array reference, and it ought to be.)
>
> Ben
>
Thank for the hint. Anyway, why should you test the code? After all, you've
already offered some most helpful advise along with even purpose written
code. Nobody expects it to work without errors, although it would be nice
if it did. That said, I'm the better runner-up for the idiot title in not
seeing through your code properly. However, once I know it may produce the
relevant list order and particular variable output, I would surely study it
character-by-character until I do know its intricate functionality.
On the line where the error is returned it says @$pages. As far as I
understand an array reference is written \@pages
So I changed @$pages to \@pages as I guess it should be. The same error no
longer occurs but instead there are some other errors:
tuxedo:~$ ./menu.pl
Pseudo-hashes are deprecated at ./menu.pl line 24.
Argument "1.1.html" isn't numeric in hash element at ./menu.pl line 24.
Use of uninitialized value in hash element at ./menu.pl line 25.
Pseudo-hashes are deprecated at ./menu.pl line 26.
These are lines 24/25/26 of code :
my $page = $_->{page};
push @{$parents->{$page}}, $parent;
my $kids = $_->{children};
Again, I do not see through these particular errors and so any further
hints from anyone here would be greatly appreciated :-)
Tuxedo
------------------------------
Date: Sun, 5 Sep 2010 19:51:01 +0200
From: Tuxedo <tuxedo@mailinator.com>
Subject: Re: Ideal data structure for nested list format?
Message-Id: <i60la5$52a$00$1@news.t-online.com>
Uri Guttman wrote:
> >>>>> "T" == Tuxedo <tuxedo@mailinator.com> writes:
>
> T> Thanks for the tip, I've not tried Template::Simple before so I'm
> T> not sure how it works yet. I need to install and test it as well as
> T> delve into the manual, which looks a little less than simple at
> T> first sight...
>
> it has 4 markups. 150 lines of total code. simple is as simple codes!
I installed Template::Simple as stand-alone module, after installing
File::Slurp and setting a use lib 'external_modules/lib/perl5/site_perl'
call in the Makefile.PL script within the Template-Simple-0.02 directory.
The 'make test' stage of the installation failed with many errors (too many
to list here). Some were 'Can't locate File/Slurp.pm'. Perhaps this was the
cause of all consecutive errors, because of the external module location
and so File::Slurp could not be found by this installation step. Maybe this
is not important? Aftrer all, the other steps: perl Makefile.PL
PREFIX=/mypath/external_modules/, make and make install worked fine, so I
think the module should now be fully functional. When being in the
directory where I ran the installation, I can do 'perldoc Template::Simple'.
PS: I install modules in external directories because I usually run into
insufficient system privilidges on various web hosts.
> the docs are fairly clear (as clear as i can write them!). can you ask
> specific questions?
Can someone here place the list example in an working working script? Are
separate parts meant to exist in separate files? Alternatively, I think I
need an 'hello, I'm a template' equivalent 'hello world'... Anyone?
[...]
> so the inner levels would be something like this (VERY untested as i am
> typing on the fly):
>
> [% START unordered %]
> <ul>
> [% START link_line %]
> <li><a href=[%level%].html>Level [%level%]</a></li>
> [% END link_line %]
> </ul>
> [% END unordered %]
[...]
> so the basic data would look like this for the inner levels:
>
> {
> unordered => {
> link_line => [
> { level => '3.1' },
> { level => '3.2' },
> ]
> }
> }
[...]
> T> And is it actually possible to apply the advanced formatting relating
> T> to the $current_page URL along with any parent <li class=bits> if and
> T> where parent entry <li>'s are present? (as detailed in my first post
> T> in this thread). Can all of this be done with the help of
> T> Template::Simple?
>
> didn't follow that so i can't help.
The $current_page is a variable output when a page access matches one that
exists in an array field, being the filename portion of the current URL.
The $current_page is known to any perl process while run through a CGI
process, which is importing the link list onto otherwise static HTML pages.
To clarify by an example, if you are at a page (one you happen to know)
such as http://bestfriendscocoa.com/recipes.html then 'Tasty Recipes' in
the header would not show as what may appear to some people as a link to a
different page, but would instead be printed in plain text.
Any other formatting I refer to is applicable in a nested navigation system
of the unordered list I posted previously, typically used by many CSS
navbars. For example, if users are on page 3.2.html, the parent <li> which
contains the link 2.2.html, would be formatted with a style class <li
class=parent_level_2>, while the parent of that, being the <li> containing
the link 1.1.html would be formatted with an <li class=parent_level_1>.
This allows for building a clear navigation system. I guess
Template::Simple can do all this, but maybe not all as any kind of standard
function. After all, the idea of the list output is actually very simple.
Tuxedo
------------------------------
Date: Sun, 5 Sep 2010 05:04:27 -0400
From: "Paul E. Schoen" <paul@pstech-inc.com>
Subject: Minimizing DOS attacks (and other security issues)
Message-Id: <L2Jgo.55835$co1.37282@newsfe11.iad>
I have implemented a means to deal with Denial Of Service attacks where a
CGI script might be invoked 10,000 times per second in an attempt to keep
the server busy and cause flooding of emails. Here is the code I used:
my $lockfile = "lock.txt";
if (not(-e $lockfile)){ #check for exist
open (fLock, '>', $lockfile) or HTMLdie ("File error: $!");
close fLock;
sleep(10);
unlink ($lockfile);
}
else {HTMLdie ("Please try again later", "Event Processor Busy");}
I have tested it by opening the following link in two browser windows and
sending the requests within the 10 second time period. The first request is
successful, while the second request returns the Busy message. You may try
it here:
http://www.pauleschoen.com/SCGBG/EventSubmit.htm
I am using the -T taint checking. I will also add filters for alphanumeric
text for the data as well, although I don't think it is critical in this
instance. Please let me know if this is reasonably secure, and if you see
any major problem with this code. The only problem I can see is if the
script crashes during the sleep and the lock file does not get unlinked. At
least it's fail-safe and I can fix it using FTP. It's not a big deal if
event submission is occasionally delayed a day or so. I'm just trying to fix
a problem where the webmaster only updated events every couple of months or
so.
Thanks,
Paul
------------------------------
Date: Sat, 4 Sep 2010 21:24:31 -0400
From: "Paul E. Schoen" <paul@pstech-inc.com>
Subject: Re: Multidimensional array
Message-Id: <rjCgo.15513$IH1.9860@newsfe18.iad>
"Uri Guttman" <uri@StemSystems.com> wrote in message
news:877hj1m9ol.fsf@quad.sysarch.com...
>>>>>> "PES" == Paul E Schoen <paul@pstech-inc.com> writes:
>
> >> That is a problem with your lack of understanding of your very
> >> own shell, not a Perl or CGI.pm problem.
> >>
> >> Simply learn how to quote command line arguments in whatever shell
> >> you are using.
> >>
> >>
> >> Full_Name="Paul Schoen"
> >> or even:
> >> "Full_Name=Paul Schoen"
>
> PES> These produced an error of "List form of pipe not implemented Line
> 42.
>
> PES> Using single quotes 'Paul Schoen' causes the script to reply
>
> PES> Unauthorized user: 'Paul
>
> learn some shell stuff too. single quotes don't to ANYTHING on winblows
> shells. unix shells allow both single or double quotes. did you actually
> try the double quoted first version? it should work fine on
> winblows. the second form is suspect IMO but i am not sure.
Yes, I tried that first. My actual full command line is:
perl EventProcessor.pl Full_Name="Paul E. Schoen"
I also tried using
set /p myname= Paul E. Schoen
perl EventProcessor.pl Full_Name=%myname%
but it returned
Unauthorized user: %myname%
On http://www.perlmonks.org/?node_id=605706 it says that each application
does its own command line parsing so this appears to be a problem with the
CGI module.
I found this at http://www.stonehenge.com/merlyn/UnixReview/col57.html:
If we want a space within one of the values, we need to use shell quoting
rules:
perl my-script 'arg1a arg1b' arg2
This passes two arguments now, not three. We get the same result with:
perl my-script arg1a\ arg1b arg2
But I tried that with no joy. So I added the following at the beginning of
my script:
print "Param1=$ARGV[0]\n";
print "Param2=$ARGV[1]\n";
Using
perl EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
I got
Param1=Full_Name=Paul E. Schoen
Param2=Email=p@q.r
List form of pipe open not implemented Line 46
46: open(MAIL, "|-", $mailprog, $recipient)
So, IMHO this is possibly a bug (or a feature) of the CGI getvars()
function.
I can use JavaScript to replace spaces with underline characters.
Paul
------------------------------
Date: Sat, 4 Sep 2010 21:58:26 -0400
From: "Paul E. Schoen" <paul@pstech-inc.com>
Subject: Re: Multidimensional array
Message-Id: <fPCgo.49835$6o7.4111@newsfe21.iad>
"John Mason Jr" <notvalid@cox.net.invalid> wrote in message
news:i5tjgm$rcq$1@news.eternal-september.org...
>
> Another good resource for web app security
> http://www.owasp.org/index.php/Main_Page
>
> and to get an idea of the problems you can face
>
> http://www.owasp.org/index.php/Category:OWASP_Top_Ten_Project
I looked at those and I only understand some of it. It seems like most of
the threats involve passing executable script to the CGI program, but I'm
not doing that and everything is interpreted as text in the print
statements. But perhaps if one of the strings contained executable HTML or
script code, it might be interpreted as an executable on the sender's
browser or whatever is used to display returned data on STDOUT. And that
would only be if s/he got past the password verification. If the Full_Name
contains code, then my script does print that back to the sender. But I can
filter that variable to allow only alphanumeric characters.
Also I think my idea of adding a sleep(n) in the script would limit the rate
at which it would accept new requests, especially if it returned something
like:
Server busy. Please try again later.
I think this would just send thousands of busy messages to the sender if a
DOS attack was attempted. In my application I doubt there would be much
chance of two legitimate users trying to send data at the same time, and
waiting perhaps 10 seconds would not be a serious problem. Those are some
ideas, anyway.
I'll have a look at the "Taint" mode. I used it as follows:
perl -T EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
and it gave this message:
Insecure $ENV{PATH} ... Line 46
46: open(MAIL, "|-", $mailprog, $recipient)
I'll have to look into why that is so. Thanks again!
Paul
------------------------------
Date: Sun, 5 Sep 2010 02:57:40 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Multidimensional array
Message-Id: <k1abl7-03n.ln1@osiris.mauzo.dyndns.org>
Quoth "Paul E. Schoen" <paul@pstech-inc.com>:
>
> But I tried that with no joy. So I added the following at the beginning of
> my script:
>
> print "Param1=$ARGV[0]\n";
> print "Param2=$ARGV[1]\n";
>
> Using
>
> perl EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
>
> I got
>
> Param1=Full_Name=Paul E. Schoen
> Param2=Email=p@q.r
> List form of pipe open not implemented Line 46
>
> 46: open(MAIL, "|-", $mailprog, $recipient)
>
> So, IMHO this is possibly a bug (or a feature) of the CGI getvars()
> function.
Err... no, this is because the list form of pipe open isn't implemented
on Win32 (I'm not entirely sure why... ISTM it should be possible using
the same quoting code as list-exec). It is completely unconnected with
CGI.pm, and would still have happened if you hadn't been using it.
Ben
------------------------------
Date: Sat, 4 Sep 2010 22:13:52 -0400
From: "Paul E. Schoen" <paul@pstech-inc.com>
Subject: Re: Multidimensional array
Message-Id: <G1Dgo.49879$6o7.44698@newsfe21.iad>
"Ben Morrow" <ben@morrow.me.uk> wrote in message
news:k1abl7-03n.ln1@osiris.mauzo.dyndns.org...
>
> Quoth "Paul E. Schoen" <paul@pstech-inc.com>:
>>
>> But I tried that with no joy. So I added the following at the beginning
>> of
>> my script:
>>
>> print "Param1=$ARGV[0]\n";
>> print "Param2=$ARGV[1]\n";
>>
>> Using
>>
>> perl EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
>>
>> I got
>>
>> Param1=Full_Name=Paul E. Schoen
>> Param2=Email=p@q.r
>> List form of pipe open not implemented Line 46
>>
>> 46: open(MAIL, "|-", $mailprog, $recipient)
>>
>> So, IMHO this is possibly a bug (or a feature) of the CGI getvars()
>> function.
>
> Err... no, this is because the list form of pipe open isn't implemented
> on Win32 (I'm not entirely sure why... ISTM it should be possible using
> the same quoting code as list-exec). It is completely unconnected with
> CGI.pm, and would still have happened if you hadn't been using it.
Thanks for the explanation about that error. But I'm talking about the CGI
module incorrectly reading command line parameters with quotes to take care
of spaces.
Paul
------------------------------
Date: Sun, 05 Sep 2010 00:16:28 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Multidimensional array
Message-Id: <slrni869fh.bhs.tadmc@tadbox.sbcglobal.net>
Paul E. Schoen <paul@pstech-inc.com> wrote:
> I'll have a look at the "Taint" mode. I used it as follows:
>
> perl -T EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
>
> and it gave this message:
>
> Insecure $ENV{PATH} ... Line 46
>
> 46: open(MAIL, "|-", $mailprog, $recipient)
>
> I'll have to look into why that is so.
Look up that message in:
perldoc perldiag
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sun, 5 Sep 2010 12:10:12 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Multidimensional array
Message-Id: <kdacl7-75t.ln1@osiris.mauzo.dyndns.org>
Quoth "Paul E. Schoen" <paul@pstech-inc.com>:
>
> "Ben Morrow" <ben@morrow.me.uk> wrote in message
> news:k1abl7-03n.ln1@osiris.mauzo.dyndns.org...
> >
> > Quoth "Paul E. Schoen" <paul@pstech-inc.com>:
> >>
> >> But I tried that with no joy. So I added the following at the beginning
> >> of
> >> my script:
> >>
> >> print "Param1=$ARGV[0]\n";
> >> print "Param2=$ARGV[1]\n";
> >>
> >> Using
> >>
> >> perl EventProcessor.pl Full_Name="Paul E. Schoen" Email=p@q.r
> >>
> >> I got
> >>
> >> Param1=Full_Name=Paul E. Schoen
> >> Param2=Email=p@q.r
> >> List form of pipe open not implemented Line 46
> >>
> >> 46: open(MAIL, "|-", $mailprog, $recipient)
> >>
> >> So, IMHO this is possibly a bug (or a feature) of the CGI getvars()
> >> function.
> >
> > Err... no, this is because the list form of pipe open isn't implemented
> > on Win32 (I'm not entirely sure why... ISTM it should be possible using
> > the same quoting code as list-exec). It is completely unconnected with
> > CGI.pm, and would still have happened if you hadn't been using it.
>
> Thanks for the explanation about that error. But I'm talking about the CGI
> module incorrectly reading command line parameters with quotes to take care
> of spaces.
CGI.pm is working just fine, or would be if your script didn't exit due
to that error before it got anywhere.
Ben
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 3117
***************************************
