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? Iinstalled 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...
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: 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: 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 useCrypt::GeneratePassword. You can create passwords that are longer, yet easierfor users toremember 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
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: 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: 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 rand0.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: 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: 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='/archive_maint $/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
archive_maint 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: 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: 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 (INFILE) {
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 (INFILE) {
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){rand0.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){rand0.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?
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: 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: 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: 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: 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: 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
