Moving all files out of unnecessary subfolder

2026-07-08 18:06:15 +00:00 · 2016-03-18 01:42:48 -07:00
parent 60a7c878de
commit 7ed8f5f06d
276 changed files with 273 additions and 107 deletions
--- a/sites/EAB.php
+++ b/sites/EAB.php
@@ -0,0 +1,145 @@
+<?php
+
+// Original code: The Wizard of DATz
+
+// Use this to replace drive calls
+$server = "grandis.nu";
+$resource = ftp_connect($server) or die("Couldn't connect to ".$server);
+if (!ftp_login($resource, "ftp", "any"))
+{
+	die("Could not log in to ".$server);
+}
+
+$dirs = array(
+	'Atari',
+//	'Commodore_Amiga',
+//	'Commodore_C128',
+//	'Commodore_C16,_C116_&_Plus-4',
+//	'Commodore_C64',
+//	'Commodore_C65',
+//	'Commodore_MAX_Machine_&_VIC10',
+//	'Commodore_PET',
+//	'Commodore_VIC20', 
+);
+
+$skip_query = implode('', file("../sites/".$source."_skip.txt"));
+$skip_query = explode("\n", "\n".$skip_query);
+$skip_query = array_flip($skip_query);
+
+$search_ok = true;
+
+print "<pre>check folders:\n\n";
+
+foreach ($dirs as $dir)
+{
+	if ($search_ok && $dir)
+	{
+		listDir($dir);
+	}
+}
+
+ftp_close($resource);
+
+if ($search_ok)
+{
+	/*
+	$fp = fopen("../sites/".$source."_skip.txt", "w");
+	fwrite($fp, "");
+	fclose($fp);
+	*/
+}
+
+print "\nnew urls:\n\n";
+
+foreach($found as $url)
+{
+	print "<a href=\"ftp://ftp:amiga@grandis.nu/".str_replace('#', '%23', $url[0])."\">".$url[1]."</a>\n";
+}
+
+function listDir($dir)
+{
+	sleep(1);
+
+	GLOBAL $r_query, $found, $skip_query, $search_ok, $resource;
+
+	print "open: ".$dir."\n";
+
+	$other = 0;
+	$new = 0;
+	$old = 0;
+	$folder = 0;
+
+	if(!ftp_chdir($resource, $dir))
+	{
+		$search_ok = false;
+	}
+	else
+	{
+		$pwd = ftp_pwd($resource);
+		$files = ftp_nlist($resource, $pwd);
+		
+		foreach ($files as $file)
+		{
+			// If the file already exists, skip it
+			if ($r_query[$file])
+			{
+				//print "found old: ".$file."\n";
+				$old++;
+			}
+			// Otherwise, either add it to the list or go into the new directory
+			else
+			{
+				// If the item is a directory, move into it and parse
+				if (is_ftp_dir($file))
+				{
+					$folder++;
+					if (!$skip_query[$file])
+					{
+						listDir($file);
+					}
+					else
+					{
+						print "skip: ".$file."\n";
+					}
+				}
+				// Otherwise, it's a file that should be checked
+				else
+				{
+					print "found: ".$file."\n";
+					$found[] = $file;
+					$new++;
+					die();
+				}
+			}
+		}
+	}
+
+	if ($search_ok)
+	{
+		print "close: ".$dir."\n";
+		print "new: ".$new.", old: ".$old.", folder:".$folder."\n";
+		/*
+		$fp = fopen("../sites/".$source."_skip.txt", "a");
+		fwrite($fp, $dir."\n");
+		fclose($fp);
+		*/
+	}
+}
+
+function is_ftp_dir($dirname)
+{
+	GLOBAL $resource;
+	
+	$pwd = ftp_pwd($resource);
+	if (@ftp_chdir($resource, $dirname))
+	{
+		ftp_chdir($resource, $pwd);
+		return true;
+	}
+	else
+	{
+		return false;
+	}
+}
+
+?>