From 460efce20b2cebdf7908d6e14ee97dae6a8ea9dc Mon Sep 17 00:00:00 2001
From: Evgeny Gryaznov <inspirer@users.sourceforge.net>
Date: Tue, 6 May 2008 22:32:46 +0000
Subject: [PATCH] whatsnew line, pack.pl

git-svn-id: https://webim.svn.sourceforge.net/svnroot/webim/trunk@66 c66351dc-e62f-0410-b875-e3a5c0b9693f
---
 src/pack.pl                    | 44 ++++++++++++++++++++++++++++++++++
 src/webim/install/whatsnew.txt |  5 ++--
 2 files changed, 47 insertions(+), 2 deletions(-)
 create mode 100755 src/pack.pl

diff --git a/src/pack.pl b/src/pack.pl
new file mode 100755
index 00000000..ad211b63
--- /dev/null
+++ b/src/pack.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+
+##################################################################
+# Arguments
+##################################################################
+
+$targetFolder = "deploy";
+
+##################################################################
+# Copies tree into target folder, preprocess .phps
+##################################################################
+
+sub process_dir($$) {
+	my ($from,$to) = @_;
+	opendir(DIR, $from) || die "can't opendir $from: $!";
+    my @content = readdir(DIR);
+    closedir DIR;
+    mkdir $to;
+    
+	for(grep { -f "$from/$_" && ($_ !~ /^\./ || $_ eq ".htaccess") } @content) {
+		my ($source,$target) = ("$from/$_","$to/$_");
+
+		open (IN,"$source");
+		binmode(IN);
+		open (OUT,">$target");
+		binmode(OUT);
+		print OUT $buffer while (read (IN,$buffer,65536));
+	}
+	
+	for(grep { -d "$from/$_" && $_ !~ /^\./ } @content) {
+		process_dir("$from/$_","$to/$_");
+	} 
+}
+
+##################################################################
+# Main
+##################################################################
+
+die "Target folder exists: $targetFolder" if -e $targetFolder;
+
+process_dir("./webim", $targetFolder);
+
+chdir $targetFolder;
+`tar zcf ../webim.tar.gz *`;
diff --git a/src/webim/install/whatsnew.txt b/src/webim/install/whatsnew.txt
index 896a4f98..cca4e989 100644
--- a/src/webim/install/whatsnew.txt
+++ b/src/webim/install/whatsnew.txt
@@ -1,7 +1,8 @@
 
-  1.0.9
+  1.0.9 pre1
   -----
-  
+
+  [!] completly new encoding handling
   [!] some fixes for Opera
 
   1.0.8