namespace :dyserver do LOCAL_BASE = '' DIST_BASE = "#{LOCAL_BASE}../../dyserver/" # To bootstrap: # $ to 1,pr # $ rake -f /dym$disk/dymax/dyserver dyserver:update project=ENV['PROJECT'] if project!='' local_base="/dym$disk/dymax/#{project}/dyserver" unless File.directory?(local_base) mkdir local_base end chdir local_base end # We must start in a dyserver project directory for relative # paths in cfg.spc to work. If the project wasn't defined and # the current dir is incorrect, we'll have to bail. current_dir=Dir.pwd if /\/dymax\/\d{3}\/dyserver$/i.match(current_dir) == nil abort "Current directory must be a dyserver project directory: $current_dir" end class ConfigSpc < Array def initialize super File.read('cfg.spc').downcase.split(/[\r\n]+/).grep(/^[^!]/) rescue super [] end def locally_configured? path member?(path.downcase) end end config_spc=ConfigSpc.new def fix_file filename case PLATFORM when /vms/i cmd= case filename when /\/images\// "set file/attr=rfm:stmlf #{File.unix_to_vms_path(filename)}" else "convert/fdl=dyulib:stream #{File.unix_to_vms_path(filename)} *.*" end puts cmd system cmd end end rule "public/images/submitgr.gif" "../web/submitgr.gif" do |task| cp task.source,task.name end local = FileList.new dist = FileList["#{DIST_BASE}**/*"].reject do |dist_path| local_path=dist_path.sub /#{DIST_BASE}/, LOCAL_BASE reject_path=File.directory?(dist_path) || config_spc.locally_configured?(local_path) local << local_path unless reject_path reject_path end local.each_index do |index| local_dir=File.dirname(local[index]) mkdir local_dir unless File.directory?(local_dir) file local[index] => dist[index] do copy dist[index], local[index] #bg> needs File.unix_to_vms_path, which is not yet written. #fix_file local[index] if /^public\//i.match local[index] end end desc "Update all distributed dyserver files from master copy" task :update => localend