chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
palm-datebook-reminders ctime
[chiark-utils.git]
/
backup
/
backuplib.pl
diff --git
a/backup/backuplib.pl
b/backup/backuplib.pl
index 783b14d50bf6d298ef0b62400f7ebc53a6793d8b..174dc812c9678320c53328e31c0ea0d50a05cfd0 100644
(file)
--- a/
backup/backuplib.pl
+++ b/
backup/backuplib.pl
@@
-54,7
+54,7
@@
sub startprocess ($$$) {
}
sub rewind_raw () {
}
sub rewind_raw () {
-
system "mt -f $tape rewind"; $? and die $?
;
+
runsystem("mt -f $tape rewind")
;
}
sub readtapeid_raw () {
}
sub readtapeid_raw () {
@@
-66,6
+66,12
@@
sub readtapeid_raw () {
"| tar -b$blocksize -vvxf - TAPEID";
}
"| tar -b$blocksize -vvxf - TAPEID";
}
+sub runsystem ($) {
+ pboth(" $_[0]\n");
+ system $_[0];
+ $? and die $?;
+}
+
sub pboth ($) {
my ($str) = @_;
print LOG $str or die $!;
sub pboth ($) {
my ($str) = @_;
print LOG $str or die $!;
@@
-76,7
+82,7
@@
sub nexttapefile ($) {
my ($what) = @_;
$currenttapefilenumber++;
$currenttapefilename= $what;
my ($what) = @_;
$currenttapefilenumber++;
$currenttapefilename= $what;
- pboth(sprintf "writing tape file #%d (mt fsf %d): %s",
+ pboth(sprintf "writing tape file #%d (mt fsf %d): %s
\n
",
$currenttapefilenumber, $currenttapefilenumber-1, $what);
}
$currenttapefilenumber, $currenttapefilenumber-1, $what);
}