On Tue, 2008-07-29 at 19:06 -0700, tvadnais wrote:
> Here is the true code if that helps:
> I've tried:
>
> foreach my $file ( @currset )
> {
> my $tmpstr = substr ($file, 0, index($file, ".pgp"));
> print ("trying to delete $tmpstr \n");
> ## pgp will core dump if there's already an unencrypted file
> ## with the destination source name... So we have to remove the
> ## previously decrypted file if it exists.
> unlink ($tmpstr);
> $tmpstr = "/usr/local/bin/pgp -z 'Chars process for WSHA' $file";
> if (system($tmpstr) == 0) {
> $notice .= LogMsg (MSG => "system $tmpstr failed: $?", DEBUG =>
> $debug);
system() returns zero for success. See `perldoc -f system`.
--
Just my 0.00000002 million dollars worth,
Shawn
"Where there's duct tape, there's hope."
"Perl is the duct tape of the Internet."
Hassan Schroeder, Sun's first webmaster
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
