Warn on YTID parsing failures

yt/critrole.pl

@@ -80,6 +80,11 @@ my %ytids = ();
 		}
 		if ($response->decoded_content() =~ /data-ytid=\"([^\"]+)\"/) {
 			$ytids{$1} = $url;
+		} else {
+			print STDERR 'No YTID found on: ' .$url . "\n";
+			if ($DEBUG > 1) {
+				print STDERR "\tPage content:\n" . $response->decoded_content() . "\n\n";
+			}
 		}
 	}
 }
@@ -114,4 +119,4 @@ if ($DEBUG) {
 }
 
 # Cleanup
-exit(0);
+exit(0);