4 # This file is part of chiark backup, a system for backing up GNU/Linux and
5 # other UN*X-compatible machines, as used on chiark.greenend.org.uk.
8 # Copyright (C) 1997-1998,2000-2001 Ian Jackson <ian@chiark.greenend.org.uk>
9 # Copyright (C) 1999 Peter Maydell <pmaydell@chiark.greenend.org.uk>
11 # This is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2, or (at your option) any later version.
15 # This is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
17 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
20 # You should have received a copy of the GNU General Public License along
21 # with this program; if not, write to the Free Software Foundation, Inc.,
22 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25 print scalar(localtime),"\n";
28 # Set status info -- we write the current status to a file
29 # so if we hang or crash the last thing written to the file
30 # will tell us where we were when things went pear-shaped.
32 open S, ">this-status.new" or die $!;
33 print S $_[0],"\n" or die $!;
35 rename "this-status.new","this-status" or die $!;
38 # startprocess, endprocesses, killprocesses are
39 # used to implement the funky pipeline stuff.
40 sub startprocess ($$$) {
42 print LOG " $c\n" or die $!;
43 print " $c\n" or die $!;
44 defined($p= fork) or die $!;
45 if ($p) { $processes{$p}= $c; return; }
46 open STDIN,"$i" or die "$c stdin $i: $!";
47 open STDOUT,"$o" or die "$c stdout $o: $!";
49 exec $c; die "$c: $!";
53 while (keys %processes) {
54 $p= waitpid(-1,0) or die "wait: $!";
55 if (!exists $processes{$p}) { warn "unknown pid exited: $p, code $?\n"; next; }
57 delete $processes{$p};
58 $? && die "error: command gave code $?: $c\n";
60 print LOG " ok\n" or die $!;
61 print " ok\n" or die $!;
65 for $p (keys %processes) {
66 kill 15,$p or warn "kill process $p: $!";
71 # Read a fsys.foo filesystem group definition file.
72 # Syntax is: empty lines and those beginning with '#' are ignored.
73 # Trailing whitespace is ignored. Lines of the form 'prefix foo bar'
74 # are handled specially, as arex lines 'exclude regexp'; otherwise
75 # we just shove the line into @fsys and let parsefsys deal with it.
77 sub readfsysfile ($) {
80 $fh= new IO::File "$fn", "r" or die "cannot open fsys file $fn ($!).\n";
82 $!=0; $_= <$fh> or die "unexpected EOF in $fn ($!)\n";
87 if (m/^prefix\s+(\w+)\s+(\S.*\S)$/) {
89 } elsif (m/^prefix\-df\s+(\w+)\s+(\S.*\S)$/) {
91 } elsif (m/^excludedir\s+(\S.*\S)$/) {
93 } elsif (m/^exclude\s+(\S.*\S)$/) {
95 } elsif (m/^include\s+(\S.*\S)$/) {
97 $sfn = "$etc/$sfn" if $sfn !~ m,^/,;
109 $fsf= "$etc/fsys.$fsnm";
110 stat $fsf or die "Filesystems $fsnm unknown ($!).\n";
114 # Parse a line from a filesystem definition file. We expect the line
117 if ($tf =~ m,^(/\S*)\s+(\w+)$,) {
118 # Line of form '/file/system dumptype'
122 stat $atf or die "stat $atf: $!";
123 -d _ or die "not a dir: $atf";
125 } elsif ($tf =~ m,^(/\S*)\s+(\w+)\s+(\w+)$,) {
126 # Line of form '/file/system dumptype prefix'
127 # (used for remote backups, I think)
131 defined($prefix{$prefix}) or die "prefix $prefix in $tf ?\n";
132 $rstr= $prefix{$prefix}.' ';
139 open LOG, ">log" or die $!;
141 select(LOG); $|=1; select(STDOUT);
144 $SIG{'__DIE__'}= 'killprocesses';