On Mon, 28 Feb 2005 10:05:32 -0500, Wiggins d'Anconia
<[EMAIL PROTECTED]> wrote:
> Joe Mecklin wrote:
> > ok, per the instructions, binmode only converts CR LF to \n, which is
> > not what i'm looking for.
> >
>
> Out of curiousity isn't the escap
ok, per the instructions, binmode only converts CR LF to \n, which is
not what i'm looking for.
here is a condensed version of the script:
###
#!/usr/bin/perl
use ASI::WebDB;
use Term::ReadKey;
use Net::Telnet ();
my $login = "";
my $securid = "";
print "UID: ";
chomp($login = <>)
1 -0500, [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:
> Joe,
> Try turning binmod on. If it fails post some code and a bit more od a
> description of what you are trying to do.
> hth,
> Mark G.
>
> - Original Message -
> From: Joe Mecklin <[EMAIL PROTE
i sent this to the comp.lang.perl.modules newsgroup as the
documentation suggests and got no response at all, so i thought i'd
see if anyone here may be able to help.
i'm using net::telnet to connect to a remote script (rather than a
login). the script internally uses "^]" to step back through it
cho with '****'
>
> å 2005-02-09 11:29:00 æåéï
> >Joe Mecklin wrote:
> >> i need the ability to accept keyboard input without echoing it back to
> >> the screen (passwords, etc.) and have not yet found anything that will
> >> accomplish that. is t
bless you, my child *g*
On Wed, 9 Feb 2005 11:29:00 -0500, Bob Showalter
<[EMAIL PROTECTED]> wrote:
> Joe Mecklin wrote:
> > i need the ability to accept keyboard input without echoing it back to
> > the screen (passwords, etc.) and have not yet found anything that will
>
i need the ability to accept keyboard input without echoing it back to
the screen (passwords, etc.) and have not yet found anything that will
accomplish that. is there something in Perl that will do that, do i
need a module, ...?
thanks in advance for any/all help.
since this is a gmail account,
i don't know if there are modules or functions that would do it all
bhind the scenes, but at the "worst", just write everything you want
to store to variables and write them in a standard mysql "insert"
query.
you may want to "use CGI qw(:all)" rather than limit yourself to
CGI::Session (that's fr
On Mon, 27 Dec 2004 16:08:20 -0200 (BRST),
[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Hi guys,
>
> I´m having kind´a problem... Here´s the deal... I´m using CGI so that the
> user can, by a browser, type the data that must be recorded into the
> database.
> I use CGI library to do that... t
On Wed, 2004-03-24 at 15:08, Wiggins d Anconia wrote:
> > i know this should be a simple step or two that i'm missing, and i
> > haven't been able to figure it out from reading yet...
> >
> > i have the following code:
> >
> > $sth = $mysql_dbh->prepare("select subroutine_pointer from
> > $da
i know this should be a simple step or two that i'm missing, and i
haven't been able to figure it out from reading yet...
i have the following code:
$sth = $mysql_dbh->prepare("select subroutine_pointer from
$database.equipment_manufacturer where
manufacturer=\"$remedy_eqpt_mfgr\"");
I'm beginning my studies of XML and am looking for a Perl module(s) that
allows me to be able to dynamically generate the XML along with any data
and display it on the fly, as I now do with HTML. What I've seen so far
seems to require writing the XML and associated data to an external file
- an ad
int "$sql01 \n";
> my $query01 = $dbh -> prepare($sql01) || die "Prepare failed:
> $DBI:: errstr \n";
> $query01 -> execute;
>
>
>
> Jasmine Chua
>
> -BEGIN PGP SIGNATURE-
> Version: GnuPG v1.2.1 (GNU/Linux)
>
> iD8DBQE+iHj3NgvTa7Hj2AURAh2tAJ9fDIZ40/9CI9ZhCDncYh7B+8BBEQCgqPoI
> VA22fTtDlaYIEL3gXu0PgJM=
> =x2jl
> -END PGP SIGNATURE-
--
Joe Mecklin <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Excuse the OT but I couldn't find any place specifically for mod_auth_mysql questions:
I'm trying to authenticate users who may be members of several groups. I can get
authentication to work with "require valid-user", but not with "require group growth".
i had a groups field in user_auth initia
ok, thanks.
On Mon, 2003-02-17 at 07:54, Felix Geerinckx wrote:
> on Mon, 17 Feb 2003 13:37:57 GMT, [EMAIL PROTECTED] (Joe Mecklin)
> wrote:
>
> > Thanks for the info. I appreciate the ideas. Seeing your
> > response, I obviously didn't phrase my request a
is presented here is meant to be installed on a MS system.
Joe
On Mon, 2003-02-17 at 07:31, Jenda Krynicky wrote:
> From: Joe Mecklin <[EMAIL PROTECTED]>
>
> > I'm tying to write a script which will connect to all PCs in an
> > internal network to update sel
I tried sending this last week and never saw it or any response to it on the list,
so I'll try again:
I'm tying to write a script which will connect to all PCs in an internal
network to update select files. I currently have it working using
system("net use ...")
but I would like to use whatev
I'm tying to write a script which will connect to all PCs in an internal
network to update select files. I currently have it working using
system("net use ...")
but I would like to use whatever module will replicate that
connection/login/logout functionality; can anyone tell me which
module(s) w
he best i could come up with for now.
hopefully my description makes sense. thanks to all for their help.
joe
On Mon, 2003-01-13 at 13:58, david wrote:
> Joe Mecklin wrote:
>
> > Dan,
> >
> > here is the output with your additions.
> >
> > BEFORE :: ID - 10
ELDS => "school_id, school_name, school_address");
>
> Print "AFTER :: ID - $school_id \n NM - $school_name \n AD -
> $school_address \n";
>
> exit;
>
>
>
>
>
>
> -Original Message-
> From: Joe Mecklin [mailto:[EMAIL PROTECTED]]
>
ot
> #&ISD::clear_input(FIELDS => "school_id, school_name, school_address");
>
> Print "AFTER :: ID - $school_id \n NM - $school_name \n AD -
> $school_address \n";
>
> exit;
>
>
>
>
>
>
> -Original Message-
> From: J
D - $school_address \n";
>
> Run that then the code you have now and see what you get.
> Also print "\$f = $f = .$$f." may be better as -$$f- instead of .$$f. just incase
>it's trying to use a var named $f. instead of $f.
>
> Dan
> -Original Message---
quot;;
> $school_name = "SKOOL NM";
> $school_address = "SKOOL AD";
>
> Print "ID - $school_id \n NM - $school_name \n AD - $school_address \n";
>
> Run that then the code you have now and see what you get.
> Also print "\$f = $f = .$$f."
thanks Dan, but no go. here is the current incarnation, based on your
suggestion:
sub clear_input
{
no strict 'refs';
my %options = @_;
my $fields = $options{FIELDS};
my (@field) = split /, /, $fields;
print "\$fields = $fields ";
print "\@field = @field ";
i'm building a routine in a module (ISD.pm) that will clear a list of
variables (set them to ""), with the intent of expanding the
functionality further in the future. when called, the sub is passed a
list of strings that are variable names without the leading "$".
my goal is to append the "$" to
exec() exits the calling program and does not return.
system() returns the called program's exit status then allows the
calling program to resume execution.
"Programming Perl", 3rd Edition, p.811
On Fri, 2002-12-13 at 08:01, Paul Kraus wrote:
> if I exec a Perl script from a Perl script that fir
i'm trying to use system() to run ptal-pml to retrieve pml values from
hp printers; my problem is how to redirect the system() output. the
variations i've tried with backticks or qx// are not accomplishing
anything useful - i get either a numeric value or an empty string. this
is the command i'm
wrote:
> system() does not return output, it returns status/error codes
> perdloc -f system
> use backticks instead
> $cmd = "usr/bin/ptal-pml hpjd:$ip get-$type $value");
> $system_results = `$cmd`
>
>
> > -Original Message-
> > From: Joe Meckl
Thanks for all the leads and suggestions. I couldn't quite wrap my mind
around making select() work for what I want but Time::HiRes works great.
Joe
On Tue, 2002-08-13 at 14:55, drieux wrote:
>
> On Tuesday, August 13, 2002, at 12:20 , Joe Mecklin wrote:
>
> > I'm
I'm trying to send a file as a remote configuration download via telnet
in a Perl script (using net::telnet). I need to introduce sub-second
delays between sending each line so the receiving system doesn't get
confused. Sleep only goes down to a single second; is there something
that can inject
tiple
concurrent times now.
Thanks again to all who offered suggestions.
Joe
On Mon, 2002-08-12 at 13:00, drieux wrote:
>
> On Monday, August 12, 2002, at 09:48 , Joe Mecklin wrote:
>
> > I had not tried that because login() requires "login:" or "username:&
Prompt => '/\[.*?\]\#/');
> $host->open($hostname);
> $host->login($username, $passwd);
>
> $host->waitfor(/\[.*?\]#/);
>
> #do stuff here!
> }
>
> exit;
>
>
> -Original Message-
> From: Joe
Using Net::Telnet, I'm having trouble getting the server I'm connecting
to to recognize my input to the login prompt. Below is the code so far
(all system/user details have been changed to protect the innocent):
#! /usr/bin/perl
# tnp - TelNet via Perl
# trial program to replace Expect sc
33 matches
Mail list logo
