diff options
author | Ralph Amissah <ralph.amissah@gmail.com> | 2007-06-02 11:27:06 +0100 |
---|---|---|
committer | Ralph Amissah <ralph.amissah@gmail.com> | 2007-06-02 11:27:06 +0100 |
commit | 26767cc88c0548ad7978021796d0ccc4c9f7ffed (patch) | |
tree | fe225e99e180b5d2925cbf776826f74db27e1888 /lib/sisu/0.52/hub.rb | |
parent | restrict use to ruby1.8 branch, i.e. < 1.9 (diff) |
0.53.0, pre-build, see changelog, library naming changed for scm, placed under v0 (instead of 0.53)upstream/0.53.0sisu_0.53.0
Diffstat (limited to 'lib/sisu/0.52/hub.rb')
-rw-r--r-- | lib/sisu/0.52/hub.rb | 573 |
1 files changed, 0 insertions, 573 deletions
diff --git a/lib/sisu/0.52/hub.rb b/lib/sisu/0.52/hub.rb deleted file mode 100644 index 1f2df5f6..00000000 --- a/lib/sisu/0.52/hub.rb +++ /dev/null @@ -1,573 +0,0 @@ -=begin - * Name: SiSU information Structuring Universe - Structured information, Serialized Units - * Author: Ralph Amissah - * http://www.jus.uio.no/sisu - * http://www.jus.uio.no/sisu/SiSU/download.html - - * Description: SiSU information Structuring Universe, processing - - * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Ralph Amissah - - * License: GPL 2 or later - - Summary of GPL 2 - - This program is free software; you can redistribute it and/or modify it - under the terms of the GNU General Public License as published by the Free - Software Foundation; either version 2 of the License, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - more details. - - You should have received a copy of the GNU General Public License along - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA - - If you have Internet connection, the latest version of the GPL should be - available at these locations: - http://www.fsf.org/licenses/gpl.html - http://www.gnu.org/copyleft/gpl.html - http://www.jus.uio.no/sisu/gpl2.fsf - - SiSU was first released to the public on January 4th 2005 - - SiSU uses: - - * Standard SiSU markup syntax, - * Standard SiSU meta-markup syntax, and the - * Standard SiSU object citation numbering and system - - © Ralph Amissah 1997, current 2007. - All Rights Reserved. - - * Ralph Amissah: ralph@amissah.com - ralph.amissah@gmail.com -=end -module SiSU - require SiSU_lib + '/sysenv' - include SiSU_Screen - @@pwd=Dir.pwd - class Remote_download - def initialize(requested_file) - @requested_file=requested_file - end - def pod - re_p_div=/http:\/\/([^\/]+)(\/\S+?)\/(sisupod(?:\.zip)?|[^\/]+?\.ssp)$/ - re_p=/(sisupod(?:\.zip)?|[^\/]+?\.ssp)$/ - if @requested_file =~ re_p_div - @site,@pth,@pod= re_p_div.match(@requested_file).captures - elsif @requested_file =~ re_p - @pod= re_p.match(@requested_file).captures - end - def site - @site - end - def path - @pth - end - def dir_stub - re_p_stub=/.+?([^\/]+)$/ - pod_stub= re_p_stub.match(path).captures.join if path - end - def name_source - @pod - end - def name - pod_download_as=if name_source=~/(?:sisupod\.(?:zip|ssp))/; dir_stub + '.ssp' - else name_source - end - end - self - end - end - class Op - @@env=SiSU_Env::Info_env.new - def initialize(opt,req,message) - @opt,@req,@message=opt,req,message - @n_do=0 - end - def pod_output(fns_pod) - dir_pwd=@@env.path.pwd - dir_pod=@@env.sisupod_gen(fns_pod) - Dir.chdir(dir_pod) - content=Dir.glob("*.ss[mt]").join(' ') - if content =~/\.ss[mt]/ - Dir.chdir(dir_pwd) - @opt.fns=content #check - system("cd #{dir_pod} - sisu -CC #{@opt.cmd} #{@opt.mod.join(' ')} #{content} - cd - - ") - end - @pwd=`pwd`.strip - Dir.chdir(@pwd) - end - def select - require SiSU_lib + "/#@req" - if @req =~/^conf$/; SiSU_Initialize::Source.new(@opt).read # -C - end - if not @opt.files.empty? - @opt.files.each do |fns| - if fns =~ /(?:sisupod(?:\.zip)?|\.ssp)$/ - pod_name=Remote_download.new(fns).pod.name - tell=SiSU_Screen::Ansi.new(@opt.cmd,pod_name) - tell.puts_blue unless @opt.cmd =~/q/ - @opt.files.shift - pod_output(pod_name) - break - else - put=fns.gsub(/(.+)?\._sst$/,'\1.ssm') - @opt.fns=fns - if @req !~/(?:urls|remote_put)$/ - if FileTest.file?(@opt.fns) - case @opt.fns - when /\.(?:[_-]?sst|ssm)$/ - case @req - when /^dal$/ - if fns =~ /\.ssm$/; require SiSU_lib + '/composite' #pre-processing - SiSU_Assemble::Composite.new(@opt).read - @opt.fns=fns.gsub(/\.ssm$/,'._sst') - end - SiSU_DAL::Source.new(@opt).read # -m - when /^concordance$/; SiSU_Concordance::Source.new(@opt).read # -w - when /^share_src$/; SiSU_Markup::Source.new(@opt).read # -s - when /^sisupod_make$/; SiSU_Doc::Source.new(@opt).read # -S - when /^source_kdissert$/; SiSU_Kdi_source::Source.new(@opt).read ## -S - when /^digests$/; SiSU_Digest_view::Source.new(@opt).read # -N - when /^plaintext$/; SiSU_Plaintext::Source.new(@opt).read # -a -A -e -E -f - when /^wikispeak$/; SiSU_Wikispeak::Source.new(@opt).read # -g - when /^odf$/; SiSU_ODF::Source.new(@opt).read # -o - when /^texpdf$/; SiSU_TeX::Source.new(@opt).read # -p - when /^texinfo$/; SiSU_TexInfo::Source.new(@opt).read # -I - when /^docbook$/; SiSU_Docbook::Source.new(@opt).read # -B - when /^html$/; SiSU_HTML::Source.new(@opt).read # -h -H - when /^xml$/; SiSU_XML_SAX::Source.new(@opt).read # -x - when /^xml_dom$/; SiSU_XML_DOM::Source.new(@opt).read # -X - when /^xhtml$/; SiSU_XHTML::Source.new(@opt).read # -b - when /^manifest$/; SiSU_Manifest::Source.new(@opt).read # -y - when /^sitemaps$/; SiSU_Sitemaps::Source.new(@opt).read # -Y - when /^zap$/; SiSU_Zap::Source.new(@opt).read # -Z - when /^dbi$/; SiSU_DBI::SiSU_SQL.new(@opt).connect # -D -d - end - @n_do=@n_do+1 - tell=SiSU_Screen::Ansi.new(@opt.cmd,@n_do,"#{@req.upcase} processed") - tell.files_processed unless @opt.cmd =~/q/ - ObjectSpace.garbage_collect - else #print "not processed --> ", fns, "\n" - end - else Operations.new(@opt).not_found - end - elsif FileTest.file?(put) - case @req - when /^urls$/; SiSU_urls::Source.new(@opt).read # -u -v -V -M - when /^remote_put$/ - case @message - when /scp/; SiSU_Remote::Put.new(@opt).scp # -r - when /rsync/; SiSU_Remote::Put.new(@opt).rsync # -R - else #SiSU_Remote::Put.new(put,@opt.cmd).scp - end - end - else Operations.new(@opt).not_found - end - end - end - elsif @req =~/^dbi$/; SiSU_DBI::SiSU_SQL.new(@opt).connect # -D -d - elsif @req=~/^sisupod_make$/; SiSU_Doc::Source.new(@opt).read # -S - end - Operations.new.counter - end - end - class Operations - @@n_do=0 - def initialize(opt='') - @opt=opt - @cX=SiSU_Screen::Ansi.new(@opt).cX - end - def counter - @@n_do=0 - end - def remote_put_base_site_rsync # -CR -p "here #{__FILE__} #{__LINE__}" if @opt =~/M/ - require SiSU_lib + '/remote_put' - SiSU_Remote::Put.new(@opt).rsync_base - end - def remote_put_base_site_rsync_match # -CCRZ -p "here #{__FILE__} #{__LINE__}" if @opt =~/M/ - require SiSU_lib + '/remote_put' - SiSU_Remote::Put.new(@opt).rsync_base_sync - end - def remote_put_base_site # -Cr -p "here #{__FILE__} #{__LINE__}" if @opt =~/M/ - require SiSU_lib + '/remote_put' - SiSU_Remote::Put.new(@opt).scp_base - end - def remote_put_base_site_all # -CCr -p "here #{__FILE__} #{__LINE__}" if @opt =~/M/ - require SiSU_lib + '/remote_put' - SiSU_Remote::Put.new(@opt).scp_base_all - end - def cgi # -F - require SiSU_lib + '/cgi' - SiSU_CGI::SiSU_search.new(@opt).read - end - def encoding # -K build character encoding db (uses KirbyBase) - require SiSU_lib + '/character_encoding' - SiSU_character_encode::Create.new.db - end - def termsheet # -t - system("sisu_termsheet #{@opt.cmd} #{@opt.fns}\n") - @@n_do=@@n_do+1 - tell=SiSU_Screen::Ansi.new(@opt.cmd,@@n_do,'Termsheet(s) processed') - tell.term_sheet_title unless @opt.cmd =~/q/ - end - def webrick # -W - port=prt=@fns - prt=if prt !~/\d+/; 'webrick default (sysenv)' - else "webrick port set to #{prt}" - end - puts %{#{@cX.blue}<<#{@cX.off}#{@cX.green}Start Webrick web server on port: #{prt}#{@cX.off}#{@cX.blue}>> #{@cX.off*2} } - system("sisu_webrick #{port}&\n") - end - def semantics - end - def not_found - puts "\n#{@cX.fuschia}FILE NOT FOUND:#{@cX.off} << #{@opt.fns} >> - requested #{@opt.cmd} processing skipped\n" - end - def convert_name_message(fns,type,i,o,rune) - %{\nIn filename: "#{@cX.fuschia}#{fns}#{@cX.off}" << #{type} >> #{@cX.fuschia}is apre 0.36 markup filename.#{@cX.off} #{@cX.brown}Please rename your file.#{@cX.off}\n\tAs of sisu-0.37, SiSU markup files with #{@cX.brown}the extensions #{i} should be re-named #{o}#{@cX.off}\n\tif you have the program called 'rename' installed, the following rune should do the trick:\n\t\t#{rune}\n\talternatively try:\n\t\tsisu --convert --36to37 #{fns}\n\trequested #{@opt.cmd} processing skipped\n} - end - def not_recognised - case @opt.fns - when /(\.s[123])$/ - type=@opt.fns.gsub(/\S+?(#{$1})/,'\1') - rune=%q{rename 's/\.s[123]$/\.sst/' *.s{1,2,3}} - puts convert_name_message(@opt.fns,type,'.s1 .s2 and .s3','.sst',rune) - when /(\.r[123])$/ - type=@opt.fns.gsub(/\S+?(#{$1})/,'\1') - rune=%q{rename 's/\.r[123]$/\.ssm/' *.r{1,2,3}} - puts convert_name_message(@opt.fns,type,'.r1 .r2 and .r3','.sst',rune) - puts %{\n\tNote also that you will need to change the names of the files called/required\n\twithin the document text to build the composite document\n\t\t.s1 .s2 .s3 should be .sst \n\t\t.si should be .ssi\n\trequested #{@opt.cmd} processing skipped\n} - when /(\.ssi)$/ - puts "\n#{@cX.fuschia}component filetype:#{@cX.off} << #{@opt.fns} >> - is not a processed filetype, (it may be used as a component of a .ssm markup file)\n\trequested #{@opt.cmd} processing skipped\n" - else - puts "\n#{@cX.fuschia}FILETYPE NOT RECOGNISED:#{@cX.off} << #{@opt.fns} >> - is not a recognized filetype,\n\trequested #{@opt.cmd} processing skipped\n" - end - end - end - class Processing - require 'fileutils' - include FileUtils - @@env=SiSU_Env::Info_env.new - attr_accessor :op - def initialize(opt) - @opt=opt - @msg,@msgs='',nil - @tell=lambda { SiSU_Screen::Ansi.new(@opt.cmd,@msg,"#{@msgs.inspect if @msgs}") } - end - def op(req,msg) - Op.new(@opt,req,msg).select if req and msg - end - def actions - if @opt.mod.inspect =~/--convert|--to|--from/; require SiSU_lib + '/sst_convert_markup' - end - if @opt.cmd =~/([AabCcDdEeFfgGHhIiLMmNnoprRSsTtQqUuVvwWXxYyZ_0-9])/ and - @opt.cmd =~/^-/ and - @opt.mod.inspect !~/--(?:sitemaps|query|identify)/ or - @opt.mod.inspect =~/--(?:(?:sq)?lite|pg(?:sql)?)/ #and - @@tell=SiSU_Screen::Ansi.new(@opt.cmd) - @cX=SiSU_Screen::Ansi.new(@opt.cmd).cX - flag=SiSU_Env::Info_processing_flag.new - extra='' - if @opt.cmd !~/[mn]/ - extra+=if @opt.cmd =~/[abBeghHhINoptwXxz]/ and @opt.cmd !~/[mn]/; 'm' #% add dal - elsif ((@opt.cmd =~/[Dd]/ or (@opt.mod.inspect =~/--(?:(?:sq)?lite|pg(?:sql)?)/)) \ - and @opt.mod.inspect !~/(?:remove|(?:(?:re)?create(?:all)?|dropall|drop)$)/) \ - and @opt.cmd !~/[mn]/ - 'm' #% add dal - else '' - end - end - if @opt.cmd !~/y/ - extra+=if @opt.cmd =~/[abehHhINopsSstwXxz]/ and @opt.cmd !~/y/; 'y' #% add manifest - elsif (@opt.cmd =~/[Dd]/ or @opt.mod.inspect =~/--(?:(?:sq)?lite|pg(?:sql)?)/) and @opt.files[0] !~/^remove$/ and @opt.cmd !~/y/; 'y' #% add manifest - else '' - end - end - @opt.cmd=@opt.cmd + extra - if @opt.cmd =~/[vVM]/ #% version information - version=SiSU_Env::Info_version.new.get_version - rb_ver=SiSU_Env::Info_version.new.rbversion - if version[:version] - tell=SiSU_Screen::Ansi.new(@opt.cmd,version[:project],version[:version],version[:date_stamp],version[:date],rb_ver) - tell.version - SiSU_Help::Help.new('env',@opt).environment if @opt.cmd =~/V/ and @opt.files.empty? #% environment - else puts 'SiSU version information not available' - end - end - if @opt.cmd =~/^-L$/; SiSU_Help::Help.new('license',@opt).help_request #% version information - end - if @opt.cmd =~/m/i #% -m for -C - path={} - path[:css]=@@env.path.output + '/_sisu/css' - path[:xml]=@@env.path.output + '/_sisu/xml' - path[:xsd]=path[:xml] + '/xsd' - path[:xsd]=path[:xml] + '/rnc' - path[:xsd]=path[:xml] + '/rng' - #path_dtd="#{@@env.path.output}/_sisu/xml/dtd" - re_p=/(sisupod(?:\.zip)?|[^\/]+?\.ssp)$/ - unless @opt.files.join(',') =~ re_p #do not mix pods with source markup files in command line - unless ( FileTest.directory?(path[:css]) and FileTest.directory?(path[:xsd]) ) - @opt.cmd=@opt.cmd +='C' unless @opt.cmd =~/C/ #FIX - end - if @opt.cmd =~/M/; $VERBOSE=false #debug $VERBOSE=true - # -M test other expected directories including images - end - end - end - if @opt.cmd =~/C/ #% -C initialize/configure - op('conf','configure site') - if @opt.cmd =~/R/ - if @opt.mod.inspect =~/--init(?:ialize)?=site/ and - @opt.cmd =~/RZ/ - Operations.new(@opt).remote_put_base_site_rsync_match - else Operations.new(@opt).remote_put_base_site_rsync - end - elsif @opt.cmd =~/r/ - if @opt.mod.inspect =~/--init(?:ialize)?=site/ and - @opt.cmd =~/CCr/ - Operations.new(@opt).remote_put_base_site_all - else Operations.new(@opt).remote_put_base_site - end - end - end - if @opt.cmd =~/F/ #% -F cgi sample search form - Operations.new(@opt).cgi - end - if @opt.cmd =~/W/; Operations.new(@opt).webrick #% -W webrick #@argv==port - end - if @opt.cmd =~/k/ #% -k dummy, build character encoding table - #Operations.new(@opt.cmd).encoding - end - if @opt.cmd =~/Z/; op('zap','Zap, deletions') #% -Z wipe previous output clean - end - if @opt.cmd =~/s/; op('share_src','SiSU markup source') #% -s sisu source - end - if @opt.cmd =~/m/ #% -m is remote url requested? (download if) - @retry_count= -1 - begin - path_image='./_sisu/processing/external_document/image' - path_skin='./_sisu/processing/external_document/skin/doc' - @get_s,@get_p=[],[] - re_s=/(http:\/\/\S+?\.sst)/ - re_p=/(http:\/\/\S+?(?:\/sisupod(?:\.zip)?|\.ssp))/ - @opt.files.each do |fns| - if fns =~re_s - @get_s << re_s.match(fns)[1] if re_s - end - if fns =~re_p - @get_p << re_p.match(fns)[1] if re_p - end - end - if @get_s.length > 0 #% remote markup file .sst - require 'open-uri' - require 'pp' - require SiSU_lib + '/composite' - @rgx_image=/\{\s*(\S+?\.(?:png|jpg|gif))/ - @rgx_skin=/^0~skin\s+(\S+)/ - threads = [] - for requested_page in @get_s - threads << Thread.new(requested_page) do |url| - open(url) do |f| - raise "#{url} not found" unless f - re_fnb=/(http:\/\/[^\/ ]+?\/[^\/ ]+?)\/\S+?\/([^\/]+?)\.ss(t)/ #revisit and remove DO - base_uri,fnb,instr=re_fnb.match(url)[1..3] if re_fnb - imagedir = base_uri + '/_sisu/image_local' #check on - doc_skin_dir = /(http:\/\/\S+?)\/[^\/]+?\.sst$/.match(url).captures.join + '/_sisu/skin/doc' - #"Got file, and ready to process: #{fnb}.t#{instr}" - downloaded_file=File.new("#{fnb}.-sst",'w+') - images=SiSU_Assemble::Remote_image.new.image(imagedir) - skin=SiSU_Assemble::Remote_image.new.image(doc_skin_dir) - f.collect.each do |r| # work area - skin << r.scan(@rgx_skin).uniq if r =~@rgx_skin - images << r.scan(@rgx_image).uniq if r =~@rgx_image - downloaded_file << r - end - if skin and skin.length > 0 - SiSU_Assemble::Remote_image.new.download_doc_skin(skin) - end - if images and images.length > 1 - images.flatten!.uniq! - @msg,@msgs='downloading images:', [ images.join(',') ] - @tell.call.warn unless @opt.cmd =~/q/ - SiSU_Assemble::Remote_image.new.download_images(images) - @msg,@msgs='downloading done',nil - @tell.call.warn unless @opt.cmd =~/q/ - end - downloaded_file.close - end - end - end - Operations.new.counter - end - threads.each {|thr| thr.join} if threads #and threads.length > 0 - if @get_p.length > 0 #% remote sisupod - require 'net/http' - for requested_pod in @get_p - pod_info=Remote_download.new(requested_pod) - @opt.fns=pod_info.pod.name - Net::HTTP.start(pod_info.pod.site) do |http| - resp = http.get("#{pod_info.pod.path}/#{pod_info.pod.name_source}") - open(pod_info.pod.name,'wb') do |file| - file.write(resp.body) - end - end - end - end - rescue; SiSU_Errors::Info_error.new($!,$@,@opt,@fns).error #ok - @retry_count +=1 - retry unless @retry_count > 1 - ensure - end - @opt.files=@opt.files.collect {|x| x=x.gsub(/http:\/\/\S+\/(\S+)\.sst/,'\1.-sst') } - end - if @opt.cmd=~/m/; op('dal','dal') #% -m dal - end - @opt.files=@opt.files.collect {|x| x=x.gsub(/\.ssm$/,'._sst') } - if @opt.cmd =~/S/ - op('sisupod_make','sisupod (zip)') #% -S make sisupod - if @opt.fns=~/\.kdi._sst/ - op('share_src_kdissert','kdissert (kdi)') #% -S share kdissert source - end - end - if @opt.cmd =~/N/; op('digests','digests') #% -N digest tree - end - if @opt.cmd =~/[hHz]/; op('html','html') #% -h -H -z html css - end - if @opt.cmd =~/[aAfeE]/; op('plaintext','plaintext') #% -a -A -f -e -E plaintext -a creates ms-dos type; -A creates unix type, plaintext file - end - if @opt.cmd =~/g/; op('wikispeak','wikispeak') #% -g wiki - end - if @opt.cmd =~/o/; op('odf','OpenDocument') #% -o opendocument - end - if @opt.cmd =~/x/; op('xml','xml sax') #% -x xml sax type - end - if @opt.cmd =~/X/; op('xml_dom','xml dom') #% -X xml dom type - end - if @opt.cmd =~/b/; op('xhtml','xhtml sax') #% -b xhtml sax type - end - if @opt.cmd =~/B/; op('docbook','docbook xml') #% -B docbook xml - end - if @opt.cmd =~/w/; op('concordance','Concordance') #% -w concordance - end - if @opt.cmd =~/t/ #% -t termsheet/standard form - SiSU_Help::Help.new('termsheet').help_request - @opt.files.each do |fns| - if FileTest.file?(fns) - @opt.fns=fns - case @opt.fns - when /\.(termsheet.rb)$/; Operations.new(@opt).termsheet - else #print "not processed --> ", fns, "\n" - end - else Operations.new(@opt).not_found - end - end - Operations.new.counter - end - if @opt.cmd =~/p/; op('texpdf','LaTeX pdf') #% -p latex/ texpdf - end - if @opt.cmd =~/I/; op('texinfo','TeX Info') #% -I texinfo (i taken by db import) - end - if @opt.cmd =~/D/ or @opt.mod.inspect =~/--pgsql/; op('dbi','postgresql') #% -D DB postgresql - end - if @opt.cmd =~/d/ or @opt.mod.inspect =~/--sqlite/; op('dbi','sqlite') #% -d DB sqlite - end - if @opt.cmd =~/G/; Operations.new(@opt).cgi #% -G cgi - used to make dbi intecface - end - if @opt.cmd =~/y/; op('manifest','Manifest') #% -y manifest - end - if @opt.cmd =~/Y/; op('sitemaps','Sitemap') #% -Y sitemap - end - if @opt.cmd =~/r/; op('remote_put','scp') #% -r copy to remote server - end - if @opt.cmd =~/R/; op('remote_put','rsync') #% -R copy to remote server - end - if @opt.cmd =~/[QuUvVM]/; op('urls','urls') #% -Q -u -v -V -M urls - end - @msg,@msgs="\tsisu -W [to start ruby web-server on output directory]\n",nil - @tell.call.print_brown if @opt.cmd =~/[uUvVM]/ unless @opt.files.join.empty? - if defined? @@env.path.processing and FileTest.directory?(@@env.path.processing) and @@env.path.processing =~/#{@@env.user}$/ #clean temporary processing directory of content as is located in public area - cd(@@env.path.processing_base_tmp) do - rm_rf(@@env.user) unless @opt.cmd =~/M/ - end - end - elsif @opt.mod.inspect =~/--query/ - require SiSU_lib + '/sst_identify_markup' - puts SiSU_Markup::Markup_history.new(@opt).query - elsif @opt.mod.inspect =~/--identify/ - require SiSU_lib + '/sst_identify_markup' - markup_version=SiSU_Markup::Markup_identify.new(@opt).markup_version? - elsif @opt.mod.inspect =~/--about/ #% help instructions - if @opt.mod.inspect =~/--about/ and not @opt.what.empty?; SiSU_Help::Help.new(@opt.what,'color_off').help_request - else SiSU_Help::Help.new('list','color_off').help_request - end - elsif @opt.mod.inspect =~/--sitemaps/ #% sitemaps - require SiSU_lib + '/sitemaps' - SiSU_Sitemaps::Source.new(@opt).read - if @opt.cmd =~/R/ - require SiSU_lib + '/remote_put' - SiSU_Remote::Put.new(@opt).rsync_sitemaps - end - else #% help instructions - unless @opt.mod.inspect =~/--convert|--to|--from/ - if @opt.mod.inspect =~/--help/ and not @opt.what.empty?; SiSU_Help::Help.new(@opt.what).help_request - else SiSU_Help::Help.new('list').help_request - end - end - end - @opt.files.each do |fns| - if FileTest.file?(fns) - @opt.fns=fns - unless @opt.fns =~ /(?:\.(?:[_-]?sst|ssp|sx[sdn]\.xml|termsheet.rb)|sisupod(?:\.zip)?)$/ - if @opt.fns=~/\.kdi$/ and @opt.mod.inspect =~/--(?:convert(?:-from)?|from)[=-]kdi/ - elsif @opt.fns=~/\.sx[sdn]\.xml$/ and @opt.mod.inspect =~/--(?:(?:convert(?:-from)?|from)[=-])?(?:xml2sst|sxml)/ - elsif @opt.fns=~/\.ssi$/ and @opt.mod.inspect =~/--identify/ - else Operations.new(@opt).not_recognised - end - end - if @opt.fns =~/\._sst$/ and @opt.cmd !~/[S_M]/ # rework necessry, revist, the _ flag is a hack, to keep ._sst files - @msg,@msgs='temporary file removed',nil - @tell.call.warn unless @opt.cmd =~/V/ - File.unlink(@opt.fns) if File.exist?(@opt.fns) #CONSIDER - end - else #Operations.new(fns,'html').not_found - end - end - end - end - begin #% select what to do - require 'jcode' - $KCODE='UTF8' - require SiSU_lib + '/options' - require SiSU_lib + '/sysenv' - include SiSU_Env - include SiSU_Screen - require SiSU_lib + '/param' - include SiSU_Param - require SiSU_lib + '/defaults' - include SiSU_Viz - require SiSU_lib + '/help' - include SiSU_Help - require 'uri' - home=ENV['HOME'] - argv=$* - @opt=SiSU_commandline::Options.new(argv) - Processing.new(@opt).actions - rescue; STDERR.puts SiSU_Screen::Ansi.new(@opt,$!,$@,nil).rescue #fix - ensure - Dir.chdir(@@pwd) - end -end -__END__ |