X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_tarExtract;h=9a2872b602d857b7d16531bbe5b5154ecfb8bae1;hp=05080922f318f8ec1b717776111a2f0e16575c75;hb=2c14784ad71874ec850d189060fe63d6eb9eba95;hpb=74dc9d456332757127d5eda4ce32f29377133fa2

diff --git a/bin/BackupPC_tarExtract b/bin/BackupPC_tarExtract
index 0508092..9a2872b 100755
--- a/bin/BackupPC_tarExtract
+++ b/bin/BackupPC_tarExtract
@@ -1,4 +1,4 @@
-#!/bin/perl -T
+#!/bin/perl
 #============================================================= -*-perl-*-
 #
 # BackupPC_tarExtract: extract data from a dump
@@ -9,7 +9,7 @@
 #   Craig Barratt  <cbarratt@users.sourceforge.net>
 #
 # COPYRIGHT
-#   Copyright (C) 2001  Craig Barratt
+#   Copyright (C) 2001-2003  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
@@ -27,13 +27,14 @@
 #
 #========================================================================
 #
-# Version 2.0.0beta3, released 1 Jun 2003.
+# Version 2.1.0_CVS, released 8 Feb 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
 #========================================================================
 
 use strict;
+no  utf8;
 use lib "/usr/local/BackupPC/lib";
 use BackupPC::Lib;
 use BackupPC::Attrib qw(:all);
@@ -160,9 +161,35 @@ sub TarReadFileInfo
         $mode     = oct $mode;
         $uid      = oct $uid;
         $gid      = oct $gid;
-        $size     =~ s/^6/2/;       # fix bug in smbclient for >=2GB files
-        $size     =~ s/^7/3/;       # fix bug in smbclient for >=2GB files
-        $size     = oct $size;
+	if ( ord($size) == 128 ) {
+	    #
+	    # GNU tar extension: for >=8GB files the size is stored
+	    # in big endian binary.
+	    #
+	    $size = 65536 * 65536 * unpack("N", substr($size, 4, 4))
+				  + unpack("N", substr($size, 8, 4));
+	} else {
+	    #
+	    # We used to have a patch here for smbclient 2.2.x.  For file
+	    # sizes between 2 and 4GB it sent the wrong size.  But since
+	    # samba 3.0.0 has been released we no longer support this
+	    # patch since valid files could have sizes that start with
+	    # 6 or 7 in octal (eg: 6-8GB files).
+	    #
+	    # $size =~ s/^6/2/;       # fix bug in smbclient for >=2GB files
+	    # $size =~ s/^7/3/;       # fix bug in smbclient for >=2GB files
+	    #
+	    # To avoid integer overflow in case we are in the 4GB - 8GB
+	    # range, we do the conversion in two parts.
+	    #
+            if ( $size =~ /([0-9]{9,})/ ) {
+                my $len = length($1);
+                $size = oct(substr($1, 0, $len - 8)) * (1 << 24)
+                      + oct(substr($1, $len - 8));
+            } else {
+                $size = oct($size);
+            }
+	}
         $mtime    = oct $mtime;
         $chksum   = oct $chksum;
         $devmajor = oct $devmajor;
@@ -374,6 +401,7 @@ sub processClose
 mkpath("$OutDir/$ShareName", 0, 0777);
 open(NEW_FILES, ">>", "$TopDir/pc/$host/NewFileList")
                  || die("can't open $TopDir/pc/$host/NewFileList");
+binmode(NEW_FILES);
 binmode(STDIN);
 1 while ( TarReadFile(*STDIN) );
 1 while ( sysread(STDIN, my $discard, 1024) );