home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Der Mediaplex Sampler - Die 6 von Plex
/
6_v_plex.zip
/
6_v_plex
/
DISK5
/
DOS_10
/
PGP23ASR.ZIP
/
PGPCTB23.ZIP
/
MAIL_TIN.ZIP
/
MAILPGP
next >
Wrap
Text File
|
1993-03-07
|
1KB
|
40 lines
#!/usr/local/perl
# written by jason steiner, jsteiner@anwsun.phya.utoledo.edu, Jan 1993
#
# if you use or make improvements to this program i would appreciate
# copies of your modifications & your PGP public key.
($visual = $ENV{'VISUAL'}) || ($visual = '/usr/ucb/vi');
system($visual,@ARGV);
while (!$q) {
print "Sign this message? [Y]: ";
$q=<STDIN>;
chop $q;
if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {
push(@opts,'-st','+clearsig=on');
$q="y";
}
elsif (($q ne 'N') && ($q ne 'n')) {
$q='';
}
}
$q='';
while (!$q) {
print "Encrypt this message? [Y]: ";
$q=<STDIN>;
chop $q;
if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {
push(@opts,'-e');
$q="y";
}
elsif (($q ne 'N') && ($q ne 'n')) {
$q='';
}
}
if (@opts) {
$name=$ARGV[$#ARGV];
system('pgp','-a',@opts,$name);
system "mv ${name}.asc $name";
}