Re: How to crypt more than 8 characters?

2002-10-24 Thread Robin Cragg
Hi Octavian , I'm afraid that's how crypt() (the UNIX function) is. Here's an extract from man crypt: By taking the lowest 7 bits of each of the first eight characters of the key, a 56-bit key is obtained. This 56-bit key is used to encrypt repeatedly a constant string

Re: Cookies and IP Addresses

2002-10-03 Thread Robin Cragg
Hi, not sure about the REMOTE_ADDR, I've never had any problems with it. To get an IP from a URI try this: use Socket; $referral_address = $ENV{'HTTP_REFERER'}; $referral_address =~ m#^.*http://([^/]+)/.*$#; $IP = inet_ntoa inet_aton $1; If you want the IP address in hex, just use inet_aton.

RE: cookies

2002-10-02 Thread Robin Cragg
Hi Aman, I've had exactly the same problem. I strongly suspect it's an IE thing. I've not found a way round it other than looking at the HTTP_REFERER and removing cookies from pages that had not come from my site. R -Original Message- From: aman cgiperl [mailto:[EMAIL PROTECTED]] S

Re: Has Perl extra memory!?

2002-09-30 Thread Robin Cragg
Sounds like a mod_perl problem. If you are using Apache::Registry apache will compile your script once and just keep running it until the child process dies. This means that any global variables you pass to it will stay in scope. How is your script being called? R At 17:45 30/09/2002 +0200,

Re: Passing array to a gd graphic

2002-09-23 Thread Robin Cragg
Hi Nelson, if you only want to have the graphs created dynamically and not stored on your hard disk, the simplest way is to break the program up into two parts. Assuming there is a way of working out what data set you want to plot, (eg an SQL query) have your link point to your main script..

Re: Rounding a number

2002-09-12 Thread Robin Cragg
How about: my $nu = 1.543 $num =~ s/\..*$//; $num++; it's not exactly pretty, but it does work... R At 11:53 12/09/2002 +0300, Octavian Rasnita wrote: >Hi all, > >I would like to round a number but to the next integer not like the int >function does. > >I've tried: > >my $num = 1.33; >$num