git.gag.com Git - debian/amanda/blob - common-src/amcryptsimple.pl

   1 #!@PERL@ -w
   2 #
   3 # Copyright (c) 2007,2008 Zmanda, Inc.  All Rights Reserved.
   4 #
   5 # This program is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License version 2 as published
   7 # by the Free Software Foundation.
   8 #
   9 # This program is distributed in the hope that it will be useful, but
  10 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  11 # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 # for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along
  15 # with this program; if not, write to the Free Software Foundation, Inc.,
  16 # 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 #
  18 # Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
  19 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
  20 #
  21
  22
  23
  24 # Run perl.
  25 eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  26          & eval 'exec /usr/bin/perl -S $0 $argv:q'
  27                 if 0;
  28
  29 use Time::Local;
  30
  31 my $AMANDA='@CLIENT_LOGIN@';
  32
  33 my $ddebug = 1;   # set to 1 to print signal debug to stderr
  34
  35 my $sigint_seen   = 0;
  36 my $sigpipe_seen  = 0;
  37 my $sighup_seen   = 0;
  38 my $sigill_seen   = 0;
  39 my $sigterm_seen  = 0;
  40 my $sigsegv_seen  = 0;
  41 my $sigquit_seen  = 0;
  42 my $sigfpe_seen   = 0;
  43
  44 $AMANDA_HOME = (getpwnam($AMANDA) )[7] || die "Cannot find $AMANDA home directory\n" ;
  45 $AM_PASS = "$AMANDA_HOME/.am_passphrase";
  46
  47 unless ( -e $AM_PASS ) {
  48   die "secret key $AM_PASS not found\n";
  49 }
  50
  51
  52 $ENV{'PATH'} = '/usr/local/bin:/usr/bin:/usr/sbin:/bin:/sbin:/opt/csw/bin';
  53
  54 $ENV{'GNUPGHOME'} = "$AMANDA_HOME/.gnupg";
  55
  56
  57 sub encrypt() {
  58     system "gpg --batch --no-secmem-warning --disable-mdc --symmetric --cipher-algo AES256 --passphrase-fd 3  3<$AM_PASS";
  59     if ($? == -1) {
  60         print STDERR "failed to execute gpg: $!\n";
  61         exit (1);
  62     } elsif ($? & 127) {
  63         printf STDERR "gpg died with signal %d\n", ($? & 127);
  64         exit ($?);
  65     } elsif ($? >> 8) {
  66         printf STDERR "gpg exited with value %d\n", ($? >> 8);
  67         exit ($? >> 8);
  68     }
  69 }
  70
  71 sub decrypt() {
  72     system "gpg --batch --quiet --no-mdc-warning --decrypt --passphrase-fd 3  3<$AM_PASS";
  73     if ($? == -1) {
  74         print STDERR "failed to execute gpg: $!\n";
  75         exit (1);
  76     } elsif ($? & 127) {
  77         printf STDERR "gpg died with signal %d\n", ($? & 127);
  78         exit ($?);
  79     } elsif ($? >> 8) {
  80         printf STDERR "gpg exited with value %d\n", ($? >> 8);
  81         exit ($? >> 8);
  82     }
  83 }
  84
  85 sub int_catcher {
  86     $sigint_seen = 1;
  87 }
  88
  89 sub pipe_catcher {
  90     $sigpipe_seen = 1;
  91 }
  92
  93 sub hup_catcher {
  94     $sighup_seen = 1;
  95 }
  96
  97 sub ill_catcher {
  98     $sigill_seen = 1;
  99 }
 100
 101 sub term_catcher {
 102     $sigterm_seen = 1;
 103 }
 104
 105 sub segv_catcher {
 106     $sigsegv_seen = 1;
 107 }
 108
 109 sub quit_catcher {
 110     $sigquit_seen = 1;
 111 }
 112
 113 sub fpe_catcher {
 114     $sigfpe_seen = 1;
 115 }
 116
 117 #main
 118
 119 $SIG{'INT'}   = 'int_catcher';
 120 $SIG{'PIPE'}  = 'pipe_catcher';
 121 $SIG{'HUP'}   = 'hup_catcher';
 122 $SIG{'ILL'}   = 'ill_catcher';
 123 $SIG{'TERM'}  = 'term_catcher';
 124 $SIG{'SEGV'}  = 'segv_catcher';
 125 $SIG{'QUIT'}  = 'quit_catcher';
 126 $SIG{'FPE'}   = 'FPE_catcher';
 127
 128
 129 if ( $#ARGV > 0 ) {
 130      die "Usage: $0 [-d]\n";
 131 }
 132
 133 if ( $#ARGV==0 && $ARGV[0] eq "-d" ) {
 134     decrypt();
 135 }
 136 else {
 137     encrypt();
 138 }
 139
 140 if ( $ddebug  ) {
 141     if ( $sigint_seen )  { print STDERR "strange sigint seen = $sigint_seen\n"; }
 142     if ( $sigpipe_seen ) { print STDERR "strange sigpipe seen = $sigpipe_seen\n"; }
 143     if ( $sighup_seen )  { print STDERR "strange sighup seen = $sighup_seen\n"; }
 144     if ( $sigill_seen )  { print STDERR "strange sigill seen = $sigill_seen\n"; }
 145
 146     if ( $sigterm_seen ) { print STDERR "strange sigterm seen = $sigterm_seen\n"; }
 147     if ( $sigsegv_seen ) { print STDERR "strange sigsegv seen = $sigsegv_seen\n"; }
 148     if ( $sigquit_seen ) { print STDERR "strange sigquit seen = $sigquit_seen\n"; }
 149     if ( $sigfpe_seen )  { print STDERR "strange sigfpe seen = $sigfpe_seen\n"; }
 150
 151 }
 152
 153 $SIG{'INT'}  = 'DEFAULT';
 154 $SIG{'PIPE'} = 'DEFAULT';
 155 $SIG{'HUP'}  = 'DEFAULT';
 156 $SIG{'ILL'}  = 'DEFAULT';
 157 $SIG{'TERM'} = 'DEFAULT';
 158 $SIG{'SEGV'} = 'DEFAULT';
 159 $SIG{'QUIT'} = 'DEFAULT';
 160 $SIG{'FPE'}  = 'DEFAULT';
 161