RE: Hours popup menu

2002-06-10 Thread Langa Kentane
I don't know about cgi but I think you can use prinf to add the leading zero. printf ("Minute %02d.\n", $value); This should pad the output with a zeroes. The two there means that this is a two digit number. If you've played with C you will recognise this. I am also a new and could be dead wrong

Re: get external ip from D-Link router

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 09:02 PM, drieux wrote: > > On Monday, June 10, 2002, at 07:29 , bob ackerman wrote: > >> >> note the ip was slightly different for linksys. it was 192.168.1.1. >> above is the ip i use to manually login. the html file is what the >> python code names to get the da

Re: get external ip from D-Link router

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 07:29 , bob ackerman wrote: > > note the ip was slightly different for linksys. it was 192.168.1.1. > above is the ip i use to manually login. the html file is what the python > code names to get the data correctly. Silly question here - but could it be the case, a

Re: get external ip from D-Link router

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 09:48 PM, Todd Wade wrote: > > "Bob Ackerman" <[EMAIL PROTECTED]> wrote in message > [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... >> > >> i can't quite figure out how to do this in perl. i have: >> use LWP::UserAgent; >> >> # Fetch the page >> $admin = ARGV[0]; #pas

Re: get external ip from D-Link router

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 06:30 PM, Geoffrey F. Green wrote: > On 6/10/02 8:55 PM, "bob ackerman" <[EMAIL PROTECTED]> wrote: > >> # Fetch the page >> $admin = ARGV[0];#password >> print $admin,"\n"; >> my $ua = LWP::UserAgent->new; >> my $req = HTTP::Request->new(GET => 'http://192.1

Re: get external ip from D-Link router

2002-06-10 Thread Todd Wade
"Bob Ackerman" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > > i can't quite figure out how to do this in perl. i have: > use LWP::UserAgent; > > # Fetch the page > $admin = ARGV[0]; #password > print $admin,"\n"; > my $ua = LWP::UserAgent->new; > my $req =

Re: "printf" behaving oddly

2002-06-10 Thread Todd Wade
"Adrian Farrell" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > > $answer = printf ("\nThe area of the circle with a radius of $radius is > %2.2f\n", ($area)); > > print "$answer" If you want to store the string in a var, use sprintf. printf returns wether or

Re: get external ip from D-Link router

2002-06-10 Thread Geoffrey F. Green
On 6/10/02 8:55 PM, "bob ackerman" <[EMAIL PROTECTED]> wrote: > # Fetch the page > $admin = ARGV[0];#password > print $admin,"\n"; > my $ua = LWP::UserAgent->new; > my $req = HTTP::Request->new(GET => 'http://192.168.0.1/status.htm'); > $req->authorization_basic('', $admin);#not w

Re: get external ip from D-Link router

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 05:55 , bob ackerman wrote: > HTTP::Request > # Fetch the page > $admin = ARGV[0]; #password > print $admin,"\n"; > my $ua = LWP::UserAgent->new; > my $req = HTTP::Request->new(GET => 'http://192.168.0.1/status.htm'); > $req->authorization_basic('', $adm

Re: get external ip from D-Link router

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 05:26 PM, Todd Wade wrote: > Bob Ackerman wrote: > >> my box is behind a D-Link router 704. >> The router gets its ip from my isp using dhcp. >> anyone know how to get that external ip from the router? >> is any module designed to find your external ip when you are

Re: get external ip from D-Link router

2002-06-10 Thread Todd Wade
Bob Ackerman wrote: > my box is behind a D-Link router 704. > The router gets its ip from my isp using dhcp. > anyone know how to get that external ip from the router? > is any module designed to find your external ip when you are on a lan? > router is admined from a web page, so i guess it is p

Re: passing an empty string to a perl script via command line

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 03:36 , Bryan R Harris wrote: > > Slightly OT, but does anyone know how to pass an empty string to a script > via the command line? I have a script that is invoked via: > >rename match-str replace-str > > where the rename script does an s/match-str/replace

Re: passing an empty string to a perl script via command line

2002-06-10 Thread Janek Schleicher
Bryan R Harris wrote at Tue, 11 Jun 2002 00:36:39 +0200: > Slightly OT, but does anyone know how to pass an empty string to a script via the >command line? I > have a script that is invoked via: > >rename match-str replace-str > > where the rename script does an s/match-str/replace

passing an empty string to a perl script via command line

2002-06-10 Thread Bryan R Harris
Slightly OT, but does anyone know how to pass an empty string to a script via the command line? I have a script that is invoked via: rename match-str replace-str where the rename script does an s/match-str/replace-str/g on the filenames (variables evaluated, of course; the script alre

Re: Changing a map on an HL server via Perl

2002-06-10 Thread Eric Wang
> the questions are: > > a) how do you send commands to it now? there's an internal command prompt(console) that you can pop up in half-life > b) what is a half-life dedicated server? > Half-life is a extremely popular computer first-person shooting game. c) w

Re: Is this an eye sore?

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 05:21 , William Melanson wrote: [..] > I'm just curious if it's > an eye sore. Maybe I should just give up attempting this whole > programming stuff and stick to wielding my light sabre at those > selfless stormtroopers (who come in the hundreds) til the wee > hours o

Re: Creating a UDP connection...

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 12:17 , Ron Powell wrote: > I have a server listening on a certain port. I need to send and receive > characters (strings) via a UDP connection. Which module is the best to > use? > I found a bit of info on perldoc.org referencing IO::Socket. I just want > to >

Re: Calling Perl script from php.

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 12:58 , Batchelor, Scott wrote: > I am using an exec command like this: > > Exec "perl.pl $variable" > > Scott if you ran that at the command line, #demo in /bin/sh constructs variable="arg1 arg2 arg3" perl.pl $variable then your perl cod

Re: Creating a UDP connection...

2002-06-10 Thread Michael Fowler
On Mon, Jun 10, 2002 at 03:17:48PM -0400, Ron Powell wrote: > I have a server listening on a certain port. I need to send and receive > characters (strings) via a UDP connection. Which module is the best to use? > I found a bit of info on perldoc.org referencing IO::Socket. I just want to > mak

Re: get external ip from D-Link router

2002-06-10 Thread Geoffrey F. Green
On 6/10/02 1:35 PM, "bob ackerman" <[EMAIL PROTECTED]> wrote: > my box is behind a D-Link router 704. > The router gets its ip from my isp using dhcp. > anyone know how to get that external ip from the router? > is any module designed to find your external ip when you are on a lan? > router is a

RE: Calling Perl script from php.

2002-06-10 Thread Nikola Janceski
oh.. yeah use @ARGV perl.pl "something" "is" "in here"; in your perlscript the following is true: @ARGV[0] eq "something" @ARGV[1] eq "is" @ARGV[2] eq "in here" > -Original Message- > From: Batchelor, Scott [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 3:59 PM > To: 'Niko

RE: Calling Perl script from php.

2002-06-10 Thread Batchelor, Scott
I am using an exec command like this: Exec "perl.pl $variable" Scott -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Monday, June 10, 2002 2:57 PM To: 'Batchelor, Scott'; '[EMAIL PROTECTED]' Subject:RE: Calling Perl script from php. How are yo

RE: Calling Perl script from php.

2002-06-10 Thread Nikola Janceski
How are you passing this variable? (Sorry never used php). are you using standard CGI methods of post or get? if so, see perldoc CGI > -Original Message- > From: Batchelor, Scott [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 3:52 PM > To: '[EMAIL PROTECTED]' > Subject: Calling

Calling Perl script from php.

2002-06-10 Thread Batchelor, Scott
Hey all. Quick question I am calling a perl script from a php page I think I have that part working. I am passing perl a variable when calling it. How do I read that variable into my perl script? Do I use $ARGV? Could someone give me a quick example. Thanks in advance. Scott -- To unsubs

Re: file read and then write problem

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 11:57 AM, Jeff 'japhy' Pinyan wrote: > On Jun 10, bob ackerman said: > >> On Monday, June 10, 2002, at 11:23 AM, aman cgiperl wrote: >> >>> $MSG is a link http://www.foo.com/dpt/index.html >>> >>> Is there anything else other than EOF, that can cause a while loop t

Re: file read and then write problem

2002-06-10 Thread aman cgiperl
The issue is not substitution. The issue is pre-mature termination of while loop. The substitution is working fine Thanks Aman - Original Message - From: "bob ackerman" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, June 10, 2002 1:55 PM Subject: Re: file read and then write pr

Creating a UDP connection...

2002-06-10 Thread Ron Powell
I have a server listening on a certain port. I need to send and receive characters (strings) via a UDP connection. Which module is the best to use? I found a bit of info on perldoc.org referencing IO::Socket. I just want to make sure there are no better choices. -- Ron Powell Senior IT

Re: CGI error

2002-06-10 Thread Peter Scott
At 01:48 PM 6/10/02 -0500, Lance Prais wrote: >Hello all, > I am getting the following error when trying to execute a cgi script on my >solaris 2.6 box: > >[10/Jun/2002:12:48:13] failure (16686): for host 63.169.192.198 trying to >POST /cgi-bin/ts_ticket_submit.cgi, cgieng_scan_headers reports:

Re: conf files

2002-06-10 Thread Geoffrey F. Green
On 6/10/02 2:26 PM, "James Taylor" <[EMAIL PROTECTED]> wrote: > You get the idea. Anyway, I could make a file like this and then > 'require' it I suppose, then run a regex on the lines and assign the > variables THAT way, but I was curious if anyone could think of a better > way to do this inste

Re: get external ip from D-Link router

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 10:49 AM, drieux wrote: > > On Monday, June 10, 2002, at 10:35 , bob ackerman wrote: > >> my box is behind a D-Link router 704. >> The router gets its ip from my isp using dhcp. >> anyone know how to get that external ip from the router? > > I presume that your 'int

Re: file read and then write problem

2002-06-10 Thread Jeff 'japhy' Pinyan
On Jun 10, bob ackerman said: >On Monday, June 10, 2002, at 11:23 AM, aman cgiperl wrote: > >> $MSG is a link http://www.foo.com/dpt/index.html >> >> Is there anything else other than EOF, that can cause a while loop to exit >> when reading file? > >there is something that will stop the substitu

Re: file read and then write problem

2002-06-10 Thread bob ackerman
On Monday, June 10, 2002, at 11:23 AM, aman cgiperl wrote: > $MSG is a link http://www.foo.com/dpt/index.html > > Is there anything else other than EOF, that can cause a while loop to exit > when reading file? there is something that will stop the substitution - a slash in $MSG. you could use

CGI error

2002-06-10 Thread Lance Prais
Hello all, I am getting the following error when trying to execute a cgi script on my solaris 2.6 box: [10/Jun/2002:12:48:13] failure (16686): for host 63.169.192.198 trying to POST /cgi-bin/ts_ticket_submit.cgi, cgieng_scan_headers reports: the CGI program /usr/netscape/server4/cgi-bin/ts_tick

Re: Preference problem - Re: $FORM in Matt's wwwboard.pl

2002-06-10 Thread Michael Fowler
On Sun, Jun 09, 2002 at 03:18:36AM +0200, Sven Bentlage wrote: > Thanks, will take a look. > I'm just trying to learn by reading this script Learning is good, but please, do not learn from Matt's script archive. All of the code he's written there is atrocious. There are far better examples

Re: conf files

2002-06-10 Thread Felix Geerinckx
on Mon, 10 Jun 2002 18:26:39 GMT, James Taylor wrote: > I have this app I just wrote, and I wanted to give my users a more > 'standard' .conf file, Have you already looked at ? -- felix -- To unsubscribe, e-mail: [EMAIL PROTECTED]

conf files

2002-06-10 Thread James Taylor
I have this app I just wrote, and I wanted to give my users a more 'standard' .conf file, instead of forcing them to open up the script, and dig through and change variables (Some people get confused by this... Go figure). SO, I wanted to give a .conf sort of like the apache conf file where y

Re: file read and then write problem

2002-06-10 Thread aman cgiperl
$MSG is a link http://www.foo.com/dpt/index.html Is there anything else other than EOF, that can cause a while loop to exit when reading file? Thanks Aman - Original Message - From: "David T-G" <[EMAIL PROTECTED]> To: "perl beginners" <[EMAIL PROTECTED]> Cc: "aman cgiperl" <[EMAIL PROTEC

Re: file read and then write problem

2002-06-10 Thread Jeff 'japhy' Pinyan
On Jun 10, David T-G said: >% $_ =~ s/##UF##/$MSG/g; > >Looks fine to me. The only thing that comes to mind is that your $MSG >might have some expr-matching characters which bomb somehow. The right-hand side of the s/// can't do anything to blow up the regex. >Meanwhile, I have to wonder w

Re: HTTP::Request practical examples?

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 02:11 , Cynic wrote: > Hello.. > I have been playing around with HTTP::Request and HTTP::Headers, trying > to build a small client browser application, but I have been confused > miserably from reading CPAN's modules documentation. > > Can anyone point me to actual

RE: file read and then write problem

2002-06-10 Thread Bob Showalter
> -Original Message- > From: aman cgiperl [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 1:42 PM > To: David T-G; perl beginners > Subject: Re: file read and then write problem > > > here's the code. > the file that I am reading is an html file generated by similar code > > op

Re: file read and then write problem

2002-06-10 Thread David T-G
aman -- ...and then aman cgiperl said... % % here's the code. Well, a snippet, anyway. % the file that I am reading is an html file generated by similar code % % open PAGIN, "/$path/index_tmp.html"; % open PAGOUT, ">/$path/index.html"; % while() { % $_ =~ s/##UF##/$MSG/g; % print PA

Re: get external ip from D-Link router

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 10:35 , bob ackerman wrote: > my box is behind a D-Link router 704. > The router gets its ip from my isp using dhcp. > anyone know how to get that external ip from the router? I presume that your 'internal network' is an RFC1918 configuration? All of whom are routin

Re: get external ip from D-Link router

2002-06-10 Thread Kevin Meltzer
At home I do this with LWP on my Lynksys. Look at LWP::UserAgent and LWP::Simple for the fetching, and HTML::Parser for the HTML parsing (or just use a regular expression if you can). Cheers, Kevin On Mon, Jun 10, 2002 at 10:35:59AM -0700, bob ackerman ([EMAIL PROTECTED]) said something similar

Re: file read and then write problem

2002-06-10 Thread aman cgiperl
here's the code. the file that I am reading is an html file generated by similar code open PAGIN, "/$path/index_tmp.html"; open PAGOUT, ">/$path/index.html"; while() { $_ =~ s/##UF##/$MSG/g; print PAGOUT $_; } I can't send the html file w/o permission from my workplace. I hope you under

get external ip from D-Link router

2002-06-10 Thread bob ackerman
my box is behind a D-Link router 704. The router gets its ip from my isp using dhcp. anyone know how to get that external ip from the router? is any module designed to find your external ip when you are on a lan? router is admined from a web page, so i guess it is possible to using LWP (or some

Re: Spaces...

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 10:02 , Fontenot, Paul wrote: > I have a logfile that has the following format: > > month day time > > The problem is splitting on the "space" - split(/ /). Sometimes there are > more than one space. How can I get perl to split on 1 or more spaces? call me old fash

Re: file read and then write problem

2002-06-10 Thread David T-G
Aman -- ...and then aman cgiperl said... % % Hi all Hello! ... % FA terminates at something like http://www.foo.com/store/images/dpt/S % The files always terminate at same stage each time but there are some others been written perfectly. Post two files that fail and your code. We certainly

file read and then write problem

2002-06-10 Thread aman cgiperl
Hi all I posted this on the CGI list but no response at all. Please have a look at this problem. I am reading from an html file and writing to another. The while loop terminates before the complete file is read. The worse part is that it works for some files and doesn't for others. Moreover, it

Re: Spaces...

2002-06-10 Thread Bryan R Harris
Or, as Jonathan (?) pointed out to me not too long ago, there is a special case of split that wipes leading whitespace before splitting on /\s+/: split(' ', $line); Enjoy. - B __ Hi Paul, Just use : ($month, $day, $time) = (split /\s+/, $line); the /s+ stands for 1 or mo

Weekly posting statistics - 23/2002

2002-06-10 Thread Felix Geerinckx
Weekly posting statistics for perl.beginners - week 23 of 2002. >From Monday 2002-06-03 to Sunday 2002-06-09 there were 440 articles posted (23121 lines) by 108 authors, giving an average 4.07 articles per author, and an average article length of 53 lpa. The average number of articles per day w

RE: Spaces...

2002-06-10 Thread Bob Showalter
> -Original Message- > From: Fontenot, Paul [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 1:02 PM > To: Perl - Beginners (E-mail) > Subject: Spaces... > > > I have a logfile that has the following format: > > month day time > > The problem is splitting on the "space" - split

Re: HTTP::Request practical examples?

2002-06-10 Thread Peter Scott
At 02:11 AM 6/10/02 -0700, Cynic wrote: >I have been playing around with HTTP::Request and HTTP::Headers, trying to >build a small client browser application, but I have been confused >miserably from reading CPAN's modules documentation. > >Can anyone point me to actual practical examples of a s

RE: Spaces...

2002-06-10 Thread Fontenot, Paul
You are the man, thanks. That was exactly what I needed. -Original Message- From: Hanson, Robert [mailto:[EMAIL PROTECTED]] Sent: Monday, June 10, 2002 10:02 AM To: Fontenot, Paul; Perl - Beginners (E-mail) Subject: RE: Spaces... Try /\s+/ >From the perlre manpage: \s Match a whitesp

Re: Spaces...

2002-06-10 Thread David vd Geer Inhuur tbv IPlib
Hi Paul, Just use : ($month, $day, $time) = (split /\s+/, $line); the /s+ stands for 1 or more spaces. Regs David - > > I have a logfile that has the following format: > > month day time > > The problem is splitting on the "space" - split(/ /). Sometimes there are more tha

RE: Spaces...

2002-06-10 Thread Hanson, Robert
Try /\s+/ >From the perlre manpage: \s Match a whitespace character + Match 1 or more times Rob -Original Message- From: Fontenot, Paul [mailto:[EMAIL PROTECTED]] Sent: Monday, June 10, 2002 1:02 PM To: Perl - Beginners (E-mail) Subject: Spaces... I have a logfile that has the fo

RE: Changing a map on an HL server via Perl

2002-06-10 Thread Ron Powell
Hey there, I run an HLDS (CS server), also. I know its *possible* to interact with the server console remotely. I'm not sure *how* to do it. I'm actually doing some research on this very topic right now. So, keep in touch, maybe we'll find something useful. Ron > -Original Message-

RE: unefficient code

2002-06-10 Thread Steven_Massey
First - thanks to drieux, sudarsan, jeff and janek, please understand your help is gratefully received... Second - you will be glad to know I do not write this code for a job.sigh of relief I have all your comments printed out and will sit down and digest ... Thanks Steve --

RE: 1 more ?

2002-06-10 Thread Nikola Janceski
depends on context. in the perldoc pages (ie perldoc perlfuncs) you will see for sort: sort SUBNAME LIST sort BLOCK LIST sort LIST and sometimes you see EXPR BLOCK usually has { } around it, but for sort you have an expression followed by a comma to be shorter written. EXPR doesn'

Spaces...

2002-06-10 Thread Fontenot, Paul
I have a logfile that has the following format: month day time The problem is splitting on the "space" - split(/ /). Sometimes there are more than one space. How can I get perl to split on 1 or more spaces? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: 1 more ?

2002-06-10 Thread Bryan R Harris
> I'm assuming you meant in the context of dereferencing only. Braces aren't > really required, unless you want Perl to do what you want it to. :) Thanks to all, the referencing part is very clear to me now. What about other uses, though? I notice the sort command sometimes puts braces arou

RE: hashing in a package

2002-06-10 Thread Bob Showalter
> -Original Message- > From: Jerry Preston [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 12:32 PM > To: Beginners Perl > Subject: hashing in a package > > > Hi! > > I have a number of hash's that use over and over. Currently > I can access > via a "require file_name". I wo

hashing in a package

2002-06-10 Thread Jerry Preston
Hi! I have a number of hash's that use over and over. Currently I can access via a "require file_name". I would to put these in a package and access them, but I do not know how. Any ideas? %T_HASH = ( a => [ "d", "e", "f", ], b => [ "g", "h"

RE: Hours popup menu

2002-06-10 Thread Nikola Janceski
doh.. for got the d ... sprintf ( "%02d", $_ ) .. it's going to be a tiresome day. > -Original Message- > From: Kevin Old [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 11:50 AM > To: [EMAIL PROTECTED] > Subject: Re: Hours popup menu > > > Nikola, > > Thanks for getting me

Re: Hours popup menu

2002-06-10 Thread Kevin Old
Nikola, Thanks for getting me on the right track. Your code produces an array of "%02". I tinkered with it and got it to work for me. @hoursvals = map { /(\d+)/, $_ } (00 .. 59); Thanks for your help Kevin On Mon, 10 Jun 2002 11:01:22 -0400 Nikola Janceski <[EMAIL PROTECTED]> wrote: > @ho

RE: Is this an eye sore?

2002-06-10 Thread Bob Showalter
> -Original Message- > From: Bob Showalter [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 10:34 AM > To: 'William Melanson'; [EMAIL PROTECTED] > Subject: RE: Is this an eye sore? > > ... >my ($user, undef, $quota) = unpack('A8 A12 A8', $_); n.b. this can also be written as:

Re: Hours popup menu

2002-06-10 Thread Connie Chan
First of all, are you trying to write hour or minute ? I don't know if that's a must to use an array to carry those vals, but how about : $min = '0'.$min if ($min < 10 ) ; - Original Message - From: "Kevin Old" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, June 10, 2002 10:

Re: Config::General help

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 07:56 , drieux wrote: > foreach (@conf_keys) { > print "Player $_ has:\n"; > while(my ($key, $val) = each $config{$_}) { > print "\t$key => $val\n"; > } > } teach me to write off the top of

RE: Hours popup menu

2002-06-10 Thread Nikola Janceski
@hoursvals = map { sprintf("%02", $_) } (00 .. 59); > -Original Message- > From: Kevin Old [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 10:47 AM > To: [EMAIL PROTECTED] > Subject: Hours popup menu > > > Hello all, > > What I'd like to do is create a popup menu on a web page

Re: Config::General help

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 07:11 , Postman Pat wrote: [..] > > Just about all that I have been able to do from the docs is this: > \my %config = ParseConfig(-file => "foo.conf", -LowerCaseNames => 1); > > Please help... I've just peeked at the code here but you might try to do say my

Hours popup menu

2002-06-10 Thread Kevin Old
Hello all, What I'd like to do is create a popup menu on a web page that has the hours 00-59 in it. Thing is, the only way I can come up to do it is by writing out something like below..and then putting a reference to this array in the code for the popup menu. @hoursvals = (00 01 02 03 04

RE: Is this an eye sore?

2002-06-10 Thread William Melanson
Thank you. This has been most helpful. Thanks to all for your most helpful insight. - Bill On Mon, 10 Jun 2002, Bob Showalter wrote: > > > > -Original Message- > > From: William Melanson [mailto:[EMAIL PROTECTED]] > > Sent: Monday, June 10, 2002 8:21 AM > > To: [EMAIL PROTECTED] > >

Re: How do I create directories on a Unix box with Perl

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 07:38 , Mark Underwood wrote: [..] > Also appologies for taking so long to get back to you, I wanted to explore > some other easier options before trying your suggestion.. hey, I just shifted over to doing it that way myself I always had a simple function that wr

RE: Is this an eye sore?

2002-06-10 Thread Bob Showalter
> -Original Message- > From: William Melanson [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 10, 2002 8:21 AM > To: [EMAIL PROTECTED] > Subject: Is this an eye sore? > > > > Might I trouble you kind folks for a bit of feedback? This is > my first real script I put together in which i

Re: Is this an eye sore?

2002-06-10 Thread Felix Geerinckx
on Mon, 10 Jun 2002 12:21:24 GMT, [EMAIL PROTECTED] (William Melanson) wrote: > #!/usr/bin/perl -w As Sudarsan already mentioned: 'use strict;' here. (Not using strict is like forgetting to take your light sabre :-) > system("/usr/bin/clear"); > @arg1 = qw( > mail > sysquota >

Re: code efficiency

2002-06-10 Thread Jeff 'japhy' Pinyan
Your code doesn't compile. You've left out braces here and there. In the future, please use WORKING code unless such code is not possible to create. On Jun 10, [EMAIL PROTECTED] said: >$ff="hello fred 12"; >@gg=split(//, $ff);$gglen=@gg; >$hh=substr($ff, ($gglen-1), 1);$fin="n";$val=1; First,

Config::General help

2002-06-10 Thread Postman Pat
Greetings, I am trying to use config::general on my script. The config file looks like this: lname=soap uname=joes [EMAIL PROTECTED] gay=1 lname=doe uname=jandoe [EMAIL PROTECTED] gay=0 lname=shady uname=eminem [EMAIL PROTECTED] gay=1 I would like to read this in from file and display it

Re: Is this an eye sore?

2002-06-10 Thread Sudarsan Raghavan
> > > #!/usr/bin/perl -w > > system("/usr/bin/clear"); > @arg1 = qw( > mail > sysquota > root > nobody > smmsp > daemon > testing > ); When you are doing does it exist operation a hash would be a better data structure than an array. > > > unless (open(

Re: Bundling Modules

2002-06-10 Thread drieux
On Monday, June 10, 2002, at 04:28 , Sharan Hiremath wrote: [..] > I am using around 15 CPAN modules in my perl utility. I want to bundle > all > these modules including my own modules as one installable. (Basically to > make installation simple). my complements to your plan! > How can I do t

Perl/Tk messageBox with german buttons

2002-06-10 Thread Heiko Heggen
Hi Guys. Is it possible to get a messageBox with german text on the buttons? the -type options are all in english and german is not accpted. Do you know a solution for that? Thanks. Heiko Heggen Email: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-

Re: Is this an eye sore? (repquota output)

2002-06-10 Thread William Melanson
Output from the 'repquota -a' command (first 10 lines). - Bill Block limits File limits Userusedsofthard graceused soft hard grace root -- 307828 0 0 2805 0 0 nobody--8628

Re: Is this an eye sore?

2002-06-10 Thread Felix Geerinckx
on Mon, 10 Jun 2002 12:21:24 GMT, [EMAIL PROTECTED] (William Melanson) wrote: > Might I trouble you kind folks for a bit of feedback? This is > my first real script I put together in which it collects all > users from the output of the 'repquota -a' command who have not > yet had quotas applied

Is this an eye sore?

2002-06-10 Thread William Melanson
Might I trouble you kind folks for a bit of feedback? This is my first real script I put together in which it collects all users from the output of the 'repquota -a' command who have not yet had quotas applied. It does work. I'm just curious if it's an eye sore. Maybe I should just give up attem

Re: code efficiency

2002-06-10 Thread Janek Schleicher
Steven Massey wrote at Mon, 10 Jun 2002 08:45:57 +0200: > Hi All > The code I have written below works, and yes I could leave it at that.. Oh, I think you shouldn't. Your code isn't very readable and thats in fact at least important as speed. What does $ff stands for, $gg. Well $gglen is the si

Bundling Modules

2002-06-10 Thread Sharan Hiremath
Hello, How to bundle perl Modules? I am using around 15 CPAN modules in my perl utility. I want to bundle all these modules including my own modules as one installable. (Basically to make installation simple). How can I do this? I tried to use %INC and get all loaded modules. made a tar out

Re: "printf" behaving oddly

2002-06-10 Thread Chris Ball
> "Adrian" == Adrian Farrell <[EMAIL PROTECTED]> writes: Adrian> The problem is that $answer returns a value of 1 and not the Adrian> contents of the printf. I guess I've assigned it Adrian> incorrectly. the other odd thing is that the -- print Adrian> "$answer" -- line appear

"printf" behaving oddly

2002-06-10 Thread Adrian Farrell
Hi, I've just written my first practice script from a book on learning perl. it just performs a basic calculation of the area of a circle. out of interest I decided I wanted the answer underlined and that the underline should be the exact length of the answer. the script is shown below. The

Re: HTTP::Request practical examples?

2002-06-10 Thread Sumit_Babu
Hello Cynic, The book "Web Client Programming with Perl" which has a very fine example of using the modules, is out of print the whole book is online. Have a look at http://www.oreilly.com/openbook/webclient/index.html. Regards, Sumit. <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>

HTTP::Request practical examples?

2002-06-10 Thread Cynic
Hello.. I have been playing around with HTTP::Request and HTTP::Headers, trying to build a small client browser application, but I have been confused miserably from reading CPAN's modules documentation. Can anyone point me to actual practical examples of a small client browser in Perl, using H

Re: code efficiency

2002-06-10 Thread Sudarsan Raghavan
> > > You are assuming that your string if it ends with a number will only be 4 digits >wide. > if $str is assigned "hello fred 12345" it will print nothing. > $str should actually be $ff, sorry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: parse mail messages to database; which modules?

2002-06-10 Thread Felix Geerinckx
on Mon, 10 Jun 2002 03:32:41 GMT, [EMAIL PROTECTED] (Tom Poe) wrote: > Anyone know what modules I should look for? I'm hung up on the > part about parsing and getting the body of the message ready to > save to the database. See -- feli

Re: code efficiency

2002-06-10 Thread Sudarsan Raghavan
[EMAIL PROTECTED] wrote: > Hi All > The code I have written below works, and yes I could leave it at that.. but > I want if possible to write efficient > code as this seems to be what PERL is all about. So any thoughts anyone ?? > > = > this cod