#!/usr/bin/perl -w $dest_dr = "../enc"; $dest_dr_chm = $dest_dr."/chm"; $toolpath = ""; if($^O eq "MSWin32"){ $toolpath="./tools/"; } # про макросы в конец? $macrolast = 0; print "PREPARING CHM PROJECT\n"; print "\n -- clear CHM\n"; system $toolpath."rm -f -r ".$dest_dr_chm; print " -- making directories tree.\n\n"; mkdir $dest_dr, 0775; mkdir $dest_dr_chm, 0775; #%hrefs = (); #%hrefs2 = (); #mk_chm_lng("ru","rus","r"); #%hrefs = (); #%hrefs2 = (); #mk_chm_lng("en","eng","e"); %hrefs = (); %hrefs2 = (); mk_chm_lng("ru2","rus2","r"); #%hrefs = (); #%hrefs2 = (); #mk_chm_lng("en2","eng2","e"); sub mk_chm_lng { local($dr1) = @_[0]; local($dr2) = @_[1]; local($dr3) = @_[2]; print "\n------------------------------------\nPREPARING ".$dr1." --\n"; system "svn export ../enc_".$dr2." ".$dest_dr_chm."/".$dr1; mkdir $dest_dr_chm."/".$dr1."/html", 0775; mkdir $dest_dr_chm."/".$dr1."/distr_chm_plugins".$dr3, 0775; mktree($dest_dr_chm."/".$dr1."/meta"); print "\n\n -- translating meta into html\n\n"; $id = 1; fix($dest_dr_chm."/".$dr1."/meta"); print "total $id win32 links...\n"; system $toolpath."rm -f -r ".$dest_dr_chm."/".$dr1."/meta"; $fname=$dest_dr_chm."/".$dr1."/plugins".$dr3.".hhk"; $rel = "html"; $dir = $dest_dr_chm."/".$dr1."/".$rel; print "\n -- making chm indexes --\n\n"; srch($dir); open OUT, ">$fname"; print OUT <