You are viewing a plain text version of this content. The canonical link for it is here.
Posted to alexandria-dev@jakarta.apache.org by ru...@apache.org on 2002/10/21 09:54:43 UTC
cvs commit: jakarta-alexandria/proposal/gump nag.pl
rubys 2002/10/21 00:54:43
Modified: proposal/gump nag.pl
Log:
For Peter.
Revision Changes Path
1.8 +1 -0 jakarta-alexandria/proposal/gump/nag.pl
Index: nag.pl
===================================================================
RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- nag.pl 11 Feb 2002 16:27:45 -0000 1.7
+++ nag.pl 21 Oct 2002 07:54:42 -0000 1.8
@@ -41,6 +41,7 @@
# extract just the stuff from inside the XMP tag
if (m! .* <XMP> \s* (.*) \s* </XMP> !xs) {
+ $1 || m!(<p>.*</p>)!s; # if nothing found, look for prereqs
$pageData = $1;
} else {
$pageData = "";
--
To unsubscribe, e-mail: <ma...@jakarta.apache.org>
For additional commands, e-mail: <ma...@jakarta.apache.org>
Re: cvs commit: jakarta-alexandria/proposal/gump nag.pl
Posted by Peter Donald <pe...@apache.org>.
On Mon, 21 Oct 2002 17:54, rubys@apache.org wrote:
> rubys 2002/10/21 00:54:43
>
> Modified: proposal/gump nag.pl
> Log:
> For Peter.
Thanks!
>
> Revision Changes Path
> 1.8 +1 -0 jakarta-alexandria/proposal/gump/nag.pl
>
> Index: nag.pl
> ===================================================================
> RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
> retrieving revision 1.7
> retrieving revision 1.8
> diff -u -r1.7 -r1.8
> --- nag.pl 11 Feb 2002 16:27:45 -0000 1.7
> +++ nag.pl 21 Oct 2002 07:54:42 -0000 1.8
> @@ -41,6 +41,7 @@
>
> # extract just the stuff from inside the XMP tag
> if (m! .* <XMP> \s* (.*) \s* </XMP> !xs) {
> + $1 || m!(<p>.*</p>)!s; # if nothing found, look for prereqs
> $pageData = $1;
> } else {
> $pageData = "";
--
Cheers,
Peter Donald
"All my life I wanted to be someone; I guess I should have been more
specific."
-- Jane Wagner
--
To unsubscribe, e-mail: <ma...@jakarta.apache.org>
For additional commands, e-mail: <ma...@jakarta.apache.org>
Re: cvs commit: jakarta-alexandria/proposal/gump nag.pl
Posted by Peter Donald <pe...@apache.org>.
Hi,
> Index: nag.pl
> ===================================================================
> RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
> retrieving revision 1.7
> retrieving revision 1.8
> diff -u -r1.7 -r1.8
> --- nag.pl 11 Feb 2002 16:27:45 -0000 1.7
> +++ nag.pl 21 Oct 2002 07:54:42 -0000 1.8
> @@ -41,6 +41,7 @@
>
> # extract just the stuff from inside the XMP tag
> if (m! .* <XMP> \s* (.*) \s* </XMP> !xs) {
> + $1 || m!(<p>.*</p>)!s; # if nothing found, look for prereqs
> $pageData = $1;
> } else {
> $pageData = "";
It seems like the above does not quite work as expected. I have no perl
knowledge but I would hazard to guess that if the first pattern does not
match anything it will will go to the else section. So maybe the else should
look like
$pageData = m!(<p>.*</p>)!s;
Of course I have no idea what m! or !s means so could be completely wrong ;)
--
Cheers,
Peter Donald
"All my life I wanted to be someone; I guess I should have been more
specific."
-- Jane Wagner
--
To unsubscribe, e-mail: <ma...@jakarta.apache.org>
For additional commands, e-mail: <ma...@jakarta.apache.org>