nms-cgi-devel — Developers discussion for NMS CGI programs

[Nms-cgi-devel] CVS Commit %s

[Dave C. <da...@us...>]

uid=38988(davorg) gid=100(users) groups=100(users),14388(insect),40625(nms-cgi)
CVSROOT loginfo,1.3,1.4
Sat Nov 17 00:39:01 PST 2001
Update of /cvsroot/nms-cgi/CVSROOT
In directory usw-pr-cvs1:/tmp/cvs-serv15824

Modified Files:
	loginfo 
Log Message:
Send commits to nms-cgi-commits rather than nms-cgi-devel

[Nms-cgi-devel] Re: WinCVS

[Dave C. <da...@da...>]

On Fri, Nov 16, 2001 at 12:45:46AM -0500, Joseph F. Ryan (rya...@os...) wrote:
> 
> On an unrelated note, I am still having problems with CVS.  I downloaded 
> WinCVS and installed it successfully, but I couldn't figure out how to use 
> it.  CVS's super-massive manual wasn't much help either.  I guess I'll just 
> keep posting to my perlmonk site until I can figure this monster out...

Sorry, but I don't develop under Windows so I can't be any help. Does 
anyone else have experience of WinCVS? Would be much appreciated if you
could help Joe out so that he could commit files.

Thanks,

Dave...

-- 

  Don't dream it... be it

[Nms-cgi-devel] Plan for the Weekend

[Dave C. <da...@da...>]

My plan is to eradicate the last tracces of Matt's documentation from the
project.

Also I'd like to perhaps do another release of all of the files on Sunday,
so if you're planning to do anything particularly exciting with any of the
scripts, please let me know.

Dave...

-- 

  "Don't you boys know any _nice_ songs?"

[Nms-cgi-devel] CVS Commits

[Dave C. <da...@da...>]

This CVS commit email is getting a bit of a pian as I'm having to approve
many of the posts to it. I also think that perhaps not _everyone_ on the
devel list wants to know every time a file is committed to CVS.

So I've created a nms-cgi-commits list. Or at least, I've reuqested it's
creation. Once it's complete, I'll subscribe all the project developers to
the list (under their SourceForge email address, as that's the address that
the commit emails come from.

Of course, if you're not a registered project developer, please feel free
to subscribe anyway, if seeing lists of CVS commits interests you. The list
will be at: 

  <http://lists.sourceforge.net/lists/listinfo/nms-cgi-commits>

later today.

By the way, speaking of project developers. I see that we have (counts) a
dozen or so people on this list, but only four project developers. Please
send me your SourceForge id if you'd like to be added to the list.

Cheers,

Dave...

-- 

  Don't dream it... be it

[Nms-cgi-devel] Thoughts on using File::Find in search.pl

[Joseph F. R. <rya...@os...>]

>You're right. There's no good reason for not using File::Find. But in
>this case doesn't it change the behaviour of the script?
>
>There are a couple of differences that I can see:
>
>1/ The old version only searched the direcotries it was given, the new one
>    searches subdirectories too.
>
>2/ In the old version, you could tell it to search files using wildcards
>    like 'doc*.txt', can you still do that in your version?
>
>Feel free to implement your change, but please use the $emulate_matts_code
>flag that we discussed a couple of days ago. When that flag is true then
>we must emulate Matt's code _exactly_.

Ah, complete oversight on my part. Thank you for pointing it out; took a 
bit to get it up to par, but it should be alright now:

-----------------------------------------------
use vars qw($typelist @blocked);

my $basedir = '/indigo';

my @files = ('robot*' ,'pod','ftp*.html','txt','jpg');
my @directories = ('/indigo/lib/Pod');

@blocked = @directories;
my @filetypes = grep($_!~/[^a-z]/,@files);
my @wildcards = grep(/[^a-z]/,@files);

$typelist = 
((@filetypes>0)?'(\.'.join(')|(\.',@filetypes).')':'').((@wildcards>0)?((@filetypes>0)?'|':'').join('|',map{s#\*(\.)#'.*?'.($1?'\.':'')#ge;$_='('.$_.')'}@wildcards):'');

my @search_files = find(\&wanted, $basedir);

sub wanted
{
return if(/^\./);
return unless (m/$typelist/i);
my @stats = stat $File::Find::name;
return if -d _;
return unless -r _;
foreach my $blocked (@blocked) {
return if ($File::Find::dir eq $blocked)
}
}
----------------------------------

That large amount of junk at the beginning constructs a regex to be used by 
wanted. It works like this: First, every item in @files that does not have 
a wildcard is extracted. Those will be treated as file extentions, and 
translated into (\.ext). Next, every item in @files is extracted, and 
treated as a pseudo regex. * are transliterated to .*?, and . are 
translated to \. So robot* is translated into (robot.*?), and ftp*.html is 
translated into (ftp.*?\.html). Each of "mini-regexes" are then joined by a 
pipe, and used in the wanted function to match the desired filetypes. The 
rest of the wanted sub is pretty standard; it filters out .htaccess etc 
files,directories, and non-readables. Finally, the wanted sub filters out 
any file in a directory that is listed in @directories (@blocked is set 
equal to @directories so that wanted can use it; there is no way to pass 
arguments to wanted (that I know of ...)). I know that is opposite of how 
Matt's script works; however, it makes much more sense. Why should you have 
to set every directory in your website to be searched just to filter out 1 
directory? The good news is that the fix is easy if we still want to 
emulate Matt; the last if statement in wanted simply needs to be changed to 
unless to obtain his functionality.

[Nms-cgi-devel] Re: [Nms-cgi-support] About CGI::Carp

[Jonathan S. <gel...@ge...>]

On Fri, 16 Nov 2001, Joseph F. Ryan wrote:
>
> >Can someone who worked on the CGI::Carp stuff, please look at this for Jean.
> >
> >Thanks,
> >
> >Dave...
>
>
> A few days ago, I wrote about two "improved" solutions for the CGI::Carp
> stuff.  I was waiting on some feedback to decide which one to implement
> :)  Either way, we should have a clearer idea on what is going wrong. Here
> they are again:
>

The error in this case was due to the fact that I had failed to declare
$DEBUGGING as a package variable in all of the files that I had inserted
that code into :( The example code that I posted originally did have typos
in but the later complete CGI program I made *does* work - anyhow the
point is that the declaration of the subroutine must be external to the
set_message() thing because we need the user to be able to manipulate the
output HTML ...


/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |

Re: [Nms-cgi-devel] (no subject)

[Jonathan S. <gel...@ge...>]

On Fri, 16 Nov 2001, Dave Cross wrote:
> On Fri, Nov 16, 2001 at 02:09:39PM -0500, Joseph F. Ryan (rya...@os...) wrote:
> > I was trudging through search.pl today, when I noticed that we weren't
> > using File::Find
>

<snip>

> Feel free to implement your change, but please use the $emulate_matts_code
> flag that we discussed a couple of days ago. When that flag is true then
> we must emulate Matt's code _exactly_.
>

This is one that I prepared earlier - and which I believe is being used by
the chemistry department of some university :

#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use File::Find;

my $basedir = '/usr/local/apache/htdocs';
my $baseurl = 'http://localhost';
my $title = "Foo Foo Search";
my $title_url = 'http://localhost/';
my $search_url = 'http://localhost/search.html';



my $search = param('search');

my @pages;

find(\&getfiles,$basedir);

print header,start_html($title);

print "<UL>\n";
foreach (@pages)
{
   print li,a({-href => $_->[0]}, $_->[1]),br,
         "Size: $_->[2]",br,
         "Last Modified : $_->[3]\n";
}
print "</UL>\n",end_html;

sub getfiles {

  if ( /\.html?$/ && -T )
    {
      open(THIS,$_) || return;

      my $text = do { local $/; <THIS> };
      close(THIS);

      if ( defined $search and $text =~ /$search/is )
        {
          my ($title) = $text =~ m#<title>(.*)</title>#is ;
          $title ||= $_;
          my $path = $File::Find::name;
          $path =~ s/$basedir/$baseurl/;
          push @pages,[$path,$title,-s, scalar localtime((stat)[9]) ];
        }
    }
}


No this isn't Matt compliant but it could be a start.

/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |

Re: [Nms-cgi-devel] problems with nms-cgi formmail.pl

[Jonathan S. <gel...@ge...>]

On Sat, 17 Nov 2001, iain truskett wrote:

> * Nick Cleaton (ni...@cl...) [16 Nov 2001 17:56]:
>
> > Here are the problems I can see in the current nms-cgi guestbook.pl
> > script.
>
> > 1) Allows the upload of arbitrary HTML, $allow_html does nothing.
>
> True.
>

Fix straight away :)

> > 2) Makes changes in response to a GET request.
>
> Is that really a problem?
>

Examine rfc2616 with reference to the term 'idempotent' ;-}

I'll get the world famed HTTP pendant Alan Flavell in here to explain this
if we have difficulty.

I have a feeling that most of the scripts suffer from this problem
unfortunately we do have to consider the compatibility with the legacy of
the Existing Body Of Matts Scripts ....

> > 3) Truncates and rewrites the file, so someone viewing the
> >    guestbook might see a short or empty guestbook during
> >    an update.
>
> True. Are you thinking a 'write to new file and mv it' thing?
>

I have a version of guestbook.pl that does this but is so vastly different
from the version in CVS that I am holding off on it.

> > Is anyone working on these ?
>
> > Shall I have a go ?
>
> Go for it?
>

Nick, how do you feel about sizing up the holes (and incompliancies) in
all the scripts and documenting them - bearing in mind that we are going
to have to support by default the existing behaviour (that is to say we
can't lose the GET thing right now.) Once documented we can find willing
slaves to implement the changes if necessary :)

I would also like you to examine the 'spam pawn' potential in the
FormMail.pl if you are up for the gig ...

For the crowd - Nick is the one person who keeps me honest with respect to
security matters at work I would trust him with my mothers servr ;-}

/J\

Re: [Nms-cgi-devel] (no subject)

[Dave C. <da...@da...>]

On Fri, Nov 16, 2001 at 02:09:39PM -0500, Joseph F. Ryan (rya...@os...) wrote:
> I was trudging through search.pl today, when I noticed that we weren't 
> using File::Find.  I am pretty sure that File::Find has been part of the 
> core since 5.004, so why not use it?  At any rate, I changed this:
> 
> ----------------------
> my @files = ('*.txt','*.html','*.dat', '*.src');
> my @search_files = get_files(@files);
> sub get_files {
>    my @files = @_;
>    chdir($basedir) or die "Can't chdir to $basedir: $!\n";
>    my @found;
>    foreach (@files) {
>      $_ .= '/*' if -d "./$_" && !/\*/;
>      }
>    push @found, grep {-f $_ } glob($_) foreach @files;
>    return @found;
> }
> ---------------------
> 
> To this:
> 
> ---------------------
> use vars qw($typelist);
> use File::Find;
> my @files = ('txt','html','dat', 'src');
> $typelist ='\.'.join('|\.',@files);
> my @search_files = find(\&wanted, $basedir);
> sub wanted
> {
>          return if(/^\./);
>          return unless(/$typelist/);
>          stat $File::Find::name;
>          return if -d _;
>          return unless (-w _);
> }
> ----------------

You're right. There's no good reason for not using File::Find. But in
this case doesn't it change the behaviour of the script? 

There are a couple of differences that I can see:

1/ The old version only searched the direcotries it was given, the new one
   searches subdirectories too.

2/ In the old version, you could tell it to search files using wildcards
   like 'doc*.txt', can you still do that in your version?

Feel free to implement your change, but please use the $emulate_matts_code
flag that we discussed a couple of days ago. When that flag is true then
we must emulate Matt's code _exactly_.

Dave...

-- 

  .sig missing...

[Nms-cgi-devel] (no subject)

[Joseph F. R. <rya...@os...>]

I was trudging through search.pl today, when I noticed that we weren't 
using File::Find.  I am pretty sure that File::Find has been part of the 
core since 5.004, so why not use it?  At any rate, I changed this:

----------------------
my @files = ('*.txt','*.html','*.dat', '*.src');
my @search_files = get_files(@files);
sub get_files {
   my @files = @_;
   chdir($basedir) or die "Can't chdir to $basedir: $!\n";
   my @found;
   foreach (@files) {
     $_ .= '/*' if -d "./$_" && !/\*/;
     }
   push @found, grep {-f $_ } glob($_) foreach @files;
   return @found;
}
---------------------

To this:

---------------------
use vars qw($typelist);
use File::Find;
my @files = ('txt','html','dat', 'src');
$typelist ='\.'.join('|\.',@files);
my @search_files = find(\&wanted, $basedir);
sub wanted
{
         return if(/^\./);
         return unless(/$typelist/);
         stat $File::Find::name;
         return if -d _;
         return unless (-w _);
}
----------------

Re: [Nms-cgi-devel] problems with nms-cgi formmail.pl

[Dave C. <da...@da...>]

On Fri, Nov 16, 2001 at 06:45:57PM +0000, Nick Cleaton (ni...@cl...) wrote:
> 
> Here are the problems I can see in the current nms-cgi guestbook.pl
> script.
> 
> 1) Allows the upload of arbitrary HTML, $allow_html does nothing.
> 
> 2) Makes changes in response to a GET request.
> 
> 3) Truncates and rewrites the file, so someone viewing the
>    guestbook might see a short or empty guestbook during
>    an update.
> 
> Is anyone working on these ?
> 
> Shall I have a go ?

Please do :)

Dave...

-- 

  Don't dream it... be it

Re: [Nms-cgi-devel] problems with nms-cgi formmail.pl

[iain t. <ic...@eh...>]

* Nick Cleaton (ni...@cl...) [16 Nov 2001 17:56]:

> Here are the problems I can see in the current nms-cgi guestbook.pl
> script.

> 1) Allows the upload of arbitrary HTML, $allow_html does nothing.

True.

> 2) Makes changes in response to a GET request.

Is that really a problem?

> 3) Truncates and rewrites the file, so someone viewing the
>    guestbook might see a short or empty guestbook during
>    an update.

True. Are you thinking a 'write to new file and mv it' thing?

> Is anyone working on these ?

> Shall I have a go ?

Go for it?


cheers,
--
iain.                                          <http://eh.org/~koschei/>

[Nms-cgi-devel] problems with nms-cgi formmail.pl

[Nick C. <ni...@cl...>]

Here are the problems I can see in the current nms-cgi guestbook.pl
script.

1) Allows the upload of arbitrary HTML, $allow_html does nothing.

2) Makes changes in response to a GET request.

3) Truncates and rewrites the file, so someone viewing the
   guestbook might see a short or empty guestbook during
   an update.

Is anyone working on these ?

Shall I have a go ?

--
Nick

Re: [Nms-cgi-devel] Fwd: [jeanswing2000@yahoo.com: Re: [Nms-cgi-support] Fwd: [jeanswing2000@yahoo.com: Drop-in Replacement for Guestbook]]

[Dave C. <da...@da...>]

From: Jonathan Stowe <gel...@ge...>
Date: 11/16/01 9:18:14 AM

>On Fri, 16 Nov 2001, Dave Cross wrote:
>
>> Can someone woh worked on the new CGI::Carp stuff please 
>> look at this for Jean.
>
> Should we not be using the sourceforge bug tracking 
> system for this ?

Oh yeah. Good idea.

Dave...

-- 
<http://www.dave.org.uk>

"Let me see you make decisions, without your television"
   - Depeche Mode (Stripped)

Re: [Nms-cgi-devel] Fwd: [jeanswing2000@yahoo.com: Re: [Nms-cgi-support] Fwd: [jeanswing2000@yahoo.com: Drop-in Replacement for Guestbook]]

[Jonathan S. <gel...@ge...>]

On Fri, 16 Nov 2001, Dave Cross wrote:

> Can someone woh worked on the new CGI::Carp stuff please look at this for
> Jean.
>

Should we not be using the sourceforge bug tracking system for this ?

/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |

Re: [Nms-cgi-devel] An idea for guestbook.pl

[Jonathan S. <gel...@ge...>]

On Fri, 16 Nov 2001, Joseph F. Ryan wrote:
>
> On an unrelated note, I am still having problems with CVS.  I downloaded
> WinCVS and installed it successfully, but I couldn't figure out how to use
> it.  CVS's super-massive manual wasn't much help either.  I guess I'll just
> keep posting to my perlmonk site until I can figure this monster out...
>

You will require ssh to be able to use the sourceforge CVS - I am not sure
if WinCVS supports this but the usual deal is to set CVS_RSH=ssh and then
everything should work seamlessly.

I would sincerely suggest that you might be better of getting Cygwin
installed and using the Cygwin CVS and ssh if you can't get WinCVS to
work.


/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |

Re: [Nms-cgi-devel] Fwd: [jeanswing2000@yahoo.com: Re: [Nms-cgi-support] Fwd: [jeanswing2000@yahoo.com: Drop-in Replacement for Guestbook]]

[Jonathan S. <gel...@ge...>]

On Fri, 16 Nov 2001, Dave Cross wrote:

> Can someone woh worked on the new CGI::Carp stuff please look at this for
> Jean.
>

This is almost certainly because the version in CVS did not declare
$DEBUGGING - this is now fixed.

/J\

> Thanks,
>
> Dave...
>
> ----- Forwarded message from Jean <jea...@ya...> -----
>
> From: "Jean" <jea...@ya...>
> To: "Dave Cross" <da...@da...>
> Date: Thu, 15 Nov 2001 22:09:08 -0500
>
> Hey Dave,
>
> Any idea what would be causing this error?
>
> BEGIN not safe after errors--compilation aborted at
> /home/users/brently/felixstpub.com/cgi-bin/guestbook/guestbook.pl line 38.
>
> I checked the paths and everything is set correctly.  I saw your comments on
> the Debugging so I've tried it at 1 and 0.
>
> Regards, Jean :)
>
> ----- Original Message -----
> From: "Dave Cross" <da...@da...>
> To: "Jean" <jea...@ya...>
> Cc: <nms...@li...>
> Sent: Thursday, November 15, 2001 1:51 AM
> Subject: Re: [Nms-cgi-support] Fwd: [jea...@ya...: Drop-in
> Replacement for Guestbook]
>
>
> > On Wed, Nov 14, 2001 at 09:35:13PM -0500, Jean (jea...@ya...)
> wrote:
> > > Thanks Dave, it's still doing it but I only replaced the guestbook.pl
> file
> > > from the tar file I downloaded tonight....  After it didn't work I
> looked at
> > > your revisions at the top of the script and the last change was on
> 11/11/01.
> > > Is the fixed script on your site yet?
> >
> > Er... yes. Last night I only released it to the developers website. I
> > forgot to release it to the public website. I've done that now, so please
> > try again.
> >
> > Sorry about that.
> >
> > Dave...
> >
> > p.s. Can you please send all support requests to the mailing list
> >
> >   nms...@li...
> >
> > There are more peoplr there who might be able to help you quicker than
> > I can.
> >
> > --
> >
> >   Drugs are just bad m'kay
> >
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
>
> ----- End forwarded message -----
>
>

-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |

[Nms-cgi-devel] CVS Commit %s

[Jonathan S. <gel...@us...>]

uid=68026(gellyfish) gid=100(users) groups=100(users),40625(nms-cgi)
guestbook guestbook.pl,1.6,1.7
Fri Nov 16 01:06:54 PST 2001
Update of /cvsroot/nms-cgi/guestbook
In directory usw-pr-cvs1:/tmp/cvs-serv17706

Modified Files:
	guestbook.pl 
Log Message:
Had forgotten to declare $DEBUGGING

Re: [Nms-cgi-devel] Fwd: [jeanswing2000@yahoo.com: Re: [Nms-cgi-support] Fwd: [jeanswing2000@yahoo.com: Drop-in Replacement for Guestbook]]

[Dave C. <da...@da...>]

Oops. Please ignore. I meant this to go to the support list.

(Note to self: don't deal with this stuff ten minutes after waking up :)

On Fri, Nov 16, 2001 at 06:42:56AM +0000, Dave Cross (da...@da...) wrote:
> Can someone woh worked on the new CGI::Carp stuff please look at this for
> Jean.
> 
> Thanks,
> 
> Dave...
> 
> ----- Forwarded message from Jean <jea...@ya...> -----
> 
> From: "Jean" <jea...@ya...>
> To: "Dave Cross" <da...@da...>
> Date: Thu, 15 Nov 2001 22:09:08 -0500
> 
> Hey Dave,
> 
> Any idea what would be causing this error?
> 
> BEGIN not safe after errors--compilation aborted at
> /home/users/brently/felixstpub.com/cgi-bin/guestbook/guestbook.pl line 38.
> 
> I checked the paths and everything is set correctly.  I saw your comments on
> the Debugging so I've tried it at 1 and 0.
> 
> Regards, Jean :)
> 
> ----- Original Message -----
> From: "Dave Cross" <da...@da...>
> To: "Jean" <jea...@ya...>
> Cc: <nms...@li...>
> Sent: Thursday, November 15, 2001 1:51 AM
> Subject: Re: [Nms-cgi-support] Fwd: [jea...@ya...: Drop-in
> Replacement for Guestbook]
> 
> 
> > On Wed, Nov 14, 2001 at 09:35:13PM -0500, Jean (jea...@ya...)
> wrote:
> > > Thanks Dave, it's still doing it but I only replaced the guestbook.pl
> file
> > > from the tar file I downloaded tonight....  After it didn't work I
> looked at
> > > your revisions at the top of the script and the last change was on
> 11/11/01.
> > > Is the fixed script on your site yet?
> >
> > Er... yes. Last night I only released it to the developers website. I
> > forgot to release it to the public website. I've done that now, so please
> > try again.
> >
> > Sorry about that.
> >
> > Dave...
> >
> > p.s. Can you please send all support requests to the mailing list
> >
> >   nms...@li...
> >
> > There are more peoplr there who might be able to help you quicker than
> > I can.
> >
> > --
> >
> >   Drugs are just bad m'kay
> >
> 
> 
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
> 
> 
> ----- End forwarded message -----
> 
> -- 
> 
>   "Don't you boys know any _nice_ songs?"
> 
> _______________________________________________
> Nms-cgi-devel mailing list
> Nms...@li...
> https://lists.sourceforge.net/lists/listinfo/nms-cgi-devel

-- 

  "Don't you boys know any _nice_ songs?"

[Nms-cgi-devel] Fwd: [jeanswing2000@yahoo.com: Re: [Nms-cgi-support] Fwd: [jeanswing2000@yahoo.com: Drop-in Replacement for Guestbook]]

[Dave C. <da...@da...>]

Can someone woh worked on the new CGI::Carp stuff please look at this for
Jean.

Thanks,

Dave...

----- Forwarded message from Jean <jea...@ya...> -----

From: "Jean" <jea...@ya...>
To: "Dave Cross" <da...@da...>
Date: Thu, 15 Nov 2001 22:09:08 -0500

Hey Dave,

Any idea what would be causing this error?

BEGIN not safe after errors--compilation aborted at
/home/users/brently/felixstpub.com/cgi-bin/guestbook/guestbook.pl line 38.

I checked the paths and everything is set correctly.  I saw your comments on
the Debugging so I've tried it at 1 and 0.

Regards, Jean :)

----- Original Message -----
From: "Dave Cross" <da...@da...>
To: "Jean" <jea...@ya...>
Cc: <nms...@li...>
Sent: Thursday, November 15, 2001 1:51 AM
Subject: Re: [Nms-cgi-support] Fwd: [jea...@ya...: Drop-in
Replacement for Guestbook]


> On Wed, Nov 14, 2001 at 09:35:13PM -0500, Jean (jea...@ya...)
wrote:
> > Thanks Dave, it's still doing it but I only replaced the guestbook.pl
file
> > from the tar file I downloaded tonight....  After it didn't work I
looked at
> > your revisions at the top of the script and the last change was on
11/11/01.
> > Is the fixed script on your site yet?
>
> Er... yes. Last night I only released it to the developers website. I
> forgot to release it to the public website. I've done that now, so please
> try again.
>
> Sorry about that.
>
> Dave...
>
> p.s. Can you please send all support requests to the mailing list
>
>   nms...@li...
>
> There are more peoplr there who might be able to help you quicker than
> I can.
>
> --
>
>   Drugs are just bad m'kay
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


----- End forwarded message -----

-- 

  "Don't you boys know any _nice_ songs?"

Re: [Nms-cgi-devel] An idea for guestbook.pl

[iain t. <ic...@eh...>]

* Joseph F. Ryan (rya...@os...) [16 Nov 2001 05:58]:

[...]
> The algorithm would work something like this: first, the guestbook
> page is read in. It is gone through line by line, printing each line
> if it does not contain <!--BEGIN-->, until the first line where
> <!--BEGIN--> is encountered, at which point the loop exits. The
> entries are then printed. Then the rest of the page is printed.

But, but --- it *does* use that method.

It reads the entire file in, then prints it back out to itself. If it
finds the string '<!-- begin -->' it emits the new entry.


cheers,
--
iain.                                          <http://eh.org/~koschei/>

[Nms-cgi-devel] An idea for guestbook.pl

[Joseph F. R. <rya...@os...>]

I was working on guestbook.pl tonight, and I noticed that we were still 
using Matt's antiquated way of rewriting the html file using heardocs.  Why 
can't we simply let the user define their own design?  It should be 
relatively trivial to use some basic html parsing so that the guestbook is 
read in, the header information remains intact, and the guestbook entries 
are inserted when the begin statement is encountered, before the footer 
gets spit back out.  For instance:
<html>
   <head>
   </head>
   <body>
   *BLAH*
   <!--BEGIN-->
   *BLAH*
   </body>
</html>
The algorithm would work something like this: first, the guestbook page is 
read in.  It is gone through line by line, printing each line if it does 
not contain <!--BEGIN-->, until the first line where <!--BEGIN--> is 
encountered, at which point the loop exits.  The entries are then 
printed.  Then the rest of the page is printed.  This way, entries are 
still sorted by newest first, and the integrity of the page remains 
intact.  Better yet, since users of MWS already have his formatting, they 
won't even notice a difference.  However, newer users will be able to 
design their page any way they choose, and yet their guestbook will still work.

On an unrelated note, I am still having problems with CVS.  I downloaded 
WinCVS and installed it successfully, but I couldn't figure out how to use 
it.  CVS's super-massive manual wasn't much help either.  I guess I'll just 
keep posting to my perlmonk site until I can figure this monster out...

[Nms-cgi-devel] CVS Commit %s

[Jonathan S. <gel...@us...>]

uid=68026(gellyfish) gid=100(users) groups=100(users),40625(nms-cgi)
ffa ffa.pl,1.4,1.5 links.html,1.5,1.6
Thu Nov 15 01:11:04 PST 2001
Update of /cvsroot/nms-cgi/ffa
In directory usw-pr-cvs1:/tmp/cvs-serv20393/ffa

Modified Files:
	ffa.pl links.html 
Log Message:
* Fixed the -style thing in start_html
* added nms.css to the links page
* fixed the hard coded HTML to be nearly XHTML
* fixed header in the die handler.

[Nms-cgi-devel] CVS Commit %s

[Dave C. <da...@us...>]

uid=38988(davorg) gid=100(users) groups=100(users),14388(insect),40625(nms-cgi)
guestbook guestbook.pl,1.5,1.6
Wed Nov 14 15:00:13 PST 2001
Update of /cvsroot/nms-cgi/guestbook
In directory usw-pr-cvs1:/tmp/cvs-serv1398

Modified Files:
	guestbook.pl 
Log Message:
More XHTML fixes.

[Nms-cgi-devel] CVS Commit %s

[Dave C. <da...@us...>]

uid=38988(davorg) gid=100(users) groups=100(users),14388(insect),40625(nms-cgi)
wwwboard faq.html,1.1.1.1,1.2 wwwboard.html,1.1.1.1,1.2
Wed Nov 14 14:46:59 PST 2001
Update of /cvsroot/nms-cgi/wwwboard
In directory usw-pr-cvs1:/tmp/cvs-serv30162/wwwboard

Modified Files:
	faq.html wwwboard.html 
Log Message:
XHTML 1.0 Transitional.