backup/backuplib.pl

   1 #
   2
   3 sub printdate () {
   4     print scalar(localtime),"\n";
   5 }
   6
   7 sub setstatus ($) {
   8     open S, ">this-status.new" or die $!;
   9     print S $_[0],"\n" or die $!;
  10     close S or die $!;
  11     rename "this-status.new","this-status" or die $!;
  12 }
  13
  14 sub startprocess ($$$) {
  15     my ($i,$o,$c) = @_;
  16     print LOG "  $c\n" or die $!;
  17     print "  $c\n" or die $!;
  18     defined($p= fork) or die $!;
  19     if ($p) { $processes{$p}= $c; return; }
  20     open STDIN,"$i" or die "$c stdin $i: $!";
  21     open STDOUT,"$o" or die "$c stdout $o: $!";
  22     &closepipes;
  23     exec $c; die "$c: $!";
  24 }
  25
  26 sub endprocesses () {
  27     while (keys %processes) {
  28         $p= waitpid(-1,0) or die "wait: $!";
  29         if (!exists $processes{$p}) { warn "unknown pid exited: $p, code $?\n"; next; }
  30         $c= $processes{$p};
  31         delete $processes{$p};
  32         $? && die "error: command gave code $?: $c\n";
  33     }
  34     print LOG "  ok\n" or die $!;
  35     print "  ok\n" or die $!;
  36 }
  37
  38 sub killprocesses {
  39     for $p (keys %processes) {
  40         kill 15,$p or warn "kill process $p: $!";
  41     }
  42     undef %processes;
  43 }
  44
  45 sub readfsys ($) {
  46     my ($fsnm) = @_;
  47     open F, "$etc/fsys.$fsnm" or die "Filesystems $fsnm unknown ($!).\n";
  48     for (;;) {
  49         $_= <F> or die; chomp; s/\s*$//;
  50         last if m/^end$/;
  51         next unless m/\S/;
  52         next if m/^\#/;
  53         if (m/^prefix\s+(\w+)\s+(\S.*\S)$/) {
  54             $prefix{$1}= $2;
  55             next;
  56         } elsif (m/^prefix\-df\s+(\w+)\s+(\S.*\S)$/) {
  57             $prefixdf{$1}= $2;
  58             next;
  59         }
  60         push @fsys,$_;
  61     }
  62     close F or die $!;
  63 }
  64
  65 sub parsefsys () {
  66     if ($tf =~ m,^(/\S*)\s+(\w+)$,) {
  67         $atf= $1;
  68         $tm= $2;
  69         $prefix= '<local>';
  70         stat $atf or die "stat $atf: $!";
  71         -d _ or die "not a dir: $atf";
  72         $rstr= '';
  73     } elsif ($tf =~ m,^(/\S*)\s+(\w+)\s+(\w+)$,) {
  74         $atf= $1;
  75         $tm= $2;
  76         $prefix= $3;
  77         defined($prefix{$prefix}) or die "prefix $prefix in $tf ?\n";
  78         $rstr= $prefix{$prefix}.' ';
  79     }
  80 }
  81
  82 sub openlog () {
  83     unlink 'log';
  84     $u= umask(007);
  85     open LOG, ">log" or die $!;
  86     umask $u;
  87     select(LOG); $|=1; select(STDOUT);
  88 }
  89
  90 $SIG{'__DIE__'}= 'killprocesses';
  91
  92 1;