From 12e2a3511d9098ca03b6614b53b8c7b09efe5443 Mon Sep 17 00:00:00 2001 From: Victor Wagner Date: Tue, 16 Sep 2014 00:23:21 +0400 Subject: [PATCH] Support for utf-8 output --- archivedir | 32 ++++++++++++++++---------------- imagedir | 12 +++++++----- 2 files changed, 23 insertions(+), 21 deletions(-) diff --git a/archivedir b/archivedir index 54b48d9..1a5e0df 100755 --- a/archivedir +++ b/archivedir @@ -1,23 +1,23 @@ #!/usr/bin/tclsh array set monName { -01 "ñÎ×ÁÒÑ" -02 "æÅ×ÒÁÌÑ" -03 "íÁÒÔÁ" -04 "áÐÒÅÌÑ" -05 "íÁÑ" -06 "éÀÎÑ" -07 "éÀÌÑ" -08 "á×ÇÕÓÔÁ" -09 "óÅÎÔÑÂÒÑ" -10 "ïËÔÑÂÒÑ" -11 "îÏÑÂÒÑ" -12 "äÅËÁÂÒÑ" +01 "\u042f\u043d\u0432\u0430\u0440\u044f" +02 "\u0424\u0435\u0432\u0440\u0430\u043b\u044f" +03 "\u041c\u0430\u0440\u0442\u0430" +04 "\u0410\u043f\u0440\u0435\u043b\u044f" +05 "\u041c\u0430\u044f" +06 "\u0418\u044e\u043d\u044f" +07 "\u0418\u044e\u043b\u044f" +08 "\u0410\u0432\u0433\u0443\u0441\u0442\u0430" +09 "\u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044f" +10 "\u041e\u043a\u0442\u044f\u0431\u0440\u044f" +11 "\u041d\u043e\u044f\u0431\u0440\u044f" +12 "\u0414\u0435\u043a\u0430\u0431\u0440\u044f" } proc year_header {year items} { - return "

$year ÇÏÄ