X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=backup%2Fbackuplib.pl;fp=backup%2Fbackuplib.pl;h=d412c9400776e47dc40539cf40628e34e95e9209;hb=3f7f507605d77ece782e847a5a1606197268f220;hp=0000000000000000000000000000000000000000;hpb=1271e95c26179089358f4881398cb57811608b22;p=chiark-utils.git

diff --git a/backup/backuplib.pl b/backup/backuplib.pl
new file mode 100644
index 0000000..d412c94
--- /dev/null
+++ b/backup/backuplib.pl
@@ -0,0 +1,92 @@
+#
+
+sub printdate () {
+    print scalar(localtime),"\n";
+}
+
+sub setstatus ($) {
+    open S, ">this-status.new" or die $!;
+    print S $_[0],"\n" or die $!;
+    close S or die $!;
+    rename "this-status.new","this-status" or die $!;
+}
+
+sub startprocess ($$$) {
+    my ($i,$o,$c) = @_;
+    print LOG "  $c\n" or die $!;
+    print "  $c\n" or die $!;
+    defined($p= fork) or die $!;
+    if ($p) { $processes{$p}= $c; return; }
+    open STDIN,"$i" or die "$c stdin $i: $!";
+    open STDOUT,"$o" or die "$c stdout $o: $!";
+    &closepipes;
+    exec $c; die "$c: $!";
+}
+
+sub endprocesses () {
+    while (keys %processes) {
+	$p= waitpid(-1,0) or die "wait: $!";
+	if (!exists $processes{$p}) { warn "unknown pid exited: $p, code $?\n"; next; }
+	$c= $processes{$p};
+	delete $processes{$p};
+	$? && die "error: command gave code $?: $c\n";
+    }
+    print LOG "  ok\n" or die $!;
+    print "  ok\n" or die $!;
+}
+
+sub killprocesses {
+    for $p (keys %processes) {
+	kill 15,$p or warn "kill process $p: $!";
+    }
+    undef %processes;
+}
+
+sub readfsys ($) {
+    my ($fsnm) = @_;
+    open F, "$etc/fsys.$fsnm" or die "Filesystems $fsnm unknown ($!).\n";
+    for (;;) {
+	$_= <F> or die; chomp; s/\s*$//;
+	last if m/^end$/;
+	next unless m/\S/;
+	next if m/^\#/;
+	if (m/^prefix\s+(\w+)\s+(\S.*\S)$/) {
+	    $prefix{$1}= $2;
+	    next;
+	} elsif (m/^prefix\-df\s+(\w+)\s+(\S.*\S)$/) {
+	    $prefixdf{$1}= $2;
+	    next;
+	}
+	push @fsys,$_;
+    }
+    close F or die $!;
+}
+
+sub parsefsys () {
+    if ($tf =~ m,^(/\S*)\s+(\w+)$,) {
+	$atf= $1;
+	$tm= $2;
+	$prefix= '<local>';
+	stat $atf or die "stat $atf: $!";
+	-d _ or die "not a dir: $atf";
+	$rstr= '';
+    } elsif ($tf =~ m,^(/\S*)\s+(\w+)\s+(\w+)$,) {
+	$atf= $1;
+	$tm= $2;
+	$prefix= $3;
+	defined($prefix{$prefix}) or die "prefix $prefix in $tf ?\n";
+	$rstr= $prefix{$prefix}.' ';
+    }
+}
+
+sub openlog () {
+    unlink 'log';
+    $u= umask(007);
+    open LOG, ">log" or die $!;
+    umask $u;
+    select(LOG); $|=1; select(STDOUT);
+}
+
+$SIG{'__DIE__'}= 'killprocesses';
+
+1;