1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
#!/usr/bin/perl
# increm
# Do an incremental backup; ONLY for invocation by full !
#
# This file is part of chiark backup, a system for backing up GNU/Linux and
# other UN*X-compatible machines, as used on chiark.greenend.org.uk.
#
# chiark backup is:
# Copyright (C) 1997-1998,2000-2001 Ian Jackson <ian@chiark.greenend.org.uk>
# Copyright (C) 1999 Peter Maydell <pmaydell@chiark.greenend.org.uk>
#
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2, or (at your option) any later version.
#
# This is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# We are invoked by full if the tape description file says that it is
# for an incremental backup. We expect two commandline argument which
# is the ID string of the tape to use, and the description (which
# includes ID and function).
BEGIN {
$etc= '/etc/chiark-backup';
require "$etc/settings.pl";
require 'backuplib.pl';
}
$|=1;
@ARGV==2 or die;
($tapeid,$tapedesc)= @ARGV;
print "Running incremental onto $tapedesc ...\n" or die $!;
# Just check that we weren't passed a bogus ID (the tape description
# file for incrementals is just 'incremental\nend\n')
open T,"$etc/tape.$tapeid" or die "Tape $tapeid not found: $!\n";
close T;
# This is only used for the 'next FULL backup is X' message at the end.
open NF,"next-full" or die $!;
chomp($next= <NF>);
close NF or die $!;
setstatus "FAILED during incremental";
# Read the number of the incremental involved
# (ie, (how many files are already on the tape) - 1)
open A,"increm-advance" or die $!;
chomp($advance= <A>);
close A or die $!;
# better be a decimal number
$advance =~ m/^\d+$/ or die "$advance ?";
# Get a list of all filesystems
readfsys('all');
openlog();
# Rewind the tape and if we are the first incremental on the tape then
# write the TAPEID record, otherwise skip forward to the correct point.
# (full will already have checked that this is the right tape before
# it invoked us, so no need to read the existing TAPEID record first.)
runsystem("mt -f $ntape rewind");
if ($advance == 1) {
writetapeid($tapeid,$tapedesc);
} else {
runsystem("mt -f $ntape fsf $advance");
$currenttapefilenumber= $advance;
}
sub closepipes () {
close(DUMPOR); close(BUFOR);
close(DUMPOW); close(BUFOW);
close(GZOR); close(GZOW);
}
setstatus "PROBLEMS during incremental dump";
for $tf (@fsys) {
parsefsys();
prepfsys();
$bufir='DUMPOR';
$ddcmd= "$nasty dd ibs=$softblocksizebytes obs=$blocksizebytes of=$ntape";
pipe(DUMPOR,DUMPOW) or die $!;
pipe(BUFOR,BUFOW) or die $!;
$gz= $gzi if length $gzi;
if ($gz) {
$bufir='GZOR';
pipe(GZOR,GZOW) or die $!;
$ddcmd .= " conv=sync";
}
if ($dopt{'noinc'}) {
pboth("Incrementals of $atf_print ($prefix) suppressed in config.\n");
}
if ($tm eq 'dump') {
$dumplabel= $pcstr.$atf_print.'$';
$dumpcmd= "dump 1Lbfu $dumplabel $softblocksizekb - $atf";
} elsif ($tm eq 'gtar') {
$dumpcmd= "tar NCcfl $fsidfile $atf - .";
} else {
pboth("Not dumping $atf_print ($prefix) - not supported.\n");
next;
}
nexttapefile("inc $prefix:$atf_print");
# Same trick as full uses to do a pipeline whilst keeping track
# of all exit statuses:
# dump </dev/null | writebuffer | dd >/dev/null
startprocess '</dev/null','>&DUMPOW',"$nice ".$rstr.$dumpcmd;
if ($gz) {
startprocess '<&DUMPOR','>&GZOW',"$nice gzip -v$gz";
}
startprocess "<&$bufir",'>&BUFOW',"$nasty writebuffer";
startprocess '<&BUFOR','>/dev/null',"$nasty $ddcmd";
closepipes();
endprocesses();
# advance is a file counter, so it needs to be updated for each
# dump we do to tape.
$advance++;
finfsys();
}
# Rewind the tape, and increment the counter of incremental backups.
runsystem("mt -f $tape rewind");
open IAN,">increm-advance.new" or die $!;
print IAN "$advance\n" or die $!;
close IAN or die $!;
rename 'increm-advance.new','increm-advance' or die $!;
pboth("Next FULL dump tape is $next\n");
setstatus "INCREMENTAL successful: $tapedesc, next full is $next";
exit 0;
|
