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