[29234] in Perl-Users-Digest
Perl-Users Digest, Issue: 478 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 2 00:09:52 2007
Date: Fri, 1 Jun 2007 21:09:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 1 Jun 2007 Volume: 11 Number: 478
Today's topics:
Re: Announcing: ACM SIGAPL APL2007 -- Arrays and Object <steve@shrogers.com>
Re: Can't locate object method "host" via package "URI: <bart.lateur@pandora.be>
Re: fork() and script execution afterwards <emschwar@pobox.com>
Re: fork() and script execution afterwards <bik.mido@tiscalinet.it>
Re: fork() and script execution afterwards <emschwar@pobox.com>
Re: Multiple Line Pattern Match problem <jgibson@mail.arc.nasa.gov>
Re: Parsing: Help on ignoring quoted tokens. <xicheng@gmail.com>
Processing a Computer List <shmh@bigpond.net.au>
Re: Processing a Computer List <veatchla@yahoo.com>
Re: Processing a Computer List <shmh@bigpond.net.au>
Re: Prototypes and anonymous subroutines <uri@stemsystems.com>
Re: Senior Perl developer position in Montreal, Canada <dha@panix.com>
Re: Solve a statistics problem <brundlefly76@hotmail.com>
using a remote smarthost to send mail from a perl scrip <bennett@peacefire.org>
Re: using a remote smarthost to send mail from a perl s <a24061@ducksburg.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 01 Jun 2007 15:23:38 -0700
From: Steve <steve@shrogers.com>
Subject: Re: Announcing: ACM SIGAPL APL2007 -- Arrays and Objects
Message-Id: <1180736618.716726.50820@q69g2000hsb.googlegroups.com>
On May 28, 4:54 am, Paul Mansour <p...@carlislegroup.com> wrote:
> Is the SigAPL conference going
> to be an officially co-located event with respect to OOPSLA?
Yes, it's on the ACM calendar. It should be on the OOPSLA colocated
events page soon.
# Steve
------------------------------
Date: Fri, 01 Jun 2007 17:35:46 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Can't locate object method "host" via package "URI::_foreign"
Message-Id: <q1m063t81stg94r2sn2l61dhqivdo9q6ue@4ax.com>
vkinger@hotmail.com wrote:
>Can't locate object method "host" via package "URI::_foreign" at
>PERL2EXE_STORAG
>E/Net/SDEE/Session.pm line 108.
>
>I get this error when I run ssss.exe file. My ssss.pl file works fine,
>this error pops up after I convert ssss.pl file to ssss.exe file using
>perl2exe utility. I am not sure what is wrong here. Any help will be
>greatly appreciated.
The reason is because the perl2exe comverter didn't include all modules.
Some modules are loaded in a non-standard way, and the perl2exe scanner
doesn't recognize them all. This must be the case here. There must be a
FAQ available on their website.
Anyway, try adding lines like
require URI::_foreign;
in your script, and this module will be added. Or, if it isn't found,
try to find what module file the package is in, and require that
instead.
--
Bart.
------------------------------
Date: 01 Jun 2007 10:04:00 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: fork() and script execution afterwards
Message-Id: <87myzjzmof.fsf@beorn.i-did-not-set--mail-host-address--so-shoot-me>
"Tom Storey" <tom@snnap.net> writes:
> "Sherm Pendley" <spamtrap@dot-app.org> wrote in message
> news:m2ps4g2nxz.fsf@local.wv-www.com...
> If you couldn't find the first sentence in the docs for the
> function you're using, you weren't looking very hard.
>
> I hadnt seen that particular piece of documentation.
That's unfortunate, since it's on your hard drive, and is a much more
authoritative source than guessing. :) If you're ever curious about
the behaviour of any Perl function, you have only to type
perldoc -f $function_name
at a command line, and there you go. If you're running Windows, there
are also nicely-formatted help files available from your Start menu,
but as I don't happen to run Windows myself, I can't direct you
further, except to note that all the Perl docs are there somewhere.
I urge you to become familiar with perldoc, in particular, you should
at the very least skim the output of
perldoc perltoc
and I would make time as soon as possible to read the FAQ sections
there, since it will be the most up-to-date and correct documentation
for the version of Perl on your hard drive. I know it seems like a
lot, but at least familiarizing yourself with what's in the FAQ lets
you search it first, which will not only be a lot faster than posting
to USENET and waiting for a reply, but will save you from annoying the
most helpful people on clpm, who are tired of being asked to read the
FAQ for someone else. :)
Perl's built-in documentation is really quite impressive; much better
than that of most other languages. You'd do yourself a real service
to become familiar with it.
-=Eric
------------------------------
Date: Fri, 01 Jun 2007 18:05:23 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork() and script execution afterwards
Message-Id: <8sg063t9o1vqdo1ihctmfc87v6n9eq9rjm@4ax.com>
On 01 Jun 2007 10:04:00 -0600, Eric Schwartz <emschwar@pobox.com>
wrote:
>authoritative source than guessing. :) If you're ever curious about
>the behaviour of any Perl function, you have only to type
>
>perldoc -f $function_name
>
>at a command line, and there you go. If you're running Windows, there
That's what I told him too. But OTOH
perldoc -f fork
refers to fork(2) and that is most probably not on his system if he
uses Windows.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 01 Jun 2007 12:20:12 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: fork() and script execution afterwards
Message-Id: <87fy5bzgdf.fsf@beorn.i-did-not-set--mail-host-address--so-shoot-me>
Michele Dondi <bik.mido@tiscalinet.it> writes:
> That's what I told him too. But OTOH
>
> perldoc -f fork
>
> refers to fork(2) and that is most probably not on his system if he
> uses Windows.
As that may be; however, it does explain the semantics well enough I
don't imagine one would need to read fork(2) for most purposes.
-=Eric
------------------------------
Date: Fri, 01 Jun 2007 09:27:16 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Multiple Line Pattern Match problem
Message-Id: <010620070927164318%jgibson@mail.arc.nasa.gov>
In article <1180675413.674067.327220@r19g2000prf.googlegroups.com>,
samuel <samuelzhng@gmail.com> wrote:
>
> I want to print out all the contents(the lines with or w/o dma) of the
> blocks containing the keyword dma. But for the blocks not including
> dma at all, not print out.
>
> So this is the distinction.
>
>
Your requirements keep changing. Please read the guidelines for this
newsgroup. It is time you wrote a short, complete Perl program that
attempts to do what you want. It probably shouldn't be a one-liner.
Include some test data (see the guidelines on how to use the <DATA>
file handle for including test data in your program.) People should be
able to cut-and-paste your program and run it on their own systems. If
you do that, someone will surely help you.
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Fri, 01 Jun 2007 16:49:31 -0000
From: Xicheng Jia <xicheng@gmail.com>
Subject: Re: Parsing: Help on ignoring quoted tokens.
Message-Id: <1180716571.007146.49990@m36g2000hse.googlegroups.com>
On Jun 1, 11:07 am, Xicheng Jia <xich...@gmail.com> wrote:
> On Jun 1, 1:30 am, paktsardi...@gmail.com wrote:
>
>
>
> > Hi all,
>
> > I am writing a (hopefully) simple parser to parse the contents of a
> > text file and turn it into some sort of html form. Here's a small
> > example:
>
> > forms.txt contains something like:
>
> > # Registration Form
> > registration {
> > numcols:2
> > [heading: Account Details] [ ]
> > [label:"User Name:"] [textbox:username:amcnab:mandatory]
> > [label:"First Name:"] [textbox:first_name:Andy]
> > [label:"Last Name:"] [textbox:last_name:McNab]
> > [label:"Password:"] [passbox:passwd::mandatory]
>
> > }
>
> > # Error form
> > error {
> > numcols:2
> > [heading:Explosion Error!][]
> > [label:"Vent Gas?:"] [select:vent:yes|no:no]
>
> > }
>
> > where:
> > [.*] denotes an html table cell.
>
> > Then, later in my perl code I want to be able to do:
>
> > show_form("registration"), or show_form("error") and have it render
> > the appropriateform layout.
>
> > Now, my question is: what is the best way to approach the parsing of
> > this file? Perhaps more importantly, how can i structure the file to
> > make the parsing as easy and practical as possible?
>
> I think your input data format is just fine, so:
>
> 1) use paragraph-mode to separate between tables, make sure no empty
> line within a single table block.
[..snip..]
> local $/ = "\n\n";
In fact, no need to use paragraph-mode to read your data, just set $/
= "\n}"; I guess this should work for you, just make sure the closing
curly bracket of any table blocks is the first character on a
line. :-)
>
[..snip..]
>
> ##### subroutines #####
> sub show_form {
> my $tbl = shift;
add at least this block:
if (not exists $tables{$tbl}) {
print "table '$tbl' not exists\n";
return;
}
> my @form = @{$tables{$tbl}};
> print "<table>\n";
> if (not ref $form[0]) {
> print " <caption>$form[0]</caption>\n";
> shift @form;
> }
> foreach my $row (@form) {
> print " <tr>\n";
> foreach my $col (@{$row}) {
> $col = ' ' if $col =~ /^\s*$/;
> my $var = mkCol($col);
> print " <th>$var</th>\n" if $row->[0] =~ /^heading:/;
> print " <td>$var</td>\n" if $row->[0] =~ /^label:/;
> }
> print " </tr>\n";
> }
> print "</table>\n";
> }
[..cut..]
Good luck,
Xicheng
------------------------------
Date: Sat, 02 Jun 2007 00:49:43 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Processing a Computer List
Message-Id: <H838i.7571$wH4.5357@news-server.bigpond.net.au>
Hi guys hope you can help me with a perl script.
We are running multiple platforms - NT and XP.
I have a computer list in computers.txt
Each system has a local administrator account, let's say it is
<computername>\administrator, with password 'password'.
What I need to do is to:
1) Determine if the system is NT or XP
2) If it is NT, then connect by <computername>\administrator, with password
'password', then write a line to an output file called output.txt the status
of the browser service. So the format of the output.txt would be something
like:
<computername>, operatingsystem, servicename, status
3) If it is XP, then connect by <domain1>\simon, with password 'simtest',
then write a line to an output file called output.txt with the same 4
columns as 2).
4) While the script is running, a status of 'connecting to <computername>
would be great.
Any help greatly appreciated.
Simon
------------------------------
Date: Fri, 01 Jun 2007 20:45:38 -0500
From: l v <veatchla@yahoo.com>
Subject: Re: Processing a Computer List
Message-Id: <1361itkoqcnte02@news.supernews.com>
SimonH wrote:
> Hi guys hope you can help me with a perl script.
>
> We are running multiple platforms - NT and XP.
> I have a computer list in computers.txt
> Each system has a local administrator account, let's say it is
> <computername>\administrator, with password 'password'.
>
> What I need to do is to:
> 1) Determine if the system is NT or XP
> 2) If it is NT, then connect by <computername>\administrator, with password
> 'password', then write a line to an output file called output.txt the status
> of the browser service. So the format of the output.txt would be something
> like:
> <computername>, operatingsystem, servicename, status
> 3) If it is XP, then connect by <domain1>\simon, with password 'simtest',
> then write a line to an output file called output.txt with the same 4
> columns as 2).
> 4) While the script is running, a status of 'connecting to <computername>
> would be great.
>
> Any help greatly appreciated.
>
> Simon
>
>
Not a Perl solution, but if you have a copy of Microsoft's srvinfo.exe I
believe you can determine this information without the need to authenticate.
C:\>srvinfo.exe
Server Name: SPARKY
Security: Users
NT Type: NT Advanced Server - Personal
Version: 5.1
Build: 2600, Service Pack 2
Current Type: Uniprocessor Free
Product Name: Microsoft Windows XP
Registered Owner: len
Registered Organization:
ProductID: xxxxx-OEM-xxxxxxxx-xxxxx
Original Install Date: Wed Sep 25 21:25:42 2002
Domain: Error 2
PDC: Error 2453
CPU[0]: x86 Family 15 Model 2 Stepping 4: 2519 MHz
Hotfixes:
[ServicePackUninstall]:
[Q147222]:
[KB932168]:
[KB931836]:
[KB931784]:
[KB931768]:
[KB931261]:
....
[KB873339]:
[KB873333]:
Drive: [FileSys] [ Size ] [ Free ] [ Used ]
C$ NTFS 38147 15650 22497
D$ NTFS 114479 89074 25405
G$ NTFS 238473 164957 73516
Services:
[Stopped] Adobe LM Service
[Stopped] Alerter
[Running] Application Layer Gateway Service
[Stopped] Application Management
[Running] Windows Audio
[Running] Background Intelligent Transfer Service
[Running] BrSplService
[Running] Computer Browser
[Stopped] Indexing Service
[Stopped] ClipBook
[Stopped] COM+ System Application
[Running] Cryptographic Services
[Running] DCOM Server Process Launcher
[Running] DefWatch
[Running] DHCP Client
....
[Stopped] Network Provisioning Service
Network Card [0]:
Network Card [1]:
System Up Time: 0 Days, 0 Hr, 7 Min, 32 Sec
or
Server Name: serv700
Security: Users
NT Type: NT Member Server - Enterprise
Version: 5.0
Build: 2195, Service Pack 4
Current Type: Uniprocessor Free
Product Name: Microsoft Windows 2000
Registered Owner: home
Registered Organization: home
ProductID: xxxxx-xxx-xxxxxxx-xxxxx
Original Install Date: Sun Dec 17 13:24:27 2000
Domain: Error 2
PDC: Error 1717
IP Address: 192.168.1.37
CPU[0]: x86 Family 15 Model 6 Stepping 5: 3341 MHz
Hotfixes:
[Update Rollup 1]:
[ServicePackUninstall]:
[Q828026]:
[Q147222]:
[KB932168]:
[KB931784]:
[KB931768-IE6SP1-20070219.120000]:
[KB930178]:
[KB929969-IE6SP1-20061220.120000]:
...
[KB329115]:
Drive: [FileSys] [ Size ] [ Free ] [ Used ]
C$ NTFS 15359 11388 3971
D$ NTFS 137267 96209 41058
Services:
[Running] Alerter
[Stopped] Application Management
[Stopped] Background Intelligent Transfer Service
[Running] Computer Browser
[Stopped] Indexing Service
[Stopped] ClipBook
[Running] Distributed File System
...
[Stopped] Wireless Configuration
Network Card [0]:
System Up Time: 5 Days, 18 Hr, 8 Min, 35 Sec
--
Len
------------------------------
Date: Sat, 02 Jun 2007 01:51:30 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Re: Processing a Computer List
Message-Id: <C248i.7588$wH4.574@news-server.bigpond.net.au>
Hi Len!
Thanks for this...but Im really looking at a perl solution for this. Thanks
very much to you anyway. Appreciate it.
"l v" <veatchla@yahoo.com> wrote in message
news:1361itkoqcnte02@news.supernews.com...
> SimonH wrote:
>> Hi guys hope you can help me with a perl script.
>>
>> We are running multiple platforms - NT and XP.
>> I have a computer list in computers.txt
>> Each system has a local administrator account, let's say it is
>> <computername>\administrator, with password 'password'.
>>
>> What I need to do is to:
>> 1) Determine if the system is NT or XP
>> 2) If it is NT, then connect by <computername>\administrator, with
>> password 'password', then write a line to an output file called
>> output.txt the status of the browser service. So the format of the
>> output.txt would be something like:
>> <computername>, operatingsystem, servicename, status
>> 3) If it is XP, then connect by <domain1>\simon, with password 'simtest',
>> then write a line to an output file called output.txt with the same 4
>> columns as 2).
>> 4) While the script is running, a status of 'connecting to <computername>
>> would be great.
>>
>> Any help greatly appreciated.
>>
>> Simon
>
> Not a Perl solution, but if you have a copy of Microsoft's srvinfo.exe I
> believe you can determine this information without the need to
> authenticate.
>
>
> C:\>srvinfo.exe
>
> Server Name: SPARKY
> Security: Users
> NT Type: NT Advanced Server - Personal
> Version: 5.1
> Build: 2600, Service Pack 2
> Current Type: Uniprocessor Free
> Product Name: Microsoft Windows XP
> Registered Owner: len
> Registered Organization:
> ProductID: xxxxx-OEM-xxxxxxxx-xxxxx
> Original Install Date: Wed Sep 25 21:25:42 2002
> Domain: Error 2
> PDC: Error 2453
> CPU[0]: x86 Family 15 Model 2 Stepping 4: 2519 MHz
> Hotfixes:
> [ServicePackUninstall]:
> [Q147222]:
> [KB932168]:
> [KB931836]:
> [KB931784]:
> [KB931768]:
> [KB931261]:
> ....
> [KB873339]:
> [KB873333]:
> Drive: [FileSys] [ Size ] [ Free ] [ Used ]
> C$ NTFS 38147 15650 22497
> D$ NTFS 114479 89074 25405
> G$ NTFS 238473 164957 73516
> Services:
> [Stopped] Adobe LM Service
> [Stopped] Alerter
> [Running] Application Layer Gateway Service
> [Stopped] Application Management
> [Running] Windows Audio
> [Running] Background Intelligent Transfer Service
> [Running] BrSplService
> [Running] Computer Browser
> [Stopped] Indexing Service
> [Stopped] ClipBook
> [Stopped] COM+ System Application
> [Running] Cryptographic Services
> [Running] DCOM Server Process Launcher
> [Running] DefWatch
> [Running] DHCP Client
> ....
> [Stopped] Network Provisioning Service
> Network Card [0]:
> Network Card [1]:
> System Up Time: 0 Days, 0 Hr, 7 Min, 32 Sec
>
> or
>
>
> Server Name: serv700
> Security: Users
> NT Type: NT Member Server - Enterprise
> Version: 5.0
> Build: 2195, Service Pack 4
> Current Type: Uniprocessor Free
> Product Name: Microsoft Windows 2000
> Registered Owner: home
> Registered Organization: home
> ProductID: xxxxx-xxx-xxxxxxx-xxxxx
> Original Install Date: Sun Dec 17 13:24:27 2000
> Domain: Error 2
> PDC: Error 1717
> IP Address: 192.168.1.37
> CPU[0]: x86 Family 15 Model 6 Stepping 5: 3341 MHz
> Hotfixes:
> [Update Rollup 1]:
> [ServicePackUninstall]:
> [Q828026]:
> [Q147222]:
> [KB932168]:
> [KB931784]:
> [KB931768-IE6SP1-20070219.120000]:
> [KB930178]:
> [KB929969-IE6SP1-20061220.120000]:
> ...
> [KB329115]:
> Drive: [FileSys] [ Size ] [ Free ] [ Used ]
> C$ NTFS 15359 11388 3971
> D$ NTFS 137267 96209 41058
> Services:
> [Running] Alerter
> [Stopped] Application Management
> [Stopped] Background Intelligent Transfer Service
> [Running] Computer Browser
> [Stopped] Indexing Service
> [Stopped] ClipBook
> [Running] Distributed File System
> ...
> [Stopped] Wireless Configuration
> Network Card [0]:
> System Up Time: 5 Days, 18 Hr, 8 Min, 35 Sec
>
>
> --
>
> Len
------------------------------
Date: Fri, 01 Jun 2007 23:46:57 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Prototypes and anonymous subroutines
Message-Id: <x7ejkvck5s.fsf@mail.sysarch.com>
>>>>> "GB" == Greg Bacon <gbacon@hiwaay.net> writes:
GB> In article <1180626699.280974.311520@w5g2000hsg.googlegroups.com>,
GB> Brad Baxter <baxter.brad@gmail.com> wrote:
GB> : So a couple of questions:
GB> :
GB> : 1. If prototypes are ignored for anonymous subroutines,
GB> : why be able to define them?
GB> You can make them work (see below), but maybe it was a speculative
GB> development path that deadended.
GB> : 2. Am I missing a calling convention that does not ignore
GB> : them?
GB> It's ugly, but consider
GB> $ perl -le 'BEGIN { *n = sub ($) { print @_ } } n(1,2)'
GB> Too many arguments for main::n at -e line 1, at end of line
GB> Execution of -e aborted due to compilation errors.
that can be done with a module and use as well. asssigning a code ref to
a type glob is how exporting is done in general. and the prototype is
available to the compiler from the use point onward to end of file. this
is how exported subs with code blocks for an arg work as do others that
take only 1 arg as you showed above. it is one of the few cases where
prototypes are useful.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 1 Jun 2007 16:51:45 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: Senior Perl developer position in Montreal, Canada
Message-Id: <slrnf60jl2.n27.dha@panix2.panix.com>
On 2007-06-01, support@sitepak.com <support@sitepak.com> wrote:
>
> ...looking for a senior level Perl developer.
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently to
"news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Another good source of information on how Usenet functions is
news.newusers.questions (information from which is also available at
http://www.geocities.com/nnqweb/).
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
http://jobs.perl.org may be of more use to you
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
Looking at the cake is like looking at the future. Until you taste
it, what do you really know? And, of course, by then, it's much too
late. - Merlin, Excalibur
------------------------------
Date: Fri, 1 Jun 2007 23:02:48 -0400
From: "seth brundle" <brundlefly76@hotmail.com>
Subject: Re: Solve a statistics problem
Message-Id: <4660ddd2$0$24266$8d2e0cab@news.usenetbinaries.com>
My repeated attempts were merely in response to people who attempt to make
an argument that any given post 'is off topic'.
My post was on-topic, as I was seeking a Perl solution to my problem, and,
in fact, 2 people responded to my post with Perl modules which were directly
relevant to my problem - answers which were specifically relevant to my
solution, in Perl, which would not have been provided in other groups.
I have been programming Perl, own a Usenet service, and been using Usenet
and comp.lang.perl.misc, and have even watched tchrist over his shoulder in
moderating comp.lang.perl.misc since 1994, I dont need anyone telling me
what they think is off or on topic.
It was on topic, I received relevant on-topic Perl-specific responses which
helped me greatly, and the people who decide for themselves what is on or
off topic were simply spam, because my post and the responders were directly
relevant to this group.
Unfortunately, there are just way too many people who want to jump at the
chance of 'making an argument' that any given post is off-topic in this
group.
"Michele Dondi" <bik.mido@tiscalinet.it> wrote in message
news:v9fl53phgd05gt6453q9jd1e0bpo1ukk3u@4ax.com...
> On Fri, 25 May 2007 21:07:09 -0400, "seth brundle"
> <brundlefly76@hotmail.com> wrote:
>
>>> Thanks for speaking on their behalf.
>>
>>> In this case, Ted speaks for me, too.
>>
>>Maybe you two can get together in a chat room or something and talk about
>>how this experience made you feel.
>
> I suppose they have better things to do. /me too. Yet I support them
> and I am upset at your repeated insulting attempts. BTW: you didn't
> comment on the fish I gave you (although I claimed myself it was
> slightly rotten in the first place) did it help you? Did you improve
> it?
>
>
> Michele
> --
> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 01 Jun 2007 15:20:38 -0700
From: Bennett <bennett@peacefire.org>
Subject: using a remote smarthost to send mail from a perl script
Message-Id: <1180736438.093314.305430@r19g2000prf.googlegroups.com>
I have a perl script on a low-powered machine and I want to send mail
from the machine by relaying the outgoing mail through a remote SMTP
server (that I've paid for, of course, not an open relay :) ).
I've tried searching for things like "perl" "use a smarthost" but I've
been unable to find anything relevant. Are there any code samples
showing how to do this?
------------------------------
Date: Fri, 1 Jun 2007 23:52:06 +0100
From: Adam Funk <a24061@ducksburg.com>
Subject: Re: using a remote smarthost to send mail from a perl script
Message-Id: <mhk6j4-ocf.ln1@news.ducksburg.com>
On 2007-06-01, Bennett wrote:
> I have a perl script on a low-powered machine and I want to send mail
> from the machine by relaying the outgoing mail through a remote SMTP
> server (that I've paid for, of course, not an open relay :) ).
>
> I've tried searching for things like "perl" "use a smarthost" but I've
> been unable to find anything relevant. Are there any code samples
> showing how to do this?
If your requirements are simple, you can probably use the Mail::Mailer
module. According to the man page, you can
Use the "smtp" protocol via Net::SMTP to deliver the mail. The
server to use can be specified in @args with
$mailer = new Mail::Mailer smtp, Server => $server;
The smtp mailer does not handle "Cc" and "Bcc" lines, neither their
"Resent-*" fellows. The "Debug" options enables debugging output
from "Net::SMTP".
You may also use the "Auth => [ $user, $password ]" option for SASL
authentication (requires Authen::SASL and MIME::Base64).
HTH.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 478
**************************************
