[9484] in Perl-Users-Digest
Perl-Users Digest, Issue: 3078 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 7 08:07:21 1998
Date: Tue, 7 Jul 98 05:00:48 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 7 Jul 1998 Volume: 8 Number: 3078
Today's topics:
'NEXT' and 'LAST' in do-until <mortensi@idt.ntnu.no>
Re: -w on production code (was Re: better way of gettin (Tina Marie Holmboe)
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
delete key from array dwiesel@my-dejanews.com
Re: delete key from array <quednauf@nortel.co.uk>
Re: Do we need lame msgs in discussions? Re : Martien V <quednauf@nortel.co.uk>
gmtime() problem! <isaacs@bigfoot.com>
Re: Help about Integer <quednauf@nortel.co.uk>
Re: Help about Integer <Eric.Zylberstejn@wanadoo.com>
Re: help with perl install on win95. <quednauf@nortel.co.uk>
Re: Help! MacPerl and STDIN (Chris Nandor)
Re: How to print the contents obtained by Net::FTP on l <qdtcall@esb.ericsson.se>
Re: List contents <dean@mail.biol.sc.edu>
Re: Oh man, DO I love Perl ! (References to things that <jll@skynet.be>
Re: open2 problems <Borre.Fjeldso@ericsson.no>
Parallel UserAgent callback strangeness <sloyola@pacbell.net>
Re: Problem w/ CGI file permissions <eugene@verticalnet.com>
Re: Q: Can I run Perl program regularly? <thomas@daimi.aau.dk>
Re: Quaintness involving the /x modifier, a comment and (Tina Marie Holmboe)
rnews or inews for mail2news <silvio@admi.org>
sendmail... <Robert.Rehammar@emw.ericsson.se>
Re: sendmail... <quednauf@nortel.co.uk>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Jul 1998 11:30:30 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: 'NEXT' and 'LAST' in do-until
Message-Id: <6nt0sm$him$1@due.unit.no>
Hi
I have tried to use NEXT and LAST in a do-until loop, but it won't
work. I get this message:
Label not found for "next LINE" at test.pl line 70
I have read the Camel-book, to find if it says that you cannot use
this constructs in a do-until loop, but it constantly refers to just
"loops", so I wandered if any of you could tell me if this is allowed
or not?
Morten Simonsen
------------------------------
Date: 7 Jul 1998 11:03:28 GMT
From: tina@scandinaviaonline.se (Tina Marie Holmboe)
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <6nsva0$894$2@news1.sol.no>
In article <6nra63$9in@mozo.cc.purdue.edu>,
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> I leave the -w flag in, but it's caused me some pain and embarassment
> (and other people some confusion) too. It's a tradeoff I'm willing to
> take. It probably isn't the right decision for all people or all
> projects.
I thought I'd add a comment... personally I would *strangle* anyone
who left -w in production code; and be tempted to be rather mean to them
even with development ditto.
This, my attitude, has a reason. My current workplace has alot of people
developing alot of programs meant for running by HTTP servers. It is known
as "CGI-programming"... :)
Most of the scripts written are not heavily debugged to rid themselves
of warnings. Like so many others I tend to tail -f the error logs when
I testrun CGI-script.
And when people then use -w the net result is a furiously scrolling
screen, with absolutely *no* way of seeing any of the more serious
errors that might occur.
My .5c: think twice before leaving -w on production code. It might not
always be productive...
--
Tina Marie Holmboe
Systems Programmer (Geeks'R'Us) [tina@tech.scandinaviaonline.se]
WebMaster [webmaster@scandinaviaonline.se]
Scandinavia Online AB Development Dept. (+46) 08 587 81000 (switchboard)
(+46) 08 587 81189 (direct)
------------------------------
Date: Tue, 07 Jul 1998 10:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage899807041.15587@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 18 May 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Spring of
1997; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/perlfaq.html
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq.html
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 07 Jul 1998 09:41:15 GMT
From: dwiesel@my-dejanews.com
Subject: delete key from array
Message-Id: <6nsqfq$bhf$1@nnrp1.dejanews.com>
Hi.
I don't seem to find the (probably) simple answer...
I have an array and want to delete a key from it
@array = ("hallo", "hallo2");
how do I delete $array[1] so that the arrays new look is ("hallo2") ???
// Daniel
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 07 Jul 1998 11:11:35 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: delete key from array
Message-Id: <35A1F457.9790EE35@nortel.co.uk>
dwiesel@my-dejanews.com wrote:
>
>
> @array = ("hallo", "hallo2");
>
> how do I delete $array[1] so that the arrays new look is ("hallo2") ???
Check out the perlfunc part of the perl docs. Especially have a look at push,
pop, shift, unshift, splice and maybe even map.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 07 Jul 1998 10:35:26 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Do we need lame msgs in discussions? Re : Martien Verbruggen
Message-Id: <35A1EBDE.C8D0B001@nortel.co.uk>
Azman Shariff wrote:
>
>
> The question here is "Do we need his kind of replies to questions posed?"
> Let's
> face the facts.... what you know doesn't mean wha another person knows!
A flame might help the relevant person to get up to date with the documentation.
> Yes ... i do agree at times there are some or quiet a lot totally
> irrelvant stupid
> and totally frustrating messages! But can't we just ignore it? Why take
> the trouble
> to answer with a remark? We are helping each other, and not to flame
> each other!
Don't you think that ignoring people is far more dangerous in its implications
than give them a flame?
Ignoring someone means that you don't care at all, whatsoever. A society where
people ignore each other is a poor one which has lost the essential bits of what
society is all about. That if someone goes astray and breaks the fences that
have been set up by experience and knowledge, someone will come and tell them
so. That IS what society is all about. And a newsgroups shouldn't be different
to that.
I just don't understand why people are so sensitive about flames. Are there
people out there who have never been told off to touch the fire, or similar
things?
The problem probably is that a newsgroups concentrates on a specific bit of
knowledge. So some people will inevitably know more than others.
So some people will deliver more 'flames' than others. In real life a discussion
usually happens on several subject, so someone like T.Christiansen (Sorry Tom,
just making a point :) would 'flame' me in Perl, and I would 'flame' him in his
lack of knowledge about calculating the radius of the orbit the electron takes
in a Hydrogen atom (Assuming he doesn't know). Then everything would be fine.
But this a Perl newsgroups, so we talk about Perl and I know beforehand that I
know less than Tom C., and I might have to face a 'flame'. What you should face
is the fact that you might know something that, say, Tom C. doesn't know, and
everything is fine. Don't be so sensitive. Newsgroups are a very crude medium of
communication compared to a dialogue, one has to interpret a lot, so don't be
sensitive.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 07 Jul 1998 07:16:33 +0800
From: Isaacs <isaacs@bigfoot.com>
Subject: gmtime() problem!
Message-Id: <35A15AD0.1CC2E3A@bigfoot.com>
Hello Perlian,
How to make use of gmtime() to convert the time between difference area
(timezone)?
Anyone can help me by give me a simple code for this? Thanks!
Isaacs
------------------------------
Date: Tue, 07 Jul 1998 10:48:14 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Help about Integer
Message-Id: <35A1EEDE.5B0ECD2E@nortel.co.uk>
Sergi Bech wrote:
> How can I round a decimal value?
>
> 5.6666 --- > 6
> 4.3333 ----> 4
($a, $b) = (5.66666, 4.3333);
$c = int $a;
$d = sprintf("%.0f // %.0f", $a, $b);
print "int: $c\nsprintf: $d\n";
Check out the difference. While sprintf rounds, int just extracts the integer
part of the number.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 07 Jul 1998 12:30:48 +0200
From: Eric Zylberstejn <Eric.Zylberstejn@wanadoo.com>
To: Sergi Bech <sergi@comb.es>
Subject: Re: Help about Integer
Message-Id: <35A1F8D8.5A2E190D@wanadoo.com>
This is a multi-part message in MIME format.
--------------EACB62A48709AC8A8FF21BCD
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello,
Sergi Bech wrote:
>
> How can I round a decimal value?
>
> sample:
>
> 5.6666 --- > 6
> 4.3333 ----> 4
$a = 5.6666;
$b = 4.3333;
$rounded_a = int ($a + 0.5);
$rounded_b = int ($b + 0.5);
print "$rounded_a, $rounded_b\n";
Eric
--------------EACB62A48709AC8A8FF21BCD
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Zylberstejn, Eric
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Eric Zylberstejn
n: Zylberstejn;Eric
org: FTI
adr: 41 r Camille Desmoulins;;;Issy-les-Moulineaux;;92130;France
email;internet: Eric.Zylberstejn@wanadoo.com
tel;work: 01 41 33 94 59
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------EACB62A48709AC8A8FF21BCD--
------------------------------
Date: Tue, 07 Jul 1998 10:16:33 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: help with perl install on win95.
Message-Id: <35A1E771.9877F4F4@nortel.co.uk>
goce wrote:
>
> Hi i am new to perl i was woundering if there is a step by step
> installation guide to install perl on win95 ??
The GS port of Perl for Win32 can be picked up at your local CPAN dealer. It
comes with documentation, and it couldn't be much easier to install the
pre-compiled version of Perl. The lastest Beta from ActiveState seems to come
complete with Installshield, Module Manager, etc., so that is probably even
easier (Depending on what kind of person you are :)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 07 Jul 1998 11:44:45 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Help! MacPerl and STDIN
Message-Id: <pudge-0707980744200001@dynamic206.ply.adelphia.net>
In addition to what brian said, check out the MacPerl book; it explains it
all. The MacPerl FAQ is out of date and being worked on as we speak; the
MacPerl list is available, and I have these resources and more linked to
from my page at:
http://pudge.net/macperl/
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
MacPerl: Power and Ease (ISBN 1881957322), http://www.ptf.com/macperl/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 07 Jul 1998 12:18:18 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: How to print the contents obtained by Net::FTP on line?
Message-Id: <isemvyotg5.fsf@godzilla.kiere.ericsson.se>
userjeff@my-dejanews.com writes:
> Then I have a file named abc.txt saved in my hard disk. The thing I
> wish to do is I would like to print the content of abc.txt on the
> screen without saving it first into my hard disk. Is it possible?
Yes, it is. The get() method takes a second argument which is either a
local filename or a filehandle. If you give it the standard output,
everything that comes in will be immediately forwarded to the user (or
whatever stdout happens to be connected to).
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 06 Jul 1998 16:25:38 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: List contents
Message-Id: <m3vhpahgl9.fsf@mail.biol.sc.edu>
Bill Oswald <wao@aluxs.micro.lucent.com> writes:
> Is there a way to check if a list contains a specific
> element. I could do
Check perlFAQ4. It's delivered as part of your distribution of Perl,
or you can find it at http://www.perl.com/
Please check the FAQ and other documentation that are on your disk
drive before sending a query literally around the world.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Tue, 07 Jul 1998 12:01:34 +0200
From: Jean-Louis Leroy <jll@skynet.be>
Subject: Re: Oh man, DO I love Perl ! (References to things that go out of scope)
Message-Id: <VA.000000e7.29c8d488@jll>
> If my latest patch to fields.pm find its way into developer release
> perl5.004_70 then you can have private fields as well as compile time
> typo-check for your field names.
One of the bad things Perl makes me do is to use fields directly, i.e.
without going through accessors. They cost too much. Are the your field
accessors speedy?
I really should take a good look at _70.
Jean-Louis Leroy
http://ourworld.compuserve.com/homepages/jl_leroy
------------------------------
Date: 07 Jul 1998 13:39:39 +0200
From: =?ISO-8859-1?Q?B=F8rre_Fjelds=F8?= <Borre.Fjeldso@ericsson.no>
Subject: Re: open2 problems
Message-Id: <gvl4swt28lg.fsf@eto.ericsson.se>
NEVER EVER fix a script after you paste it into a message <sigh>, hope
this supersede catches it...
hbamford@marconi.ih.lucent.com (Harold Bamford) writes:
> Thanks, Tom. I appreciate your quick response. However, that is
> what I originally tried. Trying to suck it all in was an act of
> desperation. And I just tried it again. I get the pid printed
> out and then nothing. So, the new (but still useless) version of
> the script is:
>
<snip script>
Try the following, it works for me...
--- Start ---
use strict;
use FileHandle;
use IPC::Open2;
use IO::Select;
my $WTR = new FileHandle;
my $RDR = new FileHandle;
my $pid = open2($RDR,$WTR,'/usr/bin/cat -u -') || die "Horribly: $!";
print "pid='$pid'\n";
my $sel = new IO::Select;
$sel->add($RDR);
$sel->add($WTR);
foreach(0..5000) {
print $WTR "012345678901234567890123456789012345678901234567890123456789\n";
if ($sel->can_read($RDR)) {
my $line = <$RDR>;
print "got back: $line";
}
}
--- End ---
But since you go 5001 rounds writing and do not know how many times
you have read you should have a loop reading until you receive EOF,
but now you won't be blocking on the read at least.
HTH
//Bxrre
--
Bxrre Fjeldsx - bgf@dod.no - Honda VFR750 - Dod# daf - NMCU #26215
We expect them [Salvadoran officials] to work toward the elimination of
human rights. -- Dan Quayle
------------------------------
Date: Tue, 07 Jul 1998 02:56:03 -0700
From: Steve Loyola <sloyola@pacbell.net>
Subject: Parallel UserAgent callback strangeness
Message-Id: <35A1F0B3.5349E34C@bestwebbuys.com>
I'm just starting to play around with the LWP::Parallel::UserAgent and
have noticed a sporadic condition in my callback function where both the
$content length and $response->content length are 0, YET, the request is
still actually alive and will deliver content if only I give it a
"second chance". I'd appreciate any insight anyone can shed on this.
I've got a little test program that looks surprisingly like a simplified
version of Randal Schwartz' July 1998 Web Techniques column. It is
simplified in the sense that it doesn't follow links, it just parses the
<title> out of each request.
I found that I needed to add a few lines of code to the following
routine to give some connections a "second chance".
sub callback_for_parse {
my ($content, $response, $protocol, $entry) = @_;
print "PARSE: Handling answer from '",$response->request->url,": ",
length($content), " bytes, Code ",
$response->code, ", ", $response->message,"\n" if $VERBOSE;
if (length $content) {
$response->add_content($content);
if (length($response->content) < $MAX_CONTENT
and $response->content_type =~ /text\/html/i) {
return length $content; # go get some more
}
}
# BEGINNING OF MY "SECOND CHANCE" CODE
unless (length $content || length $response->content) {
# print "PARSE: zero length content and response content - One more
try.\n";
return 1;
}
# END OF MY CODE
parse_content_for_response($response);
$response->content(""); # discard it (free up memory)
return C_ENDCON; # no more data from here
}
Before I made my addition to Randal's routine, certain requests would
sometimes get to the "parse_content_for_response" call with no content.
As soon as I added the "second chance" code above, all requests had some
content to parse and life was good again.
Does this make any sense? Am I misinterpretting when callbacks are
called and with what arguments? I've got it working, but (call me
silly) I usually like to understand why my code (or Randal's) is
working!
Thanks in advance,
-----------------------------------------------------------------------
Steve Loyola Best Web Buys
sloyola@bestwebbuys.com http://www.bestwebbuys.com/
Best Book Buys
http://www.bestbookbuys.com/
-----------------------------------------------------------------------
------------------------------
Date: Tue, 07 Jul 1998 02:05:38 -0400
From: Eugene Sotirescu <eugene@verticalnet.com>
Subject: Re: Problem w/ CGI file permissions
Message-Id: <35A1BAB2.FED8C0E9@verticalnet.com>
This is more a UNIX than a Perl question.
The first question is, writable by who? Writable by the user.
The second question is, who is the user, in this case? It's not you, it's user
'nobody', or whatever userid the server runs under. It's that user that has to
have the right permissions to the file for your script to output: 'Writable' and
for the chmod to work.
Hard to say more than that since you don't tell us what the file permissions
currently are and what kind of permissions your server has.
BurninUrGe wrote:
> unless(chmod(0666, $myfile)) {
> print "Ack! That sucks";
> }
>
> if(-w $myfile) {
> print "Writeable";
> }
> else {
> print "NOPE!";
> }
>
> I always get "Ack! That sucksNOPE!" as my output.
------------------------------
Date: Tue, 07 Jul 1998 13:45:08 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Q: Can I run Perl program regularly?
Message-Id: <35A20A44.DECD9A11@daimi.aau.dk>
> On Tue, 23 Jun 1998 01:24:25 +0400, D wrote :
> >How can I make a program that can run my Perl program regularly (daily)?
sorry I am new to this group and I do not have the original posting
here.
You might want to look at crontab (man crontab) if you are on a UNIX
system. If you are on any other system I am sure you can find something
using altavista or dejanews.
------------------------------
Date: 7 Jul 1998 10:31:56 GMT
From: tina@scandinaviaonline.se (Tina Marie Holmboe)
Subject: Re: Quaintness involving the /x modifier, a comment and slash...
Message-Id: <6nstes$894$1@news1.sol.no>
In article <g4swu3g9f.fsf@scrye.com>,
Tkil <tkil@scrye.com> writes:
> Tina> What this does is, in the context of this letter, not
> Tina> interesting at all. Do look closely at line 07. Inside the
> Tina> comment is a slash - '/'
>
> Abigail already ran across this one, and reported it about a month
> ago:
Ah; it just goes to show - I really should keep up with the p5p list.
Digging into my 5k+ unread p5p mail I found it; thankyou.
Atleast it *could* be seen as a bug, and subsequently I'll see ya'all
at the conference. I'm the short girl with a face full of egg >:)
--
Tina Marie Holmboe
Application Developer (Geeks'R'Us) [tina@tech.scandinaviaonline.se]
WebMaster [webmaster@scandinaviaonline.se]
Scandinavia Online AB Development Dept. (+46) 08 587 81000 (switchboard)
(+46) 08 587 81189 (direct)
------------------------------
Date: Tue, 07 Jul 1998 13:16:45 +0200
From: Silvio del Val Hinojal <silvio@admi.org>
Subject: rnews or inews for mail2news
Message-Id: <35A2039D.DBD1661C@admi.org>
This is a multi-part message in MIME format.
--------------748B4E7510E2E5B5E45F0B83
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Hello:
I'm trying to execute my perl script "mail2news.pl", but one of the
parameters required is my news reader, "rnews" or "inews", but i can4t
find one. I know ISC has one, which belongs to package "INN", but when i
download it, i must compile, etc, and i can't (maybe i'm not so good
using unix). Could anyone tell me where can i find such programs (i
don't mind if it is "rnews" or "inews") ?. I work on a Sun Ultra1, Sun
Solaris 2.6.
Thanks.
--------------748B4E7510E2E5B5E45F0B83
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Silvio del Val
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Silvio del Val
n: del Val;Silvio
org: Programa ADMI - SODERCAN
adr: C/ Castilla, 16;;;Santander;Cantabria;39002;Spain
email;internet: silvio@admi.org
title: Telecoms Engineer
tel;work: +34 42 367240
tel;fax: +34 42 314462
note: Grupo de Desarrollo NOCILLA
x-mozilla-cpt: ;0
x-mozilla-html: TRUE
version: 2.1
end: vcard
--------------748B4E7510E2E5B5E45F0B83--
------------------------------
Date: Tue, 07 Jul 1998 11:00:58 +0100
From: Robert Rehammar <Robert.Rehammar@emw.ericsson.se>
Subject: sendmail...
Message-Id: <35A1F1DA.63C1BE3D@emw.ericsson.se>
Hi !
The following is taken from
ftp://ftp.sunet.se/pub/lang/perl/CPAN/doc/FAQs/cgi/perl-cgi-faq.html.
$cgi_form = new CGI::Form;
$from = $cgi_form->param('from');
$name = $cgi_form->param('name');
$to = $cgi_form->param('to');
$subject = $cgi_form->param('subject');
$message = $cgi_form->param('message');
open (SENDMAIL, "| /usr/bin/sendmail -t -n");
print SENDMAIL <<End_of_Mail;
From: $from <$name>
To: $to
Reply-To: $from
Subject: $subject
$message
End_of_Mail
The problem is that I can't get it to work. Anyone can tell me what
might be wrong ?? When I'm running it, nothing simply happends, no
compilingerrors either...
\\Robert Rehammar
------------------------------
Date: Tue, 07 Jul 1998 10:55:22 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: sendmail...
Message-Id: <35A1F08A.4F3C1A09@nortel.co.uk>
Robert Rehammar wrote:
>
> open (SENDMAIL, "| /usr/bin/sendmail -t -n");
> print SENDMAIL <<End_of_Mail;
> From: $from <$name>
> To: $to
> Reply-To: $from
> Subject: $subject
>
> $message
> End_of_Mail
>
> The problem is that I can't get it to work. Anyone can tell me what
> might be wrong ?? When I'm running it, nothing simply happends, no
> compilingerrors either...
if there aren't any problems with the script, than the probability is relatively
high that the problem lies outside the script, in this case with sendmail. Is
the path correct? Does that particular version support the options? Let it run
on the shell. Maybe there is a compilation error, due to the fact that there
might be no newline after the string terminator. Check it out!
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3078
**************************************
