mirror of
https://github.com/Mibew/design.git
synced 2025-01-23 18:40:32 +03:00
71c74f5e4c
git-svn-id: https://webim.svn.sourceforge.net/svnroot/webim/trunk@229 c66351dc-e62f-0410-b875-e3a5c0b9693f
46 lines
1.2 KiB
Perl
Executable File
46 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
##################################################################
|
|
# Arguments
|
|
##################################################################
|
|
|
|
$targetFolder = "deploy";
|
|
$suffix = "150";
|
|
|
|
##################################################################
|
|
# 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" || $_ eq ".keep") } @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;
|
|
`zip -r ../webim$suffix.zip *`;
|