PAL.C.T MINI SHELL
#!/usr/bin/perl
# import.cgi
# Import somebody's public key
require './gnupg-lib.pl';
&ReadParseMime();
&error_setup($text{'import_err'});
if ($in{'mode'} == 0) {
# From uploaded file, saved to temp
$in{'upload'} || &error($text{'import_ekey'});
$temp = &transname();
open(TEMP, ">$temp");
print TEMP $in{'upload'};
close(TEMP);
$out = `$gpgpath --import $temp 2>&1`;
unlink($temp);
}
elsif ($in{'mode'} == 1) {
# From local file
$in{'file'} = "$remote_user_info[7]/$in{'file'}"
if ($in{'file'} !~ /^\//);
-r $in{'file'} || &error($text{'import_efile'});
$out = `$gpgpath --import '$in{'file'}' 2>&1`;
}
elsif ($in{'mode'} == 2) {
# From pasted text
$in{'text'} || &error($text{'import_etext'});
$in{'text'} =~ s/\r//g;
$temp = &transname();
open(TEMP, ">$temp");
print TEMP $in{'text'};
close(TEMP);
$out = `$gpgpath --import $temp 2>&1`;
unlink($temp);
}
if ($?) {
&error(&text('import_egpg', "<tt>$out</tt>"));
}
&redirect("list_keys.cgi");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`