print if...

2003-02-27 Thread Administrador Intranet Internet
if($ENV{'AUTH_USER'} eq 'DOMAIN\user_one') { print "\n"; print "\n"; print "2003\n"; print "\n"; print "\n"; } user_one is me :)) but i need to print this html form if the net user is my boss. ___ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe

RE: Divide Perl script

2003-02-27 Thread Shishir K. Singh
Thanks to everyone...it works. -Original Message- From: RICH, ADAM (SBCSI) [mailto:[EMAIL PROTECTED] Sent: Thursday, February 27, 2003 4:49 PM To: Shishir K. Singh; activeperl Subject: RE: Divide Perl script To split a program into seperate files, you can break it up into as many fil

RE: Divide Perl script

2003-02-27 Thread Beau E. Cox
Hi - > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Shishir > K. Singh > Sent: Thursday, February 27, 2003 11:13 AM > To: activeperl > Subject: Divide Perl script > > > Hello, > > How can I divide my perl program in different files(in other > word

Re: Divide Perl script

2003-02-27 Thread Stephen Patterson
On 27 Feb 03, Shishir K. Singh ([EMAIL PROTECTED]) wrote: > How can I divide my perl program in different files(in other words..move the sub > routines in different files ) and then do an include in the mail perl file. The > reason why I want to do this is because my main program is growing day b

RE: Divide Perl script

2003-02-27 Thread RICH, ADAM \(SBCSI\)
To split a program into seperate files, you can break it up into as many files as you want, and just call require("filename") to include them. Since each file must eval to 1, make sure you put "1;" on the last line for each file that you require. -Original Message- From: Shishir K. Sing

RE: Divide Perl script

2003-02-27 Thread Haimov, Eugene
You can use: require 'extrafile.pl'; The only minor complication would be that your extrafie.pl must have the following as its last line: 1; Eugene Haimov -Original Message- From: Shishir K. Singh [mailto:[EMAIL PROTECTED] Sent: Thursday, February 27, 2003 4:13 PM To: activeperl Subjec

open STDOUT

2003-02-27 Thread Gustavo H. Maultasch
how can I open STDOUT (to a file) and then re-open it to print in the screen ?? regards, gustavo __ Do you Yahoo!? Yahoo! Tax Center - forms, calculators, tips, more http://taxes.yahoo.com/ ___ ActivePerl

Re: widget placement ->pack

2003-02-27 Thread Stephen Patterson
> Then at this point, for the life of me, I can't seem to place the Label to > the bottom left of the text box. Various combinations are always placing > the label to the right of the scroll bar, ie. whether it be top or bottom. You really should be using Tk::Frame NAME Tk::Frame - Creat

Questions

2003-02-27 Thread Moreno, Javier \(GXS, Softtek\)
Title: Questions Hello, Okay. I am trying to understand scoping on perl and after several tries, a FAQ and several perldoc readings, it seems perl prefers reusable code (ie modules or libraries) in .pm files. That way you can 'use' such files in your program. Now, I had coded all my 'modules

Re: use a pdf document in a cgi

2003-02-27 Thread Stephen Patterson
On 25 Feb 03, Stephane Legault ([EMAIL PROTECTED]) wrote: > header("application/x-msdownload"); I'd personnaly use a standard MIME type, such as application/pdf -- Stephen Patterson http://www.lexx.uklinux.net http://patter.mine.nu [EMAIL PROTECTED] remove SPAM to reply Linux Cou

Divide Perl script

2003-02-27 Thread Shishir K. Singh
Hello, How can I divide my perl program in different files(in other words..move the sub routines in different files ) and then do an include in the mail perl file. The reason why I want to do this is because my main program is growing day by day and it's becoming difficult to navigate through

Error msg

2003-02-27 Thread Hariths, Vedavyas
What does this error mean? Is there a problem with the module? Can I fix it my recompiling the whole thing? The error: Can't locate auto/Win32/GetCWD.al Thanks, Vedu ___ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveS

widget placement ->pack

2003-02-27 Thread Markham, Richard
Title: widget placement ->pack If create at text widget $text = $top->Text ('-width' =>  110,'-height' => 40)->pack(); my next widget $top->Label('-text' => 'Command:')->pack('-side' => 'left'); will appear on the bottom left of the text box, which is whatI expect to happen.  Now if I add a s

Re: problem with loading a module

2003-02-27 Thread Administrador Intranet Internet
try: ppm install AdminMisc.ppd --location=http://www.roth.net/perl/packages/ if ok :) else try to download it and put the ppd file and the tar file in the same folder. then in the dos terminal cd my_dir_where_files_are ppm install AdminMisc.ppd thats what i haved done to install other modules

Re: About path

2003-02-27 Thread Jonathan D Johnston
On Thu, 27 Feb 2003 10:45:16 -0400, "Administrador Intranet Internet" <[EMAIL PROTECTED]> wrote: > i have one program that looks some files in: > > opendir DIRDATOS, 'f:\\net\\estadisticas\\meses\\'; If "meses" will always be a subdir to the directory holding the Perl script, try: use FindB

do and TK

2003-02-27 Thread Wayne Simmons
I have two scripts (let's call them A and B) that use TK. They are not CGI or anything just normal scripts. When I call from A: do "$path/B.pl"; it works ok if neither or only one has TK. However if there is a TK part in script B AND script A there is a problem. Once it gets to "MainLoop();" in