force consistant charset on file add, add fix_filenames script and minor tweak for democratic play

1 files changed, 195 insertions, 0 deletions

diff --git a/bin/fix_filenames.inc b/bin/fix_filenames.inc
new file mode 100644
index 00000000..247e3724
--- /dev/null
+++ b/bin/fix_filenames.inc
@@ -0,0 +1,195 @@
+<?php
+/*
+
+ Copyright 2001 - 2008 Ampache.org
+ All Rights Reserved
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License v2
+ as published by the Free Software Foundation.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+*/
+
+define('NO_SESSION','1');
+$path = dirname(__FILE__); 
+$prefix = realpath($path . '/../'); 
+require_once $prefix . '/lib/init.php';
+
+ob_end_clean(); 
+
+/*
+ * Pull the root path of your catalogs one by one 
+ * and then do a directory sweep and check all of the files
+ * that would be cataloged and see if they have the correct charset
+ * if they don't prompt for a rename, unless $i_am_crazy is true then just
+ * do it
+ */
+
+// If set to true / 1 then it will not prompt!
+//$GLOBALS['i_am_crazy'] = true; 
+
+if (!function_exists('iconv')) { 
+	echo "ERROR: Iconv required for this functionality, quiting\n"; 
+	exit; 
+} 
+
+$sql = "SELECT * FROM `catalog` WHERE `catalog_type`='local'"; 
+$db_results = Dba::query($sql); 
+
+while ($row = Dba::fetch_assoc($db_results)) { 
+
+	charset_directory_correct($row['path']); 	
+
+} // end of the catalogs
+
+
+/**************************************************
+ ****************** FUNCTIONS *********************
+ **************************************************/
+/**
+ * charset_directory_correct
+ * This function calls its self recursivly 
+ * and corrects all of the non-matching filenames
+ * it looks at the i_am_crazy var and if not set prompts for change
+ */
+function charset_directory_correct($path) { 
+
+	// Correctly detect the slash we need to use here
+        if (strstr($path,"/")) {
+        	$slash_type = '/';
+	}
+        else {
+        	$slash_type = '\\';
+	}
+
+	/* Open up the directory */
+        $handle = opendir($path);
+
+	if (!is_resource($handle)) { 
+		echo "ERROR: Unable to open $path\n"; 
+		return false; 
+	} 
+
+	if (!chdir($path)) { 
+		echo "ERROR: Unable to chdir to $path\n"; 
+		return false; 
+	} 
+
+	while ( false !== ($file = readdir($handle) ) ) { 
+
+		if ($file == '.' || $file == '..') { continue; } 
+
+		$full_file = $path.$slash_type.$file;
+
+		if (is_dir($full_file)) { 
+			charset_directory_correct($full_file); 
+			continue; 
+		} 
+
+		$translated_filename = iconv(Config::get('site_charset'),Config::get('site_charset') . '//IGNORE',$full_file);
+
+		if (strcmp($full_file,$translated_filename) != '0') { 
+			echo "--------------------------------------------------------------------------------------------\n";
+			echo "OLD:$full_file has invalid chars\nNEW:$translated_filename\n"; 
+			echo "--------------------------------------------------------------------------------------------\n";
+			if (!$GLOBALS['i_am_crazy']) { 
+				echo "Rename File (Y/N):"; 
+				$input = trim(fgets(STDIN)); 
+				if (strcasecmp($input,'Y') == 0) { charset_rename_file($full_file,$translated_filename); } 
+				else { echo "\n\tNot Renaming...\n\n"; } 
+			} 
+			else { 
+				charset_rename_file($full_file,$translated_filename); 
+			} 
+		} 
+
+	} // while reading file
+
+} // charset_directory_correct
+
+/**
+ * charset_rename_file
+ * This just takes a source / dest and does the renaming
+ */
+function charset_rename_file($full_file,$translated_filename) { 
+
+	// First break out the base directory name and make sure it exists
+	// incase our crap char is in the directory
+	$directory = dirname($translated_filename); 
+	$data = preg_split("/[\/\\\]/",$directory);
+	$path = ''; 
+
+	foreach ($data as $dir) {
+
+		$dir = charset_clean_name($dir); 
+		$path .= "/" . $dir; 
+
+		if (!is_dir($path)) { 
+			echo "\tMaking $path directory\n"; 
+			$results = mkdir($path); 
+			if (!$results) { 
+				echo "Error: Unable to create $path move failed, stopping\n"; 
+				return false; 
+			} 
+		} // if the dir doesn't exist
+
+	} // end foreach
+
+	// Now to copy the file
+	$results = copy($full_file,$translated_filename); 
+	
+	if (!$results) { 
+		echo "Error: Copy Failed, not deleteing old file\n"; 
+		return false; 
+	} 
+	
+	$old_sum = filesize($full_file); 
+	$new_sum = filesize($translated_filename); 
+
+	if ($old_sum != $new_sum OR !$new_sum) { 
+		echo "Error: Size Inconsistency, not deleting" . $full_file . "\n"; 
+		return false; 
+	} 
+
+	$results = unlink($full_file); 
+
+	if (!$results) { echo "Error: Unable to delete " . $full_file . "\n"; return false; }  
+	
+
+	echo "File Moved...\n\n"; 
+
+	return true; 
+
+} // charset_rename_file
+
+/**
+ * charset_clean_name
+ * We have to have some special rules here
+ * This is run on every individual element of the search
+ * Before it is put togeather, this removes / and \ and also
+ * once I figure it out, it'll clean other stuff
+ */
+function charset_clean_name($string) {
+
+        /* First remove any / or \ chars */
+        $string = preg_replace('/[\/\\\]/','-',$string);
+
+        $string = str_replace(':',' ',$string);
+
+        $string = preg_replace('/[\!\:\*]/','_',$string);
+
+        return $string;
+
+} // charset_clean_name
+
+
+?>