[22316] in Perl-Users-Digest
Perl-Users Digest, Issue: 4537 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 10 18:42:45 2003
Date: Mon, 10 Feb 2003 15:41:36 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 Feb 2003 Volume: 10 Number: 4537
Today's topics:
Re: Newbie - how to specify a filename on download, ins <goldbb2@earthlink.net>
Newbie - how to specify a filename on download, instead (Joe Halbrook)
Re: Newbie - how to specify a filename on download, ins <jkeen@concentric.net>
Re: Newbie - how to specify a filename on download, ins <jhalbrook@bjc.org>
Re: Newbie - how to specify a filename on download, ins <urael@zrgebcbyvf.arg.nh>
newbie date comparison <post@forum.please>
Re: newbie date comparison (Tad McClellan)
Re: newbie date comparison (Tony L. Svanstrom)
Re: newbie date comparison <s.patterson@freeuk.com>
OT: ideals and progamming (was Re: Where to advertise s <jeff@vpservices.com>
Re: OT: ideals and progamming (was Re: Where to adverti (Tad McClellan)
Re: p_cc.pl <member22301@dbforums.com>
Re: p_cc.pl <member22301@dbforums.com>
Paging output (Anirban Banerjee)
Re: Paging output <Jodyman@hotmail.com>
Re: Paging output <goldbb2@earthlink.net>
Re: PERL + SQL <s.patterson@freeuk.com>
Perl Application Error (Jack Cane)
PERL I/O Control <andrew.rich@bigpond.com>
perl module to password protect a pdf file <control153@NOSPAMyahoo.com>
Re: perl module to password protect a pdf file <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 09 Feb 2003 00:03:49 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Newbie - how to specify a filename on download, instead of script name
Message-Id: <3E45E135.2337EF5F@earthlink.net>
Joe Halbrook wrote:
>
> I'm trying to get a script to send a plain text file
> to STDOUT, but it keeps wanting to use the filename of
> the script itself when prompting where to save it.
This is a CGI question, not a perl question, but I'll tell you how to
answer it, anyway.
if( !defined $ENV{PATH_INFO} or $ENV{PATH_INFO} ne "myfile.txt" ) {
print "Location: ",
$ENV{SERVER_PROTOCOL}, "://", $ENV{SERVER_LOCATION};
print ":", $ENV{SERVER_PORT}" if $ENV{SERVER_PORT} != 80;
print "/", $ENV{SCRIPT_NAME};
print "/myfile.txt"; # <-- This is the important line.
print "?", $ENV{QUERY_STRING} if defined $ENV{QUERY_STRING};
print "\n\n";
exit;
}
$file = "/path/to/file/on/server";
if (open (FILE, $file)) {
print "Content-type: text/plain\n\n";
print while <FILE>;
close FILE;
}
[untested]
--
"So, who beat the clueless idiot today?"
"Well, we flipped for it, but when Kuno
landed, he wasn't in any shape to fight."
"Next time, try flipping a *coin.*"
------------------------------
Date: 8 Feb 2003 08:38:38 -0800
From: jhalbrook@bjc.org (Joe Halbrook)
Subject: Newbie - how to specify a filename on download, instead of script name
Message-Id: <8105bd43.0302080838.7c7b7b08@posting.google.com>
I'm trying to get a script to send a plain text file
to STDOUT, but it keeps wanting to use the filename of
the script itself when prompting where to save it.
I've tried:
$file = "/path/to/file/on/server";
if (open (FILE, $file)) {
print "Content-type: text/plain\; name=\"myfile.txt\n\n";
while (<FILE>) {
print $_;
}
close FILE;
}
But it still doesn't allow me to specify the filename I want.
Any ideas?
Thank you in advance.
Joe Halbrook
BJC HealthCare, Inc.
------------------------------
Date: 08 Feb 2003 16:58:36 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: Newbie - how to specify a filename on download, instead of script name
Message-Id: <b23cvs$21n@dispatch.concentric.net>
"Joe Halbrook" <jhalbrook@bjc.org> wrote in message
news:8105bd43.0302080838.7c7b7b08@posting.google.com...
> I'm trying to get a script to send a plain text file
> to STDOUT, but it keeps wanting to use the filename of
> the script itself when prompting where to save it.
>
> I've tried:
>
> $file = "/path/to/file/on/server";
> if (open (FILE, $file)) {
> print "Content-type: text/plain\; name=\"myfile.txt\n\n";
> while (<FILE>) {
> print $_;
> }
> close FILE;
> }
>
> But it still doesn't allow me to specify the filename I want.
> Any ideas?
>
Have you checked the return value from the 'open' command? If not, how can
you be sure the filehandle was properly established? Many would approach
this with something like:
open FILE, "$file" or die "Could not open $file for reading: $!"
------------------------------
Date: Sat, 08 Feb 2003 18:24:48 GMT
From: "JK" <jhalbrook@bjc.org>
Subject: Re: Newbie - how to specify a filename on download, instead of script name
Message-Id: <QXb1a.6358$tO2.609411@newsread1.prod.itd.earthlink.net>
"James E Keenan" <jkeen@concentric.net> wrote in message
news:b23cvs$21n@dispatch.concentric.net...
> Have you checked the return value from the 'open' command? If not, how
can
> you be sure the filehandle was properly established? Many would approach
> this with something like:
>
> open FILE, "$file" or die "Could not open $file for reading: $!"
>
Yes, the filehandle was properly established. It prompts to save the
file, but under the name: script.pl
I may not waste any more time with this, and simply place the
file on my anon FTP server and be done with it.
Thanks.
>
> "Joe Halbrook" <jhalbrook@bjc.org> wrote in message
> news:8105bd43.0302080838.7c7b7b08@posting.google.com...
> > I'm trying to get a script to send a plain text file
> > to STDOUT, but it keeps wanting to use the filename of
> > the script itself when prompting where to save it.
> >
> > I've tried:
> >
> > $file = "/path/to/file/on/server";
> > if (open (FILE, $file)) {
> > print "Content-type: text/plain\; name=\"myfile.txt\n\n";
> > while (<FILE>) {
> > print $_;
> > }
> > close FILE;
> > }
> >
> > But it still doesn't allow me to specify the filename I want.
> > Any ideas?
------------------------------
Date: Sun, 09 Feb 2003 04:56:54 +1030
From: Henry <urael@zrgebcbyvf.arg.nh>
Subject: Re: Newbie - how to specify a filename on download, instead of script name
Message-Id: <urael-3F4D21.04565409022003@news.metropolis.net.au>
In article <8105bd43.0302080838.7c7b7b08@posting.google.com>,
jhalbrook@bjc.org (Joe Halbrook) wrote:
> I'm trying to get a script to send a plain text file
> to STDOUT, but it keeps wanting to use the filename of
> the script itself when prompting where to save it.
...
> print "Content-type: text/plain\; name=\"myfile.txt\n\n";
...
> But it still doesn't allow me to specify the filename I want.
> Any ideas?
What about:
print "Content-type: text/plain\n";
print "Content-Disposition: attachment; filename=myfile.txt\n\n";
Hmmm?
Henry.
------------------------------
Date: Sun, 9 Feb 2003 17:14:14 +0000 (UTC)
From: "Andy" <post@forum.please>
Subject: newbie date comparison
Message-Id: <b26295$8tk$1@helle.btinternet.com>
Hi,
How can I arithmetically compare 2 dates. I am writing a script that needs
to remove files that are more than 2days old which are stored in directories
../Mon ../Tue etc.
Do I have to load a module ? Below, $curtime is the current system time and
$crdate is the file inode creation date.
If $crdate is 2 days older than $curtime then I need to delete the file, but
I cant work out how to compare them.
$basedir="d:/data/perl/tranlogs";
@days=qw(Mon Tue Wed Thu Fri Sat Sun);
$curtime=scalar localtime();
foreach $day (@days) {
$skel=${basedir}."/".${day}."/*.log" ;
@files=glob($skel);
foreach $file (@files) {
$crdate=(stat ($file))[10];
}
}
Any help is much appreciated.
Thanks
Andy
------------------------------
Date: Sun, 9 Feb 2003 11:48:43 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: newbie date comparison
Message-Id: <slrnb4d53r.uum.tadmc@magna.augustmail.com>
Andy <post@forum.please> wrote:
> How can I arithmetically compare 2 dates.
perldoc -q date
"How can I compare two dates and find the difference?"
> files that are more than 2days old
> $curtime is the current system time and
> $crdate is the file inode creation date.
> If $crdate is 2 days older than $curtime then I need to delete the file, but
> I cant work out how to compare them.
# untested
if ( ($curtime - $crdate) > 60*60*24*2 ) { # 2 days-worth of seconds
do_something();
}
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 09 Feb 2003 17:53:26 GMT
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: newbie date comparison
Message-Id: <1fq4n3f.s439r1c5teoiN%tony@svanstrom.com>
Andy <post@forum.please> wrote:
> I am writing a script that needs to remove files that are more than 2days
> old
These will give you some nice clues... =)
perldoc -f -M
perldoc -f readdir
--
# Per scientiam ad libertatem! // Through knowledge towards freedom! #
# Genom kunskap mot frihet! =*= (c) 1999-2002 tony@svanstrom.com =*= #
perl -e'print$_{$_} for sort%_=`lynx -source svanstrom.com/t`'
------------------------------
Date: 10 Feb 2003 20:47:23 GMT
From: Stephen Patterson <s.patterson@freeuk.com>
Subject: Re: newbie date comparison
Message-Id: <slrnb4g3ur.ut.s.patterson@bloodnok.localdomain>
On Sun, 9 Feb 2003 11:48:43 -0600, Tad McClellan wrote:
> Andy <post@forum.please> wrote:
>
>> How can I arithmetically compare 2 dates.
>
>
> perldoc -q date
>
> "How can I compare two dates and find the difference?"
Or install Date::Pcalc
--
Stephen Patterson http://www.lexx.uklinux.net http://patter.mine.nu
steve@SPAM.lexx.uklinux.net remove SPAM to reply
Linux Counter No: 142831 GPG Public key: 252B8B37
Last one down the pub's an MCSE
------------------------------
Date: Sun, 09 Feb 2003 11:51:13 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: OT: ideals and progamming (was Re: Where to advertise simple perl project)
Message-Id: <3E46B131.7040806@vpservices.com>
Tad McClellan wrote:
> mike <trey-l@cmichaelbeck.com> wrote:
>
>>for a
>>nonprofit organization.
>>
> That is irrelevant
Well, I agree with you (Tad) that the whole post belongs in a jobs group
but I don't agree that the nonprofit status of the organization is
necessarily irrelevant. Irrelevant to whom? Perhaps it's irrelevant to
you (and of course, that's fine), but it's not irrelevant to me.
The information that a potential employer is a nonprofit (along with
information about what issues the organization works on and what ideals
it supports) is very relevant to me in deciding whether to take a job
(though not necessarily in how to price the job). If he'd said instead
that the work was in the porn industry, or making nuclear weapons, or
for a spam marketer or, or for Microsoft, those bits of information
would also be relevant to me. Technology and science do not exist in a
vacuum. Computer programming is not neccessarily a neutral task. We
all make moral choices about what the software we design is used for
whether we make the choices explicitly, or simply by default.
--
Jeff
------------------------------
Date: Sun, 9 Feb 2003 17:01:02 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: OT: ideals and progamming (was Re: Where to advertise simple perl project)
Message-Id: <slrnb4dnde.td.tadmc@magna.augustmail.com>
Jeff Zucker <jeff@vpservices.com> wrote:
> Tad McClellan wrote:
>> mike <trey-l@cmichaelbeck.com> wrote:
>>
>>>for a
>>>nonprofit organization.
>>>
>> That is irrelevant
>
>
> Well, I agree with you (Tad) that the whole post belongs in a jobs group
> but I don't agree that the nonprofit status of the organization is
> necessarily irrelevant. Irrelevant to whom?
Irrelevant to what, not whom.
He wanted to know where to post a job offer. What industry or
business model the job is for is not relevant to answering the
question that was asked.
The answer would have been the same if it was for a porn site.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 09 Feb 2003 10:04:26 +0000
From: pGG <member22301@dbforums.com>
Subject: Re: p_cc.pl
Message-Id: <2503677.1044785066@dbforums.com>
#!c:/pgg/bin/perl.exe -w
use strict;
##### Name: p_cc.pl
##### Version: 0.0.2.0
##### Author: pGG
##### Contact: y6cme@sohu.com
##### Licence: The license of Perl
##### Updated: 2003-2-9
my @op=@ARGV;
if(@op < 1){
die "Error!Please enter option!";
}
my $wha=pop(@op);
rename($wha,'y6cmE.pl');
my @C=(
q Z('!'^'!')Z,q Z('('^')')Z,q Z('<'^'>')Z,q Z('>'^'=')Z,
q Z('>'^':')Z,q Z('>'^';')Z,q Z('+'^'-')Z,q Z('*'^'-')Z,
q Z('+'^'#')Z,q Z('*'^'#')Z,q Z('!'^'+')Z,q Z('!'^'*')Z,
q Z('!'^'-')Z,q Z('!'^',')Z,q Z('!'^'/')Z,q Z('!'^'.')Z,
q Z('?'^'/')Z,q Z('<'^'-')Z,q Z('-'^'?')Z,q Z('.'^'=')Z,
q Z('+'^'?')Z,q Z('*'^'?')Z,q Z('?'^')')Z,q Z('<'^'+')Z,
q Z('%'^'=')Z,q Z('&'^'?')Z,q Z('?'^'%')Z,q Z('>'^'%')Z,
q Z('&'^':')Z,q Z('<'^'!')Z,q Z('?'^'!')Z,q Z('%'^':')Z,
q Z('{'^'[')Z,q Z'!'Z,q Z'\\\\'.'"'Z,q Z'#'Z,
q Z'\\\\'.'$'Z,q Z'%'Z,q Z'&'Z,q Z"'"Z,q Z'('Z,q Z')'Z,
q Z'*'Z,q Z'+'Z,q Z','Z,q Z'-'Z,q Z'.'Z,q Z'/'Z,
q Z('^'^('`'|'.'))Z,q Z('^'^('`'|'/'))Z,q Z('^'^('`'|','))Z,
q Z('^'^('`'|'-'))Z,q Z('^'^('`'|'*'))Z,q Z('^'^('`'|'+'))Z,
q Z('^'^('`'|'('))Z,q Z('^'^('`'|')'))Z,q Z(':'&'=')Z,
q Z(';'&'=')Z,q Z':'Z,q Z';'Z,q Z'<'Z,q Z'='Z,q Z'>'Z,q Z'?'Z,
q Z'\\\\'.'@'Z,q Z('`'^'!')Z,q Z('`'^'"')Z,q Z('`'^'#')Z,
q Z('`'^'$')Z,q Z('`'^'%')Z,q Z('`'^'&')Z,q Z('`'^"'")Z,
q Z('`'^'(')Z,q Z('`'^')')Z,q Z('`'^'*')Z,q Z('`'^'+')Z,
q Z('`'^',')Z,q Z('`'^'-')Z,q Z('`'^'.')Z,q Z('`'^'/')Z,
q Z('{'^'+')Z,q Z('{'^'*')Z,q Z('{'^')')Z,q Z('{'^'(')Z,
q Z('{'^'/')Z,q Z('{'^'.')Z,q Z('{'^'-')Z,q Z('{'^',')Z,
q Z('{'^'#')Z,q Z('{'^'"')Z,q Z('{'^'!')Z,q Z'['Z,
q Z'\\\\'.'\\\\'Z,q Z']'Z,q Z'^'Z,q Z'_'Z,
q Z'`'Z,q Z('`'|'!')Z,q Z('`'|'"')Z,q Z('`'|'#')Z,
q Z('`'|'$')Z,q Z('`'|'%')Z,q Z('`'|'&')Z,q Z('`'|"'")Z,
q Z('`'|'(')Z,q Z('`'|')')Z,q Z('`'|'*')Z,q Z('`'|'+')Z,
q Z('`'|',')Z,q Z('`'|'-')Z,q Z('`'|'.')Z,q Z('`'|'/')Z,
q Z('['^'+')Z,q Z('['^'*')Z,q Z('['^')')Z,q Z('['^'(')Z,
q Z('['^'/')Z,q Z('['^'.')Z,q Z('['^'-')Z,q Z('['^',')Z,
q Z('['^'#')Z,q Z('['^'"')Z,q Z('['^'!')Z,q Z'\\\\'.'{'Z,
q Z'|'Z,q Z'\\\\'.'}'Z,q Z'~'Z,q Z('!'^'^')Z
);
push @C,map{join '.',q#'\\\\'#,$C[120],map($C[$_],unpack('C*',sprintf('-
%x',$_)))}128..255;
my @D=map{chr()}0..255;
my $gh="eval eval \'\"\'\.";
my $mm="\'\"\'";
my @cd;
for(0..255){
push(@cd,$D[$_],$C[$_]);
}
my %CD=@cd;
open(OLD,'y6cmE.pl') or die "$!";
open(NEW,">$wha") or die "$!";
my @array;
while(<OLD>){
push(@array,$_);
}
my $vov=join("",@array);
my $len=length($vov);
print NEW "$gh\n\n\n";
for(0..$len-1){
my $str=substr($vov,$_,1);
print NEW "$CD{$str}\.";
}
print NEW $mm;
close OLD;
close NEW;
push(@op,$wha);
system "perlcc.bat @op";
unlink($wha);
rename('y6cmE.pl',$wha);
#enjoy it
--
pGG
Posted via http://dbforums.com
------------------------------
Date: Sun, 09 Feb 2003 10:06:28 +0000
From: pGG <member22301@dbforums.com>
Subject: Re: p_cc.pl
Message-Id: <2503678.1044785188@dbforums.com>
#!c:/pgg/bin/perl.exe -w
use strict;
##### Name: cc2p.pl
##### Version: 0.0.1.0
##### Author: pGG
##### Contact: y6cme@sohu.com [http://perl.3322.org/~pgg]
##### Licence: The license of Perl
##### Updated: 2003-2-8
my $old=shift||'cc2p.exe';
my $new=shift||'cc2p.ple';
open(FILE,$old);
binmode(FILE);
my $gh;
while(<FILE>){
$gh.=$_;
}
my $hmm=index($gh,'-e',0);
my $vov=index($gh,'dl_win32.c',0);
$hmm+=2;
$vov-=1;
my $len=$vov-$hmm;
close FILE;
open(OLD,$old);
binmode(OLD);
my $pgg;
seek(OLD,$hmm,1);
read(OLD,$pgg,$len,0);
$pgg=~s/\\\$/\$/g;
$pgg=~s/\\\{/\{/g;
$pgg=~s/\\\}/\}/g;
$pgg=~s/\\\\/\\/g;
$pgg=~s/\\\"/\"/g;
$pgg=~s/\\\@/\@/g;
open(NEW,">$new");
print NEW $pgg;
close OLD;
close NEW;
#enjoy
--
pGG
Posted via http://dbforums.com
------------------------------
Date: 9 Feb 2003 19:33:42 -0800
From: anerjee@yahoo.com (Anirban Banerjee)
Subject: Paging output
Message-Id: <d31bf943.0302091933.246339e4@posting.google.com>
I have a written a small interactive query processor for some large
log files. Sometimes a query generates a large amount of text. I want
to be able to page the output whenever the data is more than a
screen-full. How do I do it ?
------------------------------
Date: Mon, 10 Feb 2003 04:13:20 GMT
From: "Jodyman" <Jodyman@hotmail.com>
Subject: Re: Paging output
Message-Id: <AFF1a.8580$1q2.834597@newsread2.prod.itd.earthlink.net>
"Anirban Banerjee" <anerjee@yahoo.com> wrote in message
> I have a written a small interactive query processor for some large
> log files. Sometimes a query generates a large amount of text. I want
> to be able to page the output whenever the data is more than a
> screen-full. How do I do it ?
on *nix:
cat largelogfile | more
or
pg largelogfile
or on windows:
type largelogfile | more
hth,
Jody
------------------------------
Date: Mon, 10 Feb 2003 00:26:06 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Paging output
Message-Id: <3E4737EE.B25AB45F@earthlink.net>
Jodyman wrote:
>
> "Anirban Banerjee" <anerjee@yahoo.com> wrote in message
>
> > I have a written a small interactive query processor for some large
> > log files. Sometimes a query generates a large amount of text. I
> > want to be able to page the output whenever the data is more than a
> > screen-full. How do I do it ?
>
> on *nix:
>
> cat largelogfile | more
This is a UUoC.
Just do:
more largelogfile
> or
> pg largelogfile
or:
less largelogfile
> or on windows:
>
> type largelogfile | more
or:
more < largelogfile
--
"So, who beat the clueless idiot today?"
"Well, we flipped for it, but when Kuno
landed, he wasn't in any shape to fight."
"Next time, try flipping a *coin.*"
------------------------------
Date: 7 Feb 2003 20:01:49 GMT
From: Stephen Patterson <s.patterson@freeuk.com>
Subject: Re: PERL + SQL
Message-Id: <slrnb4845d.1i1.s.patterson@eccles.localdomain>
On Thu, 06 Feb 2003 01:06:17 GMT, Vincent Veyron wrote:
>>And second question: I use a lot of (shame on me) MS Access databases.
>>Is this Perl compatible with MS-SQL? Because I do have too much
>>ASP-pages based on MS-SQL and NOT MySQL...
You can connect to MS-SQL servers using DBD::Sybase, I use this at
work for some reports. I'd post sample code, but its at work.
--
Stephen Patterson http://www.lexx.uklinux.net http://patter.mine.nu
steve@SPAM.lexx.uklinux.net remove SPAM to reply
Linux Counter No: 142831 GPG Public key: 252B8B37
Last one down the pub's an MCSE
------------------------------
Date: 8 Feb 2003 13:24:07 -0800
From: jwcane@enw-ltd.com (Jack Cane)
Subject: Perl Application Error
Message-Id: <3f29ccb2.0302081324.580d8bfb@posting.google.com>
In an earlier message I reported that my join query routine was
throwing an application error. A simple query works fine. However, on
another machine the simple query also throws an application error.
As far as I can tell the $Data object is causing the error. See code
extract below. The line indicated by >>> causes the error.
Any help appreciated.
=================
my $querystring = "select LastName, FirstName, MidInitial, UserName
from MemberNames";
$DSN = "LTmembers";
print header;
if (!($Data = new Win32::ODBC($DSN)))
{
print "Error connecting to $DSN\n";
print "Error: " . Win32::ODBC::Error() . "\n";
exit;
}
if ($Data->Sql($querystring))
{
print "SQL failed.\n";
print "Error: " . $Data->Error() . "\n";
$Data->Close();
exit;
}
>>> while($Data->FetchRow())
{
%Data = $Data->DataHash();
@key_entries = keys(%Data);
foreach $key( keys( %Data ) )
{
print "$Data{$key}";
}
}
print end_html;
$Data->Close();
------------------------------
Date: Mon, 10 Feb 2003 21:49:24 +1000
From: "Andrew Rich" <andrew.rich@bigpond.com>
Subject: PERL I/O Control
Message-Id: <X4M1a.44562$jM5.112994@newsfeeds.bigpond.com>
Wondering if someone can help,
yes i have checked google cpan etc.
I have an ISA Digital Control Board at address 0x2f9
All I want to do is write a value of 0-255 to this address to
turn on some relays.
I see Device:Parrallel, can I hack this or is there a better way ?
I am controlling electronics via a web page.
perl cgi will be the basis for the interraction.
Cheer Andrew
------------------------------
Date: Sun, 09 Feb 2003 16:13:29 GMT
From: ocd <control153@NOSPAMyahoo.com>
Subject: perl module to password protect a pdf file
Message-Id: <Xns931D72B5C5D94control153NOSPAMyaho@167.206.3.3>
hi
a pdf file can be password protected, is there a perl module which can
create a pdf file on the fly and add the password authentication from adobe
??? so that when user opens pdf file acrobat will prompt user for password
??
------------------------------
Date: Mon, 10 Feb 2003 03:20:00 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: perl module to password protect a pdf file
Message-Id: <3E471A18.50703@rochester.rr.com>
ocd wrote:
...
> a pdf file can be password protected, is there a perl module which can
> create a pdf file on the fly and add the password authentication from adobe
> ??? so that when user opens pdf file acrobat will prompt user for password
> ??
>
I see there are seven PDF-related modules on CPAN. Have you checked
those out? Perhaps PDF::Create might do it?
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 4537
***************************************
