foxridge-archiver: MPIWGStor.pm comparison

adapted to dsmc's problem with mount points saves index.meta from overwriting by archived version

comparison

equal deleted inserted replaced

-:9c61f624d802
+:4417be0e2f07
 use vars qw(@ISA @EXPORT $VERSION
 	    $debug %junk_files %index_files $index_file_perm $archived_index_file_perm
 	    $file_perm);
 use Exporter;
-$VERSION = 0.3; #  ROC 24.9.2003
+$VERSION = 0.4; #  ROC 20.1.2005
 @ISA = qw(Exporter);
 @EXPORT = qw($debug %junk_files %index_files $index_file_perm $archived_index_file_perm
 	     $file_perm
 	     &parseargs &logger &stime  &s2stime &ymd_date &split_file_path &sstrip
-	     &valid_file_name &valid_dir_name &read_xml &write_xml);
+	     &valid_file_name &valid_dir_name &park_file &unpark_file &read_xml &write_xml);
 # debug level
 $debug = 0;
 # junk files
 return 1;
 }
 #
+# $newfilename = park_file($filename)
+#
+# parks a file under a new name (*.bak)
+#
+sub park_file {
+my ($filename) = @_;
+my $newfn = "";
+if (-f $filename) {
+	$newfn = "$filename.bak";
+	if (! rename $filename, $newfn) {
+	    logger("ABORT", "unable to rename file $filename!");
+	    exit 1;
+	}
+}
+return $newfn;
+}
+#
+# $filename = unpark_file($filename)
+#
+# unparks a file
+#
+sub unpark_file {
+my ($filename) = @_;
+my $newfn = "$filename.bak";
+if (-f $newfn) {
+	if (! rename $newfn, $filename) {
+	    logger("ABORT", "unable to rename file $newfn!");
+	    exit 1;
+	}
+	return $filename;
+}
+return "";
+}
+#
 # ($document, $rootnode) = read_xml($file)
 #
 # reads xml meta file $file
 # returns root node element
 #

Mercurial > hg > foxridge-archiver