[11675] in Perl-Users-Digest
Perl-Users Digest, Issue: 5275 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 1 06:04:25 1999
Date: Thu, 1 Apr 99 03:00:22 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 1 Apr 1999 Volume: 8 Number: 5275
Today's topics:
Re: 'find' for PPT (David Cantrell)
Re: <STDIN> (M.J.T. Guy)
Re: > I need HELP!!!!!!!! <ffchopin@worldnet.att.net>
[URGENT] how do I have to declare Perl path in my CGI o <heroux@servunix.iutc3.unicaen.fr>
[URGENT]need help on VMS Server and PERL <heroux@servunix.iutc3.unicaen.fr>
Re: Almost a disaster (Jonathan Stowe)
Re: Creating a LOL in an XSUB? (Arved Sandstrom)
Re: File Upload in Internet Explorer <ntogmi@abs.ascom.ch>
Re: My script wont add to database (db) (Jonathan Stowe)
Re: netCDF - Perl (Arved Sandstrom)
Re: Newbie ques. re cgi script testing c4jgurney@my-dejanews.com
perl 5.005 on convex <Jochen.Stenzel.gp@icn.siemens.de>
Re: perl subroutine help (Tad McClellan)
perl+UDP socket timeout <mis@sparc.spb.su>
Re: perl+UDP socket timeout mikepitt@my-dejanews.com
Perlis, NT and SSI <frankvdm@diza.nl>
Re: problems with 'require'. <Wm.Blasius@ks.sel.alcatel.de>
Re: Recovering a (list) hash ley (M.J.T. Guy)
Server Side Includes <hkasten@abm-soft.de>
Re: Sun Microsystems Sponsors Perl Mongers (Adam Turoff)
Re: Text::Soundex for languages other than English? <ffchopin@worldnet.att.net>
trying to build C like structure in perl <sfaust@isi-mtl.com>
URGENT <markus@umm.no>
Re: URGENT <ffchopin@worldnet.att.net>
Re: URGENT <markus@umm.no>
Re: URGENT <markus@umm.no>
Re: URGENT c4jgurney@my-dejanews.com
Win32 and adding User Rights nickcurtis@my-dejanews.com
Windows 9x Perl sockets hassle mikepitt@my-dejanews.com
workaround for broken win32 ctrl-c handling in ActiveSt (Bailey Brown)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 01 Apr 1999 09:11:47 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: 'find' for PPT
Message-Id: <37033769.153178388@thunder>
On 31 Mar 1999 14:21:28 GMT, fl_aggie@thepentagon.com (I R A Aggie)
enlightened us thusly:
>On Wed, 31 Mar 1999 09:35:13 GMT, David Cantrell
><NukeEmUp@ThePentagon.com> wrote:
>
>+ As no-one else has done it yet, I'm going to have a go at writing a
>+ 'find' clone.
>
>Ummm...dude...there maybe a reason why:
>
>perldoc File::Find
But the point is to produce working versions of common Unix commands,
which can be used from the command line of less well-endowed OSes,
thus avoiding the problems arising when people try to use scripts
containing stuff like:
@listOfFiles=split(/\n/,`find / -name garbleflux\* -print`)
I'm not aware of any method for invoking File::Find directly from the
command line. Of course I intend to use it.
--
Dave
Don't forget - london.pm tonight.
--
David Cantrell - http://i.am/a.god
a.a Atheist # 1334 and BAAWA
Will savage fundies for food
(the food bit is optional)
------------------------------
Date: 1 Apr 1999 10:04:11 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: <STDIN>
Message-Id: <7dvgar$4pq$1@pegasus.csx.cam.ac.uk>
Bob Trieger <sowmaster@juicepigs.com> wrote:
>
>Any other variable? <STDIN> in a filehandle, not a variable. BIG difference.
Nope. <STDIN> is the input operator applied to the filehandle STDIN.
BIG difference. :-)
Mike Guy
------------------------------
Date: Thu, 1 Apr 1999 03:51:51 -0500
From: "Jason Simms" <ffchopin@worldnet.att.net>
Subject: Re: > I need HELP!!!!!!!!
Message-Id: <7dvcg2$7os$1@bgtnsc01.worldnet.att.net>
> I am writing a perl script, and I have no experience of perl. I would
like
^^^^^^^^^^^^^^^^^^^^^
Read Learning Perl, Programming Perl, Programming with CGI.pm. and all of
the FAQ pages first, then...
> some help doing this though email. I would like to send you small perl
> script and for you to tell me what is wrong, because the Error 500 message
> doesn't help me. All is wrong is the layout (I think).
>
> If you email I will tell you what I want to perl script for, however, what
I
> am doing is going to be big and I have already had contact with companies
> which want to advertise when this is fished. I would be perpared to offer
> FREE advertising to you.
Joking is right... Get a programmer (read consultant) to do this for you.
Maybe some poor freelance guy will want to advertise his work on your
"site"... Notice "fished" in the next to last sentance - prophetic??? Take
your questions to comp.infosystems.www.authoring.cgi for furher help with
your scripts, as you will find better answers there (well, more on topic, at
least).
Jason Simms
------------------------------
Date: Thu, 1 Apr 1999 10:51:07 +0400
From: Xavier Heroult <heroux@servunix.iutc3.unicaen.fr>
Subject: [URGENT] how do I have to declare Perl path in my CGI on a VMS
Message-Id: <Pine.OSF.3.95.990401104425.23254B-100000@servunix.iutc3.unicaen.fr>
hi
how do I have to declare Perl path in my CGI on a VMS WEB server (I'm sure
my problem comes from here : when I launch a test localy like "perl
test.cgi", it generates html code on screen, but when I launch it on a
browser, it returns this message : "document contains no data").
if anyone got an idea, I'll take it!
PS: my full path is :
DISK$LIBRA_0:[VMS$COMMON.INTERNET_PRODUCT_SUITE.PERL]
bye
___________________________________________________________________________
/ Now try to guess who is my / /|
/ favorite actress ?... / * Mail me ... * / |
/____________________________________/_____________________________________/ |
| | HEROULT Xavier | |
| * * | IUT Campus 3 IFS | |
| The * Files will never die... | Info 2eme Annee | |
| * * | heroux@iutc3.unicaen.fr | |
| | Xavier.HEROULT@wanadoo.fr | /
____________________________________________________________________________/
------------------------------
Date: Thu, 1 Apr 1999 10:30:14 +0400
From: Xavier Heroult <heroux@servunix.iutc3.unicaen.fr>
Subject: [URGENT]need help on VMS Server and PERL
Message-Id: <Pine.OSF.3.95.990401102903.23254A-100000@servunix.iutc3.unicaen.fr>
hi,
does anyone know how to set up Perl on that kind of server (I mean
how to allow Perl scripts to run on that server).
information : I have VMSServer v3.2
and Perl (apparently installed on it) v5.x
that's all, and please, this is really urgent.
bye
___________________________________________________________________________
/ Now try to guess who is my / /|
/ favorite actress ?... / * Mail me ... * / |
/____________________________________/_____________________________________/ |
| | HEROULT Xavier | |
| * * | IUT Campus 3 IFS | |
| The * Files will never die... | Info 2eme Annee | |
| * * | heroux@iutc3.unicaen.fr | |
| | Xavier.HEROULT@wanadoo.fr | /
____________________________________________________________________________/
------------------------------
Date: Thu, 01 Apr 1999 09:44:10 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: Almost a disaster
Message-Id: <37033f79.6653012@news.dircon.co.uk>
On Wed, 31 Mar 1999 22:40:07 -0500, Ben Bullock <bullock@toolcity.net>
wrote:
>As part of a script to automate adding users to a system running
>Solaris 2.5.1, I had a couple of lines of code that essentially looked
>like this:
>
>$home_dir="/home/username";
>system("chmod 711 $home_dir");
>
>When this script executed, it not only changed permissions on the new
>user's home directory to 711, but it also changed the permissions to
>711 on "/". And that caused some problems, like the inability for
>normal users to look at man pages, run simple commands like 'pwd',
>etc. After the permissions on / were changed back to the original
>755, everything was normal.
>
>I know I could have used something like this for changing permissions:
>@filelist="/home/username";
>chmod(0711, @filelist);
>
>but why did the original script give such an unexpected result? BTW,
>the perl interpreter is an older version, 5.003 IIRC.
>
Thats all as maybe but given what you have above whatever the problem
is can hardly be attributed to Perl as all of the work is being done
by an external command.
/J\
------------------------------
Date: Thu, 01 Apr 1999 06:55:36 -0400
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: Creating a LOL in an XSUB?
Message-Id: <Arved_37-0104990655360001@dyip-95.chebucto.ns.ca>
In article <5nhfr4pche.fsf@glockner.cip.physik.uni-muenchen.de>, Thomas
Fischbacher <tf@cip.physik.uni-muenchen.de> wrote:
> Dear perl hackers,
>
> I have a problem where it would be very convenient to return a "list
> of lists" (Of structure [[1,2,3],[4,5,6],[7,8,9]]) from within an
> XSUB.
>
There's an active perl-xs mailing list where questions like this will get
a speedy response. You can get to it from the main Perl web site following
links for mailing lists.
This particular NG has too much volume for XS questions to get noticed.
HTH, Arved
------------------------------
Date: Thu, 01 Apr 1999 10:02:47 +0200
From: Toggweiler Mike <ntogmi@abs.ascom.ch>
Subject: Re: File Upload in Internet Explorer
Message-Id: <37032826.DD14B3C5@abs.ascom.ch>
Das ist der Source zum uploaden
In Netscape funktionert es:
open(WRITEFILE,">$link_file");
binmode(WRITEFILE);
PrintV(1,"Data:\n");
#Read the file from the HD
while(read($open_file,$buffer,1024)){
PrintV(2,"$buffer\n");
print WRITEFILE $buffer;
}
PrintV (1,"Upload done\n");
close $open_file;
close WRITEFILE;
Martin Ackermann wrote:
> Toggweiler Mike schrieb:
> >
> > Ja, hab ich bereits |berpr|ft.
> >
> > Florentin Hauber wrote:
> >
> > > Hi!
> > >
> > > Hast Du sowas wie
> > >
> > > ENCTYPE="multipart/form-data"
> > >
> > > in Deinem Form-Tag stehen?
> > >
> > > gru_
> > >
> > > Florentin
> > >
> > > --
> > > /* Scripts nach Mass
> > > Florentin Hauber
> > > fh@webaid.de */
>
> Hallo,
>
> Da fehlt die While Schleife f|r den Buffer...
>
> Bye
> --
> Homepage : http://www.schmetterling.nu
>
> ICQ-UIN : 9559861
------------------------------
Date: Thu, 01 Apr 1999 08:21:22 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: My script wont add to database (db)
Message-Id: <37032c30.1715484@news.dircon.co.uk>
On Wed, 31 Mar 1999 20:46:56 GMT, costner@my-dejanews.com wrote:
>I have downloaded and tried to make work about 3 different Perl scripts.
>
>I have spent HOURS at this ...I am begging you to tell me what to do to fix
>this problem.
>
>the following script is showing itself ok, when I add something it says it was
>added, but the count does not change and nothing is actually added to
>random/data.db
>
>would you look at this please?
>http://www.xxxxxx.org/random/rando.cgi?12345
>
>I have chmod 'd til I am blue in the face
>
Doris is on holiday.
/J\
------------------------------
Date: Thu, 01 Apr 1999 06:58:04 -0400
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: netCDF - Perl
Message-Id: <Arved_37-0104990658040001@dyip-95.chebucto.ns.ca>
In article <slrn7g51lj.2fp.fl_aggie@stat.fsu.edu>,
fl_aggie@thepentagon.com wrote:
> On Wed, 31 Mar 1999 18:28:11 GMT, krish_v@my-dejanews.com
> <krish_v@my-dejanews.com> wrote:
>
> + Is there anyone who can provide sample Perl code
> + for reading files in netCDF format?
>
> <url:http://www.unidata.ucar.edu/packages/netcdf-perl/>
>
> The test program is rather hard to look at (I thought so), but
> it covers everything, AFAICT.
>
Doesn't PDL offer support for doing this also? Could be wrong... if it
does (and someone can confirm) this might be another place to look.
Arved
------------------------------
Date: Thu, 01 Apr 1999 08:35:01 GMT
From: c4jgurney@my-dejanews.com
Subject: Re: Newbie ques. re cgi script testing
Message-Id: <7dvb3l$kpe$1@nnrp1.dejanews.com>
In article <7dtlot$4vs$1@nnrp1.dejanews.com>,
wedrawforyou@my-dejanews.com wrote:
<snip>
> I have read so far I need
> access to a server, the cgi-bin directory etc. But I plan to develop at home
> on myWin 95 PC with no server software on it.
Sam,
Setting up a web server on your win95 pc is very easy to do.
David Turley has set up a very useful page on how to do it
http://www.binary.net/dturley/cgi_testing.html
Personally I've managed to get Xitami working straight from the install and
Apache with a few minor tweaks, both on NT. For win95 I'd be tempted to
recomend Xitami.
HTH
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Apr 1999 11:47:58 +0200
From: "Hr. Jochen Stenzel" <Jochen.Stenzel.gp@icn.siemens.de>
Subject: perl 5.005 on convex
Message-Id: <370340CE.B22F73DB@icn.siemens.de>
Hello,
I tried to install perl5.00502 on a convex system. With several tricks,
perl could be build and installed, but scripts behave different under
its control than they do under the same perl on Solaris or SunOS. Is
there something special I should take care of?
Thanks in advance
J. Stenzel
------------------------------
Date: Wed, 31 Mar 1999 21:08:25 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: perl subroutine help
Message-Id: <pekud7.av5.ln@magna.metronet.com>
magicratusa@my-dejanews.com wrote:
[snip]
: $element1 = $Final_College_Info[$z][0];
: $element2 = $Final_College_Info[$z][1];
: $element3 = $Final_College_Info[$z][2];
: $element4 = $Final_College_Info[$z][3];
: push (@Temp_College_Build, $element1, $element2, $element3, $element4);
: push (@College_Build, [ @Temp_College_Build ]);
Yikes!
Do you get paid by the keystroke or something? :-)
You have 5 unnecessary temp variables there.
You can replace all six lines above with:
push (@College_Build, [ @{$Final_College_Info[$z]}[0 .. 3] ]);
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 1 Apr 1999 12:00:49 +0400
From: Manida Ivan <mis@sparc.spb.su>
Subject: perl+UDP socket timeout
Message-Id: <Pine.GSO.4.02.9904011155050.16709-100000@minerva.sparc.spb.su>
Hello, I suppose someone here ever dealt with UDP sockets via perl?
If so, could you please help me with timing this sockets out? Doing
timeout via $SIG alarms does not look like an elegant solution to me,
there should be some socket option which can do this.
Please note: the question is about UDP sockets (not TCP :) ), perl
language (not CGI libs :) ), and any help is really apreciated! If you
know of some good docs on UDP sockets, that'd be great aswell (perl manual
pretends there's no UDP... Only one broadcasting sample with unlimited
timeout...).
Thanks!
--
//--- St.Petersburg SPARC center, software engineer, C compiler group
Ivan S. Manida aka PiRaMidA mailto:mis@sparc.spb.su
------------------------------
Date: Thu, 01 Apr 1999 10:15:17 GMT
From: mikepitt@my-dejanews.com
Subject: Re: perl+UDP socket timeout
Message-Id: <7dvgvh$peg$1@nnrp1.dejanews.com>
In article <Pine.GSO.4.02.9904011155050.16709-100000@minerva.sparc.spb.su>,
Manida Ivan <mis@sparc.spb.su> wrote:
> Hello, I suppose someone here ever dealt with UDP sockets via perl?
Hi,
The Perl Cookbook (Christiansen and Torkington, ISBN 1-56592-243-3, O'Reilly &
Associates, $39.95, available at Amazon and so on...) has a couple of good
examples, and it got me up and running.
BUT... it only gives timeouts using alarms, which means it doesn't solve your
specific problem.
(Especially irritating on Win32 which doesn't support the alarm function!)
Mike.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 1 Apr 1999 09:24:21 GMT
From: "Frank" <frankvdm@diza.nl>
Subject: Perlis, NT and SSI
Message-Id: <01be7c21$3a8c70c0$0100a8c0@fra1>
This message was originaly posted by joemacd at the experts-exchange site.
But I'm posting it here because I'm having the exact same problem.
I'm using NT4, IIS 4 and ActivePerl (or whatever the folks at ActiveState
call it). I've been running several SSI scripts with no problem using
perl.exe.
For the usual reasons, I'd like to convert my SSI scripts so that they run
under perlis.dll. I figured that I'd simply rename the scripts to *.plx and
be done with it. Didn't work.
Interestingly, if I run the scripts directly from the URL (as in
http://www.mysite.com/cgi-bin/myscript.plx) they execute as they are
intended. But if I try to run them inside an HTML page as a SSI, then I get
the following output:
HTTP/1.0 200 OK Date: Mon, 15 Mar 1999 20:08:51 GMT Server:
Microsoft-IIS/4.0
Content-type: text/html 'c:\webroot\www.mysite.com\web\scriptpage.html'
script produced no output"
Why would it work from the URL, but not from the SSI? As I mentioned, I'm
already running several SSI scripts using perl.exe already without a
problem.
You would make my day if you got the answer...
Frank
------------------------------
Date: Thu, 01 Apr 1999 10:13:12 +0200
From: William Blasius #42722 <Wm.Blasius@ks.sel.alcatel.de>
Subject: Re: problems with 'require'.
Message-Id: <37032A98.446B9B3D@ks.sel.alcatel.de>
Why not just use the Exporter and get it over with? It strikes me as
being somewhat understandable. ie:
package test_conf;
use strict; ###
#
BEGIN { #
require Exporter; # wrapper
use vars qw($VERSION @ISA @EXPORT); #
@ISA = qw(Exporter); #
@EXPORT = qw($value); ###
use vars qw($value);
$value = "test string";
} # wrapper
__CODE__
# package main;
use strict;
use test_conf qw($value);
print "$value\n";
__END__
The BEGIN block causes the assignments to happen at compile time and
the vars are imported into the namespace of main.
Wm Blasius
Aaron Tavistock wrote:
>
> I improperly assumed that require was essentially a stream based eval.
> :) Which is how I came to a brute force solution that works as well.
>
> e.g. -
>
> open (CONF, './test.conf);
> eval (join ("\n", <CONF>));
> close (CONF);
>
> Earl Hood wrote:
> >
> > >_test.conf_
> > >
> > >$value = "test string";
> >
> > >_test.pl_
> > >
> > >use strict;
> > >
> > >my ($value);
> > -^^
> > >require 'test.conf';
> > >print "$value\n";
> >
> > The my causes $value to only be visible within the test.pl. Therefore,
> > the $value in test.conf is a separate variable.
> >
--
---
--
* I am Pentium of Borg. Division is futile. You will be approximated. *
...now I'm <wm.blasius@ks.sel.alcatel.de> - no matter what my mail
server says!
------------------------------
Date: 1 Apr 1999 10:36:51 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Recovering a (list) hash ley
Message-Id: <7dvi83$6e2$1@pegasus.csx.cam.ac.uk>
Jeffrey Mattox <jeffrey_mattox@my-dejanews.com> wrote:
>
>How can I do this? If I display $key as a string, it contains $x, $y, and
>$z separated by nulls (I think), but I don't know how to split the key up.
>
> ($x,$y,$z) = split(/\000/$key); # does not work.
No. They are separated by the value of the $; variable - see
'perldoc perlvar'. So you could do
($x,$y,$z) = split(/\Q$;/, $key);
Alternatively, read up about multidimensional hashes in the perllol man
page.
Mike Guy
------------------------------
Date: Thu, 1 Apr 1999 11:36:45 +0200
From: "Holger Kasten" <hkasten@abm-soft.de>
Subject: Server Side Includes
Message-Id: <7dvene$73o$1@black.news.nacamar.net>
Hello, i have a question:
Why does the folowing code not work:
<!--#exec cgi="http://www.xyz.com/cgi-bin/script.pl"-->
<!--#include virtual="http://www.xyz.com/cgi-bin/script.pl"-->
but this works fine:
<!--#exec cgi="cgi-bin/script.pl"-->
<!--#include virtual="cgi-bin/script.pl"-->
Isnt it possible to start scripts on other servers?
Or, how to do so?
------------------------------
Date: 1 Apr 1999 03:26:02 -0500
From: ziggy@panix.com (Adam Turoff)
Subject: Re: Sun Microsystems Sponsors Perl Mongers
Message-Id: <7dvaiq$27s$1@panix.com>
Keywords: just another new york perl hacker
brian d foy <comdog@computerdog.com> wrote:
>SUN MICROSYSTEMS SPONSORS PERL MONGERS
[...]
>David Adler, Ruthless Dictator of NY.class [...]
NY has class??!? I thought it was just a bunch of dancing chiuhuahas.
>Adam Turoff,
>charter member of NY.class and leader of Philly.class, rejoiced
>in the triumph of the cathedral-style re-organization as he took
>a break from installing NT on his Beowolf cluster.
Today is as good a day as any to announce our super secret project:
JPT - J++ POWER TOOLS
Reimplementing DOS Tools in J++ for Brain Damaged
Platforms like Linux, FreeSDB, OpenNet, and SolarisOS.
Packages in the first public technology release:
autoexec.bat.class copy.class command.class config.sys.class
drvspace.class edlin.class exe2bin.class io.sys.class loadhi.class
mem.sys print.class rename.class
To turn your slow, tired Linux workstation into a lean, mean,
high-powered DOS machine, just type
bash % command.class
JPT - Version 8.98.4063
C>autoexec.bat.class
Loading DriveSpace...Done.
C>prompt $P$G
C:\> logout.class
Bad command or filename
C:\> lo.class
Bad command or filename
C:\> logout
Bad command or filename
C:\> ^D
Bad command or filename
C:\> exit.class
Bad command or filename
C:\> exit
bash %
Z.
------------------------------
Date: Thu, 1 Apr 1999 04:04:27 -0500
From: "Jason Simms" <ffchopin@worldnet.att.net>
Subject: Re: Text::Soundex for languages other than English?
Message-Id: <7dvd7i$9i6$1@bgtnsc01.worldnet.att.net>
> Does anyone know of a module like Text::Soundex that is modeled on a
language
> other than English? I want to use it to compare Latin words, so some
> Romance language would be useful.
Non scio, sed desidero scire cur desideras linguam Latinam "modulam"...
Jason Simms
------------------------------
Date: Thu, 1 Apr 1999 05:06:59 -0500
From: "S.Faust" <sfaust@isi-mtl.com>
Subject: trying to build C like structure in perl
Message-Id: <kxHM2.2$o05.104@weber.videotron.net>
I'm kinda new to perl and I'm trying tom build C like structure.
here is the code I was able to write.
sub deux_struct{
$struct{name}[0] = "mike";
$struct{name}[1] = "steve";
$struct{age}[0] = 10;
$struct{age}[1] = 20;
foreach $element ( keys %struct ) {
foreach $i ( 0 .. $#{ $struct{$element} } ) {
print $struct{$element}[$i] . "\n";
}
}
}
is there a better way to build them?
I tried to print the element like
$struct{name}[0] . $struct{age}[0] in the same line with a loop that attach
the 2 element together but I was unable ( maybe I just need to take my eyes
off the code
and go sleep a bit). Anyone that have a way to do that I would appreciate
some pointers.
Tks in advance
-----------------------------------------
Sacha Faust sfaust@isi-mtl.com
"UNIX is user friendly. It's just selective about who its friends are"
I don't speak for anybody but myself - that's enough trouble.
------------------------------
Date: Thu, 1 Apr 1999 10:51:09 +0200
From: "Markus Staas" <markus@umm.no>
Subject: URGENT
Message-Id: <msGM2.29$o%6.149@news1.online.no>
I know that I have to configure the path to the e-mail program and the
specified commands for that.
BUT I DO NOT KNOW HOW TO SPECIFY THAT FOR OUR SERVER !!!!!!!!
I really tried a lot since 7 days roundabout 8 hours a day and I don4t know
what to do anymore.
Now my Question :
COULD ANYONE GIVE ME A PERL-SCRIPT, WHICH IS BUILT FOR NT AND MAYBE WITH A
MAIL PROCESSING PROGRAM FOR OUR SERVER ????????? PLEEEEEASE !!!!
The Server Administrator cannot help me !
Thanks a lot in advance !!!!
Markus Staas
------------------------------
Date: Thu, 1 Apr 1999 03:58:36 -0500
From: "Jason Simms" <ffchopin@worldnet.att.net>
Subject: Re: URGENT
Message-Id: <7dvcsk$8r0$1@bgtnsc01.worldnet.att.net>
> Now my Question :
>
> COULD ANYONE GIVE ME A PERL-SCRIPT, WHICH IS BUILT FOR NT AND MAYBE WITH A
> MAIL PROCESSING PROGRAM FOR OUR SERVER ????????? PLEEEEEASE !!!!
>
> The Server Administrator cannot help me !
Built for NT? Man, switch to UNIX, go ga-ga over the power you have, die
laughing that you ever thought NT was a true Enterprise Solution, throw your
NT boxes out the window, and be happy... Seriously, there is not
information about "our (i.e., your) server" to help much. Try using
mail::mailer and specifying a SMTP server (read the Perl Cookbook on
e-mail). Also, fire the S.A for not demanding UNIX in the workplace... :-)
Jason Simms
------------------------------
Date: Thu, 1 Apr 1999 11:05:59 +0200
From: "Markus Staas" <markus@umm.no>
Subject: Re: URGENT
Message-Id: <iGGM2.31$o%6.315@news1.online.no>
I forgot the beginning of my request above !!!!!!
I have to use a form processing script.
I tried a lot like FormMail and so on, but since Iam not a Perl Guy I don4t
know what to do anymore !!!
PLEASE PLEASE HELP ME !!!! :-))))))))))
Markus
Markus Staas <markus@umm.no> wrote in message
news:msGM2.29$o%6.149@news1.online.no...
> I know that I have to configure the path to the e-mail program and the
> specified commands for that.
> BUT I DO NOT KNOW HOW TO SPECIFY THAT FOR OUR SERVER !!!!!!!!
>
> I really tried a lot since 7 days roundabout 8 hours a day and I don4t
know
> what to do anymore.
>
> Now my Question :
>
> COULD ANYONE GIVE ME A PERL-SCRIPT, WHICH IS BUILT FOR NT AND MAYBE WITH A
> MAIL PROCESSING PROGRAM FOR OUR SERVER ????????? PLEEEEEASE !!!!
>
> The Server Administrator cannot help me !
>
> Thanks a lot in advance !!!!
>
> Markus Staas
>
>
>
>
------------------------------
Date: Thu, 1 Apr 1999 11:19:36 +0200
From: "Markus Staas" <markus@umm.no>
Subject: Re: URGENT
Message-Id: <1TGM2.35$o%6.383@news1.online.no>
Heeee,
what schould I do ???? "He Boss, throw away all the 15 Servers plus the
mail servers ?????
Jason from the newsgroup said it
!!!!! ???
I need serious help or suggestions, not something like that. Sorry !
Jason Simms <ffchopin@worldnet.att.net> wrote in message
news:7dvcsk$8r0$1@bgtnsc01.worldnet.att.net...
> > Now my Question :
> >
> > COULD ANYONE GIVE ME A PERL-SCRIPT, WHICH IS BUILT FOR NT AND MAYBE WITH
A
> > MAIL PROCESSING PROGRAM FOR OUR SERVER ????????? PLEEEEEASE !!!!
> >
> > The Server Administrator cannot help me !
>
> Built for NT? Man, switch to UNIX, go ga-ga over the power you have, die
> laughing that you ever thought NT was a true Enterprise Solution, throw
your
> NT boxes out the window, and be happy... Seriously, there is not
> information about "our (i.e., your) server" to help much. Try using
> mail::mailer and specifying a SMTP server (read the Perl Cookbook on
> e-mail). Also, fire the S.A for not demanding UNIX in the workplace...
:-)
>
> Jason Simms
>
>
------------------------------
Date: Thu, 01 Apr 1999 10:14:01 GMT
From: c4jgurney@my-dejanews.com
Subject: Re: URGENT
Message-Id: <7dvgt5$pcr$1@nnrp1.dejanews.com>
In article <1TGM2.35$o%6.383@news1.online.no>,
"Markus Staas" <markus@umm.no> wrote:
> I need serious help or suggestions, not something like that. Sorry !
Markus,
There are a few threads on this news group about getting mail out of perl on
NT, a quick search should turn a few up.
Personally I use a freeware command line mailer called mailto because that's
what I use to send mail from other languages as well.
You can get a selection of win32 mail apps from
http://www.winfiles.com/apps/nt/mail-command.html
However if you app needs to be portable then do it all in perl.
HTH
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Apr 1999 08:43:44 GMT
From: nickcurtis@my-dejanews.com
Subject: Win32 and adding User Rights
Message-Id: <7dvbjv$l8j$1@nnrp1.dejanews.com>
Does anyone know of *ANY* way of adding user rights to a user in NT.
Thanks in advance,
Nick Curtis
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Apr 1999 10:00:44 GMT
From: mikepitt@my-dejanews.com
Subject: Windows 9x Perl sockets hassle
Message-Id: <7dvg49$ou0$1@nnrp1.dejanews.com>
I am trying to use
$tftp_server = IO::Socket::INET->new ( LocalPort => $tftp_port_no,
Proto => 'udp' )
or die "Can't open socket $tftp_port_no: $! " ;
($tftp_port_no is earlier set to 69)
to open a port for (surprise) a simple TFTP server. This works fine on
Windows NT, Linux, FreeBSD, Solaris... but on Win98 gives me a message
"Invalid argument"
A simpler test was
$server = IO::Socket::INET->new ( Proto => 'udp' );
and again Invalid argument, but
$server = IO::Socket::INET->new ( );
works (giving errors later).
Has anyone got UDP sockets on Win9x working? Can they point me at some
documentation (or examples) if they have.
Some specific details:
OK, I have Perl 5.00555 that I built myself on an NT box. This installation
is copied onto a CD and run from there, this isn't a problem for the other
scripts I run, but is mentioned for completeness. I see this problem on both
an old Windows 95 install and on Win98.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Apr 1999 10:48:03 GMT
From: dont_spam_me@spamhaters.com (Bailey Brown)
Subject: workaround for broken win32 ctrl-c handling in ActiveState perl
Message-Id: <37034ab8.23048927@news.isomedia.com>
If you are reading this then you have probably found out that the
signal handling in the current build (513) of ActiveState Perl is
broken under Win95/Win98. I hear it is broken under NT as well. I have
not tried my solution under NT but I am pretty sure it will work on
NT.
This is my workaround.
Go to http://www.divinf.it/dada/perl/ and get Aldo Calpini's Win32:API
perl module and install it.
The module is supposedly on CPAN, but I didn't look for it there.
The module was a bear to install, but I am new to this. One thing is
that in the makefile it generates it uses '&&' to create a compound
command line, which nmake seems to barf on in Win95/98. You can fix by
geting rid of the && and making xsubs output go directly to $*.c
instead of '>'ing into a tmp file and then moving to $*.c.
Now you will be able to call more or less arbitrary functions in
arbitrary DLLs.
So then you need my perlext.dll. I've included the binary in case you
are like me and would rather not have to figure out how to make
someone else's program.
Now, if you have perlext.dll in your path, you can use Win32::API to
call into it and tell it to register a handler for Control-C, and you
can call into it to find out if ctrl-c has been pressed. Sprinkle the
checks for control-c in strategic places in your perl script, and
you'll be able to catch it and clean up properly or whatever.
Here is the link my web page that has a link to a zip file with the
dll in it:
http://www.isomedia.com/homes/bailey/perlctrl-c/index.html
Here is an example perl script:
use strict;
use Win32::API;
$main::HandleControlC =
new Win32::API("perlext", "HandleControlC", ['I'], 'I');
$main::GotControlC =
new Win32::API("perlext", "GotControlC", [], 'I');
my $result = $main::HandleControlC->Call(1);
if (!$result) {
printf(STDERR "HandleControlC failed\n");
}
print "press control-c\n";
while (!$main::GotControlC->Call()) {
}
print STDERR "got control-c\n";
Posted by bailey_at_isomedia_dot_com
(please note obfuscated email address to foil spammers)
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5275
**************************************
