nice low cost ISP with support for mod_perl, any suggestions

[Adriano Ferreira]

I am on the verge of trying to deploy a small web application for
small business. I would like to see it working  preferably under
mod_perl. Does anyone has suggestions about possible providers with a
good compromise between service quality and cost? As it is directed to
small business, it won't be very demanding on bandwidth or storage and
cannot be expensive.

Regards,
Adriano.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: toString function ??

[Chris Devers]

On Mon, 5 Sep 2005, Michael Gale wrote:

> I can not seem to find any documentation on "toString" ?

Okay. So you have to figure out where it's coming from.
 
>   my $packet = Net::DHCP::Packet->new($udp->{'data'});
>   print $packet->toString();

Okay, so you got it from $packet, which in turn is a Net::DHCP::Packet 
object. Therefore, you need to examine the Net::DHCP::Packet perldoc.
 



-- 
Chris Devers

å2—OG
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

toString function ??

[Michael Gale]

Hello,

I can not seem to find any documentation on "toString" ?

I have found am example online using it:

sub packet_cap_process {
my ($user, $hrd_ck, $pkt) = @_;

## Get IP header info
my $header = NetPacket::Ethernet->decode($pkt);

my $ether_data = NetPacket::Ethernet::strip($pkt);
my $ip = NetPacket::IP->decode($ether_data);
my $udp = NetPacket::UDP->decode($ip->{'data'});
my $packet = Net::DHCP::Packet->new($udp->{'data'});

print $packet->toString();
}

I would like to understand how to use toString :(

perldoc -f toString does not help.

Michael

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Fwd: RE: shared library of variables?

[John Doe]

|Subject: RE: shared library of variables?
|Date: Montag, 5. September 2005 19.47
|From: "Bowen, Bruce" <[EMAIL PROTECTED]>
|To: John Doe <[EMAIL PROTECTED]>

|Thanks for the reply.
|Do you have a place where there might be simple examples of a perl file
|activating a library.  Or a place where the perlmod data is written in
|English. 

If you don't have an english installation, see first link below.
 
|That documentation has to cover everything I know, but it is over
|my head at the moment.

You might find something at
http://www.perl.org/docs.html or http://perlmonks.org/ or via one of the 
search engines - I haven't a specific page handy.

I won't provide an example, because I think that a company selling voting 
machines should not rely on code provided by 3rd parties without a deep 
understanding of it. (no offence intended, and my primary language is not 
english).

joe

-Original Message-
From: John Doe [mailto:[EMAIL PROTECTED]
Sent: Sunday, September 04, 2005 10:13 AM
To: beginners@perl.org
Subject: Re: shared library of variables?

Bowen, Bruce am Sonntag, 4. September 2005 15.31:
> I have a program that is monitoring communications into a PC, and based on
> the message format will trigger one of multiple perl files.  Most of these
> files use the same variable name and my question today is, is there a way
> of establishing a common library file containing all of the variables so
> that when one of perl files gets called it can have access to the

variables

> thru this external file.

yes,

1. read perldoc perlmod
2. create a module that defines the variables
3. use them from your scripts (assumed you mean that by the term "perl
files")

> This would allow me to maintain one file instead
> of having to edit all of the files of add the new variable.

joe

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

---

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: arbitrarily small floating point numbers

[Jay Savage]

On 9/3/05, Sagar Nargundkar <[EMAIL PROTECTED]> wrote:
> Hi,
> 
> I need to use small floating point numbers. Is there a perl module
> that allows us to use arbitrarily small floats (of the order 10^-20)?
> Something similar to Math::BigFloat which allows us to use arbitrarily
> large floats.
> 
> thanks,
> Sagar

Sagar,

"Big" in BigInt and BigFloat refers to the absolute value, not
wherther the number is positive or negative. 10e20 and 10e-20 are both
equally "Big". in fact, if you'd read the docs for Math::BigInt, you
would have found that this is the firt example:

$i = new Math::BigFloat '12_3.456_789_123_456_789E-2';

-- jay 
--
This email and attachment(s): [  ] blogable; [ x ] ask first; [  ]
private and confidential

daggerquill [at] gmail [dot] com
http://www.tuaw.com  http://www.dpguru.com  http://www.engatiki.org

values of β will give rise to dom!

Question on Perl FTPS implementation (Net::FTPSSL)

[Ashok Subramanian]

 Hi,

   I'm trying to get CPAN's Net::FTPSSL working from my linux dev env.

   I installed the dependent modules (Net::SSLeay IO::Socket::SSL) and 
they seemed to work as expected. The following are the test scripts :
   


   #!/usr/bin/perl
   # Test for 'Net::SSLeay' module
   # Get a page via HTTP and print some info about it.

   use Net::SSLeay;

   ($site, $port, $path) = @ARGV;
   die "Usage: ./get_page.pl oraclestore.oracle.com 443 /\n" 
unless $path;


   ($page, $result, %headers) = &Net::SSLeay::get_https($site, 
$port, $path);


   print "Result was `$result'\n";
   foreach $h (sort keys %headers) {
   print "Header `$h'\tvalue `$headers{$h}'\n";
   }

   print "=== Page follows =\n";
   print $page;
   


   #!/usr/bin/perl
   # Test for 'IO::Socket::SSL' module

   use IO::Socket::SSL;

   my $client = new 
IO::Socket::SSL("oraclestore.oracle.com:https");


   if (defined $client) {
   print $client "GET / HTTP/1.0\r\n\r\n";
   print <$client>;
   close $client;
   } else {
   warn "I encountered a problem: ",
   IO::Socket::SSL::errstr();
   }
   



   Also, I have OpenSSL configured properly, The stcontent server's 
Implicit FTPS port is 2101:
   

   bash-2.05b$ /usr/local/ssl/bin/openssl s_client -connect 
stcontent.oracle.com:2101

   CONNECTED(0003)
   depth=1 /C=US/O=RSA Data Security, Inc./OU=Secure Server 
Certification Authority

   ...
   



   However, I get an error while testing the Net::FTPSSL module : 
'/*SSL connect attempt failederror:140770FC:SSL 
routines:SSL23_GET_SERVER_HELLO:unknown protocol at ./net_ftp_ssl.pl 
line 5*/'. The following is the script I used :
   


   #!/usr/bin/perl
   # Test for 'Net::FTPSSL' module

   use Net::FTPSSL;

   my $ftps = Net::FTPSSL->new('stcontent.oracle.com',
port => 2101,
encryption 
=> 'I',

debug => 1)
   or die "Can't open stcontent.oracle.com";

   $ftp->login('ashok.kumar.subramanian', 'password')
   or die "Can't login: ", $ftps->$last_message();
   $ftps->cwd("/pub") or die "Can't change directory: ", 
$ftps->last_message;
   $ftps->get("file") or die "Can't get file: ", 
$ftps->last_message;

   $ftps->quit();


   I would appreciate if someone could point out the reason for this 
error and a possible workaround.


Thanks - Ashok

daemon that can get each character

[Octavian Rasnita]

Hi,

Is it possible to create a daemon which listens to a certain port and gets
each character is sent to it by a client?
I have tried to use Net::Daemon for doing this, but it gets the data sent
only line by line and not character by character, so the last line is not
got because it doesn't end in "\n" but with the ascii 03 character.

Thank you.


Teddy


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]