Re: [Perl-unix-users] Permistion Problem when run from the Web

2009-11-03 Thread Jimmy Schappet
nuxuser/explain-what-is-setuid-and-setgid/ --Jimmy On Nov 3, 2009, at 8:47 AM, nonlin wrote: Dear Bill, Thanks for you fast response. Well, It seems close, but I have not gotten it to work yet. I made a shell script like you said: /usr/bin/nltests/restart_sendmail.sh #!/bin/sh service sendma

Re: [Perl-unix-users] perl grep help

2006-08-14 Thread Jimmy Schappet
sub in_array {     $tst_string = shift;     foreach ( @_ ) {     if ($tst_string =~ m/$_/) { return 1;       }     }     return 0;    }       ###     if (in_array($ip_address, @excl

Re: [Perl-unix-users] Fw: cgi-perl: embedding javascript in cgi-perl

2006-08-14 Thread Jimmy Schappet
$testvar = 'www.google.com'; print(" onclick='popwindow(“.$testvar.”);'>");     You need to concatenate the variable into the popup function.   --Jimmy   - James Schappet http://www.schappet.com   -O

[Perl-unix-users] Determining the Calling Program

2004-04-07 Thread jimmy
Is there anyway in Perl to determine which program called a perl script? Program A, runs script 1, script 1 prints, Running from Program A Program B, runs script 1, script 1 prints, Running from Program B --Jimmy =+=+=+=+=+=+=+=+=+=+ James Schappet Schappet.com

Re: [Perl-unix-users] OT cygwin question

2002-11-20 Thread jimmy
Terry, why not just use Crontab? -- James Schappet http://www.schappet.com On Wed, 20 Nov 2002, Terry Vaughn wrote: > Hello. I have the cygwin bash environment installed on Win2K and run a lot of my >perl scripts from this env. > > I have a script that I would li

Re: [Perl-unix-users] regexp Q

2002-11-12 Thread jimmy
my ($mytempvar) = $linetoprobe =~ /(^.*)ZZZ/; -- James Schappet http://www.schappet.com On Tue, 12 Nov 2002, Terry Vaughn wrote: > Hello all. > > $linetoprobe = "YYY~ZZZ" ; > > How Do I assign $mytempvar the character immediately prior to "ZZZ" using reg exp??

Re: [Perl-unix-users] parsing files by date within dir

2002-09-12 Thread jimmy
Terry, Take a look at find2perl. -- James Schappet http://www.schappet.com On Thu, 12 Sep 2002, Terry Vaughn wrote: > Hello. Can someone fwd me a snibbet of code to identify all files within a >specified unix directory with a specific create date so that only th

Re: [Perl-unix-users] Remove blank lines from a file

2002-08-15 Thread jimmy
while (<>) { print unless /^$/; } -- James Schappet Schappet.com On Thu, 15 Aug 2002, Craig Sharp wrote: > I have a simple question but I have brain lock. > > I need to parse a file and remove all blank lines from the file. > > Thanks, > > Craig > > __

Re: [Perl-unix-users] Getting all the arguments of a process

2002-07-08 Thread jimmy
Pierre, Instead of using /usr/bin/ps, try /usr/ucb/ps -auxwww This will output a much longer cmd line for each process. -- James Schappet Schappet.com On Mon, 8 Jul 2002, [iso-8859-1] Pierre-Philippe Ravier wrote: > Hi, > > I tried to use the Process Perl module

Re: [Perl-unix-users] Perl with Java

2002-06-24 Thread jimmy
Try the following Code Snip: my @cmd = `java SSLTest`; my %hash; chomp @cmd; foreach (@cmd) { if (/ - /) { ($key, $value) = split(/ - /); $hash{$key} = $value; } if (/: /) { ($key, $value) = split(/: /);

Re: [Perl-unix-users] Perlcc behaviour

2002-05-29 Thread jimmy
This may be just a typo in the email, but your print statement should be: print "Hello World!\n"; --Not -- Print "Hello World!\n"; -- James Schappet Schappet.com On 28 May 2002, Justin Hopper wrote: > It doesn't look like anything that you are doing wrong. That

Re: [Perl-unix-users] Perl on NT

2002-04-22 Thread jimmy
Kwabena, It's very simple! Just use open FILE, "//$servername/$sharename/$dirpath/$file"; -- James Schappet Schappet.com On Mon, 22 Apr 2002 [EMAIL PROTECTED] wrote: > > > I am using perl on windows NT. I have two NT servers and I want to look/read