Prechádzať zdrojové kódy

More subtle case folding, to support UIDs (which are case sensitive) in addition to channel names (which are not and YT capitalizes more or less randomly across the interaces)

Zachary Kotlarek 11 rokov pred
rodič
commit
d62689e2f8
1 zmenil súbory, kde vykonal 7 pridanie a 7 odobranie
  1. 7 7
      yt/subscribe.pl

+ 7 - 7
yt/subscribe.pl

@@ -624,23 +624,23 @@ sub saveSubscriptions($$) {
 		if (!-d $folder . '/' . $file) {
 		if (!-d $folder . '/' . $file) {
 			next;
 			next;
 		}
 		}
-
-		# YT has case issues
-		$file = lc($file);
-
+		
+		# YT has some trouble with case
+		my $lcFile = lc($file);
+		
 		# Anything else should be in the list
 		# Anything else should be in the list
-		if (!$subs->{$file}) {
+		if (!$subs->{$file} && !$subs->{$lcFile}) {
 			print STDERR 'Missing YT subscription for: ' . $file . "\n";
 			print STDERR 'Missing YT subscription for: ' . $file . "\n";
 		}
 		}
 
 
 		# Note local subscriptions
 		# Note local subscriptions
-		$locals{$file} = 1;
+		$locals{$lcFile} = 1;
 	}
 	}
 	closedir($fh);
 	closedir($fh);
 
 
 	# Check for YT subscriptions missing locally
 	# Check for YT subscriptions missing locally
 	foreach my $sub (keys(%{$subs})) {
 	foreach my $sub (keys(%{$subs})) {
-		if (!exists($locals{$sub})) {
+		if (!exists($locals{lc($sub)})) {
 			print STDERR 'Adding local subscription for: ' . $sub . ' (' . $subs->{$sub} . ")\n";
 			print STDERR 'Adding local subscription for: ' . $sub . ' (' . $subs->{$sub} . ")\n";
 			mkdir($folder . '/' . $sub);
 			mkdir($folder . '/' . $sub);
 		}
 		}