From cfde3bddd44142b4582624dac65f0602cab8e899 Mon Sep 17 00:00:00 2001
From: kramm <kramm>
Date: Tue, 3 Feb 2004 14:57:32 +0000
Subject: [PATCH] writes more debug messages now

---
 doc/codebeautifier.pl |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/doc/codebeautifier.pl b/doc/codebeautifier.pl
index 6225c83..de76026 100644
--- a/doc/codebeautifier.pl
+++ b/doc/codebeautifier.pl
@@ -4,14 +4,19 @@ while(<stdin>)
 	$code .= $_ if(!/CALLPERL/);
 	$name = $1 if(/.flash.*name=([^&][^ ]*)/);
 	$name = $1 if(/.flash.*name=&quot;([^&]*)&quot;/);
+	chomp $name;
     } 
     elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
 	$highlight .= $_ if(!/CALLPERL/);
     }
     elsif ($code ne "") {
 	$code =~ s/&quot;/"/g;
+
+#	    print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
+
 	open(fi, ">tmp.sc");print fi $code;close(fi);
-	system("swfc tmp.sc");
+	print stderr "swfc tmp.sc ($name)\n";
+	system("swfc tmp.sc >&2");
 	($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
 	$width = $1;
 	print "<td bgcolor=\"#ffffff\" width=\"$width\">";
-- 
1.7.10.4