[7041] in Perl-Users-Digest
Perl-Users Digest, Issue: 666 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 26 03:30:54 1997
Date: Thu, 26 Jun 97 00:00:28 -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 Thu, 26 Jun 1997 Volume: 8 Number: 666
Today's topics:
"Timeout" for "connect" and "socket read" <SOCK> <kinlum@wco.com>
Can I call "http://www... in perl? (Jun Zhuang)
decimal to hex conversion? (Scott Johnson)
Delphi, Java or VB (Guillermo Luijk Delgado)
file download issues <paul@onlinesupport.com>
Getting other end of socket's address (Nicholas J. Leon)
Re: HELP with cookies... <rootbeer@teleport.com>
HELP! trying to Retreive an http document <perrella@ehsn5.cen.uiuc.edu>
HELP: Running a script without a form (Chim Jason)
Re: HELP: Running a script without a form <rootbeer@teleport.com>
How do you turn off LOCALE during perl5.004 configure? (Doug Elias)
Re: Module in perl ????? (Steven W McDougall)
Perl and PGP interface (Yvon D. Roustan)
Perlembed - cant compile <mattias.lonnqvist@uidesign.se>
Re: REGEX <rootbeer@teleport.com>
Re: RFC: Xlib.pm (Stephen McCamant)
suidperl <koke@patriot.net>
Re: suidperl <rootbeer@teleport.com>
Re: suidperl <rra@stanford.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Jun 1997 21:40:04 -0700
From: Kenneth Kin Lum <kinlum@wco.com>
Subject: "Timeout" for "connect" and "socket read" <SOCK>
Message-Id: <33B1F2A4.B5448BD@wco.com>
Does some one know how to set the "timeout" for
Perl's "connect" or socket read using <SOCK> ?
Thanks,
-- Kenneth
--
______________________________________________________________________
Kenneth Kin Lum
______________________________________________________________________
Email: kinlum@wco.com or kinlum@csua.berkeley.edu
Homepage: http://www.cris.com/~kinlum
(Stock, Skiing, MIDI, Bitmaps, Pop Artists, Anime)
MS Netmeeting: kinlum@cris.com, at http://ils2.microsoft.com
Netscape Cooltalk: Kenneth Kin Lum, at http://live.netscape.com
InternetRelayChat: Kenneth on undernet, channel #lum
------------------------------
Date: 25 Jun 1997 15:04:13 GMT
From: jzhuang@ringer.cs.utsa.edu (Jun Zhuang)
Subject: Can I call "http://www... in perl?
Message-Id: <5orc1d$mnk@ringer.cs.utsa.edu>
Hi!
Can I call "http://www...." in my perl script?
For exmaple: I want to call a web database and get the returned data
and add to my database.
How can I call:
"http://www.ncbi.nlm.nih.gov/htbin-post/Entrez/query?db=n&uid=619912&form=6"
and add the returned data in my file "my_data"?
Everytime I just need a different "uid=______" and the others remain the
same in query. Should I call with "system" or "execl"?
Any suggestions will be appretiated.
------------------------------
Date: Thu, 26 Jun 1997 01:17:21 GMT
From: scottj@spam.insane.com (Scott Johnson)
Subject: decimal to hex conversion?
Message-Id: <33b1c161.4227348@snews5.zippo.com>
Does anybody know (I'm sure somebody must) how to convert decimal
numbers to hex? I've tried a few things with pack, but everything I
try either comes up as the wrong number or zero. I've seen the
postings here on how to do this with printf, but I need to data to
remain in variables. Thanks in advance!
------------------------------
Date: 25 Jun 1997 12:42:00 GMT
From: guiluide@teleco.upv.es (Guillermo Luijk Delgado)
Subject: Delphi, Java or VB
Message-Id: <5or3mo$ae1@maia.cc.upv.es>
I'm planning to make a program to manage a database in a server so that
information can be accessed from any PC connected to it through a small LAN.
I don't know which language is best to do this. Could anyone tell me the
advantages and disadvantages of: Delphi, Visual Basic and Java.
If you have any suggestions, I ask you please report them to both:
guiluide@teleco.upv.es (address of the reply) and to
pvargasg@nexo.es
Thanks in advance.
------------------------------
Date: Thu, 26 Jun 1997 00:18:43 -0400
From: Paul Hassett <paul@onlinesupport.com>
Subject: file download issues
Message-Id: <33B1EDA3.3C9F@onlinesupport.com>
Hi,
I'm writing some code which needs to verify whether a file was
downloaded successfully or not. Does anyone know a way to do this?
Thanks,
Paul
------------------------------
Date: 26 Jun 1997 04:03:58 GMT
From: nicholas@neko.binary9.net (Nicholas J. Leon)
Subject: Getting other end of socket's address
Message-Id: <slrn5r3qhe.fa6.nicholas@neko.binary9.net>
Hopefully this is an easy question to answer (and I certainly hope
that this isn't located in any FAQ [I looked and couldn't locate it].
I have a service that's launched from inetd (stream/tcp) that is a
Perl script that uses STDIN/STDOUT to communicate with the other side
of the connection.
What I can't figure out is how to get the address of the other side
from the STDIN/STDOUT handles.
Thank you for your attention in this matter.
(and please, don't send me any auto-hi-newbie messages - I post about
once every 3 months or so and don't feel that I have forgotten enough
to warrant receiving FAQ's *again*)
--
------------------------------------------------------------------------------
Nicholas J. Leon <nicholas@binary9.net>
"Elegance through Simplicity" http://www.binary9.net/nicholas
PGP:finger nicholas@neko.binary9.net Shinanyaku:[Chronx/War2/XvT]
------------------------------------------------------------------------------
"The three true forces of nature are: good, evil
and the pain that results from their eternal conflict."
------------------------------
Date: Wed, 25 Jun 1997 20:14:05 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Ken VanDine <kenv@cris.com>
Subject: Re: HELP with cookies...
Message-Id: <Pine.GSO.3.96.970625201132.1822U-100000@kelly.teleport.com>
On 26 Jun 1997, Ken VanDine wrote:
> I'm working on a shopping cart script that uses cookies to pass a number.
> I'm having trouble setting the cookie.
Well, I'll admit that I didn't scrutinize your code too closely, but it
looks as if it's valid Perl. If it is valid, then the problem must be with
the cookie, so see whether a newsgroup about html or CGI (or their FAQ)
might be able to help you. If you know what your code should print but you
can't figure out how to print it, that might be something we could help
with here. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 25 Jun 1997 23:52:23 -0500
From: perrella andrew c <perrella@ehsn5.cen.uiuc.edu>
Subject: HELP! trying to Retreive an http document
Message-Id: <Pine.SOL.3.95.970625233855.1202C-100000@ehsn5.cen.uiuc.edu>
Hi,
I need help with a script that I am trying to write. THe script
is pretty simple but I can't get past one part.
I am trying to write a script to run on IIS on an NT server. The
script is going to take one field of input from an html form. The client
will fill in an http url into the input field and send it to the script.
The script should retreive the said URL, put it through a sub
script that removes the tags, and then output it to the browser or smtp
server etc.
I have everything written an working except for the url retreival
part.
I can get a variable
$URL_to_get equal to http://www.mysite.com/index.html
but I do not know how to use $URL_to_Get to retreive the document.
I have tried to look at such scripts as get_url.pl, but I can't find the
actual piece of code that takes the variable and retreives the document as
a string, say $document.
Does anyone have ANY ideas?
Help,
Andrew Perrella
perrella@uiuc.edu
------------------------------
Date: 25 Jun 1997 13:39:15 GMT
From: 4jc9@qlink.queensu.ca (Chim Jason)
Subject: HELP: Running a script without a form
Message-Id: <5or723$689@knot.queensu.ca>
My name is Jason an I'm a new Perl programmer trying some fancy stuff.
I am running an initialization script on my title page is using the <IMG>
tag and calling the script in the SRC. The script works fine but now I
have a broken image icon on my page. I'm trying to get rid of it by
sending a blank image with the script using the following lines:
print "Content-Type: image/gif"\n;
print "\n";
print "/jason/temp/blank.gif\n";
Well, as you guessed, it doesn't work. The URL to the image is given from
the web root, not the server root. What am I doing wrong?
Searching for a solution,
Jason
------------------------------
Date: Wed, 25 Jun 1997 20:15:45 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Chim Jason <4jc9@qlink.queensu.ca>
Subject: Re: HELP: Running a script without a form
Message-Id: <Pine.GSO.3.96.970625201504.1822V-100000@kelly.teleport.com>
On 25 Jun 1997, Chim Jason wrote:
> print "Content-Type: image/gif"\n;
There's your problem; the \n is outside the quotes. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 24 Jun 1997 16:51:47 -0400
From: elias@telcontar.tc.cornell.edu (Doug Elias)
Subject: How do you turn off LOCALE during perl5.004 configure?
Message-Id: <s9pg1u7k9lo.fsf@telcontar.tc.cornell.edu>
G'day ...
i'm trying to build 5.004 on an IBM RS6K running AIX 4.2, using xlc.
It builds just fine, except for the following warning, which gets
displayed many times during the build, and every time the binary is
run afterwards:
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = (unset),
LC__FASTMSG = "true",
LANG = "En_US"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
i can work around this by first "setenv LANG C", after which the
build, the tests, and the binary itself run without displaying the
warning; however, this is not a satisfactory solution for the entire
organization ... indeed, even putting a warpper around the binary
which does this first before calling the actual executable is not a
satisfactory solution.
i tried configuring the build with "-D NO_LOCALE", but got exactly the
same warning during the build, and just assumed that, had i let the
build complete, i would have gotten the same behavior as before.
i'm not allowed to modify the system-wide values for the various
LOCALE variables, and i don't seem to be able to tell configure to
build a binary that doesn't use them ... should i be able to?
Solutions gratefully accepted, please and thanks.
doug
--
__|_ Internet: elias@tc.cornell.edu
dr _|_)oug USmail: Sci.Comp.Support/Cornell Theory Center
(_| 737 Rhodes Hall/C.U./Ithaca/N.Y./14853-3801
(_|__ MaBelle: 607-254-8686 Fax: 607-254-8888
| MOOs: doug/DougE/Strider/Dun'a'dan
------------------------------
Date: Thu, 26 Jun 1997 02:30:17 GMT
From: swmcd@world.std.com (Steven W McDougall)
Subject: Re: Module in perl ?????
Message-Id: <ECD2yH.2HD@world.std.com>
Eric Le Strat <e.lestrat@cadcentre.fr> writes:
>i'm use perl since 3 days and i want make some module.
>How make?
Look at
http://world.std.com/~swmcd/steven/Perl
- SWM
------------------------------
Date: 26 Jun 1997 06:23:55 GMT
From: roustan@wwa.com (Yvon D. Roustan)
Subject: Perl and PGP interface
Message-Id: <5ot1tr$pj4$1@kirin.wwa.com>
I created a Perl5 script program that generates a message into a
variable I call '$CryptFile'. I am trying to use a subroutine that
employs UNIX 'sendmail' within the Perl script in an attempt to email
the $CryptFile. The problem is that it does not encrypt no matter what I
do.
I am trying to encrypt use PGP (PRETTY GOOD PRIVACY).
I am able to encrypt a file from the command prompt using Perl and PGP
so long as the message resides as a physical file in my public directory.
For example if the message is a file named 'message'in my public directory,
the following program I call 'encrypt.cgi' generates an encrypted file in
the public directory under the name 'message.asc' which I then can email
manually:
For example:
Program encrypt.cgi:
#!/usr/bin/perl
# encrypt.cgi
$filename = "message"; # I must type the file 'message' manually
# in my public directory
open(OUT, "| pgp -eat '$filename' userID");
close(OUT)
Procedure:
__________________________
After editing and saving a test file under the name 'message' in my
directory this program, when run from the UNIX command prompt with perl or
perl5, (with the command: perl encrypt.cgi), generates an encrypted file
in the same directory with the name 'message.asc' containing the encrypted
contents of the 'message' file. I can then easily email the encrypted file
'message.asc'.
I does not work, however, when I try modifying this program into a
subroutine to be executed from the main Perl script. I have tried many
variations without success. I am not interested at this time in the CPAN
modules, I am only interested in the reason it fails to perform.
____________________________________________________
Variation number 107
RESULTS: Creates a server error, fails to encrypt and it mails nothing
USE: &EncryptOrder($CryptFile); # to call the subroutine
The subroutine being:
sub EncryptOrder {
local($CryptFile) = @_;
$filename = "$CryptFile"; # note this is a variable, not an actual file
# in the public directory.
open(OUT, "| pgp -feat '$filename' userspublickey" > $CryptFile);
print(OUT);
close(OUT);
return ($CryptFile);
}
____________________________________________________
Variation number 102
RESULTS: Emails an empty message with the headers but no content, does not
encrypt anything.
USE: local ($CryptFile) = &getOrder1($user, email, $street, etc. ); # to call
# the subroutine
The subroutine being:
sub getOrder1 {
.....
etcetera
.....
$filename = "$CryptFile";
open(OUT, "|pgp -feat userpublickey < $filename" > $CryptFile);
print OUT $filename;
close OUT;
return($CryptFile);
}
____________________________________________________
Variation number 100
RESULTS: Emails a message with the headers and the name crypt.out, but
no content, and no encryption.
USE: local ($CryptFile) = &getOrder1($user, email, $street, etc. ); # to call
# the subroutine
The subroutine being:
sub getOrder1 {
.....
etcetera
.....
if ($#ARGV >=0) {
$CryptFile = shift @ARGV;
} else {
$CryptFile = "crypt.out";
}
$filename = "$CryptFile";
open(OUT,"| pgp -feat userpublickey < $filename > $CryptFile") || die "Can't run pgp\n";
print OUT $filename;
close(OUT);
return($CryptFile);
}
____________________________________________________
Variation number 105
RESULTS: Emails the complete message with the headers and the text. However,
no encryption at all. In other words the complete content but no encryption.
USE: local ($CryptFile) = &getOrder1($user, email, $street, etc. ); # to call
# the subroutine
The subroutine being:
sub getOrder1 {
.....
etcetera
.....
$filename = "$CryptFile";
open(OUT, "|pgp -feat userpublickey" > $CryptFile);
print OUT $filename;
close OUT;
return($CryptFile);
}
____________________________________________________
Variation number 106
RESULTS: Emails a message without encryption containing all the comments
within the script. It does not email the $CryptFile message.
USE: local ($CryptFile) = &getOrder1($user, email, $street, etc. ); # to call
# the subroutine
The subroutine being:
sub getOrder1 {
.....
etcetera
.....
$filename = "$CryptFile";
$childpid = open ( CHILD, "-|");
if ( !$childpid ) {
open(OUT, "|pgp -feat userpublickey" );
print OUT $filename;
close OUT;
exit;
}
$CryptFile = join('', <CHILD>);
close CHILD;
return($CryptFile);
}
____________________________________________________
Has someone had this problem before and can you offer any ideas or
suggestions. Thank you for your attention.
Regards,
Yvon D. Roustan
roustan@wwa.com
Following is the actual perl script summarized as much as possible:
++++++++++++++++++++++++++++++++++++++++
#!/usr/local/bin/perl5/perl
# message.cgi
push(@INC, "/your_cgi_library");
require 'forms-lib.cgi';
# Uses &GetFormInput();
.....
etcetera, etcetera, etcetera,
.....
# --- Global Variables ---
MAIN: {
local($subject) = "Encrypted Web Message"; # marks this message.
# Make this your own address for testing purposes.
local($orderdept) = "youremail\@youremailaddress.com"; # receiver of messages.
local($tax1) = 0.00; #unformatted field
print "<!-- Got tax1: $tax1 -->\n";
.....
etcetera, etcetera, etcetera
.....
# Extract information from the URL.
local(%input) = &GetFormInput();
local($user) = $input{'user'};
local($email) = $input{'email'};
.....
etcetera, etcetera, etcetera
.....
# Do error checking on Name and E-mail fields.
......
etcetera, etcetera, etcetera
......
print "Content-type: text/html\n\n";
# Set the mail message info.
local($CryptFile) = &getOrder1($user, $email, $street, $city, $state,
etcetera, etcetera, etcetera
$Name);
# Encrypt the message. Used only in variation 107 and variation 108
# &EncryptOrder($CryptFile);
# Send the mail message, from the user.
&SendMessage($email, $orderdept, $subject, $CryptFile);
print "<HTML><HEAD>\n";
print "<TITLE>GLOBAL SHOPPING SERVICE - Order Sent</TITLE>\n";
print "<BODY><H1>Order Sent</H1>\n";
print "<PRE>\n";
print $CryptFile;
print "</PRE>\n";
print "<H2>Thank You</H2>\n";
print "<BR><HR SIZE=3 WIDTH=70%><BR>\n";
print &Footer::GetFooter();
print "</BODY></HTML>\n";
}
# -- Utility Functions --
sub getOrder1 {
local($user, $email, $street, $city, $state, $zip, $items, $total,
$shipping, $Name) = @_;
local($CryptFile) = "
User: $user
E-mail: $email
Name: $Name";
.....
etcetera, etcetera, etcetera
.....
return($CryptFile);
}
# The above script was used with the variations in subroutine below
# +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# __________________________________________________
# Variation number 100
# emails a message with the headers and the name crypt.out, but no
# content, and no encryption
sub getOrder1 {
# if ($#ARGV >=0) {
# $CryptFile = shift @ARGV;
# } else {
# $CryptFile = "crypt.out";
# }
# $filename = "$CryptFile";
# open(OUT,"| pgp -feat userpublickey < $filename > $CryptFile") || die "Can't run pgp\n";
# print OUT $filename;
## $Passwd = "pass_word";
## open(OUT,"| crypt '$Passwd' > $CryptFile") || die "Can't run crypt\n";
## while(<>) {
## print OUT;
## }
# close(OUT);
# return($CryptFile);
# }
# ________________________________________________________
# Variation number 106
# emails a message without encryption containing all the comments within
# the script. It does not email the expected content of $CryptFile.
sub getOrder1 {
# $filename = "$CryptFile";
# $childpid = open ( CHILD, "-|");
# if ( !$childpid ) {
# open(OUT, "|pgp -feat userpublickey" );
# print OUT $filename;
# close OUT;
# exit;
# }
# $CryptFile = join('', <CHILD>);
# close CHILD;
# return($CryptFile);
# ____________________________________________________
# Variation number 102
# emails an empty message with the headers but no content, does not encrypt
# anything.
sub getOrder1 {
# $filename = "$CryptFile";
# open(OUT, "|pgp -feat userpublickey" > $CryptFile);
# print OUT $filename;
# close OUT;
# return($CryptFile);
# }
# _________________________________________________
# Variation number 107
# Sends Server Error
sub EncryptOrder {
local($CryptFile) = @_;
$filename = $CryptFile; # variable within order.cgi script
open(OUT, "|pgp -feat '$filename' userpublickey" > $CryptFile);
print OUT;
close(OUT);
return($CryptFile);
}
# _________________________________________________
# Variation number 108
# Sends server error
sub EncryptOrder {
local($CryptFile) = @_;
$filename = $CryptFile; # variable within order.cgi script
open(OUT, "|pgp -feat '$filename' userpublickey" > $CryptFile);
print OUT filename;
close(OUT);
return($CryptFile);
}
------------------------------
Date: Wed, 25 Jun 1997 10:47:39 +0200
From: Mattias Lvnnqvist <mattias.lonnqvist@uidesign.se>
Subject: Perlembed - cant compile
Message-Id: <33B0DB2B.5B71@uidesign.se>
I am trying to get perlembedding in C working, so my first step was
to check "man perlembed" which came up with some handy information,
including the following piece of code:
--- start
#include <stdio.h>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
int main (int argc, char **argv, char **env)
{
my_perl=perl_alloc;
perl_construct(my_perl);
perl_parse(my_perl, NULL; argc, argv, env);
perl_run(my_perl);
perl_destruct(my_perl);
perl_free(my_perl);
}
--- end.
System stats:
"perl -e 'use Config; print $Config{archlib}'" provides:
/usr/lib/perl5/i586-linux/5.003
"perl -e 'use Config; print $Config{libs}'" provides:
-lgdbm -ldbm -ldb -ldl -lm -lcns1
"perl -v" provides:
This is perl, version 5.003 with EMBED
built under linux at Jun 27 1996 21:52:16
+ suidperl security patch
Copyright 1987-1996, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.
The machine is running linux, I dont have root access, and according to
the administrator,
it was shipped with Perl prebuilt, meaning that he hasnt compiled it.
Compilation info:
First I tried with gcc, like this:
gcc -o interp interp.c -L/usr/lib/perl5/i586-linux/5.003/CORE
-I/usr/lib/perl5/i586-linux/5.003/CORE -lperl -lm
This generates millions of errors, first one being that it doesnt
recognize bool as type in perl.h
I therefor tryed with g++, which handles bool, like this:
g++ -o interp interp.c -L/usr/lib/perl5/i586-linux/5.003/CORE
-I/usr/lib/perl5/i586-linux/5.003/CORE -lperl -lm
THis generates less errors, but still errors.
I then tried the following:
gcc -o interp interp.c -I/usr/lib/perl5/i586-linux/5.003/CORE
-L/usr/lib/Perl5 -lperl -lm
gcc -o interp interp.c -I/usr/lib/perl5/i586-linux/5.003/CORE
/ -lperl -lm
gcc -o interp interp.c -lperl -lm
gcc -o interp interp.c -I/usr/lib/perl5/* -L/usr/lib/Perl5/* -lperl -lm
(where * = tried recursively adding subdirectories down to
/usr/lib/perl5/i586-linux/5.003/CORE)
Still with no success. Can anyone help me figure out whats wrong?
/Mattias
--
This was a message from Mattias Lonnqvist * mailto:malo@uidesign.se
http://www.uidesign.se/~malo * phone +46 - (0)13- 37 12 05
Unsolicited commercial email is subject to an archival fee of $400.
See <http://www.uidesign.se/~malo/mail.html> for more info.
------------------------------
Date: Wed, 25 Jun 1997 19:44:40 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Tom Creedon <tomcat77@erols.com>
Subject: Re: REGEX
Message-Id: <Pine.GSO.3.96.970625193150.1822P-100000@kelly.teleport.com>
On Wed, 25 Jun 1997, Tom Creedon wrote:
> Subject: REGEX
You should check out the frequent posting about choosing good subject
lines; that one is a little on the generic side. :-)
> I have been trying to convert a URL to REGEX. Specifically I want the
> "." character to be escaped, eg. "\.", but I have some URLs with ".*" in
> the path for wild cards and I don't want to escape them.
This is an incomplete specification of what you want. What should happen
to ".+", for example? (And either that or ".*" may be a valid part of a
URL. Uh-oh. :-)
But more to the point, it sounds as if you want to be able to see whether
a given URL points to a certain site. That's better done with substr, I'd
suspect.
if (lc(substr($string, 0, $len)) eq $something) { ... }
Would something like that do what you want? Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 26 Jun 1997 04:37:06 GMT
From: stephen@alias-2.pr.mcs.net (Stephen McCamant)
Subject: Re: RFC: Xlib.pm
Message-Id: <slrn5r3sd9.9o3.stephen@alias-2.pr.mcs.net>
On 24 Jun 1997 20:17:23 -0600, Randy J. Ray
<rjray@tremere.ecte.uswc.uswest.com> wrote:
>A few questions:
Speaking as someone else who has written a module interfacing perl to the X
protocol (which I hope to release sometime soon):
>* Why avoid using Xlib (or any of the X link libs)? Is there a reason to not
> write the XS code as wrappers over the known Xlib?
Conceptual difficulty. Writing XS is a complicated task. Xlib has hundreds
of calls, with lots of callbacks and structures that would require more code
to interface with. On my old computer, all the interface code generated
would take several minutes to compile.
--
____________________________________________________________
Stephen McCamant ======== alias@mcs.com (finger for PGP key)
------------------------------
Date: Wed, 25 Jun 1997 22:05:11 -0400
From: Jim <koke@patriot.net>
Subject: suidperl
Message-Id: <33B1CE57.4ACA@patriot.net>
I have been told the way to solve a problem that I am having is through
the use of suidperl. However, my attempts at using it have all failed.
Is there any experience out there? I have Perl 5.003 running on
Solaris 2.5.1 on an UltraSparc 170.
------------
All spammers are detected via pattern matching and automatically added
to my kill file with 98% accuracy...
------------------------------
Date: Wed, 25 Jun 1997 20:20:11 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Jim <koke@patriot.net>
Subject: Re: suidperl
Message-Id: <Pine.GSO.3.96.970625201657.1822W-100000@kelly.teleport.com>
On Wed, 25 Jun 1997, Jim wrote:
> I have been told the way to solve a problem that I am having is through
> the use of suidperl.
Maybe the person who told you that was lying. :-)
In any case, you should read perlsec before you start using suid scripts.
> However, my attempts at using it have all failed.
That's because you aren't supposed to use it. :-) Perl does that itself,
automatically, when it's needed. Once you've read perlsec, if you still
have questions or troubles, write again. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 25 Jun 1997 20:42:03 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: suidperl
Message-Id: <m3radq58tw.fsf@windlord.Stanford.EDU>
Jim <koke@patriot.net> writes:
> I have been told the way to solve a problem that I am having is through
> the use of suidperl. However, my attempts at using it have all failed.
> Is there any experience out there? I have Perl 5.003 running on Solaris
> 2.5.1 on an UltraSparc 170.
Solaris 2.5.1 has secure suid scripts, so you should not need suidperl.
What problem are you having?
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
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 666
*************************************
