Re: ANDing IP addresses

2002-12-28 Thread R. Joseph Newton
Hi Kipp, I'd say don't bother pack()ing. At the moment, I think the function pretty much s**ks. use eval() instead. The following doesn't have that one-liner compactness of the others, but it shows you what is going on. The bitwise & does a real cute little trick with its operands, evaluati

two-way socket troubleshooting

2002-12-28 Thread Mat Harris
i have a client and server which I want to be able to have communicate in full-duplex. I need the client to send a string to the server, the server to check it and then return a status code (plus some other stuff). I have the client and server (see attached .txt files) but when I run them, attempi

Re: Help Mail Headers and Body... :p

2002-12-28 Thread Wiggins d'Anconia
You may want to have a look at Mail::Box (specifically Mail::Box::POP3) and Mail::POP3Client, http://search.cpan.org/author/MARKOV/Mail-Box-2.033/ http://search.cpan.org/author/SDOWD/POP3Client-2.12/POP3Client.pm I know the box modules are still under heavy development and don't know whether th

Re: Useradd and Passwd

2002-12-28 Thread Yupapa
Hi, It should be useradd -p 'md5_passwd' username It is a md5 password, not a normal password. Thanks Yupapa ## # Yupapa Web Hosting # Web Site - http://www.yupapa.com # Email - [EMAIL PROTECTED] ## "Kevin Old" <[EMAIL PROTECTED]>

Help Mail Headers and Body... :p

2002-12-28 Thread Yupapa
Hello, Anyone have any ideas or know any modules that can split up the headers and body of the emails? I've tried to code my own script to split the mail into two parts, the headers and body. However it does not work with all emails which are sent by all different types of email clients. What I w

Re: file into memory

2002-12-28 Thread Paul Johnson
On Tue, Dec 24, 2002 at 10:44:29AM -0800, R. Joseph Newton wrote: > > > would like to suck the whole file into memory and processing > > > each line from > > > there. Assuming we are still talking about the line as given: @xx = ; > Bob Showalter wrote: > > I'm not sure what that accomplishes f

Re: ANDing IP addresses

2002-12-28 Thread Paul Johnson
On Fri, Dec 27, 2002 at 11:31:51AM -0500, Kipp, James wrote: > > > I want to bitwize AND 2 IP adr strings, not sure of how to > > pack() them to be > > > able to AND them. before i start playing with > > pack,sprintf,socket,etc.. I > > > was wondering if someone already had a way. > > > > $ perl

RE: Scalar reference, pointer to pointer meaning

2002-12-28 Thread Gary Hawkins
Thanks for the response. Ok, a simplified version of the script to highlight the problem is at http://www.eskimo.com/~ghawk/perl/GetFileVersionInfoPublic.pl Included in the file is some info about the three API's that work together, from msdn, and a link to one of them there (the others are rig

Re: split error

2002-12-28 Thread Shawn B
[snip] > On FreeBSD, I get: > > % perl -e 'use bytes; for(0..256) { $s.=chr($_) } for(split(//,$s)) { print }' > > > > >!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ > >¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍ

Re: split error

2002-12-28 Thread Shawn B
Thanks for the reponses, See below: - Original Message - From: "Wiggins d'Anconia" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]> Sent: Saturday, December 28, 2002 3:28 PM Subject: Re: split error > The original posted perl line worked fine on my RH8.0 box. > > ~$ perl -e 'for(0..256) { $

Re: split error

2002-12-28 Thread Wiggins d'Anconia
The original posted perl line worked fine on my RH8.0 box. ~$ perl -e 'for(0..256) { $s.=chr($_) } for(split(//,$s)) { print }' 123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øù

Re: Archive Logs

2002-12-28 Thread Rob Dixon
Erm, is this a trick question Tim? The stuff between your two markers isn't Perl, it's DOS commands! If you run it as a batch file it'll throw 'Bad command' errors for each line beginning with a hash, and then (probably) terminate at the 'exit 0;' line. The 'tar' command will either throw an error

Re: split error

2002-12-28 Thread Rob Dixon
Hi Shawn I'll stick my neck out and say that this is a bug in Perl, to do with Unicode support. Running the loop from 0..256 gives you 256 8-bit characters and one 16-bit character (0x0100 = 256). This seems to upset split() as it stands. Try adding: use bytes; at the start of your code, and

Archive Logs

2002-12-28 Thread Tim Martin
Hi Folks Need help in getting the code to work in a Win32 perl system. I was able to get it to work in a Linux system but not on a Windows 2000 Server. Could you folks please review the code between Archive Logs Report and exit 0; I just gave up and put in the code that works in a shell script. T

RE: split error

2002-12-28 Thread Wagner, David --- Senior Programmer Analyst --- WGO
It may have something to do with what shell you are running under. I ran it under a korn shell(MKS) w2k and id one at 1590 characters and had no problem. From some other emails I have seen, the shell may allow only so much to happen. What are you running under? Wags ;) -Orig

split error

2002-12-28 Thread Shawn B
Hello all, Can anyone explain why this fails? I have done a google search for 'Split loop at', and turned up nothing. If the initial array stays under 256, all is fine, but anything beyond 255 (as far as I have tested) dies. Is this something to do with bit size? %perl -e 'for(0..256) { $s.

Re: Fw: HTTP Requests

2002-12-28 Thread Wiggins d'Anconia
Interesting discussion, I was just trying, in a somewhat more civil manner than "RTFM", to merely point out that the original poster hadn't done his/her homework and used the help of looking in the docs that had already been offered. :-) http://danconia.org R. Joseph Newton wrote: HI Randal,

Re: Mail Attachment Corrupted... please help

2002-12-28 Thread Yupapa
nevermind... found out what was wrong!! thank you for reading BTW :p -- ## # Yupapa Web Hosting # Web Site - http://www.yupapa.com # Email - [EMAIL PROTECTED] ## "Yupapa" <[EMAIL PROTECTED]> ¼¶¼g©ó¶l¥ó [EMAIL PROTECTED]">news:[EMAIL P

Re: Mail Headers

2002-12-28 Thread Yupapa
thank you thank you!! -- ## # Yupapa Web Hosting # Web Site - http://www.yupapa.com # Email - [EMAIL PROTECTED] ## "Bob Showalter" <[EMAIL PROTECTED]> ? 2E4528861499D41199D200A0C9B15BC001D7E613@FRISTX">news:2E4528861499D41199D200A

Mail Attachment Corrupted... please help

2002-12-28 Thread Yupapa
HiHi~ The problem is about EMAIL. I am writing a web-based email for my school project and i have problem doing attachments... I am using MIME:Base64 to encode and use Net::SMTP to send email. This is the code I use to encode files: $msg .= 'Content-type: application/octet-stream; name=""'."\n"

Re: Hooking a perl script to xinetd

2002-12-28 Thread zentara
On Fri, 27 Dec 2002 12:17:36 -0600, [EMAIL PROTECTED] (Michael Weber) wrote: >I have a script that listens on a port for a connection, receives some >data over that connection, and writes it to a file. > >This works, but it takes up CPU cycles, RAM etc. when it waits. I am >trying to get the scri

Re: Keyboard processing

2002-12-28 Thread Rob Dixon
Hi Pavle The only way I know to do this is to use Term::ReadKey. Were you meaning that you /couldn't/ use any modules? I doubt if there's an easy way otherwise, as control of the console is very platform dependent. With this module it becomes just: use Term::ReadKey; : ReadMode 2;

Re: Best SMS module?

2002-12-28 Thread zentara
On Thu, 26 Dec 2002 18:51:47 -, [EMAIL PROTECTED] (Dan) wrote: >What's the best (and easiest to use) SMS module available? Any ideas? > >All help appreciated. Look at sendSMS.pl at http://caspian.dotconf.net/menu/Software/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional command

Re: Scalar reference, pointer to pointer meaning

2002-12-28 Thread Rob Dixon
Hi Gary You're suffering a little C-lag. The backslash performs roughly the same function as the ampersand in C, while dereferencing requires knowing the type of the reference, which can be discovered using the ref() function. my (@array, $scalar, $lp); $lp = \@array; print ref $lp;