pgp in perl

[sasuser2006]

I'm running this script to encrypt in perl on a linux box...

#!/usr/bin/perl
my $key = "PGP_KEY";
my $file = $ARGV[0];

  $cmd = "sudo -u gpg /usr/bin/gpg --homedir=/u01/home/mydir/.gnupg --no-tty --encrypt --recipient \"$key\" < $file > $file.
gpg ";
  $res = system("$cmd");
  if($res) {
    print "ERROR: There was a problem...\n\t$res\n";
    exit;
  }

But i keep getting this error...

sudo: no passwd entry for gpg!
ERROR: There was a problem...
        256

Any advice would be much appreciated. Thanks in advance.

 

[Xaqte]

sudo needs a password.

At the command line, enter:

sudo -u gpg

It will ask for a password that you haven't provided.

If you have to use sudo, you may want to look at:

http://search.cpan.org/~landman/Sudo-0.21/lib/Sudo.pm

Let us know your results!

X

 

[sasuser2006]

I just tried this and it just gives me the usage for the sudo command...it doesn't prompt me for a password.

The link was interesting and I might be able to use it but I'm curious what the password would be for "sudo"ing gpg.

Thanks for the response.