From matthew_heusser at mcgraw-hill.com  Tue Nov  7 08:02:03 2000
From: matthew_heusser at mcgraw-hill.com (matthew_heusser@mcgraw-hill.com)
Date: Wed Aug  4 00:01:09 2004
Subject: From the Perl IDE Front
Message-ID: <200011071406.JAA08566@happyfunball.pm.org>



To all those who say "Perl has not IDE", there is one available now:

http://www.solutionsoft.com/perl.htm

Of course,  Komodo and/or VisualPerl.net are going to be superior
ActiveState  products when they come out, but it might not be anytime
this year ... or possibly next.

Matt H.



From joelmeulenberg at yahoo.com  Wed Nov  8 23:53:47 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:01:09 2004
Subject: I'm on slashdot!
Message-ID: <20001109055347.13188.qmail@web314.mail.yahoo.com>

Wow, kewL!
I saw that article and had no idea it was from you!

> OK, just wanted to brag.

He who tooteth not his own horn, his horn remains untooted!


> How does this relate to perl?  Um... I have a commandline.cgi perl
> script
> that let's you do anything to the "unbreakable" system; gives you
> root from
> a browser.

If you don't mind publishing it, I'd love to see your commandline.cgi
script.  I've written a few of those in the past - usually for better
interactivity with free web space accounts that don't allow telnet
access.

Here's an example of the only one I've kept around:

#!/usr/local/bin/perl -w
$|++;
use strict;
use CGI qw(:standard);

my $hist_size = 5;

my ($stdout, @hist);
if (my $cmd = param('cmd')) {
    $stdout = `$cmd 2>&1`;  # Execute command and gather stdout and
stderr.
    @hist = split(/\n/, param('hist'));
    @hist = @hist[$#hist-$hist_size+2..$#hist] if @hist >= $hist_size;
    push @hist, $cmd;  # Append latest command to CGI shell hist
    param('hist',join("\n",@hist));
}

print
  header()
 ,start_html('CGI Shell')
 ,'<!--#echo banner=""-->'
 ,"<PRE>"
 ,start_form()
 ,hidden(-name=>'hist')
 ,"         "
 ,scrolling_list(
     -name=>'hist_choice'
    ,"values"=>[@hist]
    ,-size=>$hist_size
    ,-onChange=>"this.form.cmd.value = this.value;
this.form.cmd.focus();"
  )
 ,"<BR>"
 ,"/bin/sh> ",textfield(-name=>'cmd', -size=>80, -maxlength=>256)
 ,end_form()
 ,"<HR>"
 ,$stdout
 ,"</PRE>"  
 ,end_html()
;



+Joel



__________________________________________________
Do You Yahoo!?
Thousands of Stores.  Millions of Products.  All in one Place.
http://shopping.yahoo.com/

From matthew_heusser at mcgraw-hill.com  Tue Nov 28 07:45:59 2000
From: matthew_heusser at mcgraw-hill.com (matthew_heusser@mcgraw-hill.com)
Date: Wed Aug  4 00:01:09 2004
Subject: No subject
Message-ID: <200011281351.IAA02053@happyfunball.pm.org>



To: ActiveState Perl Support
   Fr: Matthew Heusser

Sir -

  It appears to me that the Get/Set Flags macros for fcntl are not
supported in ActiveState Perl Build 613(*).  Is this correct?

   Here's my thought process:  I have a program that maintains an array
of sockets(**) similar to recipe 17.13 in "The Perl CookBook" by Tworkinton.
It needs to iterate through the array, checking and handling each one,
but not waiting (blocking) to receive on any individual socket.

  One of my functions is called nonblock, and is straight out of Tworkington:

#----Begin Code Snippit
# nonblock($socket) puts socket into nonblocking mode
sub nonblock {
    my $socket = shift;
    my $flags;

    $flags = fcntl($socket, F_GETFL, 0)
            or die "Can't get flags for socket: $!\n";
    fcntl($socket, F_SETFL, $flags | O_NONBLOCK)
            or die "Can't make socket nonblocking: $!\n";
}
#---End Code Snippit


When I run the program, I get the following response:

"Your  vendor has not defined Fcntl macro F_GETFL, used at <file> line 285"

Commenting that line out, we find that F_SETFL isn't defined either.

Obviously, I'm trying to ensure that my sockets are non-blocking.  Any ideas on
how to do this under the current build of ActiveState Perl?  There should be
some
way of doing this.


thank you for your time,

Matthew Heusser
(*) - In a Windows 2000 Environment
(**) - I need the server to run in one process space, so fork()ing out isn't
an option.



From matthew_heusser at mcgraw-hill.com  Tue Nov 28 08:08:32 2000
From: matthew_heusser at mcgraw-hill.com (matthew_heusser@mcgraw-hill.com)
Date: Wed Aug  4 00:01:09 2004
Subject: Last email
Message-ID: <200011281413.JAA02126@happyfunball.pm.org>

Folks -

 Obviously, I BCCed my request to activestate to the GR-PM's to stir up
interest.  Didn't mean to cause confusion.

Matt H.