Perl + OpenSSL

2005-11-21 Thread Ward.P.Fontenot
Can anyone shed some light on why this doesn't work? $certificate = /some/where/file.pem; $encoded = ' . sha1($_) . '; $signed = system(`openssl rsautl -certin $certificate -encrypt -in $encoded`); $signed doesn't end up as a certificate signed value, it ends up as this number 65280. $encoded

RE: Perl + OpenSSL

2005-11-21 Thread Ward.P.Fontenot
Well, that explained that. Is there a way to do this then? Or am I barking up the wrong tree? -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Monday, November 21, 2005 2:06 PM To: Fontenot, Ward P. Cc: beginners@perl.org Subject: Re: Perl + OpenSSL [EMAIL

System call for openssl

2005-11-10 Thread Ward.P.Fontenot
If I have: $certificate = /home/oracle/certs/oracle.pem; $encoded = encode_base64($sha1data); Can I do something like this: system('openssl smime smime -sign -outform der -nodetach -out $signed -signer $certificate -in $encoded'); To get a value for $signed? Paul Fontenot WFS - CAST Operations

RE: how to print time ???

2005-11-08 Thread Ward.P.Fontenot
An example use POSIX qw(strftime); $date = strftime %Y.%m.%d.%H.%M.%S, localtime; print $date \n; Prints 2005.11.08.14.00.00 (Year, month, day, hour, minute, second) -Original Message- From: heena s [mailto:[EMAIL PROTECTED] Sent: Tuesday, November 08, 2005 12:44 PM To: begineers perl

Regex

2005-11-07 Thread Ward.P.Fontenot
I have a field that looks like this: 'modprobe: modprobe: Can't locate module char-major-10-134' I need to add a single quote so that it looks like this: 'modprobe: modprobe: Can''t locate module char-major-10-134' But I have no idea how to go about doing that, can I get an example? Thanks

RE: Regex

2005-11-07 Thread Ward.P.Fontenot
Yes they are -Original Message- From: Timothy Johnson [mailto:[EMAIL PROTECTED] Sent: Monday, November 07, 2005 12:46 PM To: Fontenot, Ward P. Subject: RE: Regex Are the outer quotes part of the field? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent:

RE: Regex

2005-11-07 Thread Ward.P.Fontenot
I need to retain the outer quotes and only add the single quote if it exists in the field. For instance... Not here: 'kernel: mtrr: Serverworks LE detected. Write-combining disabled.' But here: 'modprobe: modprobe: Can't locate module char-major-10-134' I hope that makes it alittle clearer than

RE: Regex

2005-11-07 Thread Ward.P.Fontenot
Thanks a million, that one did it -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Monday, November 07, 2005 1:55 PM To: Fontenot, Ward P. Cc: beginners@perl.org Subject: Re: Regex [EMAIL PROTECTED] wrote: I have a field that looks like this: 'modprobe:

RE: about creating a file in directory

2005-11-07 Thread Ward.P.Fontenot
You need to look for open / close. Example: open(TMP, test.file) || die Can't open test.file: $! \n; From there you are printing to it print TMP Whatever you are wanting to get into the file; And closing Close(TMP); -Original Message- From: ZHAO, BING [mailto:[EMAIL PROTECTED]

Simple table question?

2005-01-03 Thread Ward.P.Fontenot
Hi, I have a working DBI::Oracle script that I am now trying to get CGI.pm to HTML-ize the output of, My problem is in the table statement how can I get the output of the while statement to be in the table? I have just about beat myself silly trying to figure this out. SCRIPT: #!/usr/bin/perl #

RE: Simple table question?

2005-01-03 Thread Ward.P.Fontenot
Thanks, that fixed it once I changed the us CGI qw(:standard escapeHTML); to use CGI qw/:standard *table/; -Original Message- From: Shaun Fryer [mailto:[EMAIL PROTECTED] Sent: Monday, January 03, 2005 3:18 PM To: Fontenot, Ward P. Subject: Re: Simple table question? On Mon, Jan 03,