PyukiWiki CVS Commit
pyuki****@lists*****
2012年 8月 3日 (金) 04:48:07 JST
Index: PyukiWiki-Devel-UTF8/build/build.pl
diff -u PyukiWiki-Devel-UTF8/build/build.pl:1.392 PyukiWiki-Devel-UTF8/build/build.pl:1.393
--- PyukiWiki-Devel-UTF8/build/build.pl:1.392 Wed Aug 1 03:46:47 2012
+++ PyukiWiki-Devel-UTF8/build/build.pl Fri Aug 3 04:48:07 2012
@@ -1,6 +1,6 @@
#!/usr/bin/perl
# release file perl script for pyukiwiki
-# $Id: build.pl,v 1.392 2012/07/31 18:46:47 papu Exp $
+# $Id: build.pl,v 1.393 2012/08/02 19:48:07 papu Exp $
$|=1;
$DIR=$ARGV[0];
@@ -465,9 +465,10 @@
sub shell {
my($shell)=@_;
+ print STDERR "$shell\n";
open(PIPE,"$shell|");
foreach(<PIPE>) {
-# print STDERR "$_\n";
+ print STDERR "$_\n";
# chomp;
}
close(PIPE);
@@ -679,6 +680,16 @@
print STDERR "$new syntax error\n$chk\n";
exit 1;
}
+
+# # output perl html
+# if($CHARSET ne 'utf8') {
+# &convertutf8("$newfile", "utf8.tmp");
+# &shell("perltidy -html -nnn --nohtml-entities utf8.tmp");
+# rename("utf8.tmp.html", "$newfile.html");
+# unlink("utf8.tmp");
+# } else {
+# &shell("perltidy -html -nnn --nohtml-entities $newfile");
+# }
}
# for compact
if(0) {