CGI redirect question, slightly OT

Greetings, perlers! I am trying to create a web page on my intranet that grabs some user input, and puts the results in a file for later parsing. Everything works except the last line... sometimes. What the user is supposed to see is a web page that says "Thank you". Most users do. Some will n

Re: send mail with authentication and secure connection

How about this: Net::SMTP::TLS - An SMTP client supporting TLS and AUTH Found on CPAN. -Michael >>> Leif Ericksen <[EMAIL PROTECTED]> 3/1/2006 1:24:30 PM >>> Are you trying to have a perl script send some mail for you? Your want perl to do expect like conditions? Look at using expect in perl

Quoting question

Greetings! I am not completely understanding how perl parses quotes. Here is the line I want to execute: exec "$command $cmd_msg"; The variable $command is an executable shell script "test.sh" The problem comes in the $cmd_msg variable. This contains a line from my log file: Nov 13 1

RE: ActiveState Win32 MCPAN install problem

Same result. Any other ideas? Thanx! >>> "Rajesh Dorairajan" <[EMAIL PROTECTED]> 03/16/04 12:27PM >>> Try perl -MCPAN -e "force install Mail::Sender" Rajesh > -Original Message- > From: Michael Weber [mailto:[EMAIL PROTECTED] &g

ActiveState Win32 MCPAN install problem

Good morning! I am running ActiveState Perl, latest and greatest, on a Win2000 box. When I try to install modules from CPAN, I get the following error: G:\>perl -MCPAN -e "install Mail::Sender" CPAN: Storable loaded ok Going to read \.cpan\Metadata Database was generated on Tue, 16 Mar 2004 02

RE: Handling blank lines in while() construct

PROTECTED] >> Sent: Friday, 5 March 2004 4:16 AM >> To: Michael Weber >> Cc: [EMAIL PROTECTED] >> Subject: Re: Handling blank lines in while() construct >> >> As far as this: >> >> "$yellow")} >> elsif ( $conf_

Handling blank lines in while() construct

I wrote a perl script that adds colors to text streams on the fly. It's really handy for watching log files as they run past. I watch my mail log files after making config changes and can mark "reject" in red, "spam" in blue, discard is red and my console beeps, etc. It's REALLY nice. However, i

NDS user and group query

Greetings! I would like to create a web page that will allow users to look at my Novell NDS tree groups and see what users are members, and look at users to see what groups they are members of. I don't want to give them ConsoleOne or NWAdmin since some of them are still looking for the "Any" key.

logrotate on Win32?

Good morning! Does anyone know if there exists a module like Logfile::Rotate that works on Win32 platforms? I am looking for something to rotate logs under Oracle, and I need some pretty fine control to pull it off and still have Oracle happy. Reinventing the wheel is definately not my first

Nested quantifiers error?

Greetings! I am attempting to parse emails on the fly after a spam filter adds a score to the headers. (SpamAssassin, if you're curious.) When I try to find out what the spam score is I am getting a weird error. Here's the lines that error out: if ( $msg[$line] =~ '^X-Spam-Le

An extra space?

I am trying to write a mail filter that grabs the output of SpamAssassin and drops any messages that score above a certain number of points. As I am writing it, I want to see exactly what the perl script is getting and outputting. It's a pretty simple script now, it does no filtering at all, yet.

portable directory tree searching

Been to CPAN enough that I'm seeing crosseyed. What I want to do is to write a program that will return a list of files named *.edi which are found in /*/files_in directory and then process each file one at a time. Now for the kicker. It needs to run now on a Win32 platform, and in a few month

A thank you gift

ed or implied. If it blows up your machine, discovers Elvis living in San Antonio, or causes the WOPR to start world war 3, don't come to me about it. You've got the source code, you know what it does! Copyright 2003 by Michael Weber Released into the public domain 2003 -- To

Re: How to end a while(1) loop

rch for is literally "from". Thanx! -Michael >>> Tim Yohn <[EMAIL PROTECTED]> 07/10/03 04:53PM >>> On Thu, 2003-07-10 at 17:30, Michael Weber wrote: > Here's the basic frame of code I'm using: > > #!/usr/bin/perl -w > > use strict; > &

How to end a while(1) loop

I am trying to write a simple filter that will mark in different colors certain words as they pass through. For example, if I do a tail -f /var/log/messages I want words I am looking for to be in red and other words in yellow with the rest of the text unchanged. (There might be a way to do this a

-w vs. use warnings

Greetings! Is there any difference between #!/bin/perl -w and #!/bin/perl use warnings; ? Thanx! -Michael -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Warnings/strict still needed?

Just wondering. After I debug my perl scripts do I still need the strict and warnings flags? Does it hurt performance having them? Does it hurt security removing them? The scripts are for system admin only, not CGI where I would assume they should be left in. Thanx! -Michael -- To unsubscri

MIME::Lite only sends 8k?

I have a report that is in HTML format, it is about 120k of text. When is use the program fragment below to send the report, I get only the first 8k (about) and that's it. I ran into this same problem with MFMail, but it runs fine with the mail command (sendmail). The problem is the mail command

RE: how can I delete a line?

I know this is a perl list, but just because you have a hammer in your hand doesn't make everything a nail, right? How about sed '132,134d' datafile > newfile -Michael >>> "David Olbersen" <[EMAIL PROTECTED]> 03/25/03 05:41PM >>> All'adr, Something like (untested) this? while( <> ) {

Why?

Here are two scripts, the only difference is the marker I am splitting by. I really expect the output from the two scripts to be the same. Why is the output different? perl -e '@NEW = split(".", "1.2.3"); print "x", $NEW[1], "x\n"; ' Outputs xx perl -e '@NEW = split("_", "1_2_3"); print "x", $

Re: networking with perl

Does the user running Apache have rights to the /home/soumya/Application/BLAST/blastall file and the data directories? What's in the access_log or error_log when you run the script from the web page? -Michael >>> Soumyadeep nandi <[EMAIL PROTECTED]> 03/25/03 07:39AM >>> Hi, I am stuck with anot

Re: PERL OSX --- reading a local text file

What do you get if you run this script? #!/usr/bin/perl -w use strict; my $data = "data.txt"; print `ls -l $data`; __END__ -Michael >>> David Gilden <[EMAIL PROTECTED]> 03/18/03 10:36AM >>> > But what directory were you in when you ran the program? That's a lot > more important than where

Re: networking with perl

I am doing something similar, but on a smaller scale. My lifeboat is the book Perl by Example by Ellie Quigley. One of the best investments I ever made in a book. (The Bible was best, but that's a diferent topic.) In that book she outlines how to open a socket and pass info back and forth. It

When to use ( and when to use ((?

I'm just not getting it. When do you use ( in a statement, when do you need to use ((, and is the space after either or both mandatory? For example, I coded this statement: if (( $_ eq $bad_guys_ip )) { more_stuff_here }; Why the two (( in an if? And why does it seem to not work when I miss th

Re: Linux Perl Editor

Try EditPad Pro. The author has now ported his wonderful Windows text editor to *nix and added some nice features. http://www.editpadlite.com/editpadpro.html -Michael >>> Francesco del Vecchio <[EMAIL PROTECTED]> 03/13/03 04:42AM >>> Is there a perl Editor for linux? (except EMACS) Francesco

Re: try to install HTML:Template

Won't this work? perl -MCPAN -e 'install HTML::Template' -Michael >>> Xiongfei Wang <[EMAIL PROTECTED]> 03/11/03 08:35AM >>> I have redhat 7.3, when i tried to install HTML::Template I got following error msg. what should i do? do i need to type something after "cpan>" **

Re: Handling race conditions

Hmmm... Please allow me to combine two different sub-threads. >>> simran <[EMAIL PROTECTED]> 03/07/03 12:02AM >>> On Fri, 2003-03-07 at 13:51, R. Joseph Newton wrote: > Wiggins d'Anconia wrote: > > > > > In general this would be handled with a lock file. When the first > Good idea, but I thi

Handling race conditions

Greetings, all! I have a mail server with swatch examining the log files looking for root.exe, /winnt/system32, etc. The idea is finding anyone who is scanning for root kits on my mail server gets blocked at the mail server and the firewall with an iptables command. What I have is swatch executi

Re: reading from a pipe

Try something like open (PIPE, "awk '{print $1}' somefile"); and just run the perl script. -Michael >>> Bryan Harris <[EMAIL PROTECTED]> 02/21/03 02:41PM >>> I'm writing a simple script (qstat) to sum, count, and average whatever stream of numbers the user throws at it. It loops through @ARGV

Re: Top Posting Preferences (was navigate the directories)

Give me top-posting any day! I can sort by thread and read an entire discussion without paging down once. Personal preference, of course. -Michael >>> "Rob Dixon" <[EMAIL PROTECTED]> 01/09/03 09:52AM >>> Hi John, all "John W. Krahn" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:

Re: simple string parsing

Ellie Quigley's Perl by Example is fantastic. >>> Robert Boardman <[EMAIL PROTECTED]> 12/27/02 11:50AM >>> Thank you to everyone I now have a much better understanding of parsing lines, Robb PS could you recommend any good starter perl books? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For a

Hooking a perl script to xinetd

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 script to use xinetd instead. That way the tcp daemon will launch it when needed and l

RE: Compare script fails (Solved!)

OOKFOR/i ) { $FOUND = 1; } Hope this helps! Samir -----Original Message- From: Michael Weber [mailto:[EMAIL PROTECTED]] Sent: Thursday, December 05, 2002 12:03 PM To: [EMAIL PROTECTED] Subject: Compare script fails I am writing a script to check email functionality by sending a test mess

Compare script fails

I am writing a script to check email functionality by sending a test message to an account that forwards it back to a pop account. I cannot seem to get the script to match the expected subject lines with what was received. No matter what I do, it never shows a match. Any ideas? Here's the subro