[9804] in Perl-Users-Digest
Perl-Users Digest, Issue: 3397 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 8 10:07:18 1998
Date: Sat, 8 Aug 98 07:00:26 -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 Sat, 8 Aug 1998 Volume: 8 Number: 3397
Today's topics:
Re: "Here" documents and the mystery that is FTP (-)
$$$Make Money!!! <dfd74@hotmail.com>
calling perl from c++ <dhoffman@fzi.de>
Re: Can't make flock work as described... <tchrist@mox.perl.com>
Re: hiding user input (Miguel Cruz)
Re: hiding user input (Miguel Cruz)
Re: hiding user input (Miguel Cruz)
Re: Intriguing coderef question (M.J.T. Guy)
Re: NEED REDIRECT SCRIPT <bomboze@pol.ru>
Re: NEED REDIRECT SCRIPT (Nathan V. Patwardhan)
Re: ODBC, Perl, Unix and Macs (Chris Nandor)
Re: perl 5.005: Binary Distribution for Win32? <rlogsdon@io.com>
perl extensions in ActivePerl 5.005 under WindowsNT 4.0 <pnp@worldonline.nl>
Re: perlfaq - frequently asked questions about Perl (pa (Bart Lateur)
Re: Please help! - Thanks! <jonah@g-s.net>
Possible bug in RE handling - confirmation requested (John D. Hardin)
Re: Possible bug in RE handling - confirmation requeste <tchrist@mox.perl.com>
pretty perl editor for linux <witchy@netserv.net.au>
Re: pretty perl editor for linux <thomas@daimi.aau.dk>
Re: pretty perl editor for linux <alastair@calliope.demon.co.uk>
Re: Set-Cookie (-)
Starting qmail from perl script (Miguel Cruz)
Re: WANTED: Free Homepage Script <bomboze@pol.ru>
Re: WANTED: Free Homepage Script <bomboze@pol.ru>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 07 Aug 1998 15:28:02 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: "Here" documents and the mystery that is FTP
Message-Id: <35cb1cb5.181000694@news2.cais.com>
pearse <pearse@mail.shebang.net> Said this:
>Ok, that sounds cool. When I open it in vi after ftp'ing it over, it works. I
>can't see the ^M's but I guess they're being removed when I save the buffer.
>Why can't I see them? I can if I open a MS Word doc in vi on the Linux box.
>
If you FTP a file from a "native dos" machine (any microsoft-centric
machine), use ASCII mode and the carriage returns will be stripped
away. Use binary and the file is sent "as is" so you'll have the ^M's
in your file.
------------------------------
Date: Sat, 08 Aug 1998 00:14:06 -0700
From: Dylan Darroch <dfd74@hotmail.com>
Subject: $$$Make Money!!!
Message-Id: <6qgqm5$d9k@ds2.acs.ucalgary.ca>
copyright GoldenHarvest corporation
1998
If your anything like I was your tired of skimming along pay check to
pay check working so hard for so little money. Playing the lottery is a
joke, and it seems so often an uphill battle just to make it. WELL FOR
ALL THOSE IN NEED OF A LITTLE BIT (OR A LOT) OF EXTRA CASH YOUR LUCKY
DAY HAS ARRIVED!
WHAT I HAVE FOR YOU IS SIMPLE YET MIND BLOWING, ITS
REVELOTIONIZED THE
BUSINESS WORLD AND PROVES THAT YOU CAN MAKE LOTS OF MONEY WITH ALLMOST
NO WORK. What I have for you demonstrates the miracle of capitalism and
the benefits of a good investments. With this system you are 100%
GAURANTEED TO MAKE MONEY WITHIN THREE WEEKS, YOU WILL NEVER LOSE A PENNY
AND IT WILL TAKE YOU NO MORE THEN 1 HOUR OF YOUR TIME. TO GOOD TO BE
TRUE???? PLEASE FOR YOUR BENEFIT READ ON. Your life is about to change.
Now Im sure that since you've read this far you must be at least
mildly
curious as to what this is and how it works. In corporate terms we call
it a "Compounded Personal Investment" or CPI, simply put it costs you
initially only $5 dollars and WILL yield well over $10,000 dollars (this
is a minimum figure most people make MUCH more). CPI's work through a
chain type system where you will send the first person on your list five
dollars (see bottom for list). From there you will delete the first
person from this message and edit all the names so the second person
becomes the first and you replace the fifth person on this list. You
then after editing this message and inserting your name email this
message to ten friends and put it on ten different newsgroups. In
approximatedly 2 weeks the money should start flowing as you then become
first on many peoples lists and thousands will start sending you five
dollars. SIMPLE AND PROVEN COMPLETELY SAFE.
STILL HAVE DOUBTS?
Since this system is 100% gauranteed we ask that before you send
anyone
a penny you first quickly notify our offices at cashmakr@hotmail.com,
send us your name your adress along with the first person on your lists
name and adress. This way if you have any problems or for some reason
lose your five dollars we will then be able to give you a complete
refund, and we will then have your name on record for legal purposes.
Our CPI program is completely safe because we take the extra step to
monitor the system that we started and we GAURANTEE you will make
money!!!! If you have any questions simply email our offices, our staff
will be more then happy to help you out.
SO WHAT HAVE YOU GOT TO LOSE? NOT EVEN FIVE DOLLARS SINCE OUR SYSTEM IS
GAURANTEED. WE WILL EVEN REIMBURSE YOU FOR YOUR POSTAGE! MAKE THAT
CHANGE TODAY, AND CHOOSE TO MAKE MONEY. THE FIRST STEP IS UP TO YOU,
THEN THE MARKET TAKES CARE OF THE REST.
INSTRUCTIONS
If you wish to procede with your investment simply email us
(cashmakr@hotmail.com) with your name and adress as well as the first
person on your lists name and adress. Then send that first person five
dollars edit the name list removing the first person and putting your
name as the last person moving each name up one:
1)is gone
2)becomes one
3)becomes two
4)becomes three
5)becomes four
you become five
Then email this message with no changes except for the updated names to
ten friends and post on ten newsgroups (remember leave the subject as
"make money").
Finally all you have to do is sit back and watch the money roll in!
*remember to save this message
NAMES:
1) Dylan Darroch
#9 Silverdale place
Calgary,Alberta,Canada
T3B 4C4
2) David Field
134 Oliver ave
Selkirk,Manitoba,Canada
R1A 0C3
3) R J Mckinley
103 Oregon Av.
Kansas city, Utah
USA
4) Leslie Smith
1020 Hallsbury Way
Grand Forks, ND
USA
5) Pindar Rahman
100 tenth street
New York,New York
USA
------------------------------
Date: Sat, 08 Aug 1998 14:36:28 +0200
From: Dirk Hoffmann <dhoffman@fzi.de>
Subject: calling perl from c++
Message-Id: <35CC464C.72EF95BA@fzi.de>
I apologize if this question has came up before, but ...
The example code of the man pages doesn't work for me
Has somebody a small example code, of how to call a perl script or perl
function with parameters from c++ ?
currently I'm using Solaris 2.5.1 and Perl 5.004
thank u very much
-- -------------------+ _\\|//_
+--------------------------------------+
| Dirk Hoffmann G105 | (` o-o ') | eMail:
dhoffman@fzi.de |
| Klosterweg 28 +-ooO-(_)-Ooo-+ or
hoffi@joy.net |
| 76131 Karlsruhe _______________ www:
www.uni-karlsruhe.de/~uk1s |
------------------------------
Date: 8 Aug 1998 13:07:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Can't make flock work as described...
Message-Id: <6qhij5$7nd$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "Ekenberg" <joreb@algonet.se> writes:
:After reading about flock in the man-pages and "the Camelbook", I wrote a
:little test to try it out. Unfortunately, I can't make it work the way it's
:described, well, the way I interpret the descriptions anyway. What am I
:doing wrong?
You seen to thing that the flock(2) system call (or its various emulations)
interferes with the write(2) system call. Nothing could be further from
the truth.
Flocking files is like putting up a stop-and-go light at an intersection.
It works only if everyone using that intersection pays attention to
whether the light is red or green--or yellow in the case of a shared lock.
The red light doesn't stop traffic; it merely asks that traffic stop.
Someone who's desperate, ignorant, or rude will still go flying through
the intersection no matter what the light says. Likewise, all that
flock blocks out is other flockers--not processes trying to do I/O.
Unless everyone is polite, accidents can (and will) happen.
Be polite.
--tom
--
This is the typical life of any Unix administrator. Most user/system problems
tend to read just like detective novels. Sometimes we win, sometimes we
reboot. --Albert Viall alv@cray.com
------------------------------
Date: 8 Aug 1998 09:54:27 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Re: hiding user input
Message-Id: <6qh78j$dfd$1@news.ycc.yale.edu>
Gary L. Burnore <whatpartofdontemailme@dontyouunderstand> wrote:
>> Nope, if my neighbor parks his blue Toyota in my house, it is not
>> harassment, it is trespassing.
>
> Emailing after being asked to stop is not legal. It's harassment. Harassment
> is illegal. I suggest you ask the postmaster@yale.edu what he/she thinks
> about it. If you're not already aware that folks get accounts yanked quite
> quickly for harassing in email, you'll learn it one day.
The fact that some postmasters may yank accounts for unsolicited but
unthreatening and otherwise legal email doesn't make it against the law. It
just makes it against the policies of selected installations.
I challenge you to find a case where a court has sided with someone who
received personal, non-threatening, non-pornographic, non-commercial email
and expected to seek legal redress. Until that happens or seems likely as an
application of some existing law, or it is explicitly covered by a new law
somewhere, it is in no way illegal.
miguel
------------------------------
Date: 8 Aug 1998 09:56:52 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Re: hiding user input
Message-Id: <6qh7d4$dtp$1@news.ycc.yale.edu>
Chris Nandor <pudge@pobox.com> wrote:
>Oh my. Would they make any LESS money if Burnore -- or anbody -- does or
>does not have X-No-Archive? Please.
I for one would find it less pleasant to use DejaNews if there were a danger
of stumbling across certain people's postings which I thought had expired.
miguel
------------------------------
Date: 8 Aug 1998 09:58:05 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Re: hiding user input
Message-Id: <6qh7fd$dtt$1@news.ycc.yale.edu>
In article <6qedsb$9ru$1@nnrp1.dejanews.com>, <birgitt@minivend.com> wrote:
>Only being a five month old usenet user, that is a real question.
I must say it's an impressive one too. When I was five months old I couldn't
even sit up straight.
miguel
------------------------------
Date: 8 Aug 1998 11:27:33 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Intriguing coderef question
Message-Id: <6qhcn5$dm0$1@pegasus.csx.cam.ac.uk>
In article <6qghtt$dph$1@monet.op.net>, Mark-Jason Dominus <mjd@op.net> wrote:
>
>The only catch is that it can't find imported functions. I might
>submit a patch for that later; in the meantime, you'd have to do
>something icky like walking the symbol table to find where the real
>definition was.
The subroutines dumpsub() and findsubs() in dumpvar.pl might be relevant.
Or they might not. I've never troubled to understand what they do. ;-)
Mike Guy
------------------------------
Date: Sat, 08 Aug 1998 12:25:09 +0400
From: Bomboze <bomboze@pol.ru>
To: art4all@gate.net
Subject: Re: NEED REDIRECT SCRIPT
Message-Id: <35CC0B64.E1B65064@pol.ru>
But its OFFTOPIC!!!
<HTML>
<META HTTP-EQUIV="REFRESH"
CONTENT="2;http://new.domain.here/index2.html">
<BODY>
<SCRIPT>
document.location="http://new.domain.here/index2.html";
</SCRIPT>
</HTML>
____________________________
Bomboze
http://www.ghostweb.net/powdot
____________________________
Stuart Sloves wrote:
> Could someone steer me to a 'redirect script' which will take a client
>
> browser accessing a new 'parked' domain and redirect it to an existing
>
> domain and an 'index2.html file in a directory within the root one.
>
> Please e-mail me at: mailto:art4all@gate.net
>
> Thanks,
------------------------------
Date: 8 Aug 1998 13:17:38 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: NEED REDIRECT SCRIPT
Message-Id: <6qhj5i$7u7@fridge.shore.net>
Bomboze (bomboze@pol.ru) wrote:
: But its OFFTOPIC!!!
And so IS YOURS!!!
: <HTML>
: <META HTTP-EQUIV="REFRESH"
: CONTENT="2;http://new.domain.here/index2.html">
: <BODY>
: <SCRIPT>
: document.location="http://new.domain.here/index2.html";
: </SCRIPT>
: </HTML>
This isn't Perl. Why is it here?
Perl != HTML != CGI.
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: Sat, 08 Aug 1998 07:06:10 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: ODBC, Perl, Unix and Macs
Message-Id: <pudge-0808980706100001@192.168.0.3>
In article <slrn6sn925.6i5.aa126@fan1.fan.nb.ca>, aa126@fan.nb.ca wrote:
# On Fri, 07 Aug 1998 14:52:00 -0400,
# Chris Nandor <pudge@pobox.com> wrote:
# >In article <35cb3838.0@news.new-era.net>, scott@softbase.com wrote:
# >
# ># Forget it! FileMaker may be geting a revamp, but there's no way it will
# ># be able to compete with Oracle and DB2 on the high end as a networked
# ># database. You're not going to be able to access a Mac database from a
# ># UNIX box without a lot of pain and lots and lots of money for
# ># middleware connectivity products.
#
# Just to clear the air here, the Unix box is not in any way near the Mac
# box. I develop CGI on the Unix box and port it to the Mac box. With
# Perl, this is a pretty seamless process. The intent was to develop CGI
# for the Mac that talks with the FileMaker db on the Mac. Development
# would be done on the Unix box.
In this case, that would not work. You would have to have two separate
programs, probably, a daemon on the Mac and your CGI on the Unix box.
# >Anyway, someone does need to write a FileMaker module, but once thatis
# >done, then it would be fairly simple and painless (aside from performance)
# >to write a daemon to pass queries from client to database and back. Most
# >likely, it would be done with Apple Events, which adds additional
# >performance pains, but sometimes performance is not an issue as much as
# >just getting the data.
#
# I get the impression that accessing the FileMaker db from Perl now is not
# possible, and developing it on the Unix box would not be feasible anyway?
It is very possible, but you or someone would have to develop the code for
it. Some people were already working on such a Filemaker module, but I do
not know what came of it. And no, developing it on Unix would not be
feasible, of course. No matter what the case, any code to talk to
Filemaker on the Mac would be Mac-specific and could be developed
anywhere, I suppose, but must be tested and debugged on the Mac. That's
the only way.
# After a couple of days actually using the Mac web server while it was
# in use, and some comments on the Mac server newsgroup, I get the
# impression that Mac CGI (which also uses Apple Events) kinda sucks.
*shrug* It depends. With a good Mac, you can get very good performance
out of CGI; not as good as on Unix, but pretty good. CGI _anywhere_ sucks
with high volume, even on Unix. That's why people use mod_perl and
FastCGI.
That said, MacPerl can handle only a very small volume of CGI, because of
the nature of Mac apps, where only one instance of the app can run at the
same time, and the nature of pre5.005-perl, where perl is not threaded, so
it can only run one program at a time.
# The entire machine stops when the webserver is serving pages, when a
# CGI process runs or any number of things.
You need a new Mac. Running a CGI slows down things, sure, but it is not
normal for the whole machine to stop every time a CGI is run. Regardless,
you would not be doing CGI here. You would probably just do some daemon
with Socket or IO::Socket.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Sat, 8 Aug 1998 06:02:06 -0500
From: REUBEN LOGSDON <rlogsdon@io.com>
To: Claude Hager <CHager@centuryinter.net>
Subject: Re: perl 5.005: Binary Distribution for Win32?
Message-Id: <Pine.BSF.3.96.980808060050.1173C-100000@dillinger.io.com>
Speaking of that, have you been able to instantiate and play with
arbitrary COM objects w/ that version? The readme I found says to use
Win32::OLE, but this version doesn't seem to include an OLE.pm.
Regards,
Reuben Logsdon
On Sat, 8 Aug 1998, Claude Hager wrote:
> I just picked up 5.005 (ActivePerl) from http://www.activestate.com/. It
> looks good so far.
>
> Michael Schilli wrote in message <35C8F30C.6C42669F@blaxxun.com>...
> ...
> >I understand 5.005 compiles well on Win32 - but since I don't have a C
> >Compiler on my Windows box: is there a binary distribution for Win32?
> ...
>
>
>
>
>
------------------------------
Date: Sat, 8 Aug 1998 10:46:34 +0200
From: "Peter W.L. Wassenaar" <pnp@worldonline.nl>
Subject: perl extensions in ActivePerl 5.005 under WindowsNT 4.0SP3
Message-Id: <6qh38l$psp$1@news.worldonline.nl>
I'm trying to master the use of perl extensions (ActiveState's perl 5.005)
by keying in example1
of the perl-doc `perlxstut', but it refuses to compile with MicroSoft Visual
C++ 4.2 (WindowsNT 4.0 SP3).
h2xs -A -n Mytest
cd mytest
<<editing mytest.xs conform example1>>
perl Makefile.pl
nmake # gives the following error
D:\Perl\5.005\lib\MSWin32-x86-object\CORE\perl.h
(1232) : error C2644: basis 'CPerlObj' for pointer to
member has not been defined.
Has anyone a clue?
------------------------------
Date: Sat, 08 Aug 1998 09:34:59 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <35ce163d.5065348@news.tornado.be>
Curtis Jewell / Dennis Whalen wrote:
>>C. If you are actually inclined to make a manpage viewer, the format
>> is usually nroff or troff.
>
>Does anybody know of a Win95 port of either one
>(or of man) [...] !?
I think that there are DOS ports in the GNU tools, f.ex. those of DJ
Delorie (DJG*) . But Native Win32 ports? Dunno.
Bart.
------------------------------
Date: Sat, 08 Aug 1998 08:38:40 GMT
From: "Jonah Olsson" <jonah@g-s.net>
Subject: Re: Please help! - Thanks!
Message-Id: <k8Uy1.4039$JR2.6076344@nntpserver.swip.net>
Thanks everyone for your help!
Regards,
Jonah Olsson
Generation Software
http://www-g.s.net
------------------------------
Date: Sat, 8 Aug 1998 01:28:38 -0700
From: jhardin@wolfenet.com (John D. Hardin)
Subject: Possible bug in RE handling - confirmation requested
Message-Id: <m72hq6.tfs.ln@gypsy.wolfenet.com>
In my procmail+perl email sanitizing filters the following regular
expression occurs:
s/<BODY\s+(([^">]+("(\\.|[^"])*")?)*)ONLOAD/<BODY $1 DEFANGED-ONLOAD/gi;
I have had a report that it fails to exit on SunOS 4.1.3 + Perl 5.004,
causing high CPU loads. I have tested it on Linux 2.0.33 + Perl 5.004_01,
SunOS 4.1.4 + Perl 5.004_04 and Alpha OSF/1 V3.0 + Perl 5.004_04
Can anyone confirm this for me?
Test it by running the following text through "perl -p -e 'above-RE'":
<body>
<body junk>
<body onload="">
<body junk onload="">
<body junk=">" onload="">
<body junk="\">" onload="">
Perl should *not* hang.
Thanks!
--
John Hardin KA6OHZ jhardin@wolfenet.com
pgpk -a finger://gonzo.wolfenet.com/jhardin PGP key ID: 0x41EA94F5
PGP key fingerprint: A3 0C 5B C2 EF 0D 2C E5 E9 BF C8 33 A7 A9 CE 76
-----------------------------------------------------------------------
Your mouse has moved. Windows NT must be restarted for the change
to take effect. Reboot now? [ OK ]
-----------------------------------------------------------------------
78 days until Daylight Savings Time ends
------------------------------
Date: 8 Aug 1998 13:04:01 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Possible bug in RE handling - confirmation requested
Message-Id: <6qhic1$7nd$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, jhardin@wolfenet.com writes:
:causing high CPU loads. I have tested it on Linux 2.0.33 + Perl 5.004_01,
:SunOS 4.1.4 + Perl 5.004_04 and Alpha OSF/1 V3.0 + Perl 5.004_04
:
:Can anyone confirm this for me?
I can confirm that Linux 2.0.33 and either Perl 5.004_04 or 5.005_02,
that it works fine and does not hang.
--tom
--
Let's say the docs present a simplified view of reality... :-)
--Larry Wall in <6940@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: Fri, 7 Aug 1998 23:11:43 +0800
From: "Greg Dickson" <witchy@netserv.net.au>
Subject: pretty perl editor for linux
Message-Id: <6qf5se$4qa$1@wapull.telstra.net>
Does anyone know of a color syntax editor for perl preferably
I know this is pretty naff but Ive got used to this in
my other programing environments and it would just be nice
Greg Dickson
**** Witchcliffe WA
freelance programing
* ;) *** witchy@netserv.net.au
(java & perl)
***** http://www.netserv.net.au/witchy/
Linux System Admin
************
"I've been boiling this egg for hours and it's still not
soft"
------------------------------
Date: Sat, 08 Aug 1998 10:38:34 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: pretty perl editor for linux
Message-Id: <35CC0E8A.662B707F@daimi.aau.dk>
Greg Dickson wrote:
>
> Does anyone know of a color syntax editor for perl preferably
>
> I know this is pretty naff but Ive got used to this in
> my other programing environments and it would just be nice
Looking at your .signature I think you are using Linux. If that is the
case get cperl-mode for emacs at CPAN/misc/emacs/cperl-mode/
------------------------------
Date: Sat, 08 Aug 1998 11:09:26 +0000
From: Alastair <alastair@calliope.demon.co.uk>
Subject: Re: pretty perl editor for linux
Message-Id: <35CC31E6.804E31B4@calliope.demon.co.uk>
Greg Dickson wrote:
>
> Does anyone know of a color syntax editor for perl preferably
>
> I know this is pretty naff but Ive got used to this in
> my other programing environments and it would just be nice
>
If you're using unix then nedit has syntax highlighting
mode. It's an excellent GUI editor. You can find it at ;
http://www-pat.fnal.gov/nirvana/nedit.html
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: Fri, 07 Aug 1998 15:32:59 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: Set-Cookie
Message-Id: <35cb1ddf.181278962@news2.cais.com>
<mikane@shell3.ba.best.com> Said this:
>I am trying to send a cookie with the following code but its
>not working, can someone tell me why?
>
>All I get is a page with:
>
>"Set-Cookie: ID=m4lvrt; HOME=usa; expires:Friday, 7-Aug-98 23:48:56 GMT Hello world"
>
>and no cookie.
>
>Thanks
>
>Mike
>
>
>-----------------------------------------------------------
>#!/bin/perl
>
>print<<NEWPAGE;
>Content-type: text/html
>
>Set-Cookie: ID=m4lvrt; HOME=usa; expires:Friday, 7-Aug-98 23:48:56 GMT
>
><html>
><head>
The extra line between content-type and set-cookie tells the web
browser that the headers are over and the remaining data is the
contents of the file. remove the line, and it should work
------------------------------
Date: 8 Aug 1998 12:34:51 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Starting qmail from perl script
Message-Id: <6qhglb$o5s$1@news.ycc.yale.edu>
I need users in a certain group to be able to restart Qmail (after editing
files in /var/qmail/control). So far I have had a very frustrating time with
this.
It seems that the only way Qmail will start is with the exact syntax
provided in the documentation -
csh -cf 'qmail-start ./Mailbox splogger qmail &'
Nothing else that I've tried will work, and I must admit I don't understand
why.
So anyway, I can't just stick that in a shell script and +s it because Linux
doesn't allow suid scripts. I can't put it in a Perl program because no
combination of permissions would please csh. The only way I managed to get
it to work at all was to write a C program that setuid(0) then called that
does this with system(). The problem with that is, when the Perl program
finishes, Qmail dies with it. If I run my C program from the command line,
Qmail is happy forever.
How would I detach Qmail from any dependency on the Perl script, OR, is
there a better way to do this whole thing?
Thanks very much for any ideas.
miguel
------------------------------
Date: Sat, 08 Aug 1998 12:34:50 +0400
From: Bomboze <bomboze@pol.ru>
To: Scott <troutster@earthlink.net>
Subject: Re: WANTED: Free Homepage Script
Message-Id: <35CC0DA9.E8B4EE65@pol.ru>
Here you go
Parse_form must read a form values which are:
email = email of
orig = (forwarded) original web page
new = login to new web page like www.yourdomain.com/NEW
title = title of new web page
#!/usr/local/bin/perl
# Author bomboze, you MAY NOT remove this or advertising of PowDot from
this script!
print "Content-type: text/html\n\n";
eval { &main; }; # Trap
any fatal errors so the program hopefully
if ($@) { print ("fatal error: $@"); } # never produces that nasty
500 server error page.
exit; # There are only two exit calls in the script, here and in in
&cgierr.
sub main{
local (%in) = &parse_form;
$email=$in{'email'};
$old=$in{'orig'};
$new=$in{'new'};
$title=$in{'title'};
$filp=">>../".$new.".htm";
$filpa=">>../".$new."qazwsxedcrfvvqfarzesdsxcvxcvxcvxcvsdfsdf.htm";
if ( -e $filp ) {
print "<HTML><BODY>File already exists!</HTML></BODY>";
die();
};
open(fil,$filp) || die ("$filp not open");
open(filp,$filpa) || die ("$filpa not open");
open(list,$list) || die ("$list not open");
print filp "<html>\n";
print filp "<head>\n";
print filp "<title>".$title."</title>\n";
print filp "</head>\n";
print filp "\n";
print filp "<body bgcolor=\"#000000\" text=\"#FFFFFF\">\n";
print filp "\n";
print filp "<a href=\"".$old."\" target>Enter my web page!</a></p>\n";
print filp "\n";
print filp "<p align=\"center\"> </p>\n";
print filp "\n";
print filp "<p>Email web master at <a
href=\"mailto:"."$email"."\">$email<a/></p>\n";
print filp "<br><a href="http://www.ghostweb.net/powdot">Script by
bomboze</a></body>\n";
print filp "</html>\n";
print fil "<html>\n";
print fil " \n";
print fil "<head>\n";
print fil "<title>".$title."</title>\n";
print fil "</head>\n";
print fil "\n";
print fil "<frameset border=\"0\" frameborder=\"0\" cols=\"0,*\">\n";
print fil " <frame name=\"left\" src=\"left.htm\">\n";
print fil " <frame name=\"right\"
src=\"".$new."qazwsxedcrfvvqfarzesdsxcvxcvxcvxcvsdfsdf.htm\"\n";
print fil " scrolling=\"never\">\n";
print fil "</frameset>\n";
print fil "</html>\n";
print "<HTML><BODY>sUCCEFUL<br>Your new url is <a
href=\"http://warezhq.net/warez/"."$new".".htm\">http://warezhq.net/warez/"."$new".".htm</a></BODY></HTML>\n";
close(fil);
close(filp);
return 0;
};
_________
Bomboze
http://www.ghostweb.net/powdot
___________________________
Scott wrote:
> Hi,
> I would like to know if anyone knows where I can get a script that
> would allow me to offer my visitors automated free homepages.
> Anyone?
------------------------------
Date: Sat, 08 Aug 1998 14:02:01 +0400
From: Bomboze <bomboze@pol.ru>
Subject: Re: WANTED: Free Homepage Script
Message-Id: <35CC2219.38DC1E79@pol.ru>
In that script - replace http://www.warehq.net/warez to your
homepage!!!!That was written when i was hired by one person so address
was like that..
Peace!
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3397
**************************************
