* checkin with 3.2.0beta0 release header
[BackupPC.git] / bin / BackupPC_attribPrint
index 47ecf79..b58ad33 100755 (executable)
@@ -1,4 +1,4 @@
-#!/bin/perl
+#!/usr/bin/perl
 #============================================================= -*-perl-*-
 #
 # BackupPC_attribPrint: print the contents of attrib files.
@@ -13,7 +13,7 @@
 #   Craig Barratt  <cbarratt@users.sourceforge.net>
 #
 # COPYRIGHT
-#   Copyright (C) 2005  Craig Barratt
+#   Copyright (C) 2005-2007  Craig Barratt
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -31,7 +31,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0, released 20 Jun 2004.
+# Version 3.2.0beta0, released 5 April 2009.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -61,7 +61,17 @@ if ( !-f $ARGV[0] ) {
 }
 
 my $attrib = BackupPC::Attrib->new({ compress => $Conf{CompressLevel} });
-if ( !$attrib->read(".", $ARGV[0]) ) {
+
+my($dir, $file);
+
+if ( $ARGV[0] =~ m{(.+)/(.+)} ) {
+    $dir  = $1;
+    $file = $2;
+} else {
+    $dir = $ARGV[0];
+}
+
+if ( !$attrib->read($dir, $file) ) {
     print STDERR "Cannot read attrib file $ARGV[0]\n";
     exit(1);
 }