From Beaves at aol.com  Wed Sep  1 10:06:34 1999
From: Beaves at aol.com (Beaves@aol.com)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
Message-ID: <8a236760.24fe9afa@aol.com>

I would like to propose that we all work on a project together.  We can split 
up the work and have a specific site for out group projects.

I'm thinking that maybe we can work on a Perl internet database manager, 
built by us and built specifically for Perl.  Something small, light, and 
portable.  Built in Perl from the ground up.  But this is just one idea.

If we have our own Phoenix PM perl library, that would really be neat.  We 
would get to meet the writers in person on a regular basis...

Who knows, maybe later the next Red Hat....

Any ideas or suggestions.  Comments?

Tim

From edelsys at edelsys.com  Wed Sep  1 16:41:39 1999
From: edelsys at edelsys.com (EdelSys Consulting)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
In-Reply-To: <8a236760.24fe9afa@aol.com>
Message-ID: <3.0.6.32.19990901144139.00848100@swlink.net>

At 11:06 AM 09/01/1999 EDT, Beaves@aol.com wrote:
>I would like to propose that we all work on a project together.  We can
split 
>up the work and have a specific site for out group projects.
>
>I'm thinking that maybe we can work on a Perl internet database manager, 
>built by us and built specifically for Perl.  Something small, light, and 
>portable.  Built in Perl from the ground up.  But this is just one idea.
>
>If we have our own Phoenix PM perl library, that would really be neat.  We 
>would get to meet the writers in person on a regular basis...
>
>Who knows, maybe later the next Red Hat....
>
>Any ideas or suggestions.  Comments?
>
>Tim
>

Wow, I've been thinking along those lines.  Let's make it
NON-relational, PLEASE.

Tony

--
--  Anthony R. Nemmer 
--  http://www.swlink.net/~edelsys -- edelsys@swlink.net
--
--  EdelSys Consulting
--  http://www.edelsys.com/ -- edelsys@edelsys.com
--  
--  EFNet IRC Teratogen -- ICQ #14638605 -- edelsys@hotmail.com
--  (480) 968-6438 -- P.O. Box 1883, Tempe, Arizona 85280-1883
--


From coyotl at primenet.com  Wed Sep  1 20:12:02 1999
From: coyotl at primenet.com (Glen G. Walker)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
In-Reply-To: <37CC0360.9D8C9338@bpxinternet.com>
Message-ID: <Pine.BSI.3.96.990901181133.21907A-100000@usr04.primenet.com>



I'm cool with the place, but Thursdays are no good for me...



From mekla at geocities.com  Thu Sep  2 01:10:05 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
Message-ID: <99090123240102.11504@cx949622-b.poria1.az.home.com>

I'm game for a meeting. Been a while, but the new place is near my work
anyway. When and what will we be doing?

As far as ideas... not sure. Did the web site thing I was hearing about
ever take off? I thought I remembered someone mentioning having something
online where people can submit snippets of useful code, and that sort of
thing.

I saw a snippet of code I thought was useful so I'll post:

@sorted_by_size = 
  map { $_->[0] } 
  sort { $a->[1] <=> $b->[1] } 
  map { [$_, -s] } 
  @files;

This basically sorts a bunch of files by size but can be adapted to sort
whatever you want. It is much more efficient than:

@sorted_by_size = sort { -s $a <=> -s $b } @files;


For a full explanation of the above go to:

http://www.5sigma.com/perl/schwtr.html



Shay


From Beaves at aol.com  Thu Sep  2 01:37:37 1999
From: Beaves at aol.com (Beaves@aol.com)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
Message-ID: <4380e818.24ff7531@aol.com>

I have a portion of my web site 'reserved' for the Phoenix PM group.  Just 
how much y'all want to use it is up to you.  It's nothing much right now 
(just a shell, so to speak), but with the right contributions could be a 
wealth of ideas and information.

The reason I haven't really talked it up, is that I don't know if I'm 
duplicating an effort, and I don't necessarily have the groups collective 
blessing to run their site.  Kind of a politeness issue really.

Let me know what everybody thinks about the few Phoenix PM pages that I have 
so far...

Shay, I'll post your snippet with your permission...

Tim

go to http://www.azwebs.com   and click on 'Perl/CGI' .  The PM links are on 
the lower left...


From mark at wcws.com  Thu Sep  2 01:51:06 1999
From: mark at wcws.com (Mark A. Sharkey)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net> <99090123240102.11504@cx949622-b.poria1.az.home.com>
Message-ID: <37CE1E5A.718CC639@wcws.com>

Speaking of code snippets, here's a couple that I use all
the time:

1.  This one takes all the parameters from your HTML form
input, and makes local variables of the same names inside
your script.  For example, suppose you have a form that the
user has to enter name, address, phone, and you name each of
the form text fields 'name', 'address', 'phone'.  When the
script is called you will automatically have local variables
called $name, $address, and $phone with the values of
whatever was entered from the form.

use CGI;
my $q=new CGI;
foreach ($q->param()) {
 ${$_} = $q->param($_);
}


2.  Our company does most all of our dynamic web pages using
HTML templates (as opposed to embedding the HTML inside the
perl script).  The template files are set up with tokens
that are replaced with actual values from the script. 
Here's how we read in the template file, and replace all
tokens with actual values from the script:

$t = "new_fast_tag.htm";
undef $/;
open (T, "templates/$t") or die ("Can't open $t: $!");
$T = <T>;
close T;
$/="\n";
$T =~ s/\[(.*?)\]/${$1}/g;
print $T;


-- 
******* PLEASE NOTE *******
Our area code has changed!
******* PLEASE NOTE *******

Mark A. Sharkey
World Class Web Sites
mark@wcws.com
800 844 4434 (toll free)
480 461 9765 (local)
480 461 9312 (fax)

From pablo at dosomething.org  Thu Sep  2 05:06:40 1999
From: pablo at dosomething.org (Pablo Velasquez)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
In-Reply-To: <99090123240102.11504@cx949622-b.poria1.az.home.com>
References: <3.0.6.32.19990901144139.00848100@swlink.net>
Message-ID: <3.0.6.32.19990902030640.0094e750@mail.dosomething.org>

Hi,
I'm new to the list, and to the Phoenix area.

>I'm game for a meeting. Been a while, but the new place is near my work
>anyway. When and what will we be doing?

Where is the new meeting place?

>I saw a snippet of code I thought was useful so I'll post:
>
>@sorted_by_size = 
>  map { $_->[0] } 
>  sort { $a->[1] <=> $b->[1] } 
>  map { [$_, -s] } 
>  @files;

I'm a big fan of this piece of code, I use it considerably with our MySQL
db. Here's a variation used with a records retrieval using DBI:

#login to MySQL, etc, now get the stuff

$sth->execute;
$student_records = $sth->fetchall_arrayref;
$sth->finish;
$dbh->disconnect;

#here we sort (alphabetically) the student records 
#by "s_alias" whatever that might be...

@{$student_records} =
map { $_->[0] }
sort {  lc($a->[1]) cmp lc($b->[1])  }
map {($grab_1, $s_alias) = (@$_); [$_, $s_alias]}
@{$student_records};

foreach $i ( 0 .. $#{$student_records} ) {

$s_datemodified = "$student_records->[$i][0]";
$s_alias = "$student_records->[$i][1]";
$s_total_points = "$student_records->[$i][2]";
$s_student_id = "$student_records->[$i][3]";

#bunch-o-html goes here using the above $s_student_id, yada, yada
print <<ROWS;

ROWS

}

That's it...

-Pablo


From sinck at ip100.starwarz.org  Thu Sep  2 10:28:01 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
	<99090123240102.11504@cx949622-b.poria1.az.home.com>
	<37CE1E5A.718CC639@wcws.com>
Message-ID: <14286.38785.179281.688963@ip100.starwarz.org>



\_ 1.  This one takes all the parameters from your HTML form
\_ input, and makes local variables of the same names inside
\_ your script.  
\_ [...]
\_ use CGI;
\_ my $q=new CGI;
\_ foreach ($q->param()) {
\_  ${$_} = $q->param($_);
\_ }

Is it just me, or does this replicate the effort of 

$q->import_names('main');

Just curious.

Not only is there more than one way to do it, there's probably too
many.  :-)

FWIW, the cool thing Shay posted on sorting by size is classically known
as the Schwartzian Transform, mod'd slightly to sort by size.
Benchmarking put it faster than other 'create a key foreach data, sort
key, extract data' methods.  (So said Randal of Transform fame in a
presentation I was at....)

David

From doug.miles at bpxinternet.com  Thu Sep  2 10:35:49 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net> <99090123240102.11504@cx949622-b.poria1.az.home.com>
Message-ID: <37CE9955.F4727ED1@bpxinternet.com>

Shay Harding wrote:
> 
> I'm game for a meeting. Been a while, but the new place is near my work
> anyway. When and what will we be doing?

I haven't gotten the day picked yet, but I'm thinking sometime next
week.  As far as what we'll be doing, I was thinking of talking about
the Perl Conference, and Phoenix.pm business.

> As far as ideas... not sure. Did the web site thing I was hearing about
> ever take off? I thought I remembered someone mentioning having something
> online where people can submit snippets of useful code, and that sort of
> thing.

The web site issue is one of the main things I want to discuss.

> I saw a snippet of code I thought was useful so I'll post:
> 
> @sorted_by_size =
>   map { $_->[0] }
>   sort { $a->[1] <=> $b->[1] }
>   map { [$_, -s] }
>   @files;
> 
> This basically sorts a bunch of files by size but can be adapted to sort
> whatever you want. It is much more efficient than:
> 
> @sorted_by_size = sort { -s $a <=> -s $b } @files;
> 
> For a full explanation of the above go to:
> 

-- 
Douglas Adams:
"I love deadlines. I like the whooshing sound they make as they fly by."

From doug.miles at bpxinternet.com  Thu Sep  2 10:36:50 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <8a236760.24fe9afa@aol.com>
Message-ID: <37CE9992.368B928@bpxinternet.com>

Beaves@aol.com wrote:
> 
> I would like to propose that we all work on a project together.  We can split
> up the work and have a specific site for out group projects.

This will be something we can talk about at the next meeting.  I'm
leaving the agenda pretty open this time.

> I'm thinking that maybe we can work on a Perl internet database manager,
> built by us and built specifically for Perl.  Something small, light, and
> portable.  Built in Perl from the ground up.  But this is just one idea.
> 
> If we have our own Phoenix PM perl library, that would really be neat.  We
> would get to meet the writers in person on a regular basis...
> 
> Who knows, maybe later the next Red Hat....
> 
> Any ideas or suggestions.  Comments?
> 
> Tim

-- 
Douglas Adams:
"I love deadlines. I like the whooshing sound they make as they fly by."

From doug.miles at bpxinternet.com  Thu Sep  2 10:38:04 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <4380e818.24ff7531@aol.com>
Message-ID: <37CE99DC.6F2C9259@bpxinternet.com>

Beaves@aol.com wrote:
> 
> I have a portion of my web site 'reserved' for the Phoenix PM group.  Just
> how much y'all want to use it is up to you.  It's nothing much right now
> (just a shell, so to speak), but with the right contributions could be a
> wealth of ideas and information.
> 
> The reason I haven't really talked it up, is that I don't know if I'm
> duplicating an effort, and I don't necessarily have the groups collective
> blessing to run their site.  Kind of a politeness issue really.

Thanks for your politeness. :) Not much of that around any more.  I
think that this is another great topic for the next meeting.

> Let me know what everybody thinks about the few Phoenix PM pages that I have
> so far...
> 
> Shay, I'll post your snippet with your permission...
> 
> Tim
> 
> go to http://www.azwebs.com   and click on 'Perl/CGI' .  The PM links are on
> the lower left...

-- 
Douglas Adams:
"I love deadlines. I like the whooshing sound they make as they fly by."

From mark at wcws.com  Thu Sep  2 10:50:36 1999
From: mark at wcws.com (Mark A. Sharkey)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
		<99090123240102.11504@cx949622-b.poria1.az.home.com>
		<37CE1E5A.718CC639@wcws.com> <14286.38785.179281.688963@ip100.starwarz.org>
Message-ID: <37CE9CCC.89304C2A@wcws.com>



David Sinck wrote:
> 
> \_ 1.  This one takes all the parameters from your HTML form
> \_ input, and makes local variables of the same names inside
> \_ your script.
> \_ [...]
> \_ use CGI;
> \_ my $q=new CGI;
> \_ foreach ($q->param()) {
> \_  ${$_} = $q->param($_);
> \_ }
> 
> Is it just me, or does this replicate the effort of
> 
> $q->import_names('main');


I didn't know there was such a thing as 'import_names'.

Very cool.  Thanks David!

-- 
******* PLEASE NOTE *******
Our area code has changed!
******* PLEASE NOTE *******

Mark A. Sharkey
World Class Web Sites
mark@wcws.com
800 844 4434 (toll free)
480 461 9765 (local)
480 461 9312 (fax)

From sinck at ip100.starwarz.org  Thu Sep  2 11:02:14 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
	<99090123240102.11504@cx949622-b.poria1.az.home.com>
	<37CE1E5A.718CC639@wcws.com>
	<14286.38785.179281.688963@ip100.starwarz.org>
	<37CE9CCC.89304C2A@wcws.com>
Message-ID: <14286.40838.374134.725933@ip100.starwarz.org>



\_ I didn't know there was such a thing as 'import_names'.
It comes from being one with the manual pages too often.  

I also know too many of the options to find....

\_ Very cool.  Thanks David!
np; be aware there is a security note tagged to that call that's
probably worth becoming familiar with.  :-)

David

From jimm at amug.org  Thu Sep  2 15:12:58 1999
From: jimm at amug.org (jim)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
		<99090123240102.11504@cx949622-b.poria1.az.home.com>
		<37CE1E5A.718CC639@wcws.com> <14286.38785.179281.688963@ip100.starwarz.org>
Message-ID: <37CEDA4A.51F20614@amug.org>



> \_ my $q=new CGI;
> \_ foreach ($q->param()) {
> \_  ${$_} = $q->param($_);
> \_ }
> 
> Is it just me, or does this replicate the effort of
> 
> $q->import_names('main');
> 
Ooops! Red flag..

The CGI Docs warn that importing into 'main' is a "major security risk"
$q->import_names('q'); is recommended...
that gives you $q::field1, $q::field2..etc..
thought it was worth mentioning.. ;-)

Jim M.

> Just curious.
> 
> Not only is there more than one way to do it, there's probably too
> many.  :-)
> 

-- 
A computer lets you make more mistakes faster than any invention 
in human history - with the possible exceptions of handguns and 
tequila. -- Mitch Ratcliffe

From sinck at ip100.starwarz.org  Thu Sep  2 15:54:21 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
	<99090123240102.11504@cx949622-b.poria1.az.home.com>
	<37CE1E5A.718CC639@wcws.com>
	<14286.38785.179281.688963@ip100.starwarz.org>
	<37CEDA4A.51F20614@amug.org>
Message-ID: <14286.58365.49450.500064@ip100.starwarz.org>


\_ Ooops! Red flag..
\_ 
\_ The CGI Docs warn that importing into 'main' is a "major security risk"

Aw!  You went and spoiled the fun!  How am I supposed to encourage
people to become one with the manual if you go and read it and put in
spoilers?

Sheesh.  :-)

FWIW, I believe the code provided actually essentially imported them
into main anyway.  Someone want to argue the merits of -T on CGI
scripts?  :-)

David

From mark at wcws.com  Thu Sep  2 16:12:57 1999
From: mark at wcws.com (Mark A. Sharkey)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
			<99090123240102.11504@cx949622-b.poria1.az.home.com>
			<37CE1E5A.718CC639@wcws.com> <14286.38785.179281.688963@ip100.starwarz.org> <37CEDA4A.51F20614@amug.org>
Message-ID: <37CEE859.95866B50@wcws.com>

I'm very interested in this thread.  However, I don't have
the time to become 'one' with the manual, David. ;-)

What exactly is the 'major security risk'?  Can someone
explain it in basic terms?

Also, does the same risk hold true for the way my company is
currently doing it (with the foreach routine below)?

Thanks.



jim wrote:
> 
> > \_ my $q=new CGI;
> > \_ foreach ($q->param()) {
> > \_  ${$_} = $q->param($_);
> > \_ }
> >
> > Is it just me, or does this replicate the effort of
> >
> > $q->import_names('main');
> >
> Ooops! Red flag..
> 
> The CGI Docs warn that importing into 'main' is a "major security risk"
> $q->import_names('q'); is recommended...
> that gives you $q::field1, $q::field2..etc..
> thought it was worth mentioning.. ;-)
> 
> Jim M.


-- 
******* PLEASE NOTE *******
Our area code has changed!
******* PLEASE NOTE *******

Mark A. Sharkey
World Class Web Sites
mark@wcws.com
800 844 4434 (toll free)
480 461 9765 (local)
480 461 9312 (fax)

From Beaves at aol.com  Thu Sep  2 16:36:58 1999
From: Beaves at aol.com (Beaves@aol.com)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: So, what are the merits of -T on CGI scripts?
Message-ID: <bff18b6f.250047fa@aol.com>

What switches do y'all use and why for your CGI scripts...

Tim

From edelsys at edelsys.com  Thu Sep  2 17:28:28 1999
From: edelsys at edelsys.com (EdelSys Consulting)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: So, what are the merits of -T on CGI scripts?
In-Reply-To: <bff18b6f.250047fa@aol.com>
Message-ID: <3.0.6.32.19990902152828.008ad100@swlink.net>

At 05:36 PM 09/02/1999 EDT, you wrote:
>What switches do y'all use and why for your CGI scripts...
>
>Tim
>

-T forces you to examine any data coming in from the "outside",
or going to the "outside" (via system, to the shell, for example),
and decide what to do with it.  Typically, what you do is run the
"outside" data through an untaint function, like this:

sub untaint

{ my($taint)=@_;

  my $untaint =  $taint;

  $untaint    =~ s/\.\.//g;
  $untaint    =~ s/\+/ /g;
  $untaint    =~ s/\;//g;
  $untaint    =~ s/\&//g
  $untaint    =~ s/\|//g;
  $untaint    =~ s/\>//g;
  $untaint    =~ s/\<//g;
  $untaint    =~ s/\?//g;
  $untaint    =~ s/\*//g;
  $untaint    =~ s/\]//g;
  $untaint    =~ s/\[//g;
  $untaint    =~ s/\'//g;
  $untaint    =~ s/\"//g;
  $untaint    =~ s/\,//g;

  $untaint    =~ /^(.*)$/s;
  $untaint    = $1;

  return($untaint); }

These two lines

  $untaint    =~ /^(.*)$/s;
  $untaint    = $1;

are what actually remove the taint flag from
the variable.  The other lines are just removing
"questionable" characters (e.g. shell metacharacters)
from the variable.

Tony

--
--  Anthony R. Nemmer 
--  http://www.swlink.net/~edelsys -- edelsys@swlink.net
--
--  EdelSys Consulting
--  http://www.edelsys.com/ -- edelsys@edelsys.com
--  
--  EFNet IRC Teratogen -- ICQ #14638605 -- edelsys@hotmail.com
--  (480) 968-6438 -- P.O. Box 1883, Tempe, Arizona 85280-1883
--


From mekla at geocities.com  Thu Sep  2 17:43:56 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <4380e818.24ff7531@aol.com>
Message-ID: <99090215475800.18966@shay.cwie.net>

>I have a portion of my web site 'reserved' for the Phoenix PM group.  Just 
>how much y'all want to use it is up to you.  It's nothing much right now 
>(just a shell, so to speak), but with the right contributions could be a 
>wealth of ideas and information.
>
>The reason I haven't really talked it up, is that I don't know if I'm 
>duplicating an effort, and I don't necessarily have the groups collective 
>blessing to run their site.  Kind of a politeness issue really.
>
>Let me know what everybody thinks about the few Phoenix PM pages that I have 
>so far...
>
>Shay, I'll post your snippet with your permission...

You can post it, but it is not 'my' snippet, just one that I thought
was not only useful, but efficient.


---------------- From another post to the list --------------------

 FWIW, the cool thing Shay posted on sorting by size is classically known 
as the Schwartzian Transform, mod'd slightly to sort by size. 
Benchmarking put it faster than other 'create a key foreach data, sort 
key, extract data' methods.  (So said Randal of Transform fame in a 
presentation I was at....) 

David 

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

Yes, you must use the Schwartz.



--

Shay


From sinck at ip100.starwarz.org  Thu Sep  2 18:29:43 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <3.0.6.32.19990901144139.00848100@swlink.net>
	<99090123240102.11504@cx949622-b.poria1.az.home.com>
	<37CE1E5A.718CC639@wcws.com>
	<14286.38785.179281.688963@ip100.starwarz.org>
	<37CEDA4A.51F20614@amug.org>
	<37CEE859.95866B50@wcws.com>
Message-ID: <14287.2151.912544.984262@ip100.starwarz.org>



\_ I'm very interested in this thread.  However, I don't have
\_ the time to become 'one' with the manual, David. ;-)
\_ 
\_ What exactly is the 'major security risk'?  Can someone
\_ explain it in basic terms?

Depends, among other things, if you like having your variables
clobbered.  

Suppose you have a variable 

$a = 1;

and it actually does something important.  Now, further suppose you go
put the CGI params in your namespace.  $a could be clobbered.  But,
you say, "I don't use 'a' as a CGI variable."  And that may in fact be
true.  But that doesn't support someone else from hacking your HTML
and *adding* the variable to the list.  So, kiss $a good bye.  Now, if
you have something that actually gets eval'd or something like
that...presto! arbitrary code running on your server.  Everyone who's
now nervous, please stand up.

There are probably other issues, but that's a good one to get your
attention.  :-)

\_ Also, does the same risk hold true for the way my company is
\_ currently doing it (with the foreach routine below)?
Quick analysis: I think it does.

David

From sinck at ip100.starwarz.org  Thu Sep  2 18:33:23 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: So, what are the merits of -T on CGI scripts?
References: <bff18b6f.250047fa@aol.com>
	<3.0.6.32.19990902152828.008ad100@swlink.net>
Message-ID: <14287.2371.638221.372814@ip100.starwarz.org>


\_ sub untaint
\_ 
\_ { my($taint)=@_;
\_ 
\_   my $untaint =  $taint;
\_ 
\_   $untaint    =~ s/\.\.//g;
\_   $untaint    =~ s/\+/ /g;
\_   $untaint    =~ s/\;//g;
\_   $untaint    =~ s/\&//g
\_   $untaint    =~ s/\|//g;
\_   $untaint    =~ s/\>//g;
\_   $untaint    =~ s/\<//g;
\_   $untaint    =~ s/\?//g;
\_   $untaint    =~ s/\*//g;
\_   $untaint    =~ s/\]//g;
\_   $untaint    =~ s/\[//g;
\_   $untaint    =~ s/\'//g;
\_   $untaint    =~ s/\"//g;
\_   $untaint    =~ s/\,//g;
\_ 
\_   $untaint    =~ /^(.*)$/s;
\_   $untaint    = $1;
\_ 
\_   return($untaint); }
\_ 
\_ These two lines
\_ 
\_   $untaint    =~ /^(.*)$/s;
\_   $untaint    = $1;
\_ 
\_ are what actually remove the taint flag from
\_ the variable.  The other lines are just removing
\_ "questionable" characters (e.g. shell metacharacters)
\_ from the variable.
\_ 
\_ Tony

why not cast

$untaint =~ s/\.\.|[]+;&|<>?*'",]//go;
$untaint =~ /^(.*)$/s;
$untaint = $1;

and get them in one swell foop?  (YMMV on actual syntax....)

Well, other than clarity; but that's what comments are for.  :-)

David


From edelsys at edelsys.com  Thu Sep  2 18:44:54 1999
From: edelsys at edelsys.com (EdelSys Consulting)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: So, what are the merits of -T on CGI scripts?
In-Reply-To: <14287.2371.638221.372814@ip100.starwarz.org>
References: <bff18b6f.250047fa@aol.com>
 <3.0.6.32.19990902152828.008ad100@swlink.net>
Message-ID: <3.0.6.32.19990902164454.008c1930@swlink.net>

At 04:33 PM 09/02/1999 -0700, you wrote:
>
>\_ sub untaint
>\_ 
>\_ { my($taint)=@_;
>\_ 
>\_   my $untaint =  $taint;
>\_ 
>\_   $untaint    =~ s/\.\.//g;
>\_   $untaint    =~ s/\+/ /g;
>\_   $untaint    =~ s/\;//g;
>\_   $untaint    =~ s/\&//g
>\_   $untaint    =~ s/\|//g;
>\_   $untaint    =~ s/\>//g;
>\_   $untaint    =~ s/\<//g;
>\_   $untaint    =~ s/\?//g;
>\_   $untaint    =~ s/\*//g;
>\_   $untaint    =~ s/\]//g;
>\_   $untaint    =~ s/\[//g;
>\_   $untaint    =~ s/\'//g;
>\_   $untaint    =~ s/\"//g;
>\_   $untaint    =~ s/\,//g;
>\_ 
>\_   $untaint    =~ /^(.*)$/s;
>\_   $untaint    = $1;
>\_ 
>\_   return($untaint); }
>\_ 
>\_ These two lines
>\_ 
>\_   $untaint    =~ /^(.*)$/s;
>\_   $untaint    = $1;
>\_ 
>\_ are what actually remove the taint flag from
>\_ the variable.  The other lines are just removing
>\_ "questionable" characters (e.g. shell metacharacters)
>\_ from the variable.
>\_ 
>\_ Tony
>
>why not cast
>
>$untaint =~ s/\.\.|[]+;&|<>?*'",]//go;
>$untaint =~ /^(.*)$/s;
>$untaint = $1;
>
>and get them in one swell foop?  (YMMV on actual syntax....)
>
>Well, other than clarity; but that's what comments are for.  :-)
>
>David
>

Sure, you can do that if you want. =)

Tony


From mekla at geocities.com  Thu Sep  2 22:40:14 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: New meeting place
References: <14287.2151.912544.984262@ip100.starwarz.org>
Message-ID: <99090220534400.11985@cx949622-b.poria1.az.home.com>


>\_ I'm very interested in this thread.  However, I don't have
>\_ the time to become 'one' with the manual, David. ;-)
>\_ 
>\_ What exactly is the 'major security risk'?  Can someone
>\_ explain it in basic terms?
>
>Depends, among other things, if you like having your variables
>clobbered.  
>
>Suppose you have a variable 
>
>$a = 1;
>
>and it actually does something important.  Now, further suppose you go
>put the CGI params in your namespace.  $a could be clobbered.  But,
>you say, "I don't use 'a' as a CGI variable."  And that may in fact be
>true.  But that doesn't support someone else from hacking your HTML
>and *adding* the variable to the list.  So, kiss $a good bye.  Now, if
>you have something that actually gets eval'd or something like
>that...presto! arbitrary code running on your server.  Everyone who's
>now nervous, please stand up.
>
>There are probably other issues, but that's a good one to get your
>attention.  :-)
>

Well, consider that with a form, you are not going to use variables you did
not create. So if someone added form fields, the chance of them hitting a
variable you use is slim, although it does exist. Importing into a 'safe
zone' (different namespace) is the safer of the two. For the most part if
you scope your variables using 'my', you can avoid most of this problem.
Scope your form variables globally, and all other variables lexically so
even if someone puts extra stuff in your form, they shouldn't affect
variables of the same name within subs, ifs, whiles, etc.

So if you had a form with fields (field1, field2) and someone added
'field3':


use CGI;
$cgi = new CGI;

for ($cgi->param()){
    ${$_} = $cgi->param($_);
}

&something();

sub something(){
    my $field3 = 15;
    my $result = $field1 + $field2 * $field3;
}


OK, now the added 'field3' through the form just sits there and is
harmless. I guess it really depends on how the code is structured and to
what extent it actually issues system commands and such.


Shay


From dmiles at primenet.com  Thu Sep  2 22:56:25 1999
From: dmiles at primenet.com (Doug and Julie Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting 09/07/1999
Message-ID: <3.0.3.32.19990902205625.0087fb60@pop.primenet.com>

We'll be having a Phoenix.pm meeting Tuesday September 7th at 7:00PM.  It
will be held at Bowne, which is located at 1500 N. Central Avenue, which is
on the Southwest corner of Central and McDowell.  The parking lot is gated,
so just press the button on the intercom, and tell the receptionist that
you are there for the Perl meeting.  Park in the lot that is straight ahead
from the entrance on the South side of McDowell.  Park in any uncovered,
non-reserved space.  I'll wait outside for a while to make sure everyone
ends up the right place.  If you show up late, the main lobby is on the
Northeast side of the parking lot.

I will be talking about the Perl Conference 3.0, the web page, and anything
else that comes up (like recent discussions on the list.)  I look forward
to seeing you there!
-- 
Douglas Adams:
"I love deadlines. I like the whooshing sound they make as they fly by."



Doug and Julie Miles

From doug.miles at bpxinternet.com  Wed Sep 15 17:04:40 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting 09/21/1999
References: <3.0.3.32.19990902205625.0087fb60@pop.primenet.com>
Message-ID: <37E017F8.ECB1380D@bpxinternet.com>

We'll be having a Phoenix.pm meeting Tuesday September 21st at 7:00PM. 
It
will be held at Bowne, which is located at 1500 N. Central Avenue, which
is
on the Southwest corner of Central and McDowell.  The parking lot is
gated,
so just press the button on the intercom, and tell the receptionist that
you are there for the Perl meeting.  Park in the lot that is straight
ahead
from the entrance on the South side of McDowell.  Park in any uncovered,
non-reserved space.  I'll wait outside for a while to make sure everyone
ends up the right place.  If you show up late, the main lobby is on the
Northeast side of the parking lot.

Also, we will have a conference room to ourselves, computer/internet
access and FREE refreshments (courtesy of Bowne).  Bonus!

Kurt will be presenting on self-extracting archives using MIME::Base64. 
We will also discuss the web site.

-- 
People understand instinctively that the best way for computer programs
to
communicate with each other is for each of the them to be strict in what
they
emit, and liberal in what they accept. The odd thing is that people
themselves
are not willing to be strict in how they speak, and liberal in how they
listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at phoenix.bowne.com  Thu Sep 16 12:00:34 1999
From: doug.miles at phoenix.bowne.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
Message-ID: <37E12232.CFF624DA@phoenix.bowne.com>

Can you guys send me some email (dmiles@primenet.com) if you think
you're comming?  I need an approximate head count for snacks.  Thanks.

-- 
"We've heard that a million monkeys at a million keyboards could 
produce the Complete Works of Shakespeare; now, thanks to the 
Internet, we know this is not true."  
    --Robert Wilensky

From edelsys at edelsys.com  Fri Sep 17 14:23:32 1999
From: edelsys at edelsys.com (EdelSys Consulting)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
In-Reply-To: <37E12232.CFF624DA@phoenix.bowne.com>
Message-ID: <3.0.6.32.19990917122332.00870430@swlink.net>

At 10:00 AM 09/16/1999 -0700, you wrote:
>Can you guys send me some email (dmiles@primenet.com) if you think
>you're comming?  I need an approximate head count for snacks.  Thanks.
>
>-- 
>"We've heard that a million monkeys at a million keyboards could 
>produce the Complete Works of Shakespeare; now, thanks to the 
>Internet, we know this is not true."  
>    --Robert Wilensky
>

I'll try to make it.

Tony

--
--  Anthony R. Nemmer 
--  http://www.swlink.net/~edelsys -- edelsys@swlink.net
--
--  EdelSys Consulting
--  http://www.edelsys.com/ -- edelsys@edelsys.com
--  
--  EFNet IRC Teratogen -- ICQ #14638605 -- edelsys@hotmail.com
--  (480) 968-6438 -- P.O. Box 1883, Tempe, Arizona 85280-1883
--


From pablo at dosomething.org  Fri Sep 17 14:16:52 1999
From: pablo at dosomething.org (Pablo Velasquez)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
In-Reply-To: <37E12232.CFF624DA@phoenix.bowne.com>
Message-ID: <3.0.6.32.19990917121652.0097bde0@mail.dosomething.org>

Hi,
I'll be there.

-Pablo

At 10:00 AM 9/16/99 -0700, you wrote:
>Can you guys send me some email (dmiles@primenet.com) if you think
>you're comming?  I need an approximate head count for snacks.  Thanks.
>
>-- 
>"We've heard that a million monkeys at a million keyboards could 
>produce the Complete Works of Shakespeare; now, thanks to the 
>Internet, we know this is not true."  
>    --Robert Wilensky
>


From Bryan.Lane at VITALPS.COM  Fri Sep 17 14:54:05 1999
From: Bryan.Lane at VITALPS.COM (Bryan Lane)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
Message-ID: <B07FA0A1A91FD211985800805FA76EC601DFC21A@TEF00001.vitalps.com>

I will be there.

Bryan

> -----Original Message-----
> From:	Douglas E. Miles [SMTP:doug.miles@phoenix.bowne.com]
> Sent:	Thursday, September 16, 1999 10:01 AM
> To:	Phoenix.pm
> Subject:	Phoenix.pm: Meeting RSVP
> 
> Can you guys send me some email (dmiles@primenet.com) if you think
> you're comming?  I need an approximate head count for snacks.  Thanks.
> 
> -- 
> "We've heard that a million monkeys at a million keyboards could 
> produce the Complete Works of Shakespeare; now, thanks to the 
> Internet, we know this is not true."  
>     --Robert Wilensky

From pablo at dosomething.org  Fri Sep 17 18:15:03 1999
From: pablo at dosomething.org (Pablo Velasquez)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
In-Reply-To: <3.0.6.32.19990917121652.0097bde0@mail.dosomething.org>
References: <37E12232.CFF624DA@phoenix.bowne.com>
Message-ID: <3.0.6.32.19990917161503.00958c50@mail.dosomething.org>

Hi everyone,
In the spirit of being fruitful and multiplying I'm looking at creating a
Tempe group in addition to the Phoenix one.

If you have any questions you can view this URL:

http://www.dosomething.org/perl

See you at the Phoenix meeting on Tuesday :) (for the first time I suppose)

-Pablo

At 12:16 PM 9/17/99 -0700, you wrote:
>Hi,
>I'll be there.
>
>-Pablo
>
>At 10:00 AM 9/16/99 -0700, you wrote:
>>Can you guys send me some email (dmiles@primenet.com) if you think
>>you're comming?  I need an approximate head count for snacks.  Thanks.
>>
>>-- 
>>"We've heard that a million monkeys at a million keyboards could 
>>produce the Complete Works of Shakespeare; now, thanks to the 
>>Internet, we know this is not true."  
>>    --Robert Wilensky
>>
>


From mekla at geocities.com  Fri Sep 17 21:08:25 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting RSVP
References: <37E12232.CFF624DA@phoenix.bowne.com>
Message-ID: <99091719092300.04351@cx949622-b.poria1.az.home.com>

>Can you guys send me some email (dmiles@primenet.com) if you think
>you're comming?  I need an approximate head count for snacks.  Thanks.

After careful consideration, I decided I will be there.

Shay


From mekla at geocities.com  Fri Sep 17 21:10:50 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Code
Message-ID: <99091719134401.04351@cx949622-b.poria1.az.home.com>

Hey everyone :)

Well, I ran into a problem today while coding and after figuring out
what it was I felt, well... dumb. It was so obvious, but not until I
figured it out, which is the way it usually goes I guess. Anyway I am
including the script in it's entirety (up to this point anyway) so you
can see it. I'm just wondering if anyone can see what the BIG, HUGE
error is in the following code. Just to let everyone know how dumb I
felt after this ordeal, it took me about 1-1/2 hours to figure it out.
It's been a long day.

I'm just posting this so others can avoid my same mistake (plus I want
to see some activity on the list)  :)


--------------------- Start code ------------------------

#!/usr/bin/perl5


  BEGIN{

      *width = \80;

      sub mopendir($);
      sub mopenfile($;$);
      sub get_core_dir($);
      sub center($);
      sub get_header($);

      sub mopendir($){
          my ($dir) = @_;
          opendir(DIR,$dir) || die("Cannot open directory $dir ($!)\n");
          return *DIR;
      }

      sub mopenfile($;$){
          my ($file,$mode) = @_;

          if (!$mode){
              if (!-e $file){
                  open (FILE,">$file") || die("Cannot open file $file ($!)\n");
              }else{
                  open (FILE,">>$file") || die("Cannot open file $file ($!)\n");
              }
          }else{
              open (FILE,$file) || die("Cannot open file $file ($!)\n");
          }
          return *FILE;
      }

      sub get_core_dir($){
          my ($dir) = @_;
          $dir =~ s/(^.*)(\/)(.*$)/$3/g;
          return $dir;
      }

      sub center($){
          my ($string) = @_;
          my $pad = ($width-length($string))/2;
          $pad =~ s/\..*//g;
          my $spaces = " "x$pad;
          return ($spaces.$string.$spaces);
      }

      sub get_header($){
          my ($string) = @_;
          my $char = "-";
          my $pad = (($width-length($string))/2)-1;
          $pad =~ s/\..*//g;
          my $spaces = "$char"x$pad;
          return ($spaces." $string ".$spaces);
      }
  }

  my $base_dir = '/var/checks';
  my $access_error = $base_dir."/AccessError";
  my $database_error = $base_dir."/DatabaseError";
  my $file_error = $base_dir."/FileError";
  my $signup_form_error = $base_dir."/SignupFormError";
  my $bank_error = $signup_form_error."/BankError";
  my $socket_error = $base_dir."/SocketError";
  my $session_logs = $base_dir."/SessionLogs";
  my $webmaster_logs = $base_dir."/WebmasterLogs";
  my $archive_dir = $base_dir."/ARCHIVE";
  chomp($NOW = `date +"%Y_%m_%d"`);


  &get_access_dir();


  sub get_access_dir(){
      local (*D) = mopendir($access_error);
      my $core_dir = get_core_dir($access_error);
      my $archive = $archive_dir."/".$core_dir."_$NOW";

      local (*F) = mopenfile($archive);

      while (my $filename = readdir(*D)){
          if ($filename =~ /^\d+-\d+-\d+$/){
              my $header = get_header($filename);
              print F "$header\n\n";

              local (*FF) = mopenfile("$access_error/$filename","R");
              my @data = <FF>;
              close (*FF);

              if (scalar(@data) < 1){
                  print "$filename => No data\n";
              }
              else{
                  print "$filename => ",@data,"\n";
              }
          }
      }

      closedir(*D);
      close(*F);
  }


-------------------------- End code -----------------------------



Shay

From doug.miles at bpxinternet.com  Mon Sep 20 10:16:22 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: RSVPs
Message-ID: <37E64FC6.1DE60BD@bpxinternet.com>

Thanks for the RSVPs.  Looks like we're going to have the largest
turnout ever!  I'm looking forward to a great meeting...

-- 
People understand instinctively that the best way for computer programs
to
communicate with each other is for each of the them to be strict in what
they
emit, and liberal in what they accept. The odd thing is that people
themselves
are not willing to be strict in how they speak, and liberal in how they
listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From sinck at ip100.starwarz.org  Mon Sep 20 13:25:17 1999
From: sinck at ip100.starwarz.org (David Sinck)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Code
References: <99091719134401.04351@cx949622-b.poria1.az.home.com>
Message-ID: <14310.31757.81753.982518@ip100.starwarz.org>


\_ can see it. I'm just wondering if anyone can see what the BIG, HUGE
\_ error is in the following code. 

No comments?

<g>


David

From edelsys at edelsys.com  Mon Sep 20 13:45:05 1999
From: edelsys at edelsys.com (EdelSys Consulting)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Code
In-Reply-To: <14310.31757.81753.982518@ip100.starwarz.org>
References: <99091719134401.04351@cx949622-b.poria1.az.home.com>
Message-ID: <3.0.6.32.19990920114505.007d7c20@swlink.net>

At 11:25 AM 09/20/1999 -0700, you wrote:
>
>\_ can see it. I'm just wondering if anyone can see what the BIG, HUGE
>\_ error is in the following code. 
>
>No comments?
>
><g>
>
>
>David
>

uhm, NOPE! =)

--
--  Anthony R. Nemmer 
--  http://www.swlink.net/~edelsys -- edelsys@swlink.net
--
--  EdelSys Consulting
--  http://www.edelsys.com/ -- edelsys@edelsys.com
--  
--  EFNet IRC Teratogen -- ICQ #14638605 -- edelsys@hotmail.com
--  (480) 968-6438 -- P.O. Box 1883, Tempe, Arizona 85280-1883
--


From mekla at geocities.com  Tue Sep 21 21:33:27 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting 09/21/1999
References: <37E017F8.ECB1380D@bpxinternet.com>
Message-ID: <99092119342201.08257@cx949622-b.poria1.az.home.com>

Sorry I wasn't able to make the meeting. We hired several new programmers
at work so I had my hands full with them all day and had work piled up
because of it.

Can any one let me in on what happened?

Thanks.

Shay

From doug.miles at bpxinternet.com  Wed Sep 22 09:22:10 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Meeting 09/21/1999
References: <37E017F8.ECB1380D@bpxinternet.com> <99092119342201.08257@cx949622-b.poria1.az.home.com>
Message-ID: <37E8E612.AA0FCFF3@bpxinternet.com>

Shay Harding wrote:
> 
> Sorry I wasn't able to make the meeting. We hired several new programmers
> at work so I had my hands full with them all day and had work piled up
> because of it.
> 
> Can any one let me in on what happened?

I could, but then I'd have to kill you. ;)  We talked about the web site
(or lack thereof), and the plan is that I will set up the ugly page that
I have, and we'll just let people start making changes, sending them to
me.  Also, people can make suggestions, send CGI scripts, or what ever. 
We're just going to start doing it, and see where we end up.

Also, Kurt had a fine presentation on self extracting archives using
MIME::Base64.  It's really quite clever.  I'm sure if you ask nicely,
Kurt will send you the code.  Sorry you couldn't make it.

-- 
People understand instinctively that the best way for computer programs
to
communicate with each other is for each of the them to be strict in what
they
emit, and liberal in what they accept. The odd thing is that people
themselves
are not willing to be strict in how they speak, and liberal in how they
listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Wed Sep 22 09:34:19 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <37E8E8EB.66BD3E2B@bpxinternet.com>

I think that we now have a critical mass of people that are relatively
new to Perl in the group, so I'll be giving a Perl 101 presentation for
the next meeting.  If any of you fall into this category, or you are an
expert, and you want to critique my presentation, :) try to make it to
this meeting.  I want to be sure that everyone is getting useful
information out of these meetings.

Also, I'm kicking around the idea of having one "beginner's" meeting and
one "advanced" meeting each month.  Feedback?  Good idea?  Bad idea?

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Wed Sep 22 09:36:15 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Call for topic ideas
Message-ID: <37E8E95F.508AF369@bpxinternet.com>

Please post your topic ideas to the list.  I'd like to gather them up,
put them on the web site, and get volunteers to present them.  Hey, I'm
flooding the list today!

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From David.Warner at feddata.com  Wed Sep 22 10:00:16 1999
From: David.Warner at feddata.com (Warner, David)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <641058580E52D311BF9800902712DCAA06B3E3@mailsrv.sylvest.com>

Great meeting last night!!!  Thanks again to Bowne for the
accomodations.  Re: next meeting topic - perhaps an intro/overview of
CPAN might be snuck in...even if its just a guide to using
http://search.cpan.org.  Or should we save it for another night?

		Dave


-----Original Message-----
From: Douglas E. Miles [mailto:doug.miles@bpxinternet.com]
Sent: Wednesday, September 22, 1999 7:34 AM
To: Phoenix.pm
Subject: Phoenix.pm: Next meeting topic


I think that we now have a critical mass of people that are relatively
new to Perl in the group, so I'll be giving a Perl 101 presentation for
the next meeting.  If any of you fall into this category, or you are an
expert, and you want to critique my presentation, :) try to make it to
this meeting.  I want to be sure that everyone is getting useful
information out of these meetings.

Also, I'm kicking around the idea of having one "beginner's" meeting and
one "advanced" meeting each month.  Feedback?  Good idea?  Bad idea?

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From David.Warner at feddata.com  Wed Sep 22 10:08:31 1999
From: David.Warner at feddata.com (Warner, David)
Date: Thu Aug  5 00:17:32 2004
Subject: Phoenix.pm: Call for topic ideas
Message-ID: <641058580E52D311BF9800902712DCAA06B3E4@mailsrv.sylvest.com>

Some topic ideas:

	- mod_perl/apache (setup/overview/use).
	- CGI.pm 
	- using databases with DBI.
	- perlisms (some things look different in Perl!) 
	- object-oriented perl.
	- regular expressions in practical use.
	- using "pod" in your scripts.
	- Book reviews - the good, the bad, the necessary.
	- Web resources.
	- Diffs between Unix and NT Perl.



			Dave


>>Please post your topic ideas to the list.  I'd like to >>gather them
up,
>>put them on the web site, and get volunteers to >>present them.  Hey,
I'm
>>flooding the list today!


From doug.miles at bpxinternet.com  Wed Sep 22 10:43:44 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <641058580E52D311BF9800902712DCAA06B3E3@mailsrv.sylvest.com>
Message-ID: <37E8F930.AB17007F@bpxinternet.com>

"Warner, David" wrote:
> 
> Great meeting last night!!!  Thanks again to Bowne for the
> accomodations.  Re: next meeting topic - perhaps an intro/overview of
> CPAN might be snuck in...even if its just a guide to using
> http://search.cpan.org.  Or should we save it for another night?

David, you read my mind.  I definitely want to cover CPAN (the greatest
thing since Perl)!  There's a lot to cover though, so it may take more
than one meeting.

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Wed Sep 22 10:44:54 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Call for topic ideas
References: <641058580E52D311BF9800902712DCAA06B3E4@mailsrv.sylvest.com>
Message-ID: <37E8F976.F596946@bpxinternet.com>

"Warner, David" wrote:
> 
> Some topic ideas:
> 
>         - mod_perl/apache (setup/overview/use).
>         - CGI.pm
>         - using databases with DBI.
>         - perlisms (some things look different in Perl!)
>         - object-oriented perl.
>         - regular expressions in practical use.
>         - using "pod" in your scripts.
>         - Book reviews - the good, the bad, the necessary.
>         - Web resources.
>         - Diffs between Unix and NT Perl.

Thanks for the great ideas.  I've got them on the list!

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From phaedrus at endless.org  Wed Sep 22 11:03:28 1999
From: phaedrus at endless.org (Phaedrus)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Call for topic ideas
In-Reply-To: <37E8F976.F596946@bpxinternet.com>
Message-ID: <Pine.LNX.4.03.9909221153580.19552-100000@the.endless.org>


Topic suggestions..

  XML
  graphics on the fly for the web
  Perl/TK (again, eventually)
  
cheers!
-scott


On Wed, 22 Sep 1999, Douglas E. Miles wrote:
  
> Date: Wed, 22 Sep 1999 08:44:54 -0700
> From: Douglas E. Miles <doug.miles@bpxinternet.com>
> Reply-To: phoenix-pm-list@happyfunball.pm.org
> To: phoenix-pm-list@happyfunball.pm.org
> Subject: Re: Phoenix.pm: Call for topic ideas
> 
> "Warner, David" wrote:
> > 
> > Some topic ideas:
> > 
> >         - mod_perl/apache (setup/overview/use).
> >         - CGI.pm
> >         - using databases with DBI.
> >         - perlisms (some things look different in Perl!)
> >         - object-oriented perl.
> >         - regular expressions in practical use.
> >         - using "pod" in your scripts.
> >         - Book reviews - the good, the bad, the necessary.
> >         - Web resources.
> >         - Diffs between Unix and NT Perl.
> 
> Thanks for the great ideas.  I've got them on the list!
> 
> -- 
> People understand instinctively that the best way for computer
> programs to communicate with each other is for each of the them
> to be strict in what they emit, and liberal in what they accept.
> The odd thing is that people themselves are not willing to be
> strict in how they speak, and liberal in how they listen.
> --Larry Wall, 2nd State of the Onion Address, August 1998
> 


From pablo at dosomething.org  Wed Sep 22 11:44:05 1999
From: pablo at dosomething.org (Pablo Velasquez)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
In-Reply-To: <37E8E8EB.66BD3E2B@bpxinternet.com>
Message-ID: <3.0.6.32.19990922094405.009691f0@mail.dosomething.org>

Hi,
First, it was great meeting everyone last evening.

To respond to your question: I'm for keeping the group together. "Beginner"
or "Advanced", there's more than one way to do it :)  

Proposal: I had a general idea that I wanted to bring up. I was thinking
about a workshop for a local university or college. Meaning, as a group we
create a Intro. to Perl type curriculum that we present at colleges...this
is certainly a longer term project, perhaps a topic of discussion for a
meeting? (I was thinking of it as providing a service to the community)

My motivation for this type of project is that you create a system for
institutionalizing Perl at the academic level. You get more members, you
encourage Perl being taught, therefore, increasing the level of awareness,
etc. Once you create relationships with different computer science
departments you begin to create a system of Perl being taught...

I looked at ASU's programming curriculum and I didn't find any web-related
materials, which seemed odd to me...(but maybe I was looking in the wrong
area)

I remember looking at NYU's curriculum and they didn't have much either
(except for the adult class)...so I've been considering this for a while :)

Anyway, just an idea.

-Pablo

At 07:34 AM 9/22/99 -0700, you wrote:
>I think that we now have a critical mass of people that are relatively
>new to Perl in the group, so I'll be giving a Perl 101 presentation for
>the next meeting.  If any of you fall into this category, or you are an
>expert, and you want to critique my presentation, :) try to make it to
>this meeting.  I want to be sure that everyone is getting useful
>information out of these meetings.
>
>Also, I'm kicking around the idea of having one "beginner's" meeting and
>one "advanced" meeting each month.  Feedback?  Good idea?  Bad idea?
>
>-- 
>People understand instinctively that the best way for computer
>programs to communicate with each other is for each of the them
>to be strict in what they emit, and liberal in what they accept.
>The odd thing is that people themselves are not willing to be
>strict in how they speak, and liberal in how they listen.
>--Larry Wall, 2nd State of the Onion Address, August 1998
>


From doug.miles at bpxinternet.com  Wed Sep 22 12:06:36 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Call for topic ideas
References: <Pine.LNX.4.03.9909221153580.19552-100000@the.endless.org>
Message-ID: <37E90C9C.88B36372@bpxinternet.com>

Phaedrus wrote:
> 
> Topic suggestions..
> 
>   XML
>   graphics on the fly for the web
>   Perl/TK (again, eventually)

Thanks!  Added to the list.

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Wed Sep 22 12:10:03 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <3.0.6.32.19990922094405.009691f0@mail.dosomething.org>
Message-ID: <37E90D6B.F353ADEE@bpxinternet.com>

Pablo Velasquez wrote:
> 
> Hi,
> First, it was great meeting everyone last evening.
> 
> To respond to your question: I'm for keeping the group together. "Beginner"
> or "Advanced", there's more than one way to do it :)

Thanks for the feedback!

> Proposal: I had a general idea that I wanted to bring up. I was thinking
> about a workshop for a local university or college. Meaning, as a group we
> create a Intro. to Perl type curriculum that we present at colleges...this
> is certainly a longer term project, perhaps a topic of discussion for a
> meeting? (I was thinking of it as providing a service to the community)
> 
> My motivation for this type of project is that you create a system for
> institutionalizing Perl at the academic level. You get more members, you
> encourage Perl being taught, therefore, increasing the level of awareness,
> etc. Once you create relationships with different computer science
> departments you begin to create a system of Perl being taught...

I think that this idea definitely warrents more discussion.  I think
that its a great idea.  I don't have any idea how to go about doing it
though (maybe you do).  Any other thoughts on this?

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From David.Warner at feddata.com  Wed Sep 22 12:33:11 1999
From: David.Warner at feddata.com (Warner, David)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <641058580E52D311BF9800902712DCAA06B3EC@mailsrv.sylvest.com>

To all,

	As an aside, the latest issue of "The Perl Journal" really slams
the "Perl 5 for Dummies" book for being grossly inaccurate and in
general, useless for learning perl.  Maybe there is a spot somewhere
below O'Reilly's "Learning Perl" that needs to be filled in an
open-source fashion?

			Dave


-----Original Message-----
From: Douglas E. Miles [mailto:doug.miles@bpxinternet.com]
Sent: Wednesday, September 22, 1999 10:10 AM
To: phoenix-pm-list@happyfunball.pm.org
Subject: Re: Phoenix.pm: Next meeting topic


Pablo Velasquez wrote:
> 
> Hi,
> First, it was great meeting everyone last evening.
> 
> To respond to your question: I'm for keeping the group together.
"Beginner"
> or "Advanced", there's more than one way to do it :)

Thanks for the feedback!

> Proposal: I had a general idea that I wanted to bring up. I was
thinking
> about a workshop for a local university or college. Meaning, as a
group we
> create a Intro. to Perl type curriculum that we present at
colleges...this
> is certainly a longer term project, perhaps a topic of discussion for
a
> meeting? (I was thinking of it as providing a service to the
community)
> 
> My motivation for this type of project is that you create a system for
> institutionalizing Perl at the academic level. You get more members,
you
> encourage Perl being taught, therefore, increasing the level of
awareness,
> etc. Once you create relationships with different computer science
> departments you begin to create a system of Perl being taught...

I think that this idea definitely warrents more discussion.  I think
that its a great idea.  I don't have any idea how to go about doing it
though (maybe you do).  Any other thoughts on this?

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From David.Warner at feddata.com  Wed Sep 22 12:30:32 1999
From: David.Warner at feddata.com (Warner, David)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <641058580E52D311BF9800902712DCAA06B3EB@mailsrv.sylvest.com>

Pablo,
	I think this is a great idea!  Not only is it a real service to
the community, but it also helps to create mindshare...both java and
python are making headway in the college classrooms but not perl.  An
O'Reilly book has just come out that may help this process - "Mastering
Algorithms with Perl" (I'm expecting my copy today or tomorrow from
Amazon).  I would recommend that we start amassing materials on the web
site and that we build towards this goal.  Perhaps something similar to
the Openbook project that has started for Linux
(http://www.linuxworld.com/idgbooks-openbook/)?  


			Dave
  

-----Original Message-----
From: Pablo Velasquez [mailto:pablo@dosomething.org]
Sent: Wednesday, September 22, 1999 9:44 AM
To: phoenix-pm-list@happyfunball.pm.org
Subject: Re: Phoenix.pm: Next meeting topic


Hi,
First, it was great meeting everyone last evening.

To respond to your question: I'm for keeping the group together.
"Beginner"
or "Advanced", there's more than one way to do it :)  

Proposal: I had a general idea that I wanted to bring up. I was thinking
about a workshop for a local university or college. Meaning, as a group
we
create a Intro. to Perl type curriculum that we present at
colleges...this
is certainly a longer term project, perhaps a topic of discussion for a
meeting? (I was thinking of it as providing a service to the community)

My motivation for this type of project is that you create a system for
institutionalizing Perl at the academic level. You get more members, you
encourage Perl being taught, therefore, increasing the level of
awareness,
etc. Once you create relationships with different computer science
departments you begin to create a system of Perl being taught...

I looked at ASU's programming curriculum and I didn't find any
web-related
materials, which seemed odd to me...(but maybe I was looking in the
wrong
area)

I remember looking at NYU's curriculum and they didn't have much either
(except for the adult class)...so I've been considering this for a while
:)

Anyway, just an idea.

-Pablo

At 07:34 AM 9/22/99 -0700, you wrote:
>I think that we now have a critical mass of people that are relatively
>new to Perl in the group, so I'll be giving a Perl 101 presentation for
>the next meeting.  If any of you fall into this category, or you are an
>expert, and you want to critique my presentation, :) try to make it to
>this meeting.  I want to be sure that everyone is getting useful
>information out of these meetings.
>
>Also, I'm kicking around the idea of having one "beginner's" meeting
and
>one "advanced" meeting each month.  Feedback?  Good idea?  Bad idea?
>
>-- 
>People understand instinctively that the best way for computer
>programs to communicate with each other is for each of the them
>to be strict in what they emit, and liberal in what they accept.
>The odd thing is that people themselves are not willing to be
>strict in how they speak, and liberal in how they listen.
>--Larry Wall, 2nd State of the Onion Address, August 1998
>

From doug.miles at bpxinternet.com  Wed Sep 22 13:24:41 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <641058580E52D311BF9800902712DCAA06B3EC@mailsrv.sylvest.com>
Message-ID: <37E91EE9.839FB70B@bpxinternet.com>

"Warner, David" wrote:
> 
> To all,
> 
>         As an aside, the latest issue of "The Perl Journal" really slams
> the "Perl 5 for Dummies" book for being grossly inaccurate and in
> general, useless for learning perl.  Maybe there is a spot somewhere
> below O'Reilly's "Learning Perl" that needs to be filled in an
> open-source fashion?
> 
>                         Dave

I'm jealous.  I haven't received my copy yet. :)

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From David.Warner at feddata.com  Wed Sep 22 14:10:16 1999
From: David.Warner at feddata.com (Warner, David)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <641058580E52D311BF9800902712DCAA06B3EF@mailsrv.sylvest.com>

Doug,
	Neither have I.  I just went to the website http://tpj.com and
found it there.


			Dave


-----Original Message-----
From: Douglas E. Miles [mailto:doug.miles@bpxinternet.com]
Sent: Wednesday, September 22, 1999 11:25 AM
To: phoenix-pm-list@happyfunball.pm.org
Subject: Re: Phoenix.pm: Next meeting topic


"Warner, David" wrote:
> 
> To all,
> 
>         As an aside, the latest issue of "The Perl Journal" really
slams
> the "Perl 5 for Dummies" book for being grossly inaccurate and in
> general, useless for learning perl.  Maybe there is a spot somewhere
> below O'Reilly's "Learning Perl" that needs to be filled in an
> open-source fashion?
> 
>                         Dave

I'm jealous.  I haven't received my copy yet. :)

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From Beaves at aol.com  Wed Sep 22 16:30:48 1999
From: Beaves at aol.com (Beaves@aol.com)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <d469ce50.251aa488@aol.com>

I think that instead of having a separate meeting for beginners and advanced, 
that we set aside about 10 to 15 minutes for a Perl Basics 
forum/discussion/presentation.  I know that even if the topic is a 'basic' 
one, that we could probably all contribute a lesson learned, and that we all 
coud probably learn something new and unusual about the topic.  With the Perl 
basic topic known, then we could all gather our thoughts on the issue and 
comeup with our own lessons learned, or come armed with questions that have 
been nagging us.  The topic should be very specific, as it'll end up 
branching out anyway...

I would like to avoid having a beginners group, because I feel that we all 
probably have a few things to learn at many levels.  I would enjoy being 
involved in a 'entry level' discussion, but I would be hesitant to attend a 
meeting if the entire meeting were devoted to that level...

Here are some topics that may work:

Hashes, (No you can't smoke 'em, but they are smokin')
@INC, %INC, and @ISA (Doesn't eveybody want to be included...?)
Filehandles and FileHandle.pm  (No, you can't pick up chicks with em)
AUTOLOAD, $AUTOLOAD, and autoloading.  (Not about deficating in a Chevy...)
Symbol tables.
References and dereferencing

Just to name a few...

So, to summarize, I think that we should devote a portion of each meeting to 
Perl basics.  If your strong in that area, then come prepared to talk and 
teach.  If you're weak in that area, then come prepare to listen, take notes 
and ask questions.

Just putting in my 2 centavos...

Tim

From Beaves at aol.com  Wed Sep 22 16:49:58 1999
From: Beaves at aol.com (Beaves@aol.com)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Website
Message-ID: <28ac8f3f.251aa906@aol.com>

Doug and y'all...

I'll volunteer for being CINC Website.  I can keep the site on my server 
until we are ready to change it over to the pm sponsored server.  (Does that 
site have the FrontPage Server Extensions loaded?)

Just give me the green light.  When the time comes to transferring the site 
over, it should be a no-brainer.

Don't look for anything pretty, but it will at least get us started.

Tim
P.S.  CINC = military speak for 'Commander in Chief'

From dmiles at primenet.com  Wed Sep 22 19:33:07 1999
From: dmiles at primenet.com (Doug and Julie Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: [JOB OPPORTUNITY] Programming Job
Message-ID: <3.0.3.32.19990922173307.009c58e0@pop.primenet.com>

Here's a job opportunity that someone may be interested in.

>Hello:
>
>I'm looking for a Perl programmer to help us with automating
>our url submission service. We are on a shared server running
>Apache over Linux. Our clients' data will be submitted to
>500 search engines, directories, free for all sites, etc. 
>We would like this project to be programmed from an object
>oriented approach using the LWP library and mSQL (using 
>DBI/DBD). This is going to be an end-to-end online service
>where the client receives an online report at completion
>and is able to submit multiple times per year or month.
>The online credit card transaction system is already in
>place as are the necessary modules.
>
>If you are experienced and available for this type of work,
>a more detailed description is below. Please return us a 
>price quote and estimated time to completion.
>
>> features for clients using the system:
>
>- submission to over 500 search engines, directories, free for all
>pages, etc. using OOP (LWP, etc.). We would like there to be about 20
>concurrent 
>submissions to speed the process.
>- while the submission process is taking place, the search engines'
>confirmation/failure pages will be captured and appear/be replaced in 10
>window frames in
>the browser. This gives the client visual proof of submissions taking
>place.
>- we will charge an initiation fee and then monthly recurrent billing
>based on 3 submissions per mo.   
>- an interface for the client to change their contact/website/billing
>database info.
>- precautions should be taken so that a client cannot manipulate the
>system and make more submissions than allowed. 
>- an automated email confirmation is sent to the client after the
>submission is completed, giving them the url of the submission report
>and the number
>of submissions they have left in the month.
>- clients should have the ability to cancel their service and stop the
>recurrent billing, but have the ability to reactivate their account
>later without
>re-entering their data or paying the initiation fee.
> 
>> on-line credit card processing company we will be using:
>
>- iTransact. We have already been using them and you may alter as
>necessary.
> 
>> features do you required for the site administrator / webmaster:
>
>- ability to modify/add/drop the search engine, directory, ffa
>submission sites. for example, a search engine may add a title field, or
>drop another,
>etc....ffa sites expire quite often and need to be replaced with new
>ones. we
>also may want to expand to 800 or 1000 sites at some point in the
>future.
>- since there will be more than one client using the system at once, use
>of muliple scripts and/or file locking routines will be necessary.
>- HIGHLY commented scripts describing what is happening and why with all
>aspects of the program.
>- ability to change the number of monthly submissions a client can make.
>- some of the major search engines are checking the http header data to
>  make sure the submission is made by a browser, otherwise the
>submission  will be rejected. Therefore, you would have to make sure
>either
>netscape or ie  browser header data is sent to them (e.g., LWP:UserAgent
>has useful
>methods for this).
>
> 
>> example of the report provided to our clients:
>
> http://www.gethits.com/reports/99/sept/Florio.html (no urls).
>
>
>We will need a contract price for this project. 15% will be held back
>until 60 days after the project goes live. We will retain all rights to
>the scripts. Our lawyer will draw up an agreement. The above is a
>preliminary
>description, but gives you a basic idea of what we are looking for.
>
>Thank you,
>Darryl Dyck
>GetHits.com
>Tristar Publishers
>InterSight Holdings, Inc.
>ph (604) 882-1333
>fax(604) 882-2966
>
>


From dmiles at primenet.com  Wed Sep 22 22:38:27 1999
From: dmiles at primenet.com (Doug and Julie Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Web page
Message-ID: <3.0.3.32.19990922203827.00945710@pop.primenet.com>

OK, the ugly page is up.  Hopefully it is enough of an eye-sore to motivate
us to fix it! :)

http://phoenix.pm.org/

http://phoenix.pm.org/ideas.txt - past ideas.  Send in new ideas and updates!

I was wrong about the mysql access, but I'm going to see what I can do
about that (don't hold your breath).  We do have cgi, Apache/mod_perl,
however.  If you want to participate, post to the list with your name,
email address, and what you want to do (HTML/graphic design, message board,
poll cgi, etc.).  I'll compile a list, and put it on the site, so everyone
knows who's doing what.  I'll be the website pumpking (man perhist for
definition), so all changes will be sent to me before going on to the
server.  Feel free to submit complete redesigns, and if we have several,
we'll vote on them.


From mekla at geocities.com  Thu Sep 23 00:00:58 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Re:  All
Message-ID: <99092222031701.09607@cx949622-b.poria1.az.home.com>

OK, I get it. Every time I show up, no one is there. The day I don't show
up, all of Central Phoenix is there. I see a pattern emerging here :)

I like the idea of putting together an 'Intro to Perl' for presentation in
schools. I think it could even be taught down to the high school level
rather than start at the college level. Get 'em early I say.


Shay


From forsythe at primenet.com  Thu Sep 23 00:37:29 1999
From: forsythe at primenet.com (Tran Forsythe)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <d469ce50.251aa488@aol.com>
Message-ID: <00a901bf0585$beef3440$0100a8c0@tran>

Tim: Hmm.. I'd agree regarding not breaking it up into two
classifications... when I bought and read through the Learning Perl book
(after reading thru Perl Prog. & Adv. Perl Prog.), I was expecting to not
find any hugely cute tricks.  Boy, was I wrong.  There's always a new thing
to learn, even about the core.  Me, I think most Perlers are obsessing about
modules overly much... there's so blasted much you can do just using the
basic functions ;)

Also, dunno how many people know of it, but there's a place online to buy
tech-books for even lower prices than amazon.  The url? www.bookpool.com
(I've been shopping there for years, and it's always less than Amazon)

Lastly, Pablo, kudos for the idea - and here's a crazy add-on; assuming we
get our foot in the Univ.'s door, and assuming that there's interest for it
within our own group, one thing we can offer the Univ. as an incentive is
free (group-based) Perl tutoring.  (Teaching this stuff is a blast.. even
the instructor learns more about it.. nor does it look bad on a resume ;) )

-Kurt


From doug.miles at bpxinternet.com  Thu Sep 23 11:13:11 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Re:  All
References: <99092222031701.09607@cx949622-b.poria1.az.home.com>
Message-ID: <37EA5197.6DF6847F@bpxinternet.com>

Shay Harding wrote:
> 
> OK, I get it. Every time I show up, no one is there. The day I don't show
> up, all of Central Phoenix is there. I see a pattern emerging here :)

Yep, the psychic powers of Perl people are amazing. :)

> I like the idea of putting together an 'Intro to Perl' for presentation in
> schools. I think it could even be taught down to the high school level
> rather than start at the college level. Get 'em early I say.
> 
> Shay

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Thu Sep 23 11:18:45 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <d469ce50.251aa488@aol.com>
Message-ID: <37EA52E5.54901496@bpxinternet.com>

Beaves@aol.com wrote:
> 
> I think that instead of having a separate meeting for beginners and advanced,
> that we set aside about 10 to 15 minutes for a Perl Basics
> forum/discussion/presentation.  I know that even if the topic is a 'basic'
> one, that we could probably all contribute a lesson learned, and that we all
> coud probably learn something new and unusual about the topic.  With the Perl
> basic topic known, then we could all gather our thoughts on the issue and
> comeup with our own lessons learned, or come armed with questions that have
> been nagging us.  The topic should be very specific, as it'll end up
> branching out anyway...
> 
> I would like to avoid having a beginners group, because I feel that we all
> probably have a few things to learn at many levels.  I would enjoy being
> involved in a 'entry level' discussion, but I would be hesitant to attend a
> meeting if the entire meeting were devoted to that level...
>
> Here are some topics that may work:
> 
> Hashes, (No you can't smoke 'em, but they are smokin')
> @INC, %INC, and @ISA (Doesn't eveybody want to be included...?)
> Filehandles and FileHandle.pm  (No, you can't pick up chicks with em)
> AUTOLOAD, $AUTOLOAD, and autoloading.  (Not about deficating in a Chevy...)
> Symbol tables.
> References and dereferencing
> 
> Just to name a few...
> 
> So, to summarize, I think that we should devote a portion of each meeting to
> Perl basics.  If your strong in that area, then come prepared to talk and
> teach.  If you're weak in that area, then come prepare to listen, take notes
> and ask questions.

These point are well taken.  I think that the consensus is that we don't
split the meetings.  I agree.  That being said, I'd still like to have a
Perl 101 meeting next time, to sort of jump start some of the newer
people.  Can I see a show of emails for those who would be interested in
this topic next time?  If I find that the interest isn't there, I'll
change my mind.  Thanks for the feedback!

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From phaedrus at endless.org  Thu Sep 23 11:20:31 1999
From: phaedrus at endless.org (Phaedrus)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
In-Reply-To: <37EA52E5.54901496@bpxinternet.com>
Message-ID: <Pine.LNX.4.03.9909231219310.2045-100000@the.endless.org>


Speaking for Heather, who isn't on this list yet, a 101 theme for a
meeting would be most welcome.

-scott


On Thu, 23 Sep 1999, Douglas E. Miles wrote:

> Date: Thu, 23 Sep 1999 09:18:45 -0700
> From: Douglas E. Miles <doug.miles@bpxinternet.com>
> Reply-To: phoenix-pm-list@happyfunball.pm.org
> To: phoenix-pm-list@happyfunball.pm.org
> Subject: Re: Phoenix.pm: Next meeting topic
> 
> Beaves@aol.com wrote:
> > 
> > I think that instead of having a separate meeting for beginners and advanced,
> > that we set aside about 10 to 15 minutes for a Perl Basics
> > forum/discussion/presentation.  I know that even if the topic is a 'basic'
> > one, that we could probably all contribute a lesson learned, and that we all
> > coud probably learn something new and unusual about the topic.  With the Perl
> > basic topic known, then we could all gather our thoughts on the issue and
> > comeup with our own lessons learned, or come armed with questions that have
> > been nagging us.  The topic should be very specific, as it'll end up
> > branching out anyway...
> > 
> > I would like to avoid having a beginners group, because I feel that we all
> > probably have a few things to learn at many levels.  I would enjoy being
> > involved in a 'entry level' discussion, but I would be hesitant to attend a
> > meeting if the entire meeting were devoted to that level...
> >
> > Here are some topics that may work:
> > 
> > Hashes, (No you can't smoke 'em, but they are smokin')
> > @INC, %INC, and @ISA (Doesn't eveybody want to be included...?)
> > Filehandles and FileHandle.pm  (No, you can't pick up chicks with em)
> > AUTOLOAD, $AUTOLOAD, and autoloading.  (Not about deficating in a Chevy...)
> > Symbol tables.
> > References and dereferencing
> > 
> > Just to name a few...
> > 
> > So, to summarize, I think that we should devote a portion of each meeting to
> > Perl basics.  If your strong in that area, then come prepared to talk and
> > teach.  If you're weak in that area, then come prepare to listen, take notes
> > and ask questions.
> 
> These point are well taken.  I think that the consensus is that we don't
> split the meetings.  I agree.  That being said, I'd still like to have a
> Perl 101 meeting next time, to sort of jump start some of the newer
> people.  Can I see a show of emails for those who would be interested in
> this topic next time?  If I find that the interest isn't there, I'll
> change my mind.  Thanks for the feedback!
> 
> -- 
> People understand instinctively that the best way for computer
> programs to communicate with each other is for each of the them
> to be strict in what they emit, and liberal in what they accept.
> The odd thing is that people themselves are not willing to be
> strict in how they speak, and liberal in how they listen.
> --Larry Wall, 2nd State of the Onion Address, August 1998
> 


From doug.miles at bpxinternet.com  Thu Sep 23 12:00:38 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
References: <Pine.LNX.4.03.9909231219310.2045-100000@the.endless.org>
Message-ID: <37EA5CB6.425DA283@bpxinternet.com>

Phaedrus wrote:
> 
> Speaking for Heather, who isn't on this list yet, a 101 theme for a
> meeting would be most welcome.

I'll speak for a couple of my colleagues here too.  That makes 3.

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From Bryan.Lane at VITALPS.COM  Thu Sep 23 14:59:30 1999
From: Bryan.Lane at VITALPS.COM (Bryan Lane)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
Message-ID: <B07FA0A1A91FD211985800805FA76EC601DFC229@TEF00001.vitalps.com>

I think that the Perl 101 theme would be great.  That makes 4!

> -----Original Message-----
> From:	Douglas E. Miles [SMTP:doug.miles@bpxinternet.com]
> Sent:	Thursday, September 23, 1999 10:01 AM
> To:	phoenix-pm-list@happyfunball.pm.org
> Subject:	Re: Phoenix.pm: Next meeting topic
> 
> Phaedrus wrote:
> > 
> > Speaking for Heather, who isn't on this list yet, a 101 theme for a
> > meeting would be most welcome.
> 
> I'll speak for a couple of my colleagues here too.  That makes 3.
> 
> -- 
> People understand instinctively that the best way for computer
> programs to communicate with each other is for each of the them
> to be strict in what they emit, and liberal in what they accept.
> The odd thing is that people themselves are not willing to be
> strict in how they speak, and liberal in how they listen.
> --Larry Wall, 2nd State of the Onion Address, August 1998

From mpjbell at softhome.net  Thu Sep 23 19:03:54 1999
From: mpjbell at softhome.net (Marty Bell)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Next meeting topic
In-Reply-To: <37EA52E5.54901496@bpxinternet.com>
References: <d469ce50.251aa488@aol.com>
Message-ID: <3.0.5.32.19990923170354.0080f140@pop.SoftHome.net>

As a Perl Newbie, I'm for basics 101.  No need to split meetings.  I'll be
there (barring scheduling conflicts).

Marty Bell

At 09:18 AM 9/23/99 -0700, you wrote:
>Beaves@aol.com wrote:
>> 
>> I think that instead of having a separate meeting for beginners and
advanced,
>> that we set aside about 10 to 15 minutes for a Perl Basics
>> forum/discussion/presentation.  I know that even if the topic is a 'basic'
>> one, that we could probably all contribute a lesson learned, and that we
all
>> coud probably learn something new and unusual about the topic.  With the
Perl
>> basic topic known, then we could all gather our thoughts on the issue and
>> comeup with our own lessons learned, or come armed with questions that have
>> been nagging us.  The topic should be very specific, as it'll end up
>> branching out anyway...
>> 
>> I would like to avoid having a beginners group, because I feel that we all
>> probably have a few things to learn at many levels.  I would enjoy being
>> involved in a 'entry level' discussion, but I would be hesitant to attend a
>> meeting if the entire meeting were devoted to that level...
>>
>> Here are some topics that may work:
>> 
>> Hashes, (No you can't smoke 'em, but they are smokin')
>> @INC, %INC, and @ISA (Doesn't eveybody want to be included...?)
>> Filehandles and FileHandle.pm  (No, you can't pick up chicks with em)
>> AUTOLOAD, $AUTOLOAD, and autoloading.  (Not about deficating in a Chevy...)
>> Symbol tables.
>> References and dereferencing
>> 
>> Just to name a few...
>> 
>> So, to summarize, I think that we should devote a portion of each
meeting to
>> Perl basics.  If your strong in that area, then come prepared to talk and
>> teach.  If you're weak in that area, then come prepare to listen, take
notes
>> and ask questions.
>
>These point are well taken.  I think that the consensus is that we don't
>split the meetings.  I agree.  That being said, I'd still like to have a
>Perl 101 meeting next time, to sort of jump start some of the newer
>people.  Can I see a show of emails for those who would be interested in
>this topic next time?  If I find that the interest isn't there, I'll
>change my mind.  Thanks for the feedback!
>
>-- 
>People understand instinctively that the best way for computer
>programs to communicate with each other is for each of the them
>to be strict in what they emit, and liberal in what they accept.
>The odd thing is that people themselves are not willing to be
>strict in how they speak, and liberal in how they listen.
>--Larry Wall, 2nd State of the Onion Address, August 1998
>
>
Marty Bell

From mekla at geocities.com  Thu Sep 23 21:56:59 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Re: All
References: <37EA5197.6DF6847F@bpxinternet.com>
Message-ID: <99092319583100.10252@cx949622-b.poria1.az.home.com>

>Shay Harding wrote:
>> 
>> OK, I get it. Every time I show up, no one is there. The day I don't show
>> up, all of Central Phoenix is there. I see a pattern emerging here :)
>
>Yep, the psychic powers of Perl people are amazing. :)

$group += 50 unless $shay;    :)

>> I like the idea of putting together an 'Intro to Perl' for presentation in
>> schools. I think it could even be taught down to the high school level
>> rather than start at the college level. Get 'em early I say.
>

From dmiles at primenet.com  Thu Sep 23 22:33:00 1999
From: dmiles at primenet.com (Doug and Julie Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Web site ideas
Message-ID: <3.0.3.32.19990923203300.009307a0@pop.primenet.com>

PLUG (Phoenix Linux Users Group) has some things that I like, like the
meeting ideas and minutes:

http://plug.phoenix.az.us/

Also, check out some of our brother/sister sites here for ideas:

http://www.pm.org/groups/north_america.shtml

And as an aside, here is some XML for you to peruse:

http://www.pm.org/XML/perl_mongers.xml


From doug.miles at bpxinternet.com  Mon Sep 27 17:05:03 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Meeting 10/05/1999
Message-ID: <37EFEA0F.945F5F74@bpxinternet.com>

We'll be having a Phoenix.pm meeting Tuesday October 5th at 7:00PM. 
It will be held at Bowne, which is located at 1500 N. Central Avenue,
which is on the Southwest corner of Central and McDowell.  The parking
lot is gated, so just press the button on the intercom, and tell the
receptionist that you are there for the Perl meeting.  Park in the lot
that is straight ahead from the entrance on the South side of McDowell.
Park in any uncovered, non-reserved space.  Proceed to the main lobby,
which is on the Northeast side of the parking lot.

I will be presenting Perl 101: The Anatomy of a Camel.  If you don't
know much Perl, please try to make this meeting (and invite a friend).
If you know a lot about Perl, come and help/heckle me (and get some
free refreshments). :)  We will also discuss the web site.

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From doug.miles at bpxinternet.com  Thu Sep 30 11:20:13 1999
From: doug.miles at bpxinternet.com (Douglas E. Miles)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Home page contest
Message-ID: <37F38DBD.E00FD8F0@bpxinternet.com>

Phoenix.pm is having a home page contest.  First (and only) prize is a
copy of O'reilly's Perl in a Nutshell.  Submit your entries to me
(dmiles@primenet.com) by October 12th in zip/tar/tar.gz format.  Voting
will run from the 13th to the 19th of October (I will announce
when/where the voting script is available).  The winner will be
announced at the Oct. 19th meeting.  In the event of a tie, I will cast
the deciding vote (bribes are being accepted now ;) ).  Anyone guilty of
ballot stuffing will be severely reprimanded (you BAD person!) and sent
to Chicago.pm. :) The target platform is SunOS running Apache.

We will use the winning page as the basis of our web site, incorporating
the best features of the other pages, and going from there.

Ladies and Gentlemen start your HTML editors!

-- 
People understand instinctively that the best way for computer
programs to communicate with each other is for each of the them
to be strict in what they emit, and liberal in what they accept.
The odd thing is that people themselves are not willing to be
strict in how they speak, and liberal in how they listen.
--Larry Wall, 2nd State of the Onion Address, August 1998

From mark at wcws.com  Thu Sep 30 12:13:18 1999
From: mark at wcws.com (Mark A. Sharkey)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Perl CGI autodownload
References: <37F38DBD.E00FD8F0@bpxinternet.com>
Message-ID: <37F39A2E.8BBEC6EC@wcws.com>

Hello,

Our Perl script successfully auto-downloads files for
clients that use Netscape for a browser, or IE on a Mac for
a browser.  However, the script does not seem to work
properly for IE4 on a Microsoft platform when trying to
download non-text files.

For example, the script cannot successfully download a
PowerPoint file through the browser when using IE on
Windows95.


Does anyone have a snippet of code that will download
various file types through the browser?  Something similar
to this (but actually works):

print "Content-Disposition:
attachment;filename=\"$file\";\n";
print "Content-type: application/vnd.ms-powerpoint\n\n";


Thanks.


Mark
-- 
@---------------------------@-----------------------@
| Mark A. Sharkey           | mailto:mark@wcws.com  |
| World Class Web Sites     | http://www.wcws.com   |
|                           | 800 844 4434          |
| Custom CGI Scripts        | 480 461 9765          |
| Perl PHP MySQL JavaScript | 480 461 9312 (fax)    |
@---------------------------@-----------------------@

From mekla at geocities.com  Thu Sep 16 18:18:26 1999
From: mekla at geocities.com (Shay Harding)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Feeling stupid today
Message-ID: <99091616285600.02070@shay.cwie.net>

Hey everyone :)

Man this list has its ups and downs. One moment there are lots of
messages, the next dead. :(

Well, I ran into a problem today while coding and after figuring out
what it was I felt, well... dumb. It was so obvious, but not until I
figured it out, which is the way it usually goes I guess. Anyway I am
including the script in it's entirety (up to this point anyway) so you
can see it. I'm just wondering if anyone can see what the BIG, HUGE
error is in the following code. Just to let everyone know how dumb I
felt after this ordeal, it took me about 1-1/2 hours to figure it out.
It's been a long day.

I'm just posting this so others can avoid my same mistake (plus I want
to see some activity on the list)  :)


--------------------- Start code ------------------------

#!/usr/bin/perl5


  BEGIN{

      *width = \80;

      sub mopendir($);
      sub mopenfile($;$);
      sub get_core_dir($);
      sub center($);
      sub get_header($);

      sub mopendir($){
          my ($dir) = @_;
          opendir(DIR,$dir) || die("Cannot open directory $dir ($!)\n");
          return *DIR;
      }

      sub mopenfile($;$){
          my ($file,$mode) = @_;

          if (!$mode){
              if (!-e $file){
                  open (FILE,">$file") || die("Cannot open file $file ($!)\n");
              }else{
                  open (FILE,">>$file") || die("Cannot open file $file ($!)\n");
              }
          }else{
              open (FILE,$file) || die("Cannot open file $file ($!)\n");
          }
          return *FILE;
      }

      sub get_core_dir($){
          my ($dir) = @_;
          $dir =~ s/(^.*)(\/)(.*$)/$3/g;
          return $dir;
      }

      sub center($){
          my ($string) = @_;
          my $pad = ($width-length($string))/2;
          $pad =~ s/\..*//g;
          my $spaces = " "x$pad;
          return ($spaces.$string.$spaces);
      }

      sub get_header($){
          my ($string) = @_;
          my $char = "-";
          my $pad = (($width-length($string))/2)-1;
          $pad =~ s/\..*//g;
          my $spaces = "$char"x$pad;
          return ($spaces." $string ".$spaces);
      }

  }


  my $base_dir = '/var/checks';
  my $access_error = $base_dir."/AccessError";
  my $database_error = $base_dir."/DatabaseError";
  my $file_error = $base_dir."/FileError";
  my $signup_form_error = $base_dir."/SignupFormError";
  my $bank_error = $signup_form_error."/BankError";
  my $socket_error = $base_dir."/SocketError";
  my $session_logs = $base_dir."/SessionLogs";
  my $webmaster_logs = $base_dir."/WebmasterLogs";
  my $archive_dir = $base_dir."/ARCHIVE";
  chomp($NOW = `date +"%Y_%m_%d"`);


  &get_access_dir();


  sub get_access_dir(){
      local (*D) = mopendir($access_error);
      my $core_dir = get_core_dir($access_error);
      my $archive = $archive_dir."/".$core_dir."_$NOW";

      local (*F) = mopenfile($archive);

      while (my $filename = readdir(*D)){
          if ($filename =~ /^\d+-\d+-\d+$/){
              my $header = get_header($filename);
              print F "$header\n\n";

              local (*FF) = mopenfile("$access_error/$filename","R");
              my @data = <FF>;
              close (*FF);

              if (scalar(@data) < 1){ 
                  print "$filename => No data\n";
              }
              else{
                  print "$filename => ",@data,"\n";
              
              }
          }   
      }

      closedir(*D);
      close(*F);
  }   


-------------------------- End code -----------------------------


--

Shay

From phaedrus at endless.org  Thu Sep 30 15:57:38 1999
From: phaedrus at endless.org (Phaedrus)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Perl CGI autodownload
In-Reply-To: <37F39A2E.8BBEC6EC@wcws.com>
Message-ID: <Pine.LNX.4.03.9909301652180.23670-100000@the.endless.org>


Mark:

Common problem. It's a Windows-ism. IE for the PC ignores the content type
header, and goes by the extention. However, Windows isn't too smart about
about being stupid, so you can fool it, like this:

Have the download link, link to your cgi program, but pass, as the query
string, something like this:
makewindowshappy=fn.ppt
So the URL might be something like this:
/cgi-bin/downloader.cgi?makewindowshappy=fn.ppt

Windows will see the '.ppt' extention on the URL, and use PowerPoint (if
the client has it on their system) if the user picks to 'Run' the
download.

goodluck!
-scott walters


On Thu, 30 Sep 1999, Mark A. Sharkey wrote:

> Date: Thu, 30 Sep 1999 10:13:18 -0700
> From: Mark A. Sharkey <mark@wcws.com>
> Reply-To: phoenix-pm-list@happyfunball.pm.org
> To: phoenix-pm-list@happyfunball.pm.org
> Subject: Phoenix.pm: Perl CGI autodownload
> 
> Hello,
> 
> Our Perl script successfully auto-downloads files for
> clients that use Netscape for a browser, or IE on a Mac for
> a browser.  However, the script does not seem to work
> properly for IE4 on a Microsoft platform when trying to
> download non-text files.
> 
> For example, the script cannot successfully download a
> PowerPoint file through the browser when using IE on
> Windows95.
> 
> 
> Does anyone have a snippet of code that will download
> various file types through the browser?  Something similar
> to this (but actually works):
> 
> print "Content-Disposition:
> attachment;filename=\"$file\";\n";
> print "Content-type: application/vnd.ms-powerpoint\n\n";
> 
> 
> Thanks.
> 
> 
> Mark
> -- 
> @---------------------------@-----------------------@
> | Mark A. Sharkey           | mailto:mark@wcws.com  |
> | World Class Web Sites     | http://www.wcws.com   |
> |                           | 800 844 4434          |
> | Custom CGI Scripts        | 480 461 9765          |
> | Perl PHP MySQL JavaScript | 480 461 9312 (fax)    |
> @---------------------------@-----------------------@
> 


From pablo at dosomething.org  Thu Sep 30 16:27:38 1999
From: pablo at dosomething.org (Pablo Velasquez)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Perl CGI autodownload
In-Reply-To: <Pine.LNX.4.03.9909301652180.23670-100000@the.endless.org>
References: <37F39A2E.8BBEC6EC@wcws.com>
Message-ID: <3.0.6.32.19990930142738.00948850@mail.dosomething.org>

Hi,
Out of curiosity, I'm looking into an "upload" script now, any suggestions?
Perhaps something you have used or one you downloaded and works well...

I found a few so I'm looking at them...just wondering if anyone has any tips.

Planning on uploading from a Windows machine to a Linux machine using
Netscape 3.x or higher...

Thanks!

-Pablo

At 04:57 PM 9/30/99 -0400, you wrote:
>
>Mark:
>
>Common problem. It's a Windows-ism. IE for the PC ignores the content type
>header, and goes by the extention. However, Windows isn't too smart about
>about being stupid, so you can fool it, like this:
>
>Have the download link, link to your cgi program, but pass, as the query
>string, something like this:
>makewindowshappy=fn.ppt
>So the URL might be something like this:
>/cgi-bin/downloader.cgi?makewindowshappy=fn.ppt
>
>Windows will see the '.ppt' extention on the URL, and use PowerPoint (if
>the client has it on their system) if the user picks to 'Run' the
>download.
>
>goodluck!
>-scott walters
>
>
>On Thu, 30 Sep 1999, Mark A. Sharkey wrote:
>
>> Date: Thu, 30 Sep 1999 10:13:18 -0700
>> From: Mark A. Sharkey <mark@wcws.com>
>> Reply-To: phoenix-pm-list@happyfunball.pm.org
>> To: phoenix-pm-list@happyfunball.pm.org
>> Subject: Phoenix.pm: Perl CGI autodownload
>> 
>> Hello,
>> 
>> Our Perl script successfully auto-downloads files for
>> clients that use Netscape for a browser, or IE on a Mac for
>> a browser.  However, the script does not seem to work
>> properly for IE4 on a Microsoft platform when trying to
>> download non-text files.
>> 
>> For example, the script cannot successfully download a
>> PowerPoint file through the browser when using IE on
>> Windows95.
>> 
>> 
>> Does anyone have a snippet of code that will download
>> various file types through the browser?  Something similar
>> to this (but actually works):
>> 
>> print "Content-Disposition:
>> attachment;filename=\"$file\";\n";
>> print "Content-type: application/vnd.ms-powerpoint\n\n";
>> 
>> 
>> Thanks.
>> 
>> 
>> Mark
>> -- 
>> @---------------------------@-----------------------@
>> | Mark A. Sharkey           | mailto:mark@wcws.com  |
>> | World Class Web Sites     | http://www.wcws.com   |
>> |                           | 800 844 4434          |
>> | Custom CGI Scripts        | 480 461 9765          |
>> | Perl PHP MySQL JavaScript | 480 461 9312 (fax)    |
>> @---------------------------@-----------------------@
>> 
>


From phaedrus at endless.org  Thu Sep 30 18:21:12 1999
From: phaedrus at endless.org (Phaedrus)
Date: Thu Aug  5 00:17:33 2004
Subject: Phoenix.pm: Perl CGI autodownload
In-Reply-To: <3.0.6.32.19990930142738.00948850@mail.dosomething.org>
Message-ID: <Pine.LNX.4.03.9909301911550.32250-100000@the.endless.org>


Pablo..

List spam feels goooOoooOOOd =)

CGI.pm supposedly does all of the file upload stuff. If you search through
the man page/perldoc for:        CREATING A FILE UPLOAD FIELD
You will find the details =) It looks spiffy though... it gives you a file
handle and everything...

but what *I* usualy use is CGIHTML, a C library for dealing with forms =)
http://slowass.net/documentation/web/cgihtml-1.69.tar.gz. (The docs are in
the same directory). However, there is no accounting for my tastes =)

I really like the college class on Perl idea. If there is anything I can
do to help, let me know, and I might just do it ;) 

Unrelated topic: I'm open to and interested in small/medium programming
jobs (the paying kind), since I seem to have set down that road... anyone
with more work then they can handle is more then welcome to subcontract
stuff to me, or refer people to me =) Thanks!

cheers!
-scott walters



On Thu, 30 Sep 1999, Pablo Velasquez wrote:

> Date: Thu, 30 Sep 1999 14:27:38 -0700
> From: Pablo Velasquez <pablo@dosomething.org>
> Reply-To: phoenix-pm-list@happyfunball.pm.org
> To: phoenix-pm-list@happyfunball.pm.org
> Subject: Re: Phoenix.pm: Perl CGI autodownload
> 
> Hi,
> Out of curiosity, I'm looking into an "upload" script now, any suggestions?
> Perhaps something you have used or one you downloaded and works well...
> 
> I found a few so I'm looking at them...just wondering if anyone has any tips.
> 
> Planning on uploading from a Windows machine to a Linux machine using
> Netscape 3.x or higher...
> 
> Thanks!
> 
> -Pablo
> 
> At 04:57 PM 9/30/99 -0400, you wrote:
> >
> >Mark:
> >
> >Common problem. It's a Windows-ism. IE for the PC ignores the content type
> >header, and goes by the extention. However, Windows isn't too smart about
> >about being stupid, so you can fool it, like this:
> >
> >Have the download link, link to your cgi program, but pass, as the query
> >string, something like this:
> >makewindowshappy=fn.ppt
> >So the URL might be something like this:
> >/cgi-bin/downloader.cgi?makewindowshappy=fn.ppt
> >
> >Windows will see the '.ppt' extention on the URL, and use PowerPoint (if
> >the client has it on their system) if the user picks to 'Run' the
> >download.
> >
> >goodluck!
> >-scott walters
> >
> >
> >On Thu, 30 Sep 1999, Mark A. Sharkey wrote:
> >
> >> Date: Thu, 30 Sep 1999 10:13:18 -0700
> >> From: Mark A. Sharkey <mark@wcws.com>
> >> Reply-To: phoenix-pm-list@happyfunball.pm.org
> >> To: phoenix-pm-list@happyfunball.pm.org
> >> Subject: Phoenix.pm: Perl CGI autodownload
> >> 
> >> Hello,
> >> 
> >> Our Perl script successfully auto-downloads files for
> >> clients that use Netscape for a browser, or IE on a Mac for
> >> a browser.  However, the script does not seem to work
> >> properly for IE4 on a Microsoft platform when trying to
> >> download non-text files.
> >> 
> >> For example, the script cannot successfully download a
> >> PowerPoint file through the browser when using IE on
> >> Windows95.
> >> 
> >> 
> >> Does anyone have a snippet of code that will download
> >> various file types through the browser?  Something similar
> >> to this (but actually works):
> >> 
> >> print "Content-Disposition:
> >> attachment;filename=\"$file\";\n";
> >> print "Content-type: application/vnd.ms-powerpoint\n\n";
> >> 
> >> 
> >> Thanks.
> >> 
> >> 
> >> Mark
> >> -- 
> >> @---------------------------@-----------------------@
> >> | Mark A. Sharkey           | mailto:mark@wcws.com  |
> >> | World Class Web Sites     | http://www.wcws.com   |
> >> |                           | 800 844 4434          |
> >> | Custom CGI Scripts        | 480 461 9765          |
> >> | Perl PHP MySQL JavaScript | 480 461 9312 (fax)    |
> >> @---------------------------@-----------------------@
> >> 
> >
>