Richard Fernandez

wer http://estetikburuncerrahisi.com/mr/lybibl/cddhmsewykrj/ubpejcbsumykym.php Richard Fernandez

RE: Sometimes Net::SSH2 can't read() from channel?

20:06 -0400, [EMAIL PROTECTED] ("RICHARD > FERNANDEZ") wrote: > > >Hi folks, > > > >I have a test script ( mostly ripped from a posting I found on a CPAN > >forum) which uses Net::SSH2 to run a `who' command on a > remote server. > >The script work

Sometimes Net::SSH2 can't read() from channel?

Hi folks, I have a test script ( mostly ripped from a posting I found on a CPAN forum) which uses Net::SSH2 to run a `who' command on a remote server. The script works fine for most servers, but I have a few boxes where, despite being able to login, I get no output. Anyone have any ideas why thi

Net::SSH::Perl won't set SSH options?

Hi folks, I have a test script that remotely runs a command via SSH. The problem is that I get prompted to accept a host key if it's missing from my known_hosts file. The ssh option StrictHostKeyChecking if set to 'no' is supposed to accept a missing host key. I've tested this and it works from a

RE: Trouble with CPAN login

-Original Message- From: Rodrick Brown [mailto:[EMAIL PROTECTED] looks like local user error are you sure the credentials your supplying are correct? Hi Rodrick, The credentials I've configured in CPAN match the ones in my .netrc file which allows me to login successfully from a com

Trouble with CPAN login

Hi folks, I'm trying to access a local CPAN mirror over FTP and am unable to connect. cpan> reload index CPAN: Storable loaded ok Going to read /.cpan/Metadata Database was generated on Tue, 26 Feb 2008 05:31:07 GMT CPAN: LWP::UserAgent loaded ok Fetching with LWP: ftp://cpan.arrow.com/CPAN

RE: IO::Compress::Gzip creates empty file

> If you've just written the file, have you closed the > filehandle and checked the return value? > > Paul Johnson - [EMAIL PROTECTED] > http://www.pjcj.net > Well, I've just learned a valuable lesson (or two), which is, after all, what I'm on this list for :) Just prior to the code I've alrea

RE: IO::Compress::Gzip creates empty file

> No warnings? H Are you sure your program actually ran > the new code? That should have generated at least one > warning. Is there any chance you've redirected or closed the > STDERR filehandle? You can always add a line like this during > development, if you need to be sure the new co

RE: IO::Compress::Gzip creates empty file

Hi Tom, thanks for the reply. > my $old_name = "$company.$ext.$date"; > my $new_name = "$old_name.gz"; > warn "File '$old_name' is empty" if -z $old_name; > warn "File '$old_name' isn't really a file" unless -f _; > unlink $new_name; # whether it's there or not > gzip $old_name => $

IO::Compress::Gzip creates empty file

Hi Folks, I have the following code: use IO::Compress::Gzip qw(gzip $GzipError); ...then... gzip "$company.$ext.$date" => "$company.$ext.$date.gz", BinModeIn=> 1 or do { warn "Failed to gzip file: $company.$ext.$date: $GzipEr

RE: Creating an encrypted zipfile on Unix for Windows users

Create a Zip archive instead man zip for more information -e Encrypt the contents of the zip archive using a password which is entered on the terminal in response to a prompt (this will not be echoed; if standard error is not a tty

Creating an encrypted zipfile on Unix for Windows users

Hi folks, I'm writing a script that basically creates a bunch of files, packages them up (tar/gz), and mails them out. I can handle all of that, but before I mail them I also have to password protect the archive like pkzip does. I really don't want to shell out to pkzip if I can avoid it. I check

RE: :FTP troubles with passive

> -Original Message- > From: Andrew Curry [mailto:[EMAIL PROTECTED] > > Passive - If set to a non-zero value then all data transfers > will be done using passive mode. If set to zero then data > transfers will be done using active mode. Sheesh. I must've read that line 50 times but

Net::FTP troubles with passive

Hi Folks, I have a script that sends a file to a vendor. After running tcpdump I can see that it's trying to do a passive mode transfer which our firewall is having problems with. I would like to turn this off and specify an active mode transfer, but the doco for Net::FTP only talks about turning

RE: chomp operator

> Hi, > Hello, > so where does the chomp operator plays its role, can some one > explain me here with a sample of code. > > Thanks and Regards > > Kaushal > One place where chomp() comes in handy is when you're reading from a file. Usually a line read from a file will have a newline at the

RE: Net::SFTP

> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of > Jeff Pang > Sent: Wednesday, October 24, 2007 8:22 AM > To: Octavian Rasnita > Cc: beginners perl > Subject: Re: Net::SFTP > > I have seen many guys on this list mentioned Net::SSH install > problems.

RE: Changing CPAN config before initial config?

> -Original Message- > From: Srinivas [mailto:[EMAIL PROTECTED] > Sent: Wednesday, September 26, 2007 12:42 PM > To: RICHARD FERNANDEZ > Cc: Beginners List > Subject: Re: Changing CPAN config before initial config? > > Hi Richard, > > There will be a con

Changing CPAN config before initial config?

Hi folks, I have a lot of boxes which are behind firewalls. Fortunately, I have a local CPAN mirror that I install modules from. The problem is that often when I run the CPAN shell (# perl -MCPAN -eshell) I am asked the question: "Are you ready for manual configuration?". After I answer "yes" at s

RE: Build module on one box and move to another box?

> Can this be done? Can I compile a module on one box and > somehow install the code on another? > Might this be as simple as copying over the contents of the > directories in @INC? As it turns out, this was fairly easy to do. I followed the advice from Chas Owens who suggested that I build t

RE: Build module on one box and move to another box?

> Can this be done? Can I compile a module on one box and > somehow install the code on another? > Might this be as simple as copying over the contents of the > directories in @INC? > Thanks Tom and Chas for the responses. It sounds like this is do-able, but not w/o some pain. Their desire to

Build module on one box and move to another box?

Hi folks, Having worked around my CPAN mirror problems by abandoning the FTP URL and going with an HTTP connection instead (Thanks for the suggestion David :), I'm now faced with the fact that the box I'm on does not have a compiler installed. "They" want me to install various modules (DBI.pm and

RE: CPAN shell (LWP, Net::FTP) won't authenticate properly

> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > > I'm using a URL of the form ftp://MyCpanMirror/u02/CPAN/ > > Is your mirror server running Apache or some http server? I > have an internal mirror that I connect to via http and it > works like a charm. >

RE: CPAN shell (LWP, Net::FTP) won't authenticate properly

Hi Tom, Thanks for the response. > It's undocumented, but maybe try this: > > BEGIN { $CPAN::DEBUG = 512; } # FTP? > Not sure where to plug in this BEGIN {}... > perl -MNet::Netrc -lwe 'print join " ", > Net::Netrc->lookup("MyCpanMirror")->lpa' > It looks like Net::Netrc is working:

RE: CPAN shell (LWP, Net::FTP) won't authenticate properly

One other thing. I am able to successfully login to the mirror box using command line FTP and netrc for authentication. richf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

CPAN shell (LWP, Net::FTP) won't authenticate properly

Hi folks, I'm trying to use the CPAN shell to install some modules from our internal CPAN mirror. I'm using a URL of the form ftp://MyCpanMirror/u02/CPAN/ , and I have a valid .netrc configured with a user and password for the mirror box. At first I was able to query/install modules easily, but t

Advice wanted on ssh port forwarding

Hi folks, I've been asked to write a job that sets up an SSH tunnel (ssh -L) which forwards connections to a box on our client's internal network. Through this tunnel I need to make a second SFTP connection for data transfer. I've been looking at Net::SSH, but I haven't quite figured out how to u

RE: help accessing NDBM database files

> Probably rfernandez is not a valid key in the database file. Try this: > > tie my %db, 'NDBM_File', 'aliases', O_RDWR, 0644; > > while (my ($key, $value) = each %db) { > print "$key => $value\n"; > } > > untie %db; > > On my system, this code works with a custom a

RE: help accessing NDBM database files

> That man page might be lying to you. If you have a pair of > .dir/.pag files, those are probably a DBM file, not NDBM. > Have you tried DB_File? > > Hope this helps! > > --Tom Phoenix > Stonehenge Perl Training > I substitued DB_File for NDBM_File and changed the code appropriately, but I'm

help accessing NDBM database files

Hi folks, I'm working on a script in which I want to access NDBM files directly. I'm using the unix aliases file(s) for testing, but I intend to use this code for other projects as well. I have the following files: aliases, aliases.dir, and aliases.pag. According to the man page for aliases, thes

RE: Getopt::Std producing unexpected results

> Getopt::Std only works with single hyphen switches, the only > exceptions being '--', '--help' and '--version'. > > perldoc Getopt::Std > > > Getopt::Std also processes swithes in clusters so "-abcd > filename" is the same as "-a -b -c -d filename". > > > With your command line: > > ./

Getopt::Std producing unexpected results

Hi Folks, I've written a little mytest.pl using Getopt::Std: #!/usr/bin/perl use warnings; use strict; use Getopt::Std; getopt('hl'); our ($opt_h, $opt_l); my $hostname = $opt_h ? $opt_h : undef; my $file = $opt_l ? $opt_l : undef; my @volgroups = @ARGV; print "hostname = $hostname

RE: Can't get Sudo.pm to run my command but it works from a prompt

From: Mumia W. [mailto:[EMAIL PROTECTED] >> Go into sudoers and replace the name of the binary with the name of a >> script that echoes the real and effective user and group ids. Thanks Mumia, and thanks to all who responded. As it turns out, I was able to resolve the problem by replacing '/bin

RE: Can't get Sudo.pm to run my command but it works from a prompt

-Original Message- From: Igor Sutton [mailto:[EMAIL PROTECTED] Sent: Thursday, October 05, 2006 8:17 PM To: RICHARD FERNANDEZ Cc: Beginners List Subject: Re: Can't get Sudo.pm to run my command but it works from a prompt > Looks like this may not, strictly speaking, be a Perl

RE: Can't get Sudo.pm to run my command but it works from a prompt

From: Mumia W. [mailto:[EMAIL PROTECTED] > Does the webserver have the proper permissions to invoke that sudo entry? AFAIK, yes. I don't think it would be asking for a password if it couldn't run the binary. It just doesn't seem to be pulling the right entry (webuser) out of the sudoers file,

RE: Can't get Sudo.pm to run my command but it works from a prompt

> if the user has never signed in and the admin never ran > passwd user passwd -f user and then that user never went into > make his/her password permenant then yes it would matter b/c > the passwd is not set. > I've gone in and set a passwd for the user. Then I actually logged in as the user

RE: Can't get Sudo.pm to run my command but it works from a prompt

> Did you edit the sudoers file using visudo -f "file" Yes. > Show us the sudoers file using cat -etu "file". # cat -etu /usr/local/etc/sudoers > /tmp/sudoers.richf # less /tmp/sudoers.richf # sudoers file. # # This file MUST be edited with the 'visudo' command as root. # User privilege specif

Can't get Sudo.pm to run my command but it works from a prompt

Hi folks, I have the following in a CGI script: my $replace = Sudo->new( { sudo => $sudo, debug => 3, username => 'root', program => '/bin/cp',

RE: CGI: How do I populate a form field based on the value entered in a different field

Ding! Ding! Ding! I finally got it!!! Not sure why this had me so stumped... In any case, thanks to all that responded. I appreciate all the help. richf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: CGI: How do I populate a form field based on the value entered in a different field

Did you test it? It is my impression that CGI.pm works this way normally: if (param) { # Replace the parameter. my $temp = param('name'); if ($nmap{$temp}) { # param('name',$nmap{$temp}); # This also works. param(-name => 'name', -value

RE: CGI: How do I populate a form field based on the value entered in a different field

> $query->param(-name=>'foo', -value=>'the value'); Make that line $query->param(-name=>'foo', -value=>"$the_value"); Then somwhere at the start where you get the variables; my $name = $query->param('name')||''; if ($name =~/mary/i){ $the_value = "Howdy Mary" } How you do it depends on you

CGI: How do I populate a form field based on the value entered in a different field

Hi folks, I'm trying to create an HTML form that will refresh itself based on user input. In the POD for CGI it says that you can set the value of a named parameter by using something like: $query->param(-name=>'foo', -value=>'the value'); But it doesn't say (or at least I didn't see) anythin

doing an "mget" with Net::FTP

Hi folks, I have a directory full of filenames that contain spaces (a la Windows). Is there an easy way to do an mget with Net::FTP, or do I need to parse the output of $ftp->dir? The doco for Net::FTP doesn't mention mget... TIA! richf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

RE: Can't figure out why File::Path::rmtree says "Operation not permitted"

> > I'm not running as user "nobody", but I'm in group "nobody". > > Then you shouldn't be able to change permission bits on user > "nobody"'s files and directories; they're not yours. Perhaps > you should ask user "nobody" to rmtree? Or if the files are > supposed to be yours, maybe you just n

Can't figure out why File::Path::rmtree says "Operation not permitted"

Hi folks, I have a script that calls rmtree. The operation works; my directory and its contents are removed. However, I get this error: Can't make directory /u01/mydocs/mytest001 read+writeable: Operation not permitted at /u02/home/myacct_rem.pl line 41 If the directory has been deleted, why the

RE: Crypt::GPG won't decrypt file...rewrote it to use system, but only partially works

> I would suggest giving GnuPG::Interface a go because it > handled calling out to 'gpg' most "correctly". Meaning it > uses the status-fd, logger-fd options properly which is the > preferred way to call gpg in an automated fashion. > > Good luck, > > http://danconia.org > Thank you! I will

RE: Crypt::GPG won't decrypt file...rewrote it to use system, but only partially works

I re-wrote the decryption routine to use system instead of Crypt::GPG, and came across another puzzle: my @gpg_command = ("/usr/bin/gpg --decrypt $encrypted > $decrypted 2> /dev/null"); system(@gpg_command) == 0 or warn "system @gpg_command failed: $!"; works. It decrypts my file

Crypt::GPG won't decrypt file

Hi folks, I have the following function: sub lbx_decrypt { my $encrypted = shift or die "No file passed in to lbx_decrypt for decryption?\n"; my $decrypted = substr $encrypted, 4; $decrypted .= '.zip'; my $gpg = new Crypt::GPG; $gpg -> gpgbin('/usr/bin/gpg'); open CIPHERTXT

RE: parsing a CSV file with more fields than column names

> Are you SURE that there might be commas in the other fields? > I would hope that whoever made this file you're parsing would > have thought of this if they ever intended to later use the data. Good point. But I have no way of verifying that. These CSV files are provided to me by an outside sou

RE: parsing a CSV file with more fields than column names

> Hello Rich Hi, Chris, thanks for your response > > See docs for perlfunc, specifically split. > > Especially, the form for split > 'split /PATTERN/,EXPR,LIMIT' > > By setting the limit, you will be able to solve the problem. > > Chris > The thing is I can't be sure that there will ne

parsing a CSV file with more fields than column names

Hello All, I'm just trying to get some ideas for the best way to approach this... I have a CSV file whose first line is a header. According to this header there should be 17 values per line. Unfortunately this is not the case. It seems that the first 16 header values match up with the first 16 va

Help with untainting data from Net::SSH while running with -T

Hi folks, I have the following code which is part of a script running with -T on a webserver: #$user, $host, and $command are hard-coded further up in the script; sshopen2("[EMAIL PROTECTED]", *READER, *WRITER, $command) or die "Can't run command on my_box: $!\n"; while () { chomp;

RE: rm -rf in perl

Is there a definative way to recreate the gnu `rm -rf` in perl? I've seen a couple of modules that seem to implement something, and a bunch of variations using File::Find, but it just seems overly complicated.Since it's important I understand exactly what it's going to do (it's removing data

RE: Crypt::GPG produces an empty cleartext file

What version of Crypt:GPG are u using? Derek Bellner Smith Unix Systems Engineer Cardinal Health Dublin, Ohio 614-757-5000 Main 614-757-8075 Direct 614-652-4336 Fax [EMAIL PROTECTED] Hi Derek, Thanks for your response. I'm using: Crypt::GPG version 1.42 Perl version 5.6.0 gpg version 1.0.6 --

Crypt::GPG produces an empty cleartext file

Hi Folks, I have a job that takes in an encrypted file and decrypts it using Crypt::GPG. for my $encrypted_file (@files) { open(CIPHERTXT, $encrypted_file) or croak "Can't open encrypted_file: $encrypted_file\n"; my @ciphertxt = ; my($cleartxt, $signature)

How can I upgrade Perl?

Is there a simple way to upgrade the current version of Perl that's running on a unix box? Is it possible to use CPAN for this (I didn't see anytning about this in the man page). Thanks in advance. Richard - Yahoo! Mail Bring photos to

RE: Help: Math::Pari won't install

This has lingered long enough without response. Sorry it took me a while to get back to it after initially seeing it. I had this same problem a couple of years ago. It does appear that Math::PARI has an active maintainer again so you might try dropping him a line about this issue. I solved it by t

Help: Math::Pari won't install

I'm trying to build Math::Pari along the way to building Net::SFTP, but the make fails with the following error: pariinl.h: In function `mulssmod': pariinl.h:887: error: asm-specifier for variable `hiremainder' conflicts with asm clobber list pariinl.h:887: confused by earlier errors, bailing out

How do you determine if a file is a symlink?

According to the docs, if you stat a symlink, you will get information for the target file, and lstat works on symlinks... I'm confused. How do you determine if a file is a symlink to begin with? TIA richf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROT

RE: Equal length numbers

-Original Message- From: Andrej Kastrin [mailto:[EMAIL PROTECTED] Sent: Thursday, December 15, 2005 9:09 AM To: beginners@perl.org Subject: Equal length numbers Hi all, Suppose that we have numbers 1 to 1000 and we want all numbers be equal length; e.g.: 0001 0002 0003 ... .. 1000 Any

RE: Help: Net::SFTP can't find my file..?

>If anyone can shed any light on this it would be much appreciated! >TIA >From an old tested snippet I have, put takes 2 arguments $sftp->put($put_from, "$put_to_dir/$file") || die "Can't open $!\n"; -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html Thank

Help: Net::SFTP can't find my file..?

I know the answer must be right in front of me, but I just don't see it... I wrote a script that looks for files and then sends them to a remote SFTP server: #!/usr/bin/perl -w use strict; use Net::SFTP; use Logit; # this is a homegrown function that takes a filename and a line

recommendation: which web portal software?

Hi folks, I'm doing some volunteer work in my community, and I've been asked to take over the administration for a small website. The site was set up over 5 years ago and is basically a set of HTML pages and PHP scripts that were thrown together to meet the need at the time. Now that I'm tak

Re: editing mail spool file

On Mon, Oct 06, 2003 at 07:52:31PM -0500, Wiggins d'Anconia wrote: > Richard Fernandez wrote: > > On Fri, Oct 03, 2003 at 09:24:01PM -0400, TN wrote: > > > >>Based on your delete criteria, it would be much easier to filter out > >>unwanted mail messages o

Re: editing mail spool file

On Fri, Oct 03, 2003 at 09:24:01PM -0400, TN wrote: > Based on your delete criteria, it would be much easier to filter out > unwanted mail messages on an incoming relay mailer in your DMZ. You > could do other things there such as filtering out mail with MIME > attachments beyond a certain size li

editing mail spool file

On occasion someone sends out a mail message with MIME attachment that we want to delete from the recipient's spool file. This happens on a Solaris box, so I'm talking about editing /var/mail/, and there are often dozens of recipients. What we've been doing is using "mutt -f" to open each individ

RE: Excel spreadsheet: creating charts

asMinorGridlines} = 0; $Graph->Axes(xlSeries)->{HasMajorGridlines} = 1; $Graph->Axes(xlSeries)->{HasMinorGridlines} = 0; $Graph->Axes(xlValue)->{HasMajorGridlines} = 1; $Graph->Axes(xlValue)->{HasMinorGridlines} = 0; $Graph->Axes(xlValue)->{WallsAndGridlines2D} = 0; $Graph->

RE: Excel spreadsheet: creating charts

- David Olbersen iGuard Engineer 11415 West Bernardo Court San Diego, CA 92127 1-858-676-2277 x2152 > -Original Message----- > From: Richard Fernandez [mailto:[EMAIL PROTECTED] > Sent: Wednesday, March 12, 2003 7:55 AM > To: [EMAIL PROTECTED] > Subject: Excel spreadsheet: c

Excel spreadsheet: creating charts

We have a manual process in place to create Excel worksheets that contain bar charts. I'm trying to automate this process using perl. The problem is that I don't know how to access the underlying formulas, in Excel, that generate the charts. Our current process is as follows: 1) Generate a space s

RE: upgrading perl

inks to point to the old modules? Or is there more to it than that? Thanks again! -Original Message- From: Richard Fernandez [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 13, 2003 10:26 AM To: [EMAIL PROTECTED] Subject: upgrading perl I have a box that's running perl version

upgrading perl

I have a box that's running perl version 5.005_03 and I'ld like to upgrade to the latest version. What's the best way to accomplish this and maintain access to my currently installed modules? I'm doing this on a SUN box. Also, this particular box is behind a firewall and doesn't have internet con

Replacing a string in a bunch of files

I just had a situation where I needed to replace one string with another string in 200 files. This is what I came up with, but I know there has to be a better way. Below is my code. "myfiles" contains a list of the files I need to scrub, one per line. ---8<-8<-

How do you code a "tail -f" if you're using Net::Rsh?

There's a FAQ that deals with coding a "tail -f" if you're logfile is on the same box as the perl script. But what if you want to use rsh to tail a file remotely? Here's what I have: --8<---8<--- #!/u