Procházet zdrojové kódy

Deal with disc-named files

Zachary Kotlarek před 12 roky
rodič
revize
0e20b408ab
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      plexCmd/renameFromDisk.pl

+ 2 - 2
plexCmd/renameFromDisk.pl

@@ -173,13 +173,13 @@ foreach my $episode (@episodes) {
 		$file =~ s/^\d+\s+\-\s*//;
 		$file =~ s/S\d+E\d+\s+\-\s*//i;
 		$file =~ s/\.\w{2,4}//;
-		if (!$file || length($file) < 2 || $file =~ /NoName/i || $file =~ /Episode\s+\d+/i) {
+		if (!$file || length($file) < 2 || $file =~ /NoName/i || $file =~ /Episode\s+\d+/i || $file =~ /Disc\s+\d+/i) {
 			next;
 		}
 		if ($file =~ /\s+S\d+D\d+\-\d+$/) {
 			print STDERR 'Skipping encoder-named file: ' . $file . "\n";
 		}
-		if ($title =~ /^Episode\s+\d+$/ || $title =~ /^\d{4}\-\d{2}\-\d{2}$/) {
+		if ($title =~ /^Episode\s+\d+$/ || $title =~ /^\d{4}\-\d{2}\-\d{2}$/ || $title =~ /Disc\s+\d+/i) {
 			my $ua      = LWP::UserAgent->new();
 			my $encoded = uri_escape($file);