Subversion Repositories checksum-tools

Rev

Rev 12 | Rev 15 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1
#!/usr/bin/php
2
<?php
3
 
4
/*
12 daniel-mar 5
   Copyright 2020-2021 Daniel Marschall, ViaThinkSoft
2 daniel-mar 6
 
7
   Licensed under the Apache License, Version 2.0 (the "License");
8
   you may not use this file except in compliance with the License.
9
   You may obtain a copy of the License at
10
 
11
       http://www.apache.org/licenses/LICENSE-2.0
12
 
13
   Unless required by applicable law or agreed to in writing, software
14
   distributed under the License is distributed on an "AS IS" BASIS,
15
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16
   See the License for the specific language governing permissions and
17
   limitations under the License.
18
*/
19
 
20
// This script generates SFV files
21
// If there is already an SFV file existing, only new files get appended to the existing SFV files.
22
 
4 daniel-mar 23
// TODO: make use of STDERR and return different exit codes
24
 
2 daniel-mar 25
function _rec($directory) {
26
        if (!is_dir($directory)) {
27
                die("Invalid directory path $directory\n");
28
        }
29
 
11 daniel-mar 30
        if ((basename($directory) == '.') || (basename($directory) == '..')) {
31
                $sfv_file = rtrim($directory,DIRECTORY_SEPARATOR).DIRECTORY_SEPARATOR.
32
                            basename(realpath($directory)).'.sfv';
2 daniel-mar 33
 
11 daniel-mar 34
        } else {
35
                $sfv_file = rtrim($directory,DIRECTORY_SEPARATOR).DIRECTORY_SEPARATOR.
36
                            basename($directory).'.sfv';
37
        }
38
 
2 daniel-mar 39
        if (file_exists($sfv_file)) {
40
                $existing_files = sfv_get_files($sfv_file);
41
        } else {
42
                $existing_files = array();
43
        }
44
 
5 daniel-mar 45
        $sd = @scandir($directory);
46
        if ($sd === false) {
47
                echo "Error: Cannot scan directory $directory\n";
48
                return;
49
        }
50
 
51
        foreach ($sd as $file) {
2 daniel-mar 52
                if ($file === '.') continue;
53
                if ($file === '..') continue;
54
                if (strtolower($file) === 'thumbs.db') continue;
5 daniel-mar 55
                if (strtolower(substr($file, -4)) === '.md5') continue;
56
                if (strtolower(substr($file, -4)) === '.sfv') continue;
2 daniel-mar 57
 
12 daniel-mar 58
                $fullpath = rtrim($directory,DIRECTORY_SEPARATOR).DIRECTORY_SEPARATOR.$file;
2 daniel-mar 59
                if (is_dir($fullpath)) {
13 daniel-mar 60
                        global $do_recursive;
61
                        if ($do_recursive) _rec($fullpath);
5 daniel-mar 62
                } else if (is_file($fullpath)) {
4 daniel-mar 63
                        global $show_verbose;
64
                        if ($show_verbose) echo "$fullpath\n";
2 daniel-mar 65
                        $dir = pathinfo($fullpath, PATHINFO_DIRNAME);
66
 
67
                        if (!file_exists($sfv_file)) {
68
                                file_put_contents($sfv_file, "; Generated by ViaThinkSoft\r\n"); // TODO: BOM
69
                        }
70
 
71
                        if (!in_array($file, $existing_files)) {
72
                                $crc32 = strtoupper(crc32_file($fullpath));
73
                                file_put_contents($sfv_file, "$file $crc32\r\n", FILE_APPEND);
74
                        }
5 daniel-mar 75
                } else {
76
                        // For some reason, some files on a NTFS volume are "FIFO" pipe files?!
77
                        echo "Warning: $fullpath is not a regular file!\n";
2 daniel-mar 78
                }
79
        }
80
}
81
 
82
function sfv_get_files($filename) {
83
        $out = array();
84
        $lines = file($filename);
85
        foreach ($lines as $line) {
86
                $line = rtrim($line);
87
                if ($line == '') continue;
88
                if (substr($line,0,1) == ';') continue;
89
                $out[] = substr($line, 0, strrpos($line, ' '));
90
 
91
        }
92
        return $out;
93
}
94
 
95
function swapEndianness($hex) {
96
        return implode('', array_reverse(str_split($hex, 2)));
97
}
98
 
99
function crc32_file($filename, $rawOutput = false) {
100
        $out = bin2hex(hash_file ('crc32b', $filename , true));
101
        if (hash('crc32b', 'TEST') == 'b893eaee') {
102
                // hash_file() in PHP 5.2 has the wrong Endianess!
103
                // https://bugs.php.net/bug.php?id=47467
104
                $out = swapEndianness($out);
105
        }
106
        return $out;
107
}
108
 
109
# ---
110
 
4 daniel-mar 111
$show_verbose = false;
13 daniel-mar 112
$do_recursive = false;
4 daniel-mar 113
$dir = '';
114
 
115
for ($i=1; $i<$argc; $i++) {
116
        if ($argv[$i] == '-v') {
117
                $show_verbose = true;
13 daniel-mar 118
        } else if ($argv[$i] == '-r') {
119
                $do_recursive = true;
4 daniel-mar 120
        } else {
121
                $dir = $argv[$i];
122
        }
123
}
124
 
125
if (empty($dir)) {
13 daniel-mar 126
        echo "Syntax: $argv[0] [-v] [-r] <directory>\n";
2 daniel-mar 127
        exit(2);
128
}
129
 
4 daniel-mar 130
if (!is_dir($dir)) {
2 daniel-mar 131
        echo "Directory not found\n";
132
        exit(1);
133
}
134
 
4 daniel-mar 135
_rec($dir);
2 daniel-mar 136
 
4 daniel-mar 137
if ($show_verbose) echo "Done.\n";