[19059] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 1254 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 6 09:06:00 2001

Date: Fri, 6 Jul 2001 06:05:17 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <994424717-v10-i1254@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Fri, 6 Jul 2001     Volume: 10 Number: 1254

Today's topics:
    Re: Access Access <trevor.r.ward@blueyonder.co.uk>
    Re: calling a PERL script from Matlab (Peter J. Acklam)
        Checking image presence and properties <jan@nospam.harf.nl>
        Confussed about s/^([a-z0-9]+)/$1/ behaviour <ccx138@coventry.ac.uk>
    Re: Confussed about s/^([a-z0-9]+)/$1/ behaviour <david.bouman@nl.xo.com>
    Re: Confussed about s/^([a-z0-9]+)/$1/ behaviour <ccx138@coventry.ac.uk>
    Re: Correct way to open a .jpg image and save? <trevor.r.ward@blueyonder.co.uk>
    Re: Correct way to open a .jpg image and save? <mlaw@talk21.comNOSPAM>
    Re: Counting occurances on a line <tom.melly@ccl.com>
    Re: Counting occurances on a line <peb@bms.umist.ac.uk>
        Error - Undefined subroutine &Win32::Process::Create <minutiae@usa.net>
    Re: executing perl in a browser on win2k server <wyzelli@yahoo.com>
        FAQ: Who supports Perl?  Who develops it?  Why is it fr <faq@denver.pm.org>
    Re: Floating point accuracy?  Is this a bug? <gtoomey@usa.net>
    Re: how do you move a created file <shop@wehug.com>
    Re: how to read multipart/form-data <mlaw@talk21.comNOSPAM>
        IF statement madness (Rik)
        login script with cgi? (Flipper)
    Re: login script with cgi? <redsquirreldesign@yahoo.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Fri, 6 Jul 2001 10:57:01 +0100
From: "Trevor Ward" <trevor.r.ward@blueyonder.co.uk>
Subject: Re: Access Access
Message-Id: <9i421f$9ta9@eccws12.dearborn.ford.com>

Thank you works great

"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:iah9kt85qnvnnbtm11o307bv49sl30a5at@4ax.com...
> Trevor Ward wrote:
>
> >I have just been given an access mdb file.
> >
> >Can I use perl to get at the data.
> >
> >If so which module do I need to install (guess its dbi)
> >and how do I connect ?.
>
> Assuming you have a Windows machine and the Access engine: DBI+DBD::ODBC
>
> Go to control panels, open ODBC data sources, add a new system DSN,
> select your database as the source and give it a name. Close.
>
> In perl, you can now connect with
>
> use DBI;
> my $dbh = new DBI("DBI:ODBC:$dsn", $user, $pwd);
>
> where $dsn is the name you entered in the ODBC control panel, $user and
> $pwd is an existing username and password combination.
>
> --
> Bart.




------------------------------

Date: 06 Jul 2001 10:31:15 +0200
From: jacklam@math.uio.no (Peter J. Acklam)
Subject: Re: calling a PERL script from Matlab
Message-Id: <wkae2ileli.fsf@math.uio.no>

steveaux@my-deja.com (Steve Miller) wrote:

> Believe me, I know and love the Cygwin utilities! However, there
> are two problems with that approach.
> 
> 1. Can you shell out to use them? (e.g. ">> cygwin split
> -b4800000 hugefile prefix) If you know off the top of your head
> or know of any pitfalls, you could save me some time!

Well, I have the Cygwin utilities in the directory f:\cygwin\bin,
which is in my path, so I just say

   >> ! split -b 4800000 hugefile prefix

> 2. I haven't had a chance to upgrade yet, but in my version of
> Cygwin (1.0, I think), split has a bug. My files came out too
> small and, if I recall, not even of uniform size. Does anyone
> know if that's been fixed?

I have the latest Cygwin utilities and all the files have the
correct size on my computer and merging them gives me the exact
same file as the input file.  I just tried.

Peter

-- 
~/.signature: No such file or directory


------------------------------

Date: Fri, 6 Jul 2001 10:31:20 +0200
From: "Jan" <jan@nospam.harf.nl>
Subject: Checking image presence and properties
Message-Id: <9i3t6q$lrs$1@scavenger.euro.net>

Dear experts,

I wandered around through the archives looking for a solution for my
problem, but to no avail. Hopefully you can help me out with this specific
problem.

I would like to check several images located on several servers on the
internet for presence and properties. If an image is not present, a dummy
image shall be displayed. The code I have so far is the following:

++++++++++++++

# Create useragent and request methods to check for availability of the
image-file
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new('HEAD',$uri);

# Now browse the list of images
foreach (@webcams) {

($idx,$resort,$area,$lowres,$lowreswidth,$lowresheight,$highres,$highreswidt
h,$highresheight,$caption,$clicks) = split(/\|/,$_);
    if ($idx eq $j) {
     $request->uri("$lowres");
     $response = $ua->request($request);
     $result = $response->code;
     unless ($result->is_success) {
      $lowres = $dummy_img;
     }
     print "Checking: $lowres; Result: $result\n";
}

++++++++++++++++

For some reason, I always have 400 as a result, even if the image located in
$lowres is present.
Has anyone got any idea?

Second challenge is to obtain the last-updated information of the specific
image. Can I do this with a header command? Based on the script above?

Thanks very much for your help,

Jan






------------------------------

Date: Fri, 06 Jul 2001 09:03:03 +0100
From: John Tutchings <ccx138@coventry.ac.uk>
Subject: Confussed about s/^([a-z0-9]+)/$1/ behaviour
Message-Id: <3B4570B7.307D3CF3@coventry.ac.uk>

This is probably simple but I can't see it why it does not work.

If I do perl -pe "s/^([a-z0-9]+):/$1:pig/ unless(/^ccx/)" test.dat
the result is
    ccx002:27248
    ccx003:27249
    :pig27333
    :pig27350

but if I put the  s/^([a-z0-9]+):/$1:pig/ unless(/^ccx/) as the single
line in a file and then run it using  perl -p script.pl test.dat
it works fine and produces
    ccx002:27248
    ccx003:27249
    cex001:pig
    cex071:pig

I would have thought that the two were equivalent, what am I missing
here ?

test.dat is
bash$ cat test.dat
ccx002:27248
ccx003:27249
cex001:27333
cex071:27350

--
John T.



------------------------------

Date: Fri, 06 Jul 2001 10:25:27 +0200
From: David Bouman <david.bouman@nl.xo.com>
Subject: Re: Confussed about s/^([a-z0-9]+)/$1/ behaviour
Message-Id: <3B4575F7.F5AE43F7@nl.xo.com>

John Tutchings wrote:
> 
> This is probably simple but I can't see it why it does not work.
> 
> If I do perl -pe "s/^([a-z0-9]+):/$1:pig/ unless(/^ccx/)" test.dat
> the result is
>
> ... snipped...

Think what your shell does to that $1 there. Try this instead:

perl -pe 's/^([a-z0-9]+):/$1:pig/ unless(/^ccx/)' test.dat


--
David.


------------------------------

Date: Fri, 06 Jul 2001 09:57:28 +0100
From: John Tutchings <ccx138@coventry.ac.uk>
Subject: Re: Confussed about s/^([a-z0-9]+)/$1/ behaviour
Message-Id: <3B457D78.ABD76F00@coventry.ac.uk>



David Bouman wrote:

> John Tutchings wrote:
> >
> > This is probably simple but I can't see it why it does not work.
> >
> > If I do perl -pe "s/^([a-z0-9]+):/$1:pig/ unless(/^ccx/)" test.dat
> > the result is
> >
> > ... snipped...
>
> Think what your shell does to that $1 there. Try this instead:
>
> perl -pe 's/^([a-z0-9]+):/$1:pig/ unless(/^ccx/)' test.dat
>
> --
> David.

Cheers.  It is so clear when you see it.

--
John T.



------------------------------

Date: Fri, 6 Jul 2001 08:21:35 +0100
From: "Trevor Ward" <trevor.r.ward@blueyonder.co.uk>
Subject: Re: Correct way to open a .jpg image and save?
Message-Id: <9i3ou1$9r08@eccws12.dearborn.ford.com>

If you use binmode to read in and write out the format of the jpg file
remains correct.

"Matt L." <mlaw@talk21.comNOSPAM> wrote in message
news:9i29rq$e0$1@neptunium.btinternet.com...
> Hi!
>
> On a previous post I was advised not to open an image file like so:-
>
> $file = param('file');
> open (SAVE, ">../images/$file") || die $!;
   binmode(SAVE);


> while (<$file>) {
>     print SAVE $_;
> }
>
> But instead, I should use the function read(), I have the Perl cookbook
> which says to use this for fixed length records by doing this:-
>
> until ( eof(FILE) )  {
>         read(FILE, $record, $recordsize) == $RECORDSIZE or die "short
read\n";
>       @FIELDS = unpack($TEMPLATE, $record);
> }
>
> Is this the right way to go about receiving my file from the html form and
> writing it to disk? If so can anyone explain the syntax a little?
> If it is not the right way, what is?
>
> Many thanks,
>
> Matt.




------------------------------

Date: Fri, 6 Jul 2001 10:35:53 +0100
From: "Matt L." <mlaw@talk21.comNOSPAM>
Subject: Re: Correct way to open a .jpg image and save?
Message-Id: <swf17.1244$PE5.22869@NewsReader>

I'd been led to believe that binmode was for non-unix like systems such as
Windows?  The script in question takes input from Windows-based browsers and
saves the image files to Unix/Linux.
However, using this syntax:

$file = param('file');
open (SAVE, ">../images/$file") || die $!;
   binmode(SAVE);
   while (<$file>) {
     print SAVE $_;
  }

I receive an 'end of array' error when trying to open the image file...
Can anyone help with this?

Many thanks,

Matt.


> If you use binmode to read in and write out the format of the jpg file
> remains correct.
>
> "Matt L." <mlaw@talk21.comNOSPAM> wrote in message
> news:9i29rq$e0$1@neptunium.btinternet.com...
> > Hi!
> >
> > On a previous post I was advised not to open an image file like so:-
> >
> > $file = param('file');
> > open (SAVE, ">../images/$file") || die $!;
>    binmode(SAVE);
>
>
> > while (<$file>) {
> >     print SAVE $_;
> > }
> >
> > But instead, I should use the function read(), I have the Perl cookbook
> > which says to use this for fixed length records by doing this:-
> >
> > until ( eof(FILE) )  {
> >         read(FILE, $record, $recordsize) == $RECORDSIZE or die "short
> read\n";
> >       @FIELDS = unpack($TEMPLATE, $record);
> > }
> >
> > Is this the right way to go about receiving my file from the html form
and
> > writing it to disk? If so can anyone explain the syntax a little?
> > If it is not the right way, what is?
> >
> > Many thanks,
> >
> > Matt.
>
>




------------------------------

Date: Fri, 6 Jul 2001 09:30:51 +0100
From: "Tom Melly" <tom.melly@ccl.com>
Subject: Re: Counting occurances on a line
Message-Id: <3b45773b$0$8512$ed9e5944@reading.news.pipex.net>

"Tim Schmelter" <tschmelter@statesman.com> wrote in message
news:3B44A3F1.8276C6A4@statesman.com...

>
> What build of ActivePerl are you using? Are you calling the script with
> warnings (-w or "use warnings;")?

Eep, my mistake. It is warning me. I must have been trying out the tr/://
version when I ran it with -w. Apols and thanks.




------------------------------

Date: Fri, 06 Jul 2001 12:07:33 +0100
From: Paul Boardman <peb@bms.umist.ac.uk>
Subject: Re: Counting occurances on a line
Message-Id: <3B459BF5.7E19D547@bms.umist.ac.uk>

Tad McClellan wrote:
> 

<copious snippage>

> A tr_version() will kick ass compared to either of those...

yep.  certainly did.

Benchmark: timing 200000 iterations of Split, Tr, While...
     Split:  4 wallclock secs ( 2.90 usr +  0.00 sys =  2.90 CPU) @
68965.52/s (n=200000)
        Tr:  1 wallclock secs ( 0.94 usr +  0.00 sys =  0.94 CPU) @
212765.96/s (n=200000)
     While:  3 wallclock secs ( 2.09 usr +  0.00 sys =  2.09 CPU) @
95693.78/s (n=200000)

Paul


------------------------------

Date: Fri, 06 Jul 2001 07:09:30 GMT
From: minutiae <minutiae@usa.net>
Subject: Error - Undefined subroutine &Win32::Process::Create
Message-Id: <3B45673A.76B033D5@usa.net>


I am calling a perl script from another perl script and i get the
following error any suggestions as to how to solve it would be great.

Thanks


Undefined subroutine &Win32::Process::Create called at D:\Program
Files\Apache Group\Apache\cgi-bin\test2.pl line 3.

Orig.pl
#!e:\perl\bin\perl -w

Win32::Process::Create($ProcessObj,
"D:\\Progra~1\\Apache~1\\Apache\\cgi-bin\\test.pl", "s", 0,
DETACHED_PROCESS, ".")|| die ErrorReport();

Test.pl

#!e:\perl\bin\perl -w

Win32::Process::Create($ProcessObj,
"D:\\Progra~1\\Apache~1\\Apache\\cgi-bin\\some_exe.exe", "s", 0,
NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();


I call test.pl from orig.pl and i get the error :
Undefined subroutine &Win32::Process::Create called at D:\Program
Files\Apache Group\Apache\cgi-bin\test2.pl line 3.

However if i call only test.pl it executes perfectly fine without any
errors. In fact if i change the orig.pl to call an executable instead of
test.pl it runs fine. So i am completely lost.

Any thoughts would be much appreciated.

Thanks.



------------------------------

Date: Fri, 6 Jul 2001 21:44:42 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: executing perl in a browser on win2k server
Message-Id: <KKh17.2$6e3.654@vic.nntp.telstra.net>

"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:1t09kt4fu81mmb9nrgr9tla2h363jt8fos@4ax.com...
> <chris@wmccmsvr.ssr.hp.com> wrote:
>
> >all the
> >scripts to handle and regurgitate user input were written in perl for
> >UNIX.  The office recently upgraded a new server to Windows 2000 Server,
>
> I would never ever call that an upgrade.

He didn't say upgraded from Unix.  He said Unix scripts, and upgraded
server.  They might have upgraded the server from CP-M for all that can be
gleaned from the above. :)

Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';




------------------------------

Date: Fri, 06 Jul 2001 12:17:03 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: Who supports Perl?  Who develops it?  Why is it free?
Message-Id: <3%h17.10$T3.179747840@news.frii.net>

This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.

+
  Who supports Perl?  Who develops it?  Why is it free?

    The original culture of the pre-populist Internet and the deeply-held
    beliefs of Perl's author, Larry Wall, gave rise to the free and open
    distribution policy of perl. Perl is supported by its users. The core,
    the standard Perl library, the optional modules, and the documentation
    you're reading now were all written by volunteers. See the personal note
    at the end of the README file in the perl source distribution for more
    details. See the perlhist manpage (new as of 5.005) for Perl's milestone
    releases.

    In particular, the core development team (known as the Perl Porters) are
    a rag-tag band of highly altruistic individuals committed to producing
    better software for free than you could hope to purchase for money. You
    may snoop on pending developments via
    nntp://news.perl.com/perl.porters-gw/ and the Deja archive at
    http://www.deja.com/ using the perl.porters-gw newsgroup, or you can
    subscribe to the mailing list by sending perl5-porters-request@perl.org
    a subscription request.

    While the GNU project includes Perl in its distributions, there's no
    such thing as "GNU Perl". Perl is not produced nor maintained by the
    Free Software Foundation. Perl's licensing terms are also more open than
    GNU software's tend to be.

    You can get commercial support of Perl if you wish, although for most
    users the informal support will more than suffice. See the answer to
    "Where can I buy a commercial version of perl?" for more information.

- 

Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short.  They represent an important
part of the Usenet tradition.  They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.

If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile.  If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.

Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to

    news:news.answers

or to the many thousands of other useful Usenet news groups.

Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release.  It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.

The perlfaq manual page contains the following copyright notice.

  AUTHOR AND COPYRIGHT

    Copyright (c) 1997-1999 Tom Christiansen and Nathan
    Torkington.  All rights reserved.

This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.

                                                           01.02
-- 
    This space intentionally left blank


------------------------------

Date: Fri, 6 Jul 2001 19:49:05 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: Floating point accuracy?  Is this a bug?
Message-Id: <pzf17.22837$e5.63407@newsfeeds.bigpond.com>

"William Pietri" <william-news-102374@scissor.com> wrote in message
news:tkalhjbh6o4if2@corp.supernews.com...
> Gregory Toomey wrote:
>
> Are you sure about that? Using perl 5.6.0, this code
>
>     $crazy  = "0.300100";
>     $sane   = "30010";
>
>     $divisor = 0;
>     for ($i = 0; $i < 100000; $i++) {$divisor++;}
>
>     $log   = $sane - $crazy * 10 ** 5;
>     $const = $sane - $crazy * 100000;
>     $addup = $sane - $crazy * $divisor;
>
>     print "does $log == $const?  ",($log==$const ? "yup" : "nope"),"!\n";
>     print "does $log == $addup?  ",($log==$addup ? "yup" : "nope"),"!\n";
>
> produces this output:
>
>     does 3.63797880709171e-12 == 3.63797880709171e-12?  yup!
>     does 3.63797880709171e-12 == 3.63797880709171e-12?  yup!
>
> So it looks like the source of the discrepancy is unrelated to the
exponent
> or to any parse-time recognition of 100000 as 10**5.
>
> William

I started by comment with a disclaimer about optimisation.
The Perl interpreter may use 'constant folding' to expand 10**5 to 100000.
See http://www.nullstone.com/htmls/category/consfold.htm

But  y= 2.34**x would certainly be calculated using logarithms.

gtoomey






------------------------------

Date: Fri, 06 Jul 2001 13:01:29 GMT
From: Crystal Ball <shop@wehug.com>
Subject: Re: how do you move a created file
Message-Id: <3B45B77E.598106B1@wehug.com>

Thanks for trying Smiley,
I have already tried 
######sub variable for megalist
$config{'megalist'} = '/usr/www/users/nuspirit/megalist/';
and
######sub variable for megalist
$config{'megalist'} = '/usr/www/users/nuspirit/public_html/megalist/';
I do not get any errors the script runs through, but no directory
megalist and no file mega.htm
it just wont write these to my public html area only will create
them if I point to the cgi-bin area like so:
######sub variable for megalist
$config{'megalist'} = '/usr/www/users/nuspirit/cgi-bin/megalist/';

I still appreciate your help, thanks again, I know there is
a solution, I'll keep trying.
Mike

Smiley wrote:
> 
> Mike,
> 
> Right away I see your problem.  You're trying to set the value to your
> HTTP directory.  You need to set it to your Server directory.  Instead
> of http://www.wehug.com, it will probably be something like
> /home/users/wehug/public_html/ - that is the directory path on the
> server, and not the URL.
> 
> My script's working - I'm setting up a demo site soon.  I'll tell you
> when it's up.  (The site I'm working on is for the medical community
> though so it probably won't be of much interest to you outside of the
> auction script.)
> 
> On Fri, 06 Jul 2001 02:49:46 GMT, Crystal Ball <shop@wehug.com> wrote:
> 
> >Hi Smiley,
> >Thanks for the reply.
> >I've tried many various path possibilities, but when ever I
> >try to use anything like http://www.wehug.com/
> >which is where I want it to mkdir and put the mega.htm file
> >it wont do it. I don't get any error messages, the program just
> >sails along and does nothing regarding the creation of the Dir
> >or the mega file. I have no problem with the script creating
> >the mega.htm file as long as I set the path anywhere inside
> >the cgi-bin area. Here is the script in it's current state.
> >http://www.wehug.com/auction.txt


------------------------------

Date: Fri, 6 Jul 2001 11:21:23 +0100
From: "Matt L." <mlaw@talk21.comNOSPAM>
Subject: Re: how to read multipart/form-data
Message-Id: <7bg17.1052$vH5.27491@NewsReader>

I can recommend Lincoln Stein's book "The Official Guide to Programming with
CGI.pm" as a good place to start.  I was and still am, a newbie to Perl and
the book helped a great deal.  I'm still having loadsa problems with
uploading images so if anyone can help with that then I'd be really
grateful...

Cheers!

Matt.




------------------------------

Date: 6 Jul 2001 04:57:09 -0700
From: envy_14s@hotmail.com (Rik)
Subject: IF statement madness
Message-Id: <ef1f5574.0107060357.383956f2@posting.google.com>

Hi all, 
   I'm a complete novice when it comes to perl, so be easy with this
dumb question!

 Basicaly, I'm trying to extract a single cookie element. I found some
code for reading from cookies,

foreach $name (keys %cookies) {
	print "\n$name = $cookies{$name}<br>";
}


 so I thought to extract the single user item, I would have to iterate
through. The code that I managed to get working is this:

foreach $name (keys %cookies) {
   if ($cookies{$name} != "User")
   {
     print "\n$name = $cookies{$name}<br>";
   } 
}

which to me seems completely weird... can anyone tell me where I'm
going wrong here?

Ta, 
Richard


------------------------------

Date: Fri, 06 Jul 2001 09:22:01 GMT
From: twoflippers@icqmail.com.spamfilter (Flipper)
Subject: login script with cgi?
Message-Id: <3b45825d.3370900@news.uwa.edu.au>

G'day all

I am making a website and I wish to quasi protect it.
I have set up a popup window which appears over a bland normal window.
On the popup is a form with 2 fields, username and password and I want
to make it so when the correct combination is entered, the popup
closes and the back window becomes a new page.

NOT ultra secure and more for entertainment
but HOW do I do this?

I tried the perl\cgi turorial at http://www.cgi101.com/ and am still
not very enlightened

obviously I need an 
	if($username == USERNAME)
	and ($password == PASSWORD)
	then "the required actions" 

but what aer the "required actions?"

thanks in advance

David


------------------------------

Date: Fri, 06 Jul 2001 11:30:16 GMT
From: "Dave Hoover" <redsquirreldesign@yahoo.com>
Subject: Re: login script with cgi?
Message-Id: <cjh17.113951$mG4.55026654@news1.mntp1.il.home.com>

Flipper wrote:
[snip]
> if($username == USERNAME)
> and ($password == PASSWORD)
> then "the required actions"
>
> but what aer the "required actions?"

I think this will work:

if ($username == USERNAME) and ($password == PASSWORD) {
    output the HTML and JavaScript required to window.close() the login box
    and redirect the main window to a new URL (see appropriate newsgroup)
} else {
    output the HTML for a login failure message
}

HTH

=====
Dave Hoover
"Twice blessed is help unlooked for." --Tolkien
http://www.redsquirreldesign.com/dave




------------------------------

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.  

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 V10 Issue 1254
***************************************


home help back first fref pref prev next nref lref last post