| 56 |
|
|
| 57 |
=over |
=over |
| 58 |
|
|
| 59 |
=item B<-e>, B<--export>, B<-E>, B<--no-export> |
=item B<-e>, B<--export-old> |
| 60 |
|
|
| 61 |
Export/do not export old signatures. Default is to ask the user for each old |
Export old signatures. Default is to ask the user for each old signature. |
| 62 |
|
|
| 63 |
|
=item B<-E>, B<--no-export-old> |
| 64 |
|
|
| 65 |
|
Do not export old signatures. Default is to ask the user for each old |
| 66 |
signature. |
signature. |
| 67 |
|
|
| 68 |
=item B<-m>, B<--mail>, B<-M>, B<--no-mail> |
=item B<-m>, B<--mail> |
| 69 |
|
|
| 70 |
|
Send mail after signing. Default is to ask the user for each uid. |
| 71 |
|
|
| 72 |
|
=item B<-M>, B<--no-mail> |
| 73 |
|
|
| 74 |
Send/do not send mail after signing. Default is to ask the user for each uid. |
Do not send mail after signing. Default is to ask the user for each uid. |
| 75 |
|
|
| 76 |
=item B<-R>, B<--no-download> |
=item B<-R>, B<--no-download> |
| 77 |
|
|
| 677 |
'-V' => \$params->{'version'}, |
'-V' => \$params->{'version'}, |
| 678 |
'-u=s' => \$params->{'local-user'}, |
'-u=s' => \$params->{'local-user'}, |
| 679 |
'--local-user=s' => \$params->{'local-user'}, |
'--local-user=s' => \$params->{'local-user'}, |
| 680 |
'-e' => \$params->{'export'}, |
'-e' => \$params->{'export-old'}, |
| 681 |
'--export' => \$params->{'export'}, |
'--export-old' => \$params->{'export-old'}, |
| 682 |
'-E' => \$params->{'no-export'}, |
'-E' => \$params->{'no-export-old'}, |
| 683 |
'--no-export' => \$params->{'no-export'}, |
'--no-export-old' => \$params->{'no-export-old'}, |
| 684 |
'-m' => \$params->{'mail'}, |
'-m' => \$params->{'mail'}, |
| 685 |
'--mail' => \$params->{'mail'}, |
'--mail' => \$params->{'mail'}, |
| 686 |
'-M' => \$params->{'no-mail'}, |
'-M' => \$params->{'no-mail'}, |
| 1006 |
|
|
| 1007 |
if ($signed_by_me) { |
if ($signed_by_me) { |
| 1008 |
if ($NOW - $signed_by_me > $CONFIG{'export-sig-age'} ) { |
if ($NOW - $signed_by_me > $CONFIG{'export-sig-age'} ) { |
| 1009 |
my $write = ask("Signature on $this_uid_text is old. Export?", 0, $params->{export}, $params->{'no-export'}); |
my $write = ask("Signature on $this_uid_text is old. Export?", 0, $params->{'export-old'}, $params->{'no-export-old'}); |
| 1010 |
next unless $write; |
next unless $write; |
| 1011 |
}; |
}; |
| 1012 |
my $keydir = "$KEYSBASE/$DATE_STRING"; |
my $keydir = "$KEYSBASE/$DATE_STRING"; |