dereferencing array of hashes in a Tk widget

2004-09-13 Thread Michael Ragsdale
I'm using Tk as my user interface and I'm listing rows of data from a database. The first widget in each row is a button that calls a subroutine, the next items in each row is a radio button group denoting the "status" of each row, then there is some more data. Something like this: [Update]

Net-SFTP issues

2004-07-27 Thread Michael Ragsdale
I'm trying to convert all of my scripts over from Net-FTP to Net-SFTP on Activestate 5.6.1. I was getting the error: Your vendor has not defined Fcntl macro F_SETFL, used at H:/Perl/site/lib/Net/SSH/Perl.pm line 218. After some research, I found that I need to install Net-SSH-W32Perl that is

passing an Array_of_Hashes element

2004-06-09 Thread Michael Ragsdale
I'm trying to pass a single element of an array of hashes, but all I'm getting is zeros. Below are snippets of the code in question. The button is a Tk Widget. I assume I have something wrong with the way I'm either passing the AoH element or the way I've bound it to the button widget, but I

Win32-Printer.ppd install problems

2004-06-04 Thread Michael Ragsdale
Environment: Win2k, Perl 5.6.1, PPM 2.2.0 I'm trying to install Win32::Printer from the default ActiveState repository. I receive no error messages and it appears to install, however, I cannot find any trace of it on the drive. My session looks like this: C:\>ppm install Win32-Printer Install

Re: can't bind a reference using Tk

2004-02-24 Thread Michael Ragsdale
At 03:40 AM 2/24/2004, R. Joseph Newton wrote: Though this doesn't affest the compilation or running of your code, it does affect people's willingness to help--can you see the difference between say this: $left->Label( and [big hint here] these: -text=>"",-width=>12,-background=>'white' ? Please

Re: can't bind a reference using Tk

2004-02-23 Thread Michael Ragsdale
At 06:24 PM 2/23/04, wolf blaum wrote: On Monday 23 February 2004 18:31, Michael Ragsdale generously enriched virtual reality by making up this one: > my $ent =$right->Entry->pack; ^line 1 > my $go = $right->Button(-command=>sub{compute($ent)})->pack; ^line2 > Mai

can't bind a reference using Tk

2004-02-23 Thread Michael Ragsdale
Versions: Perl 5.6.1 DBI 1.28 DBD::Oracle 1.06 Tk 800.023 I'm trying to learn Tk and have it interact with a database but having problems passing variables: use strict; use Tk; use DBI; use DBD::Oracle; my $main = MainWindow->new(); my $top = $main->Frame()->pack(); my $left = $top-

Re: CGI environment issues

2003-01-08 Thread Michael Ragsdale
Trying to fetch ORACLE_HOME and ORACLE_SID from the registry." Is it possible it is completely ignoring your ENV and looking in the registry for your two values? Never know where dialogue may lead http://danconia.org Michael Ragsdale wrote: I sent this to the DBI list, but didn't

CGI environment issues

2003-01-08 Thread Michael Ragsdale
I sent this to the DBI list, but didn't get any help. I'm not so sure it's a DBI problem, so I'm sending it here to see if perhaps someone here may be able to help me. I cannot get a script to run from a browser. I've added the ORACLE_HOME environment variable to the script, which is usually

Re: How to use crypt ??

2002-05-23 Thread Michael Ragsdale
Yes, you need to use a salt and can use anything you'd like. For instance, if you're creating an encrypted password for a user's login, you might do something like this: my $username = 'foo'; my $password = 'bar'; my $crypted_password = crypt($password, $username); crypt() uses the first two

restoring state from a file

2002-05-16 Thread Michael Ragsdale
I'm working for the first time on saving state to a file based on Lincoln Stein's example and I'm having problems. Test code excerpts are below. save_state() is successfully creating and writing a file in the STATES directory holding several keyword=value pairs. The problem is when I restor

RE: Setting a Variable to String with \n?

2002-04-24 Thread Michael Ragsdale
Concatenation will do what you want... $string = "This is the text I want\n". "But I also want this text on next line.\n"; > > Ok, > > > > But what if I'm doing an elsif and my code is indented such as: > > elsif ($string == 1) { > > $string = This is the text I want > >