Finding IP address connected to your http server.

solution for this. If you can come up with some tips or help, please send them to [EMAIL PROTECTED] Thank you for your time, Tyler Mace Application Programmer Sunergize, Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

how do send keys

How do I start a program in perl and send keystrokes to it?? thanks This electronic message may contain confidential or privileged information and is intended for the individual or entity named above. If you are not the intended recipient, be aware that any disclosure, copying, distributio

Off the subject a bit, but I want to know...

I heard about Sygwin when reading the Re:IDE letter, and it is kinda funny, but I downloaded it yesterday. I haven't used it yet, but I am wonder what it is how it works and how I can use it to my advantage in this M$ world. Thanks. Tyler Mace Application Programmer Sunergize -- To unsubs

Mcrypt module

ng); $td = mcrypt_module_open (MCRYPT_TripleDES, "", MCRYPT_MODE_ECB, ""); $iv = mcrypt_create_iv (mcrypt_enc_get_iv_size ($td), MCRYPT_RAND); mcrypt_generic_init ($td, $key, $iv); $decrypted = mdecrypt_generic ($td, $string); mcrypt_generic_end ($td); return trim($decrypt

Crypt::Blowfish errors on line 56

Hi Folks, The code at http://longren.no-ip.org/tyler/blowfish.pl encrypts some $data. Once the data is encrypted, the hex value should be stored in $ciphertext. $plaintext should have the original data that's in $data. When I run this code, I recieve this error: "input must be 8 byt

Re: Crypt::Blowfish errors on line 56

I found that if I change $data to "12345678", it works. How can I encrypt a string that has more than 8 characters? Thanks, Tyler - Original Message ----- From: "Tyler Longren" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, February 28, 2003

getopt:std questions

doesn't work...it doesn't print anything. Can anybody shed some light on this for me? Thanks, Tyler Longren

Re: getopt:std questions

Ahh..that worked wonderfully. Thank you very much! Tyler - Original Message - From: "Ela Jarecka" <[EMAIL PROTECTED]> To: "'Tyler Longren'" <[EMAIL PROTECTED]> Cc: "Beginners list (E-Mail)" <[EMAIL PROTECTED]> Sent: Wednesday, J

arrays

r_log TransferLog /home2/test.net/logs/transfer_log ScriptAlias /cgi-bin/ /home2/test.net/cgi-bin/ Could I get the ServerName values put into an array so I can do something with each different ServerName? Thank you everyone. Tyler

Re: arrays

Thank you everyone. All of you have been a great help. That is exactly what I need. I'll figure out how to get just the servernames from the VirtualHosts myself (I'll try anyway) ;-) Thanks! Tyler - Original Message - From: "Brett W. McCoy" <[EMAIL PROTECT

Re: arrays

One more quick question. How can I count the values in an array (@servernames)? I want to print my servernames seperately: $i=0; while ($i <= $num_servers) { print "$servernames[$i]\n"; } Something like that (I don't know if that will even work in perl...but it does in PH

Re: Editor

Context is my choice: http://www.fixedsys.com/context/ Tyler - Original Message - From: "Bill Pierson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, July 03, 2001 2:33 PM Subject: Editor Hello again, all. May I get some suggestions for any Windows-

Re: modules & path to perl

do a 'which perl' at the command line to get the location of perl. Not sure about the modules. To get the version of perl, do 'perl --version' at the command line. Tyler - Original Message - From: "David Gilden" <[EMAIL PROTECTED]> To: <[EMAIL PR

Re: command line flags

: generate log for last 24 hours -w : generate log for last week -m : generate log for last month -y : generate log for last year\n"; exit; } Tyler - Original Message - From: "saliminl" <[EMAIL PROTECTED]> To: <[EMAIL PROTEC

Re: timer/display

uot;\\", "|", "/", "-"); for(my $i=0; $i <= 1; $i++) { print "$windmill[$_ & 3]\r"; usleep(5); } I get this error: Use of uninitialized value in bitwise and (&) at ./test.pl line 7. Thanks everyone, Tyler - Ori

Re: timer/display

I have tried that. Here's the error I get from that: Use of uninitialized value in modulus (%) at ./test.pl line 7. Tyler - Original Message - From: "Chas Owens" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, July 10, 2001 9:19 AM Subject

Re: timer/display

this for loop works: for(my $i=0; $i <= 1; $i++) { print "$windmill[$i % 4]\r"; usleep(5); } I changed the $_ to $i... Tyler - Original Message - From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> To: "Tyler Longre

if something equals nothing

How do I do: if ($something == "") { # do something } in perl? Thanks, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: if something equals nothing

would be to say > > if (!$something) { ... blah blah ... } > > Since $something will return false in a boolean context (if it is empty) > > -Original Message- > From: Tyler Longren [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 17, 2001 12:56 PM > To: Perl Begi

Re: if something equals nothing

ptions with a * are required!\n\n"; exit; } } else { # do whatever If the -i and -a flags aren't specified the usage gets printed. I also want to check to see if -i and -a have something behind them. If they're specified, but there's nothin

Re: if something equals nothing

no...it was supposed to be $options{a} and $options{i}... I accidentally put a twice in the email - Original Message - From: "Brett W. McCoy" <[EMAIL PROTECTED]> To: "Tyler Longren" <[EMAIL PROTECTED]> Cc: "Mooney Christophe-CMOONEY1" <

looking at rows in text files

if/ServerName\swww.(.*)/; } Can anyone help me? Thanks once again, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: looking at rows in text files

t print anything to the screen. Really, thank you! - Original Message - From: "Jos I. Boumans" <[EMAIL PROTECTED]> To: "Tyler Longren" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]> Sent: Wednesday, July 18, 2001 1:29 PM Subject: Re: looking at row

Re: looking at rows in text files

if /(.com\S)/; } foreach my $h(@list) { print "$h"; } They're more or less the same thing except the regexps are different Tyler - Original Message - From: "Jos I. Boumans" &l

Re: system interaction

Why can't you do that with the regular command line? change to a directory with "cd dir_name", change to a drive by typing the drive name "C:", "A:" Copy files with the "copy" command. Tyler Longren Captain Jack Communications [EMAIL PROTECTED]

output of a command to a file

ommand\n"; The above code doesn't work though. There's nothing in the $command variable. The only thing that gets printed to $outfile is $h. Thanks everyone Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

chompping periods

Is there a way to chomp a period? Example: this is a test. to this is a test I just need to remove the period from the end of a string. Thanks, Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

binary files

back out in ascii? Thank you. Tyler Cruickshank UDAQ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

string into an array

m the grep and place them into an array? I want to do it result by result. So the first result could be $array[0], the second could be $array[1], and so on... Know what I mean? If not, don't pay any attention. Thanks everyone! Tyler Longren Captain Jack Communications [EMAIL PROTECTED]

colored text

Hello everyone, I was wondering if there was anyway to print colored text at the command line. I'm using linux. Something kind of like how the directories and executables are colored when you do an 'ls' in linux... Thanks, Tyler Longren Captain Jack Communications [

Re: colored text

That's pretty cool. Works great. Thank you! Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com On Thu, 9 Aug 2001 08:33:58 -0700 (PDT) Mark Ross <[EMAIL PROTECTED]> wrote: > > I was wondering if there was anyway to print colored > > text

result of regexps into a string

correct or not. Can anybody offer any help? Thanks, Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

number of elements in array is -1?

ies in LOGFILE that have an IP of 192.168.1.1. Thanks, Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: number of elements in array is -1?

) > > Are you checking to make sure LOGFILE opened correctly? > > -Original Message- > From: Tyler Longren [mailto:[EMAIL PROTECTED]] > Sent: Friday, August 10, 2001 9:19 AM > To: Perl-Beginners > Subject: number of elements in array is -1? > > > Hello e

Re: number of elements in array is -1?

"192.168.1.1"; my @scans; while () { push (@scans, $_) if m/$last_host/i; } close(LOGFILE); print "$scans[0]"; On Fri, 10 Aug 2001 10:28:23 -0400 (EDT) "Brett W. McCoy" <[EMAIL PROTECTED]> wrote: > On Fri, 10 Aug 2001, Tyler Longren wrote:

Re: number of elements in array is -1?

t; to > your second while loop, you're at the very end of the file. You need to > rewind. > > -Original Message- > From: Tyler Longren [mailto:[EMAIL PROTECTED]] > Sent: Friday, August 10, 2001 9:29 AM > To: Brett W. McCoy > Cc: [EMAIL PROTECTED] > Su

Re: Reading magnetic stripe data with perl

This will be of some interest to you: http://www.perldoc.com/perl5.6/pod/perlfaq8.html#How%20do%20I%20read%20and%20write%20the%20serial%20port%3f Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com On Tue, 14 Aug 2001 16:48:39 +0100 "Julian M Sawkins&quo

status messages as the program progresses

"; } And that works, but if I run the script like this: ./script.pl > test.txt I get a BUNCH of "Processing" lines in test.txt. Is there any other way I can do this? Thanks, Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-

Re: status messages as the program progresses

:) forgot to add the $i++. And that was just an example. On Wed, 15 Aug 2001 10:55:58 -0400 Bob Showalter <[EMAIL PROTECTED]> wrote: > > -Original Message- > > From: Tyler Longren [mailto:[EMAIL PROTECTED]] > > Sent: Wednesday, August 15, 2001 10:13 AM > >

URL access

. Does anyone have a hint? Im interested in doing this either from a UNIX box or NT. Thanks very much. -Tyler Cruickshank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

binary files

rection it would be very appreciated. Thanks, - Tyler Cruickshank FORTRAN CODE: #- OPEN (5,FILE=File.ascii) OPEN (9,FORM='UNFORMATTED',FILE=File.binary) READ(5,2100)IFILE, NOTE,NSEG, NSPECS, IDATE, BEGTIM, JDATE,

timeout

ult = `whois $h`; } Is there any way to add, say a 30 second timeout to this? I've looked at the man pages for whois, and there doesn't appear to be any way to set a timeout in the whois command. Thanks, Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -

Hi.

$hour = "hr$i"; $root = 'data.'; $name = "$root$hour"; $browns{$name} = [ @data ]; } print " $browns{$name}[1] \n"; print " $name = @{ $browns{'data.hr3'} }\n"; print " $name = @{ $browns{$name} }\n"; Thanks. - Ty

hash of arrays

>>> "Tyler Cruickshank" <[EMAIL PROTECTED]> 08/17/01 12:53PM >>> Hi. I am working with a hash of arrays. Ive run into some confusion regarding the accessing and printing of the hash. Below are some excerpts of my code: I have an array (@data) that I wi

Re: Clear

You use the "clear" command. system("clear"); I'm not sure what it is to clear the screen in dos. -- Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com On Mon, 20 Aug 2001 08:33:42 -0500 [EMAIL PROTECTED] wrote: > I am writing lines

Re: Perl script editor for NT/2000

Context. It's free. http://www.fixedsys.com/context/ It's all I use on my Windows boxen. -- Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com On Mon, 20 Aug 2001 11:20:35 -0400 TOM TURPIN <[EMAIL PROTECTED]> wrote: > Could someone sugges

"system" command failure

my FORTRAN program with a "source" or a "./" my $status returns 0. It does not work. Note I tried it 2 different ways with the same negative result. Does anyone have an idea? Thanks for y

searching for a few things

lts be put into @array. Thanks everyone, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: parsing strings

Another Newbie responding . or, if you wanted the first "word" in $part1 (not necessairly the first 4 characters) you could do: @list = split(/ /, $part1); $part2 = $list[0]; Here you split the $part1 variable on whitespace. The individual strings are then placed in a "list array" called

write and format

r(local $j=0; $j<=8; $j++){ $oldhandle = select(RRF); $~ = "RRFTable1"; select($oldhandle); write RRF; $x++; } # End for loop. $x=0; } } # End function printRRF. Thanks very much for your time. -Tyler Cruickshank

Hash keys

to a hash? My code works just fine when I write $specSum{'data.hr1'}[$i]. A snippet of my code is pasted below. Thanks for the help. Cheers, Tyler. for(local $b=0; $b<=23; $b++){ local $hour = $b+1; local $root = 'data.hr'; local $name = "$root$h

system("rm") problem

Hi. Im running perl via cygwin on NT. I want to remove all files *.1.txt. I have tried: 1) system("rm *.t.txt"); 2) $file = '*.1.txt'; system("rm $file"); 3) system('rm *.1.txt'); ...but, I cant get any of them to work. Any ideas? Thanks for yo

array of arrays

Hi. Im using a multidimensional array in the following way: $array[$i][$j][$k] = [ @list ]; where, @list is a 2-D array ie. $list[][]. How do I access the individual elements of the array @list once Ive put it into the array @array? Thanks. -ty -- To unsubscribe, e-mail: [EMAIL PROTECT

perl/php args

Sorry if you get this 2x it may not have gone thru the first time. Hello. Im working on a perl/php/SVG project. PHP interfaces with a DB (to pull out a data array) and perl does the rest of the work. Does anyone know if perl can accept a php array as an arg? Thanks -Tyler -- To

Re: perl/php args

Thanks all. Well, this is a personal project that Im working on w/ a buddy. He's a php guy while I do perl (to some extent anyhow!). He just wanted to do it in phpand I havent used the DBI module before. ty >>> "Etienne Marcotte" <[EMAIL PROTECTED]> 10/24/01 12:36PM >>> Maybe, but if al

$_[0] to filehandle

ue when I print to a file handle?? Ive also tried ${color}. Ive tried setting $color to a dummy value just before I print to the filehandle. In this case, I DO get the dummy value printed to the file handle. Any ideas? Thanks for your time. -tyler open(IMAGE, ">d://perl/svg/files/$

Re: $_[0] to filehandle

Sorry, took me 3 hours to figure out that I outwitted myself. Thread closed. Thx. >>> "Tyler Cruickshank" <[EMAIL PROTECTED]> 10/26/01 09:05AM >>> Im absolutely stumped on this one. $_[0] is either '#ff' or 'red' it doesnt seem to mat

Re: NEW!!

www.perldoc.com is good. Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com - Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, April 03, 2002 2:47 PM Subject: NEW!! > Hi All, > > I am new to Perl ..

Moving on....

setiathome1; setiathome2; exit; } else { usage; exit; } -End Code If a better explanation is desired, e-mail me directly. Thanks, -- Tyler Longren Captain Jack Communications [EMAIL PROTECTED] www.captainjack.com -- To unsubscribe, e-mail: [EMAIL PR

RE: Moving on....

ggestion though, Tyler On Tue, 2002-06-18 at 11:14, Anders Holm wrote: > Maybe your looking to start them in the background using & at the end of > your command like such: > > `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517 &`; > > and > > `cd $setiat

Re: Moving on....

Gary, I tried the code you posted, and it has the same problem mine did. tyler On Tue, 2002-06-18 at 11:17, Gary Stainburn wrote: > On Tuesday 18 June 2002 5:08 pm, Tyler Longren wrote: > > Hello, > > Hi, > > > > > I have an smp machine that I want to run two

Re: Books on "Network programming in Perl"...

yes, perl can be used on NT and other windows variants. On Wed, 17 Jul 2002 08:48:12 +0530 "Parag Dhake" <[EMAIL PROTECTED]> wrote: > > Hi Everybody, > >I'm new to this mailing list (and to the world of Perl, as well) >Would appreciate if you can suggest me some good books on "Network

Re: Problem using IF with AND

If I were you, I'd try using && instead of "and" in your if loop: if ($client ne $newclient && $method ne $newmethod) { // blah blah blah } I'm not even sure if that will work in perl. Who knows. Good luck, Tyler Longren On Mon, 29 Oct 200

Re: Problem using IF with AND

I think you're right. ;-) Tyler On Mon, 29 Oct 2001 20:40:28 -0800 Dave Turner <[EMAIL PROTECTED]> wrote: > I think ( and there's plenty who will tell you if I'm wrong... lol ) > that > you need to put it as: > > if (($client ne $newclient) && (

vars as key/value in a hash

pen(NAMES, "d://perl/avalanche/names.txt") || die "Cant open names.txt\n"; while(){ chomp; @names = split(/-/); %stations = ( $names[0] => $names[1] ); @names = (); } # End while. $table = 'alta_guard'; print "Text: $stations{$table}

Re: Off-Topic (200%) - Where are you from?

ah, what the hey ... Salt Lake City, UT - Greatest Snow on Earth. and no, Im not! >>> "Joyce Harris" <[EMAIL PROTECTED]> 11/09/01 11:57AM >>> Knoxville, Tennessee - Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, November 09, 2001 1:47 PM Subject

RE: Off-Topic (200%) - Where are you from?

I dont know, Beans and Pilgrims are pretty exciting too. Overall Bo-Town is great! >>> "murphy, daniel (BMC Eng)" <[EMAIL PROTECTED]> 11/14/01 12:38PM >>> OK, what's one more? Boston, MA, USA That souds pretty boring after hearing from the Netherlands, Austrailia, Romania, etc. ;-) -- To un

getting individual lines

e. Thanks everyone, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: today's date....

I'm not sure if there's a function to do that. But you could check the length of $DAY...if it's less than 2 you could just add a 0 infront of it. Good luck, Tyler Longren - Original Message - From: "Torres, Jose" <[EMAIL PROTECTED]> To: "&#x

searching through httpd.conf

gets the ServerName if it starts with a "www". How could I get it no matter what ServerName starts with? Thanks, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Syntax of Messages

you use $ for variables and @ for arrays. the Quantum::Entanglement module is a quantum programming module. It tries to replicate what it would be like to program on a quantum computer. Tyler - Original Message - From: "Anthony LaBerge" <[EMAIL PROTECTED]> To: <[EMA

cygwin/activestate/linux

to use the simplist environment on which to add modules and run perl. Any thoughts? Thanks. -tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: making phone calls using a perl module

That dial-o-matic episode was on lastnight here in Iowa. :) Tyler - Original Message - From: "Nikola Janceski" <[EMAIL PROTECTED]> To: "'Brett W. McCoy'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, February 28, 2002 8:32

Archive::Tar

Hello, Can I archive directories using the Archive::Tar module? http://www.perldoc.com/perl5.6.1/lib/Archive/Tar.html Thank you, Tyler -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perldoc question

type this at your command line: echo $PATH That should display a few folders (/usr/local/bin, /usr/bin, etc...). your perldoc executable should be located in a folder listed in your $PATH. Good luck, Tyler - Original Message - From: "Joe Echavarria" <[EMAIL PROTECTED]