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

   1 #!@PERL@ -w
   2 #
   3 # Copyright (c) 2005-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 Mathlida 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 }
  60
  61 sub decrypt() {
  62      system "gpg --batch --quiet --no-mdc-warning --decrypt --passphrase-fd 3  3<$AM_PASS";
  63 }
  64
  65 sub int_catcher {
  66     $sigint_seen = 1;
  67 }
  68
  69 sub pipe_catcher {
  70     $sigpipe_seen = 1;
  71 }
  72
  73 sub hup_catcher {
  74     $sighup_seen = 1;
  75 }
  76
  77 sub ill_catcher {
  78     $sigill_seen = 1;
  79 }
  80
  81 sub term_catcher {
  82     $sigterm_seen = 1;
  83 }
  84
  85 sub segv_catcher {
  86     $sigsegv_seen = 1;
  87 }
  88
  89 sub quit_catcher {
  90     $sigquit_seen = 1;
  91 }
  92
  93 sub fpe_catcher {
  94     $sigfpe_seen = 1;
  95 }
  96
  97 #main
  98
  99 $SIG{'INT'}   = 'int_catcher';
 100 $SIG{'PIPE'}  = 'pipe_catcher';
 101 $SIG{'HUP'}   = 'hup_catcher';
 102 $SIG{'ILL'}   = 'ill_catcher';
 103 $SIG{'TERM'}  = 'term_catcher';
 104 $SIG{'SEGV'}  = 'segv_catcher';
 105 $SIG{'QUIT'}  = 'quit_catcher';
 106 $SIG{'FPE'}   = 'FPE_catcher';
 107
 108
 109 if ( $#ARGV > 0 ) {
 110      die "Usage: $0 [-d]\n";
 111 }
 112
 113 if ( $#ARGV==0 && $ARGV[0] eq "-d" ) {
 114     decrypt();
 115 }
 116 else {
 117     encrypt();
 118 }
 119
 120 if ( $ddebug  ) {
 121     if ( $sigint_seen )  { print STDERR "strange sigint seen = $sigint_seen\n"; }
 122     if ( $sigpipe_seen ) { print STDERR "strange sigpipe seen = $sigpipe_seen\n"; }
 123     if ( $sighup_seen )  { print STDERR "strange sighup seen = $sighup_seen\n"; }
 124     if ( $sigill_seen )  { print STDERR "strange sigill seen = $sigill_seen\n"; }
 125
 126     if ( $sigterm_seen ) { print STDERR "strange sigterm seen = $sigterm_seen\n"; }
 127     if ( $sigsegv_seen ) { print STDERR "strange sigsegv seen = $sigsegv_seen\n"; }
 128     if ( $sigquit_seen ) { print STDERR "strange sigquit seen = $sigquit_seen\n"; }
 129     if ( $sigfpe_seen )  { print STDERR "strange sigfpe seen = $sigfpe_seen\n"; }
 130
 131 }
 132
 133 $SIG{'INT'}  = 'DEFAULT';
 134 $SIG{'PIPE'} = 'DEFAULT';
 135 $SIG{'HUP'}  = 'DEFAULT';
 136 $SIG{'ILL'}  = 'DEFAULT';
 137 $SIG{'TERM'} = 'DEFAULT';
 138 $SIG{'SEGV'} = 'DEFAULT';
 139 $SIG{'QUIT'} = 'DEFAULT';
 140 $SIG{'FPE'}  = 'DEFAULT';
 141