Mibew/java
1
0
Fork 0
mirror of https://github.com/Mibew/java.git synced 2025-10-31 18:41:09 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

whatsnew line, pack.pl

Browse Source 
git-svn-id: https://webim.svn.sourceforge.net/svnroot/webim/trunk@66 c66351dc-e62f-0410-b875-e3a5c0b9693f
This commit is contained in:
Evgeny Gryaznov 2008-05-06 22:32:46 +00:00
parent 2abafad27f
commit 460efce20b
2 changed files with 47 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/pack.pl Executable file
View File

@ -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 *`;

5
src/webim/install/whatsnew.txt
View File

@ -1,7 +1,8 @@
1.0.9
1.0.9 pre1
-----
[!] completly new encoding handling
[!] some fixes for Opera
1.0.8