RE: Mojo Mail help?
Title: Message Have you tried http://www.mojohelp.com/forums/ ? -- Mark Thomas [EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; -Original Message-From: Mark G. Franz [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 20, 2003 1:07 PMTo: [EMAIL PROTECTED]Cc: [EMAIL PROTECTED]Subject: Mojo Mail help? I installed Mojo List Mail, http://mojo.skazat.com/, on a LINUX box at a customers a few weeks ago and found it excellent for my needs, now I want to set it up on my Win32 servers but cannot get it to go. The support pages are vague and not very helpful... Has anyone been able to get it running on a Win32 server? And if so, can you lend a helping hand as to what needs or details are necessary to implement the product? Thanks, Mark
RE: Technical Arguments for using Perl in a web environment...
James Tillman wrote: > Basically, any organization considering using Java as a > development platform is going to want Perl as a sidekick, > because who wants to write a Java class for every stupid > little thing you need to do? Perl's great at stupid little things :-) This is an excellent point. In any standardization process, there should be a category for scripting language. In other words, what do you use to automate simple tasks and perform sys-admin type things? Shell scripting? not cross-platform. VB? likewise. Once the need for a scripting language is acknowledged, it is easy to argue for Perl. Not a single other language has the equivalent productivity-boosting of CPAN. For some tasks, Perl is 100x more productive than _anything_ else. I have many examples, just ask! :-). -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Technical Arguments for using Perl in a web environment...
That's interesting, since I'm working in one of your agencies
(http://www.bls.gov/), and Perl is definitely critical for producing the
site. If that didn't make it up to DOL, they've asked the wrong people here.
Obviously, we should talk offline. But I'll state a few things:
1. Getting rid of "CGI technology" is a valid thing to do. This doesn't mean
getting rid of Perl. You can write CGI programs in C and Java. Therefore,
Perl is miscategorized.
2. From what you've quoted below, "resource intensive" is the sole reason
given against Perl, but that can be shown not to be true since they are
basing that on CGI.
3. Despite what I said above, poking holes in the argument (even though it
would be Swiss Cheese) is usually not the best approach, as it puts people
on the defensive. It's best to construct arguments based on facts that
directly refute their assumptions. For example, you can load test an
apache/mod_perl app against the equivalent app in Java. This is likely to
show Perl being faster, and, rather than use the arguments to recommend
removing Java they will probably retract the arguments. :-) Of course, this
is all assuming there is no political or personal agenda involved, a big
assumption.
--
Mark Thomas[EMAIL PROTECTED]
Internet Systems Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -Original Message-
> From: Anthony Rosati [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 23, 2003 10:14 AM
> To: [EMAIL PROTECTED]
> Subject: Technical Arguments for using Perl in a web environment...
>
>
> My Fellow Perl Colleagues,
>
> My name is Tony - I'm the contract lead that supports the US
> DOL website
> (http://www.dol.gov/). We have been using Perl to do various
> jobs (from CGI
> apps in the early days, to myriad little backend jobs today)
> since the
> inception. Now the CIO's office, as part of a Technical Std's
> building
> process, has targetted Perl for removal as a "legitmate" web
> technology,
> since they have crudely lumped it into the category of a
> "CGI" technology
> that is wasteful and burdensome on server resources.
>
> I am trying to write a response to this, and would love your
> collective
> help. Here is the argument written in the summary sheet that
> the CIO's
> office is using to encourage removal of Perl for US DOL web site
> development:
>
> "Usage: A large number of agencies use this standard.
> Technical: PERL is a legacy tool which is easily replaced by
> J2EE or .Net
> functionalities. PERL is very resource intensive as compared
> to other
> competing technologies. This makes cross-agency applications
> harder to
> develop and manage to scale (see attached sheet for further details)
> Criticality: Less than half of the agencies that use this
> standard consider
> it to be critical."
>
> [There was no "attached sheet" when this information was distributed.]
>
> I already have a base document outlining how Perl comes in a
> webserver
> threaded model ("mod_perl" for Apache) as well as how
> PerlScript is designed
> to work within Active Server Pages. I also have in this base
> document how
> Perl, like .NET and J2EE, is compatible and felxible to work
> within Web
> Services, XML and other scalable infrastructures. In
> addition, I point out
> how Perl is excellent as a scripting replacement language on
> the server
> console for all OS platforms, particularly back-end
> work/process that are
> not web server related. I also want to include something
> about PerlIS (but
> frankly don't have enough experience about it). Despite all
> this effort, I
> feel this document needs more reinforcement, and as such, I
> am hoping that
> this august body of sages can provide additional & even
> superior amunition
> for my document, so that the logic of retaining Perl is
> irrefutable to the
> bureaucrats within DOL.
>
> You may reply directly to me ([EMAIL PROTECTED]) or to the
> listserv.
>
> Thanks in advance for all your (collective) help!
>
> Regards,
>
> Tony Rosati
> "Fix the problem, not the blame."
> - old Japanese adage
>
> _
> Help STOP SPAM with the new MSN 8 and get 2 months FREE*
> http://join.msn.com/?page=features/junkmail
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Remote executing a script using perl
> Is it possible to execute a script remotely on another PC from a perl > script. If so what must I use to accomplish this task > Ronald There are many, many ways to do this. You really should be more specific about your needs. Is this communication between two large systems where you would like to future-proof it with standards-compliance and maintainability? Use the SOAP modules. Is this a simple, scratch-an-itch type need where both systems are on a protected network (ie behind a firewall)? You could use Net::Telnet or LWP::Simple and a CGI script. Is this over the internet or on an unprotected network? You could use Net::SSH or LWP over HTTPS. Also, you could create your own protocol and write your own client/server programs using modules like Net::Server and/or IO::Socket. -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: RE: Win32::AdminMisc module on linux
Kavita wrote: > Actually my problem is that i wanna put up one website on > intranet.In which i wanna authenticate intranet's users to NT > Domain Controller(PDC).Also i wanna get rights of users on > shared folders.And also wanna display those files and folders > web-based. I have tred ur Win32::AdminMisc module for > authentication to NT,but only on WIN32 platform. But my > webserver is on Linux-7.2.so,i cant install this module on > Linux. Do you have any alternatives for this?? Its very > urgent to me.So,if possible give me some solutions. Since you're looking for a solution on Linux, perhaps the best place to ask would be on the Perl-Unix-Users mailing list. I have taken the liberty of cross-posting in case there are additional insights by anyone who may have done this. I personally haven't, but I'll try to help. I assume you'll be using Apache as your linux web server. There are apache modules that can do NTLM authentication. One is Apache::AuthenNTLM, I believe. Search CPAN for it. There are a few standalone authenticators too (two are Authen::NTLM and Authen::Perl::NTLM). Samba is another potential solution--if you're not familiar with Samba, it is a full-featured NT Server and client for Linux. There are also many options if you want to go the LDAP route. The "rights of users on shared folders" is unclear... are you talking about permissions of directories served by the web server on the Linux machine? Or are you talking about connecting to remote NT machines from Linux and querying rights? If it is the latter, I believe Samba is the only option. -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Can pack do what I want?
Justin wrote:
> You'll forgive me, I graduated in Triple E, so I'm
> not sure of what I mean, but I do know what I need.
Well I'm a Double E, so you're one E up on me!
> So question is, if this string was packed with pack in Perl
> would it be
> interpreted by the hardware that it's pumped into in the same
> way that the resultant compiled Pascal output would?
Rephrased question: Can perl produce the same binary file that
the Pascal program did, using pack()? Answer: yes.
> If it helps any here's a sample Pascal line that gets compiled:-
>
> write ('@@@FF1');
>
> The resultant compiled output is a binary file which
> doesnt display correctly when pasted in this e-mail.
But in order for us to provide more help, we'll need to know
precisely what output you need. Can you supply a hex dump of the
output of the above command? The input string doesn't seem to be
hex, and also you haven't said if the system is big-endian or
little-endian with respect to byte order.
--
Mark Thomas |_|
Internet Systems Architect-+-
User Technology Associates, Inc. |
[EMAIL PROTECTED] /-\
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Excel to html format
I will second the motion for Spreadsheet::ParseExcel. I have been working with statistical tables lately and have built a set of modules that takes Excel files as input and outputs valid XHTML 1.0 tables that are ADA Section 508 compliant. Recent versions of Spreadsheet::ParseExcel have worked flawlessly. An added advantage is that it is pure Perl, so having Excel on the machine is not necessary. I currently run mine on Solaris. -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Random numbers
Title: Message Personally, I like to use Crypt::GeneratePassword. You can create passwords that are longer, yet easier for users to remember and less likely to be written on a Post-it on their monitor. -- Mark Thomas [EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; -Original Message-From: Krishna, Hari [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 29, 2002 12:48 PMTo: 'FARRINGTON, RYAN'; [EMAIL PROTECTED]Subject: Random numbers Hi friends, I want to generate some 1000 or more passwords for some NT machine. I should be able to generate an 8 digit alphanumeric random numbers from the list of characters. Say I have 3 strings... First string : 0 - 9 numbers Second string : A - Z characters Third string: a - z characters. Now I should be able to generate strings like: "abCd16Sz" "U8Yb90vc" "Nt7gO0PL" something like that. Is there a way to generate such kind of random numbers 8 characters long??? I saw in a bok that there is a module in PERL MATH::TrulyRandom but I am not sure if it helps. I will keep trying. any inputs appreciated. Hope I can get some help. Thanks and Regards, Hari.
RE: A regular expression question
Cai_lixin wrote: > I want to get the comment after # of each line(not including > "#"), how could I do this? Depends. If you might have a # in a command, you'll want everything after the last #. If you're more likely to have another # in a comment, you want everything after the first #. (if you wanted to handle the situation where there could be an embedded # in both the command and the comment, then it gets a little more complicated) For last #: $comment = (split /#/, $line)[-1]; or ($comment = $line) =~ s/^.*#//; For first #: $comment = (split /#/, $line, 2)[1]; or ($comment) = $line =~ s/^[^#]*#//; Notes: Be sure to chomp() the line if you don't want the newline. There are also ways to do this that do not involve regexps. -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Regualr Expression
> oops, do that and you'll confuse it. swap that for > > $dir=~s'\'/'g; #not interpolated with single quotes Huh? I've never heard of that. It doesn't work for me either. What version of Perl are you using, and where is this documented? -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Compare dates question
> I like this idea, but the only problem is that it is set to
> 30 days no
> matter what. The date 05/27/2002 runs up on 06/26/2002.
> Exactically 30 days
> later. I was hoping to set it to the exact date from month to
> month. Like
> the start date is 05/27/2002 the end date would be 06/27/2002.
Well, that's not much different, really. Just keep the day before converting
to epoch time.
my ($month,$day,$year) = (5,27,2002);
my $tl_year = $year-1900;
my $tl_mo = $month%12;
$tl_year+=1 unless ($tl_mo);
if (time - timelocal (0,0,0,$day,$tl_mo,$tl_year) > 0) {
print "Your time is up\n";
} else {
print "You're OK\n";
}
--
Mark Thomas[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n",
" "x(38-$r+++($c=0))if($c>
$r);print~$r&$c?
" `":" #"
;}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Using qw(....) on data from database.
I think what you want is
push @nums, qw($nums);
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 12:15 PM
> To: [EMAIL PROTECTED]
> Subject: Using qw() on data from database.
>
>
> I'm using.
>
> while(($nums) = $sth->fetchrow_array) {
>
> print $nums;
> }
>
> This will give me "01 02 03 04"
>
> I want to push this into an array.
>
> push @nums, $nums;
>
> But I want the result of
>
> @nums = qw(01 02 03 04);
> The same as:
> @nums = ('01', '02', '03', '04');
>
> How do I get this? I have tried "and I know this is wrong"
>
> push qw(@nums), $nums; # This of course errors.
>
> I think you get what i'm trying to do.
> Thanks in advance.
> Allan
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl syntax check without using "perl -c"
Actually, that didn't work quite like I thought it did. The output was of
course going to stderr and wasn't captured by the $output variable.
> -Original Message-
> From: Thomas_M [mailto:[EMAIL PROTECTED]]
> Sent: Friday, May 10, 2002 10:47 AM
> To: 'Tillman, James'; [EMAIL PROTECTED]
> Subject: RE: Perl syntax check without using "perl -c"
>
>
> > Oops, sorry, I should have specified that I don't want the
> > perl code to actually run in any context, especially that of
> > my own program. I just want the syntax checked as in "perl -c".
>
> $code = q($a=5; print a++);
> $output = `perl -ce $code`;
>
> # output:
> # syntax error at -e line 1, near "++;"
> # -e had compilation errors.
>
> Works in the simple case above. If you have more complex
> code, it may be easier to use a temp file.
>
> --
> Mark Thomas[EMAIL PROTECTED]
>for($r=-1;$r!=38;$c++){print"\n",
> " "x(38-$r+++($c=0))if($c>
>$r);print~$r&$c?
>" `":" #"
> ;}
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl syntax check without using "perl -c"
> Oops, sorry, I should have specified that I don't want the
> perl code to actually run in any context, especially that of
> my own program. I just want the syntax checked as in "perl -c".
$code = q($a=5; print a++);
$output = `perl -ce $code`;
# output:
# syntax error at -e line 1, near "++;"
# -e had compilation errors.
Works in the simple case above. If you have more complex code, it may be
easier to use a temp file.
--
Mark Thomas[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n",
" "x(38-$r+++($c=0))if($c>
$r);print~$r&$c?
" `":" #"
;}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: XMl convertion quickie.
I'm not an expert in this area, but I've always assumed that AxKit
(www.axkit.org) was as good as the Java XML/XSLT solutions. AxKit is now an
official Apache Software Foundation project. The first sentence of the
feature list is "XSLT based pipelined XML transformations."
If there are specific drawbacks to AxKit, I'd like to know what they are.
--
Mark Thomas[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n",
" "x(38-$r+++($c=0))if($c>
$r);print~$r&$c?
" `":" #"
;}
> -Original Message-
> From: Lee Goddard [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, May 07, 2002 8:33 AM
> To: Martin Moss; ''ActiveState's Perl Win32 Users list' '
> Subject: Re: XMl convertion quickie.
>
>
>
> XSLT.
>
> On Java
>
> Okay, I'm OT now, sorry, but unless things have picked
> up in the past six months (I'm sure they have) I'd never
> recommend Perl for XML conversion.
>
> lee
>
> At 12:23 07/05/2002 +0100, Martin Moss wrote:
> >All,
> >
> >just a quickie, any recommendations for converting from one
> XML doc to
> >another?
> >
> >regards
> >
> >Marty
> >
> >___
> >Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> >To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
> Lee Goddard
> perl -e "while(1){print rand>0.5 ? chr 47 : chr 92}"
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl from CD?
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] wrote:
> What I really dont get is how can I run Perl from the CD. Is
> there a way to install a Web server on a CD or make a perl
> freestanding exe file that runs from the CD that is not in a
> DOS format?
Yes. It's in the FAQ.
--
Mark Thomas[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n",
" "x(38-$r+++($c=0))if($c>
$r);print~$r&$c?
" `":" #"
;}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Why my boss doesn't want Perl...
Your team needs to write GUI apps in a Windows environment, automating MS
Exchange Server and Lotus Notes using OLE?
There are many places in which perl is the best tool for the job, but I have
to say, this isn't one of them. In this forum I'll probably catch some flak
for saying this, but I'm siding with your boss on this one.
--
Mark Thomas[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n",
" "x(38-$r+++($c=0))if($c>
$r);print~$r&$c?
" `":" #"
;}
> -Original Message-
> From: macnerd [mailto:[EMAIL PROTECTED]]
> Sent: Friday, April 26, 2002 2:32 PM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: Why my boss doesn't want Perl...
>
>
>
> Hi all.
>
> I am a QA tester at some company in the valley. I like using
> open source tools, but I might not be able to do this at work
> for many reasons.
>
> We do automation of Microsoft Exchange Server, which will
> grow to include Lotus Notes server as well in the future. I
> created a quick batch of tools in VBA to automate some
> Outlook automation, and then I ported them to Perl. Others,
> took my VBA scripts and make these nice GUI interfaces using
> Visual Basic environment. Now, it seems the team is leaning
> towards Visual Basic.
>
> My boss's idea is that with VB, nothing is required. Other
> engineers will not be required to installed Perl in order to
> run the scripts. Whereas, VBA can run on any Windows
> environment, as everyone will have MS Outlook.
>
> We want to standardize on one language in order to avoid a
> nightmare of different languages, and not having the time to
> have QA engineers to learn different languages and libraries
> just for a specific tool. Now, we have tools in Python,
> shell scripts, VBA, C/C++, and Perl. From what I gather,
> we'll most likely go to VB.
>
> From my perspective, I would rather go to Perl because Perl
> can access OLE Automation just as well as any other language,
> and integrate C/C++ libraries if needed, has many libraries
> available for it (mileage varies naturally), and is more
> portable than VBA (UNIX and Windows).
>
> There are some concerns though.
>
> For one, everyone has their favorite modules and such, and
> these require some time to research and install. Many
> modules require modules, which require modules, which require
> modules... Seeing how just installing freakin' Perl on a
> machine is a problem, I cannot imagine requiring installing
> other libraries/modules...
>
> In the VB IDE, is really super powerful, Microsoft examples
> are in VB (from both the internet and online-docs), and it's
> easy to step through the code. I tried programming OLE
> Automation with Komodo, and it isn't easy. Do to unforeseen
> problems, I cannot view all of the OLE Automation variables
> in Komodo when stepping through code. Sometimes I have to go
> to some VB IDE, look and the objects and how data is
> manipulated, and then take that understanding/code snippets,
> and port it to Perl. I'm wondering myself, why am I wasting
> time to create my Perl code conceptually in VBA.
>
> Another co-worker's knowledge is growing leaps and bounds
> with VB. He grew from my code snippets to the point of
> creating interfaces and learning about a plethora of rich
> untapped power of many OLE libraries from everything from XML
> to serial capture... It integrates so well with Office
> applications, and he can figure out stuff really quickly. I
> feel like I am handicapped with Perl in doing the same chores... :-<
>
> Lastly, there is the costs. Because of MSDN and site
> licenses already available, VB costs my group nothing.
> However, Komodo would cost my group $200 per engineer that
> needs to use it. Also, if I got ActivePerl Pro, then that
> would cost $500.
>
> There's also costs of maintenance. There's a chance the even
> novice users can learn VB, but with Perl, it proves more
> difficult. (Especially going through multiple references of
> hashes and arrays :)
>
> So, how can I justify Perl? Please, no your co-workers are
> morons or your boss is stupid comments. I against Osborne
> reasoning won't allow me to use Perl in the workplace...
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: reverse of substr?
Matthew Musgrove [mailto:[EMAIL PROTECTED]] wrote:
> #!/usr/bin/perl -w
> use strict;
>
> my $string="some text. and some more here";
> my @integers = (1, 12, 123, 1234, 12345, 123456, 1234567,
> 12345678, 123456789, 1234567890);
>
> foreach my $integer (@integers) {
> my $len = length($integer);
> if ($len < 10) {
> for(my $i = $len; $i < 10; $i++) {
> $integer = " ".$integer;
> }
> }
> my $newstring = substr($string, 0, 15) . $integer . " "
> . substr($string, 15);
> print "$newstring\n";
> }
You don't need the for loop. This is simpler:
foreach my $integer (@integers) {
my $newstring = substr($string, 0, 15) . " " x (10-length($integer))
. $integer . " " . substr($string, 15);
print "$newstring\n";
}
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: pattern match timeout error using Net::Telnet
You don't need to waitfor() the prompt. Just use cmd() and Net::Telnet will
automatically stop reading at the prompt. The prompt will not be included in
the return value of cmd().
This, of course, assumes you've specified the prompt correctly. If this is
your problem, you can use the nice debugging features to help you track this
down.
--
Mark Thomas
[EMAIL PROTECTED]
for($r=-1;$r!=38;$c++){print"\n"," "x(38-$r+++($c=0))if($c>$r);print~$r&$c?"
`":" #";}
> -Original Message-
> From: Allegakoen, Justin Devanandan
> [mailto:[EMAIL PROTECTED]]
> Sent: Friday, April 12, 2002 6:06 AM
> To: '[EMAIL PROTECTED]';
> [EMAIL PROTECTED]
> Subject: pattern match timeout error using Net::Telnet
>
>
> Hello all,
>
> I'm using the Net::Telnet module on a SunOS based
> system to run a program that resides on a
> Windoze 2k server.
>
> By use of the log, I have determined that
> connection, and login are fine.
>
> But I keep getting a pattern match timed-out error.
>
> According to the Help, it relates this to
> matching the prompt and it states: "If the pattern chosen
> doesn't match what's sent, then it's likely those commands
> will timeout. "
>
> On a manual telnet session the command prompt is:-
> C:\>
>
> In my program I set my prompt as :-
> $obj->prompt('/C\:\\\>$/');
>
> I follow that by :-
> $obj->waitfor('/C\:\\\>$/');
>
> And there's where it times out.
>
> Funnily enough if I remove the anchoring $ in the search
> pattern the rest of the program will work, and the log will
> even have the return of the command executed, but output from
> the command won't go into the array I put it in (I get a 0
> element array instead).
>
> Obviously $obj->prompt needs a search pattern that works for
> the rest of the program to. Question is what is the search
> pattern I need?
>
> Oh, and using quot in Net::FTP doesnt work either.
>
> Just in
>
>
>
>
>
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: waitfor in telnet module
Are you SURE there is exactly one space character after "(y/n)" ? Followed
by a carriage return?
If not, you'll need to change your regex.
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -Original Message-
> From: Miguel E. Guajardo [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 10, 2002 7:30 PM
> To: [EMAIL PROTECTED]
> Subject: waitfor in telnet module
>
>
> Hello all again,
>I am trying to use the waitfor function in the Net::Telnet
> module but I
> am not seeming to have much success.
> here is my test script...
>
> #!/usr/bin/perl
> use Net::Telnet;
> my $telnet = new Net::Telnet ( timeout=>15,
> Errmode=>'die',
> Prompt=>'/ $/i');
>
> # open connection to Avalon Host
> $telnet->open('10.72.4.44');
>
> # set log files for input and output
> $telnet->input_log('input_eject.log');
> $telnet->output_log('output_eject.log');
>
> # login in to Avalon
> $telnet->login('x', 'x');
>
>
> # test processing
> $telnet->cmd('tapeeject 00');
>
> $telnet->waitfor('/(y\/n) $/');
> $telnet->print('y');
> print "Printing Yes";
>
> $telnet->close('10.72.4.44');
>
>
> the results of my input & output log files are as so...
> input...
>
>
> SunOS 5.7
>
>
>
> login: maint
> Password:
> Last login: Thu Jan 10 16:14:04 from 10.72.2.127
> Sun Microsystems Inc. SunOS 5.7 Generic October 1998
> tapeeject 00
>
>
> About to eject 1 tape: 00
>
> Current Status of Tape
> --
> TapeID : 00
> Available : YES
> MediaType : 9840
> GroupID : BRKTHRU
> Instance: 1
> Used Blocks : 65411
> Last Block Written : 67458
> Freepool when empty : Yes
> Status : Inactive
> Flagged for Repack : NO
> Current Write Tape : YES
> Location: IN LIBRARY
> Library Name: The Main AAM Library
>
> Are you sure you want to eject tape 00? (y/n)
>
>
> and the output is such.
> output...
> ÿüÿü ÿü#ÿü'ÿü$ÿýÿýÿüx
> x
> tapeeject 00
>
>
> I am telneting to a Sun Workstation and have tried every
> possible fashion
> to get the waitfor to work. I have read the docs and have
> followed every
> example and have made some Net::Telnet examples work that
> connect to other
> machines. I am wondering if it can be the Sun and if any one
> else has had
> similar problems or if anyone can see something blindingly
> stupid that I am
> doing, Thanks..
>
>
>
>
>
>
>
>
> Are you sure you want to eject tape 00? (y/n)
>
> Miguel (Mike) E. Guajardo
> KERA / KDTN Engineering
> 3000 Harry Hines Blvd.
> Dallas, Texas 75201
>
> Phone : 214-740-9313
> [EMAIL PROTECTED]
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: SMTP Server requires authentication
> -Original Message- > From: Riva S [mailto:[EMAIL PROTECTED]] > Sent: Monday, January 07, 2002 2:13 PM > To: [EMAIL PROTECTED] > Subject: SMTP Server requires authentication > > > Using Mail::Sender, I get "Server error: 505 Authentication > required" when trying to send email, which I understand to > mean that my SMTP Server requires authentication. > > After searching and finding nothing positive on this issue, I > was wondering about the final word on this: can I use Perl to > send mail if my SMTP server requires authentication? If so, > how? (Just point me to a good resource if it's too detailed > to explain). OK, here's the RFC. Most likely your SMTP server follows this specification for SMTP AUTH. ftp://ftp.isi.edu/in-notes/rfc2554.txt That being said, the Net::SMTP module supports plaintext authentication. I do not know if other modules support authen- tication, as I have never had a need for it. If your server requires some other kind of authentication (like MD5), you may have to roll your own solution with IO::Socket :( -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Scrolling text - new question
Did you try tkweb, one of the Perl/Tk sample apps? > -Original Message- > From: Martin Moss [mailto:[EMAIL PROTECTED]] > Sent: Thursday, December 06, 2001 6:11 AM > To: Perl-Win32-Users Mailing List > Subject: RE: Scrolling text - new question > > > All, > > after some excellent help from Ron Hartika and a few others, > I need some > further advice from you all. > Is it possible to write a TK app that contains a browser > window that I can > write html to. > > Not just because I could do the scrolling text in javascript > and it would be > less jerky, but also because I may need to display html documents, but > specifically without opening a seperate browser. > > Regards > > Marty > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Time to Garbage Collect Out of Scope Hashes
> What's surprising here? [...] > Every call to Do_it after the first _should_ run slower than > the first. The surprising part (at least to me) is that the garbage collection takes longer than filling the hash in the first place. Since this doesn't happen with earlier versions of perl, that makes it look like some sort of missing optimization. -- Mark Thomas [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Read on a file the last lines
>From CPAN
(http://www.cpan.org/modules/by-module/File/File-Tail-0.98.readme):
The File::Tail module is designed for reading files which
are continously appended to (the name comes from the tail -f
directive). Usualy such files are logfiles of some
description.
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -Original Message-
> From: Jorge Goncalvez [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 15, 2001 4:14 AM
> To: [EMAIL PROTECTED]
> Subject: Re:Read on a file the last lines
>
>
>
> Hi , I made a Perl Tk program which could parse a log file it
> works but I wanted
> to improve my code with reading only the new lines I wanted
> to do a kind of Unix
> tail -f but I am under Windows I have this code:
> open INFILE, "< $_Globals{SYSLOG}" or die "Cannot open
> $_Globals{SYSLOG} for
> reading: $!";
> while () {
> chomp();
>
> /(DHCPDISCOVER) / && do {
> $_Globals{PROGRESS_VALUE} = 0.79;
> $_Globals{PROGRESS_STRING} = "DHCP_DISCOVER";
> label_percent();
>
> };
> /(DHCPOFFER)/ && do {
> $_Globals{PROGRESS_VALUE} = 1.58;
> $_Globals{PROGRESS_STRING} = "DHCP_OFFER";
> label_percent();
> };
> /DHCPREQUEST/ && do {
> $_Globals{PROGRESS_VALUE} = 2.38;
> $_Globals{PROGRESS_STRING} = "DHCP_REQUEST";
> label_percent();
> };
> /DHCPACK/ && do {
> $_Globals{PROGRESS_VALUE} = 3.17;
> $_Globals{PROGRESS_STRING} = "DHCP_ACK";
> label_percent();
> };
> /read request for/ && do {
> #i.e on a une requete tftpd
> $_Globals{PROGRESS_VALUE} = 3.96;
> $_Globals{PROGRESS_STRING} = "TFTPD";
> label_percent();
> };
> /ANONYMOUS FTP LOGIN FROM/ && do {
> #i.e on a une requete ftpd
>
>$_Globals{PROGRESS_VALUE} +=0.79;
> $_Globals{PROGRESS_STRING} = "FTPD";
>label_percent();
>}
>
>
> How can I do ?
> Thanks.
>
>
>
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: [PBML] Re: Regular expression needed
Jeffrey [mailto:[EMAIL PROTECTED]] wrote:
>
> Another method is to specify different delimiters for
> the match. This avoids LTS (leaning toothpick
> syndrome):
>
> m#^/bootp/linux/#;
> m%^/bootp/linux/%;
> m(^/bootp/linux/);
>
> Each of the lines above are equivalent -- they're also
> equivalent to /^\/bootp\/linux\//;
No one mentioned this: /^\Q/bootp/linux/\E/;
also equivalent, but has an advantage when doing things like this:
$skipdir = '/bootp/linux/';
while () {
next if /^\Q$skipdir\E/;
...
}
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Exception handling in Perl
If you'd like try/catch semantics, they are implemented in Error.pm. Of
course you could do it yourself too:
sub try (&$) {
my($try, $catch) = @_;
eval { &$try };
if ($@) {
local $_ = $@;
&$catch;
}
}
sub catch (&) { shift };
# example
try {
$dummy = $] / ($] - $]);
print "\$dummy = $dummy\n";
}
catch {
/division by zero/ and print "Caught:\n\t$_\n";
}
__END__
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -Original Message-
> From: Lee Goddard [mailto:[EMAIL PROTECTED]]
> Sent: Friday, September 28, 2001 7:25 AM
> To: Perl Users
> Subject: Exception handling in Perl
>
>
> Just found a need for exception handling on a big
> live project with an potentially nasty PM. Does anyone
> have any experience of the Exception modules? Any good?
> Bad? Better ideas?
>
> Your input would be much appreciated!
>
> tia
> lee
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Smartarse Unix Beardy Types...
Doesn't work using bash:
[root@linux]# perl -e "while (1){rand>0.5 ? print'\\' : print'/'}"
Can't find string terminator "'" anywhere before EOF at -e line 1.
#
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -Original Message-
> From: Rubinow, Larry [mailto:[EMAIL PROTECTED]]
> Sent: Friday, June 22, 2001 9:57 AM
> To: 'Lee Goddard'; Perl Users
> Subject: RE: Smartarse Unix Beardy Types...
>
>
> Lee Goddard wrote:
>
> > ..are causing me greif over my brand-new .sig:
> >
> > Obligatory perl schmutter .sig:
> > perl -e "while (1){rand>0.5 ? print'\\' : print'/'}"
> >
> > It don't run on their old-fashioned nuclear-reactor,
> > reliable machines because I'm using the Windows " not
> > the Unix ` to quote the -e string.
> >
> > Is their a cross-platform alternative?
>
> Huh? Double-quotes should work fine on most, if not all,
> Unix shells. -e
> examples in the Camel use them.
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: [Perl-unix-users] Login Security
Jenda Krynicky wrote: > I think you misread the original post. Byron Wise says: > > > Recently my company decided to put their login on the main > > page. This main > > page isn't secure. However the action attribute of the form > > tag does point > > to a secure cgi script that handles the username/password. > > What security > > risks if any are there with having this form on a non secure page? > > So the username and password WILL BE USING a secure connection. You're right. > And the fact that the login page is not downloaded via SSL is IMHO > totaly unimportant. Well, there is a difference as far as the browser's security sandbox. Non-SSL pages are more vulnerable to Javascript history/cache/frame type attacks, aren't they? Probably just have to be a bit more careful about how the login page is accessed. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: malformed header from script error
> print "HTTP/1.0 200 Okay\n"; > #print "Content-Type: multipart/x-mixed-replace;boundary=myboundary\n\n"; > print "--myboundary\n"; You forgot to comment out the above line. That should fix it. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: OT:Windows Me vs Windows 98 SE
Any of the newer ones with kernel >= 2.4 and Xfree >= 4.0.1. I like Mandrake 7.2. Check out the little demo: http://www.linux-mandrake.com/en/demos/Demo/Mandrake7.2/QuickLook/ For those of you who haven't seen Linux in a while, the above will open your eyes. - Mark. > -Original Message- > From: Lee Goddard [mailto:[EMAIL PROTECTED]] > Sent: Monday, April 02, 2001 2:34 PM > To: [EMAIL PROTECTED] > Cc: Michael Marziani; 'Michael L. Semon'; 'Perl-Win32-Users' > Subject: Re: OT:Windows Me vs Windows 98 SE > > > > Um, yes way past it's bedtime, I guess > At risk of getting really OT, if anyone can recommend > a good Linux with UDMA66 and nVidia support. > > lee > > At 14:21 02/04/2001 -0400, [EMAIL PROTECTED] wrote: > > >Really? > > I'm running on a 400 MHz PIII w/ 196 MB RAM without much problem. > > > >You're not doing anything silly like keeping it up > overnight, are you? > > > > > >Regards, > >Ian > > > > > > > > > >To:Michael Marziani <[EMAIL PROTECTED]>, > "'Michael L. > >Semon'" > ><[EMAIL PROTECTED]>, "'Perl-Win32-Users'" > ><[EMAIL PROTECTED]> > >cc: (bcc: Ian Stewart/Great Lakes/AirTouch) > >bcc:Ian Stewart/Great Lakes/AirTouch > > > >Subject:OT:Windows Me vs Windows 98 SE > > > > > > > >[IMAGE] > > > >FWIWnot wishing to propagate OT ;) > > > >392,692 KB RAM here, and sitll find everything really slow > >- on a PIII 500 Win98(se) was certainly faster. > > > >Lee > > > > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Regular Expression questions
Lee Goddard [mailto:[EMAIL PROTECTED]] wrote: > At 17:31 27/03/2001 -0600, Walter Torres wrote: > >Also, some wrote this... > > s/.(?=)/*/g; > > > > > > s/ # substitute > > . # anything ?? > > (?=) # but the last 4 > > /# delimiter > > * # replacment character for each character > found above > > /gx # delimiter - globally > > > > > >Oh, please, please help this poor soul! > > (?=x) means 'where the regex engine would not match x', > where 'x' is a usual bit of regex (could be \w, for eg). No, that's not correct. (?=regex) is known as a "positive lookahead" assertion. I like to call it "followed by" because that's the way it works. The ".(?=)" means "any character followed by four more characters (at least)". Since this will not be true for the last four characters, they would not be replaced. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Code Beautifier?
I meant it's the coolest hack I've seen. But I should have mentioned that's it's not yet available. > http://www.consultix-inc.com/perl_beautifier.html > > (though I have to admit I haven't tried emacs) > > -- > Mark Thomas[EMAIL PROTECTED] > Sr. Internet Architect User Technology Associates, Inc. > > $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; > ;y;y; ;;print;; > > > > -Original Message- > > From: William Du Chene [mailto:[EMAIL PROTECTED]] > > Sent: Wednesday, March 07, 2001 2:50 PM > > To: perl-win32-users > > Subject: Code Beautifier? > > > > > > Hi list. > > > > Can anyone please point me in the direction of a utility, or > > a script, or > > something else that performs beautification on nightmare perl > > code? Prior to > > my arrival here, there were a couple of consultants that > > seemed to have > > thought that jamming 10 instructions per line in no > > particular format was > > cool. Maintenance is very difficult. > > > > Will > > > > ___ > > Perl-Win32-Users mailing list > > [EMAIL PROTECTED] > > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > > > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Code Beautifier?
This is the best I've seen: http://www.consultix-inc.com/perl_beautifier.html (though I have to admit I haven't tried emacs) -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; > -Original Message- > From: William Du Chene [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, March 07, 2001 2:50 PM > To: perl-win32-users > Subject: Code Beautifier? > > > Hi list. > > Can anyone please point me in the direction of a utility, or > a script, or > something else that performs beautification on nightmare perl > code? Prior to > my arrival here, there were a couple of consultants that > seemed to have > thought that jamming 10 instructions per line in no > particular format was > cool. Maintenance is very difficult. > > Will > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: I've sprung a Memory Leak!!
> It's a Linux process, but I've not had much luck with > response from the UNIX mailing list, You only waited 12 minutes. Did you mean the memory leak was your code or yourself? :) See my answer in the Perl-Unix-Users list; hopefully it'll help. - Mark. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: mail "smarthost" module for perl?
If you want an MTA written in perl, here's one: http://freshmeat.net/projects/perlsmtpdaemon/ However, It just sounds like you want to connect to a mail server for a given domain to check the connection. In that case, just (1) use Net::DNS to find the mail server for the domain (2) use Net::SMTP with the debug option or if you find that you need more flexibility, Net::Telnet to the SMTP port of the mail server and capture the responses you need. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: SMTP Issue
Dirk Bremer wrote:
> $SMTP = Net::SMTP->new('mailservername');
> $Result = $SMTP->mail('mailrecipient);
> $Result = $SMTP->to('mailrecipient');
> $Result = $SMTP->data();
> $Result = $SMTP->datasend("To: Dirk Bremer\n");
> $Result = $SMTP->datasend("From: Perl\n");
> $Result = $SMTP->datasend("Subject: Email from Perl\n");
> $Result = $SMTP->datasend("\n");
> $Result = $SMTP->datasend("A simple test message\n");
> $Result = $SMTP->dataend();
> $Result = $SMTP->quit;
>
> Where "mailservername" and "mailrecipient" have valid values.
> The script
> does send the email, but when viewing the email in Outlook
> Express, the To
> field says name@unspecified-domain.
Perhaps that's because you haven't specified a domain in the To field. In
fact, you haven't specified an address at all. Keep in mind that the
recipient and the To: header are different.
$Result = $SMTP->datasend('To: Dirk Bremer <[EMAIL PROTECTED]>');
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Expect and ppm?
Net::Telnet has the expect/send/expect features you're looking for and (1) it's a whole lot easier to use , (2) it's cross-platform, so it will work in Windoze. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; > -Original Message- > From: Will W [mailto:[EMAIL PROTECTED]] > Sent: Friday, January 26, 2001 2:34 PM > To: perl-win32-users Mailing List > Subject: Expect and ppm? > > > I think I can put Expect to good use on a set of problems > involving accessing a legacy database through a terminal > emulation package. Working with AS, build 623 > > But "ppm search Expect" comes up empty. Any ideas? (I'm not set > up for making modules). > > --Will > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Getting out of a for loop . . . .
[EMAIL PROTECTED] wrote: > Do you have a newline at the end of the file? > > Try adding the following line at the beginning of the for > loop to be sure > that there is some actual data there. > > next unless m/^\w+/;# Skip blank lines, or lines with just > whitespace. That won't work. Try this instead: next if /^\s*$/; -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Specifying plain text [was ...(ASCII PLS!)]
Martin Moss [mailto:[EMAIL PROTECTED]] wrote: > This would then stop the annoyance of users who send html > emails having to > constantly switch back to plain text just to post to this > newsgroup and then > switch back again afterwards? Unnecessary in Outlook (which I see you are using) and Outlook Express. You can specify mail format for specific addresses, such as plain text for [EMAIL PROTECTED] Then you don't have to do any switching. -- Mark Thomas[EMAIL PROTECTED] Sr. Internet Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Please unsubscribe trudolph@software-automation.com
And someone should notify software-automation.com that autoreplies to messages with the "Precedence: bulk" header is NOT appropriate! -- Mark Thomas [EMAIL PROTECTED] > -Original Message- > From: Martin Moss [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, October 17, 2000 5:45 AM > To: Dunnigan,Jack [Edm]; 'Philip Newton'; > '[EMAIL PROTECTED]' > Cc: '[EMAIL PROTECTED]' > Subject: RE: Please unsubscribe [EMAIL PROTECTED] > > > Yes I get it all the time too. > Most annoying. > Marty > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]]On Behalf Of > Dunnigan,Jack [Edm] > Sent: Tuesday 17 October 2000 10:37 > To: 'Philip Newton'; '[EMAIL PROTECTED]' > Cc: '[EMAIL PROTECTED]' > Subject: RE: Please unsubscribe [EMAIL PROTECTED] > > > Yes I get these everytime I mail the list. > > Although not often, it's very annoying. > > J. > > -Original Message- > From: Philip Newton [mailto:[EMAIL PROTECTED]] > Sent: October 17, 2000 2:52 AM > To: '[EMAIL PROTECTED]' > Cc: '[EMAIL PROTECTED]' > Subject: Please unsubscribe [EMAIL PROTECTED] > > > [sent both to the list and to the admins] > > Admins: Please unsubscribe [EMAIL PROTECTED] from > Perl-Win32-Users. I've mailed you about this several times, > which is why I'm > copying the list on this. > > Is anyone else getting messages like these? Or is it just me? > > --8<--8<--8<--8<--8<--8<--8<-- > Subject: Error delivering message to: [EMAIL PROTECTED]! > > Your message was not delivered for the following reason: > > E-mail Account: trudolph is over the limit of 31457280 bytes. > > Automated Postmaster > --8<--8<--8<--8<--8<--8<--8<-- > > followed by a copy of a message I sent to Perl-Win32-Users. I > seem to be > getting one of these for each message I send to Perl-Win32-Users. > > This user should probably be unsubscribed. His full address, > according to > the X-Rcpt-To: header in the message copy, appears to be > [EMAIL PROTECTED] . > > Cheers, > Philip > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
