123456789101112131415161718192021222324252627282930313233343536373839 |
- ::
- $log="ChecksumsInFolders.xys: RDoi folders MD5 checksum creator<crlf>-------------------------------<crlf>";
- foreach($folder, "<get SelectedItemsPathNames>", "<crlf>") {
- $log=$log."Processing ".$folder."...<crlf>";
- if (exists($folder) == 1) {
- $log=$log."-SKIPPED: Not a folder.<crlf>";
- } else {
- $csfile=$folder."\".regexreplace($folder,"^.*\\", "").".md5";
- if (exists($csfile) == 1) {
- $log=$log."-IGNORED: Checksum exists. (".$csfile.")<crlf>";
- } else {
- $checksum="; MD5 checksum generated by RDOI XYplorer script<crlf>; ".$folder."<crlf>";
- foreach($file, folderreport("filesrel", "r", $folder, "r", , "|"), "|") {
- $filepath=$folder."\".$file;
- if ( regexmatches($filepath,"(\.md5|\.sfv)$") == "") {
- $hash=hash("md5",$filepath,3);
- $checksum=$checksum.$hash." *".$file."<crlf>";
- } else {
- $log=$log."-IGNORED: Checksum file. (".$filepath.")<crlf>";
- }
- }
- writefile($csfile,$checksum);
- $log=$log."+CREATED. (".$csfile.")<crlf>";
- }
- }
- $log=$log."<crlf>";
- }
- text $log;
|