rwdmovies 0.90 → 0.91

data/code/superant.com.rwdmovies/amazonsearch.rb

@@ -1,10 +1,10 @@
 
 
-require 'amazon/search'
 
+require 'amazon/search'
 include Amazon::Search
-def runmoviesearch
 
+def runmoviesearch
 req = Request.new(DEV_TOKEN)
 testmovie = @a_moviefilename
 s =   ['keyword_search', "#{testmovie}", 'video', LITE, 'Name']

data/code/superant.com.rwdtinkerbackwindow/controlclient.rb

@@ -1,28 +1,22 @@
-#
+# Bind message passing socket to rwdtinker application
 
 def runcontrolcommand
 require 'socket'
 
 # Change this line... 
-ip =  '127.0.0.1' 
+ ip =  '127.0.0.1' 
 # And this one...
-port =  $rwdcontrolport1
-if @a_remoteportinput
-port = @a_remoteportinput.to_i
-end
-# Done!
+ port =  $rwdcontrolport1
+ if @a_remoteportinput
+ port = @a_remoteportinput.to_i
+ end
 
- 
     commandtext =  @a_remotecommandinput.to_s 
-  
- remotehostnotfound = true
-
-client = UDPSocket::new()
-client.send(commandtext, 0, ip, port)
-
-
-if (commandtext == "stop")
-begin
+   remotehostnotfound = true
+ if (commandtext == "stop")
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
 		@socket = UDPSocket::new()
 		@socket.bind(ip, port)
 	 # Rescue the "Address in use" error
@@ -51,17 +45,20 @@ begin
      @remotecommandresult =  "Remote Host not running"
      end
  @socket.close
-end
+  # Close the socket after use
+ client.close()
+ end
 
-remotehostnotfound = true
-if (commandtext == "query")
-begin
+ remotehostnotfound = true
+ if (commandtext == "query") 
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
 		@socket = UDPSocket::new()
 		@socket.bind(ip, port)
 	 # Rescue the "Address in use" error
 	 rescue Errno::EADDRINUSE
 		
-     
   databack, info = client.recv(128)
   @remotecommandresult =  databack
   @lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
@@ -82,15 +79,17 @@ begin
 	 # Rescue all other errors
 	 end
 @socket.close
-end
-  if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
-     end
+
 # Close the socket after use
 client.close()
+end
 
+ if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+ end
 end
 
+# list the remote control options on the screen
 def showremoteportoptions
  
  @remoteportoptions = $rwdcontrolports.rwd_options

data/code/superant.com.rwdtinkerbackwindow/helptexthashtinkerwin2.rb

@@ -1,11 +1,16 @@
-  
+# help text files used by context sensitive help  
 
  Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
       by clicking on the list files button
 
            You can download an applet created by someone else
            
-      put the file in the zips directory",
+      put the file in the zips directory
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
      :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'
          To see the text of a install file
        Type in the name of the file you want.
@@ -28,10 +33,29 @@
       chose the applet you want\n
       click on 'install applet'\n
       If all goes well the applet should be installed.\n
-      You will need to restart rwdtinker to see the new screens",
+      You will need to restart rwdtinker to see the new screens
+       to install applets you need the ruby zlib library installed",
+
      :applet_tinkerbackeditconfiguration  => " You can edit the configuration
   
   Remember to reload the configuration variables if you want your
-  changes used."
-
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
 )

data/code/superant.com.rwdtinkerbackwindow/installapplet.rb

@@ -1,9 +1,12 @@
+# code in install rwdtinker applets - now uses ruby.zip module
   def installapplet
-   require 'fileutils'
-   require 'extras/zip/zip'
+   
     nametext = "%s" % [@a_installapplet]
-	 
+
         begin # exception trapped block
+
+
+   require 'extras/zip/zip'
    	 fullname =  nametext + ".zip"
      fileName = File.join($zipslocation,fullname)
 

data/code/superant.com.rwdtinkerbackwindow/installgemapplet.rb

@@ -1,3 +1,4 @@
+# install rwdtinker applet from a long directory location 
   def installgemapplet
    require 'fileutils'
    require 'extras/zip/zip'
@@ -6,16 +7,14 @@
         begin # exception trapped block
    	 fullname =  nametext + ".zip"
      
-
-  zf = Zip::ZipFile.new(fullname)
- zf.sort.each {
-  |entry|
-      zf.extract(entry.to_s, entry.to_s)
+         zf = Zip::ZipFile.new(fullname)
+         zf.sort.each {
+         |entry|
+         zf.extract(entry.to_s, entry.to_s)
                      }
-   @installapplettext = Message[:applet_installed]  
+         @installapplettext = Message[:applet_installed]  
    
        rescue
             @installapplettext = "unzip error - applet may not be installed correctly"
         end # exception rescue
-
   end

data/code/superant.com.rwdtinkerbackwindow/installremotegem.rb

@@ -0,0 +1,19 @@
+# download gem of rwdtinker applet
+  def superantcominstallremotegemapplet
+   require 'fileutils'
+   
+    tempnametext = "%s" % [@superantcominstallremoteappletinput]
+	 temparray = tempnametext.split(/ /)
+   nametext  = temparray[0]
+        begin # exception trapped block
+   	 
+  	
+	        commandline = $xpcommand + "gem install " + nametext
+         
+         @superantcominstallremotegemappletresult = `#{commandline}`
+   
+       rescue
+            @superantcominstallremotegemappletresult  = "error during gem install!"
+        end # exception rescue
+
+  end

data/code/superant.com.rwdtinkerbackwindow/listgemdirs.rb

@@ -0,0 +1,12 @@
+# this code is to list the gem directories that are installed
+def superantcomshowgemfiledirs
+ 
+  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+end
+ 
+def superantcomshowgemappletdirsname(inffile)
+  applet                = inffile
+  @a_gemfiledirsinput       = applet
+  
+end

data/code/superant.com.rwdtinkerbackwindow/listgemzips.rb

@@ -1,7 +1,7 @@
 # this code is to list the zips
 
 
-def fillhypernotename(inffile)
+def fillzipappletname(inffile)
   applet                = inffile.gsub(/\.zip$/, "")
   @a_installapplet = applet
   
@@ -50,5 +50,5 @@ def listgemzips
                         findzipfiles(x + "/**")
                 end
         end
-         @zipslistresult = $zipsarray.rwd_method("fillhypernotename")
+         @zipslistresult = $zipsarray.rwd_method("fillzipappletname")
       end  

data/code/superant.com.rwdtinkerbackwindow/listzips.rb

@@ -1,16 +1,31 @@
 # this code is to list the zipped applets that can be installed
-def listzipfilestoinstall
- if File.exist?($zipslocation)
-  fileList      = Dir.new($zipslocation).entries.sort.delete_if { |x| ! (x =~ /zip$/) }
-  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
-  end
-end
+
  
 def fillziptoinstallname(inffile)
   applet                = inffile.gsub(/\.zip$/, "")
   @a_installapplet        = applet
   
 end
+
 
 
-
+  
+def  listzipfilestoinstall
+ startlangdir = File.join($progdir, $zipslocation )
+ #get a list of the files and subdirectories on the starting directory only
+      
+    
+        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+        
+         #loop through and get the files names
+         a.each do |x|
+               # only zip files
+                  if x =~ /\.zip/
+                  #  puts "#{x}"        #adds the file to the array to display on the screen
+                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+               end
+              
+             end
+      
+         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+      end  

data/code/superant.com.rwdtinkerbackwindow/openhelpwindowtinkerwin2.rb

@@ -24,6 +24,9 @@ def runhelpwindowtinkerwin2
       $help_topic = "remote_control"
       
       end
+       if @rwd_tab == "superantcomremotezipsinstall"
+       $help_topic = "remotegemapplet_install"
+       end
           
   
  if @rwd_window != "rwdtinkerhelpwindow"

data/code/superant.com.rwdtinkerbackwindow/remotegemlist.rb

@@ -0,0 +1,24 @@
+# This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
+  
+def superantcomremotegemlist
+  gemcommandoption = "search --remote "
+    gemfilename = "rwdzip"
+    commandtext = "gem search --remote rwdzip"  
+    commandtemp = $xpcommand  + commandtext
+    begin # exception trapped block
+         
+     tempremotegemappletsresult = `#{commandtemp}  2>&1`
+     @superantcomremotegemappletsfullresult = tempremotegemappletsresult
+     fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+    
+  @superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+      rescue SystemCallError, StandardError
+     @superantcomremotegemappletsresult  = "system call error: " + $!
+    end # exception rescue
+end
+ 
+def superantcomremotegemappletdirsname(inffile)
+  applet                = inffile
+  @superantcominstallremoteappletinput       = applet
+  
+end

data/code/superant.com.rwdtinkerbackwindow/removeapplet.rb

@@ -10,19 +10,23 @@
    	    
    	    fd.each { |oneline|   
          if count == 1
-        commandline = "rm -r " + oneline
-         system( commandline+' > temp.output' )
+        if File.exist?(oneline.chop)
+        FileUtils.rm_rf( oneline.chop)
+         end
+        
          end
          count = 1
       }
    fd.close
-    commandline = "rm " + fileName
+   
+    FileUtils.rm_rf( fileName)
+    
     
-    system(commandline)
    @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
  
         rescue
-            @removeapplettext = "\n" + "error"
-        end # exception rescue
+           @removeapplettext = "\n" + "error"
+       
+   end # exception rescue
 
   end

data/code/superant.com.rwdtinkerbackwindow/saveconfigurationrecord.rb

@@ -1,4 +1,4 @@
-  # this method adds a new address record
+  # this method saves the configuration record
   def saveconfigurationrecord 
    require 'fileutils'
    if @a_configurationfilename

data/configuration/language.dist

@@ -0,0 +1,7 @@
+##VERSION:1.57
+#language selection file
+##NAME:$lang:0
+#$lang = "jp"
+$lang= "en"
+#$lang= "nl"
+#$lang= "es"

data/configuration/rwdapplicationidentity.dist

@@ -0,0 +1,3 @@
+##VERSION:1.57
+$rwdapplicationidentity = "rwdtinker main application"
+

data/configuration/{rwdmovies.cnf → rwdmovies.dist}

@@ -1,7 +1,10 @@
-
+##VERSION:0.91
+##NAME:$rwdmovies_directory:0
 $rwdmovies_directory="movies"
+##NAME:$tmpmoviepicture_directory:0
 $tmpmoviepicture_directory = "/tmp"
 
 
 DEV_TOKEN     = "D23XFCO2UKJY82"    # your development token
 
+RwdMoviesVersion = "0.91"

data/configuration/{rwdtinker.cnf → rwdtinker.dist}

@@ -1,12 +1,9 @@
-
+##VERSION:1.58
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
-LangNameFile = "rwdlanguage.rb"
 RWDFile	= "rwdtinker.rwd"
 LangDir = "lang"
-TempLangHashFile = LangDir + "/" + "templangfile.rb"
-LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb" 
  CodeDir = "code" 
  GuiDir = "gui"  
   $help_topic = "general_help"
@@ -14,3 +11,5 @@ LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb"
   $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
+
+RwdTinkerVersion = "1.58"

data/configuration/tinkerwin2variables.dist

@@ -0,0 +1,17 @@
+##VERSION:1.57
+TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
+##NAME:$zipslocation:0
+$zipslocation = "zips" # location of applets to add
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+##NAME:$xpcommand:0
+ $xpcommand = " "  # Linux machines
+# $xpcommand =  "cmd /C "  # XP machines with cmd shell
+##NAME:$gemdirectory_withgemfiles:0
+ $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+# $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
+##NAME:$geminstalled_directory:0
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
+
+RwdTinkerWin2Version = "0.8"
+

data/extras/rconftool.rb

@@ -0,0 +1,380 @@
+#!/usr/local/bin/ruby -w
+
+# Copyright (c) 2005 Brian Candler
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to
+# deal in the Software without restriction, including without limitation the
+# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+# sell copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+# IN THE SOFTWARE.
+
+##########################################################################
+# rconftool is a reimplementation of Sam Varshavchik's sysconftool in Ruby.
+# See http://www.courier-mta.org/sysconftool/ for details of the original.
+# Its purpose is to keep configuration files "fresh" when upgrading an
+# application from one version to another, ensuring that all necessary
+# settings are present and obsolete ones removed.
+# 
+# rconftool can be called as a library function or from the command line. It
+# can also install groups of files recursively from one directory tree into
+# another.
+##########################################################################
+
+require 'fileutils'
+
+module Rconftool
+  VERSION = "0.1"
+  class NoVersionLine < RuntimeError; end
+
+  # This module function installs a single source (.dist) file to a target
+  # location, having first merged in any compatible settings from the
+  # target file if it existed previously [if it does not exist, any settings
+  # from 'oldfile' are used instead]
+  #
+  # If the distfile is not in sysconftool format (i.e. doesn't have a
+  # ##VERSION: header within the first 20 lines), then for safety it is only
+  # installed if the target file does not already exist. No attempt at data
+  # merging is made in that case.
+
+  def self.install(distfile, targetfile=nil, oldfile=nil, opt={})
+    debug = opt[:debug] || $stdout
+
+    targetfile ||= distfile
+    if opt[:strip_regexp]
+      targetfile = targetfile.sub(opt[:strip_regexp], '')
+      oldfile    = oldfile.sub(opt[:strip_regexp], '') if oldfile
+    end
+    if opt[:add_suffix]
+      targetfile = targetfile + opt[:add_suffix]
+      oldfile    = oldfile + opt[:add_suffix] if oldfile
+    end
+    raise Errno::EEXIST, "#{distfile}: dist and target filenames are the same" if distfile == targetfile
+
+    # Read in the source (.dist) file
+    begin
+      src = ConfigFile.new(distfile)
+    rescue NoVersionLine
+      # Fallback behaviour when installing a file which is not in sysconftool
+      # format: we install the file only if it doesn't already exist
+      if File.exist?(targetfile)
+        debug << "#{targetfile}: already exists, skipping\n"
+        return
+      end
+      return if opt[:noclobber]
+      copyfrom = (oldfile and File.exist?(oldfile)) ? oldfile : distfile
+      if File.symlink?(copyfrom)
+        File.symlink(File.readlink(copyfrom), targetfile)
+        debug << "#{targetfile}: symlink copied from #{copyfrom}\n"
+      else
+        FileUtils.cp copyfrom, targetfile, :preserve=>true
+        debug << "#{targetfile}: copied from #{copyfrom}\n"
+      end
+      return
+    end
+
+    # OK, so we have a sysconftool file to install. Read in the existing
+    # target file, or if that does not exist, the oldfile
+    begin
+      old = ConfigFile.new
+      old.read(targetfile)
+    rescue NoVersionLine
+      # That's OK; the old target will be renamed to .bak
+    rescue Errno::ENOENT
+      begin
+        target_missing = true
+        old.read(oldfile) if oldfile
+      rescue Errno::ENOENT, NoVersionLine
+      end
+    end
+
+    # Same VERSION? No merge is required
+    if src.version == old.version and not opt[:force]
+      if target_missing
+        FileUtils.cp oldfile, targetfile, :preserve=>true
+        debug << "#{targetfile}: same VERSION, copied from #{oldfile}\n"
+        return
+      end
+      debug << "#{targetfile}: same VERSION, no change\n"
+      return
+    end
+
+    # Merge in old settings (note: any settings which are in targetfile but
+    # not in distfile will be silently dropped)
+    debug << "#{targetfile}:\n"
+    src.settings[1..-1].each do |src_setting|
+      name = src_setting.name
+      old_setting = old[name]
+      unless old_setting
+        debug << "  #{name}: new\n"
+        next
+      end
+      if old_setting.version == src_setting.version
+        debug << "  #{name}: unchanged\n"
+        src_setting.add_comment("\n DEFAULT SETTING from #{distfile}:\n")
+        src_setting.add_comment(src_setting.content)
+        src_setting.content = old_setting.content
+        next
+      end
+      # Otherwise, must install updated setting and comment out
+      # the current setting for reference
+      debug << "  #{name}: UPDATED\n"
+      src_setting.add_comment("\n Previous setting (inserted by rconftool):\n\n")
+      src_setting.add_comment(old_setting.content)
+    end
+
+    return if opt[:noclobber]
+
+    # Write out the new file and carry forward permissions
+    begin
+      tempfile = targetfile+".new#{$$}"
+      src.write(tempfile)
+      st = File.stat(distfile)
+      begin
+        File.chown(st.uid, st.gid, tempfile)
+      rescue Errno::EPERM
+      end
+      File.chmod(st.mode, tempfile)
+      File.rename(targetfile, targetfile+".bak") unless target_missing
+      File.rename(tempfile, targetfile)
+    rescue
+      File.delete(tempfile) rescue nil
+      raise
+    end
+  end
+
+  HEADER_ID = '__header__'
+
+  # Object to represent a single setting
+
+  class Setting
+    attr_reader :name, :version
+    attr_accessor :content
+
+    def initialize(name, version)
+      @name = name.gsub(/\s+/,'')
+      @version = version.gsub(/s+/,'')
+      @comment = ""
+      @content = ""
+      @in_content = false
+    end
+    def <<(str)
+      @in_content = true unless /\A#/ =~ str
+      if @in_content
+        @content << str
+      else
+        @comment << str
+      end
+    end
+    # Add text to 'comment' portion of setting, prefixing each line with '#'
+    def add_comment(str)
+      @comment << str.gsub(/^/,'#')
+    end
+    def to_s
+      return "#{@comment}#{@content}" if @name == HEADER_ID
+      return "##NAME: #{@name}:#{@version}\n#{@comment}#{@content}"
+    end
+  end # class Setting
+
+  # Object to represent an entire configuration file. It consists of
+  # an array of Setting objects, with the first one having a special name
+  # (__header__). We also keep a hash of setting name => setting object
+  # to enable us to find a particular setting quickly.
+
+  class ConfigFile
+    attr_reader :version, :settings
+
+    def initialize(filename=nil)
+      read(filename) if filename
+    end
+
+    # fetch a setting by name
+    def [](item)
+      @settings_hash[item]
+    end
+
+    def read(filename)
+      @version = nil
+      curr_setting = Setting.new(HEADER_ID,'')
+      @settings = [curr_setting]
+      @settings_hash = {}
+
+      File.open(filename) do |f|
+        # VERSION header must occur within first 20 lines
+        20.times do
+          line = f.gets
+          break unless line
+          curr_setting << line
+          if line =~ /\A##VERSION:/
+            @version = line
+            break
+          end
+        end
+        raise NoVersionLine, "#{filename}: No VERSION line found" unless @version
+
+        while line = f.gets
+          unless line =~ /\A##NAME:(.*):(.*)/
+            curr_setting << line
+            next
+          end
+          curr_setting = Setting.new($1,$2)
+          @settings << curr_setting
+          @settings_hash[curr_setting.name] = curr_setting
+        end
+      end
+    end
+
+    def write(filename)
+      File.open(filename,"w") do |f|
+        @settings.each do |s|
+          f << s.to_s
+        end
+      end
+    end
+  end # class ConfigFile
+
+  # Yield directory contents recursively, without doing chdir(). Note
+  # that yielded pathnames are relative to the base directory given;
+  # so that, for example, you can simulate 'cp -r /foo/bar/ /baz/' by
+  #   recurse_dir("/foo/bar") { |n| copy("/foo/bar/"+n,"/baz/"+n) unless 
+  #                                      File.directory?("/foo/bar/"+n) }
+  # Current behaviour is that if a directory is a symlink, we follow it.
+  # (Perhaps the block we yield should return true/false?)
+
+  def self.recurse_dir(base)
+    base = base+File::SEPARATOR unless base[-1,1] == File::SEPARATOR
+    dirs = ['']
+    while dir = dirs.pop
+      yield dir unless dir == ''
+      Dir.foreach(base+dir) do |n|
+        next if n == '.' || n == '..'
+        target = dir + n
+        if File.directory?(base+target)
+          dirs << target+File::SEPARATOR
+          next
+        end
+        yield target
+      end
+    end
+  end
+
+  class Processor
+    attr_reader :o
+
+    # Parse command-line options and set the @o options hash
+
+    def initialize(argv=nil)
+      require 'optparse'
+
+      @o = { :strip_regexp => /\.dist\z/ }
+      return unless argv
+      opts = OptionParser.new do |opts|
+        opts.banner = "rconftool version #{VERSION}"
+        opts.separator "Usage: #{$0} [options]"
+        opts.separator ""
+        opts.separator "Specific options:"
+
+        opts.on("-n", "--noclobber", "Dummy run") do
+          @o[:noclobber] = true
+        end
+        opts.on("-f", "--force", "Update files even if VERSION is same") do
+          @o[:force] = true
+        end
+        opts.on("-q", "--quiet", "No progress reporting") do
+          @o[:debug] = ""
+        end
+        opts.on("--targetdir DIR", "Where to write merged config files") do |dir|
+          @o[:targetdir] = dir
+        end
+        opts.on("--olddir DIR", "If file does not exist in targetdir,",
+                "try to merge from here") do |dir|
+          @o[:olddir] = dir
+        end
+        opts.on("--[no-]recursive", "Traverse directories recursively") do |v|
+          @o[:recursive] = v
+        end
+        opts.on("--strip-suffix FOO", "Remove suffix FOO from target filenames",
+		"(default .dist)") do |suffix|
+          @o[:strip_regexp] = /#{Regexp.escape(suffix)}\z/
+        end
+        opts.on("-a", "--add-suffix FOO", "Add suffix FOO to target filenames") do |suffix|
+          @o[:add_suffix] = suffix
+        end
+
+        opts.on_tail("-?", "--help", "Show this message") do
+          puts opts
+          exit
+        end
+      end
+      opts.parse!(argv)
+    end
+
+    # Process a list of files, [src1,src2,...]. If recursive mode has been
+    # enabled, then subdirectories of destdir are created as necessary
+    # when 'src' is a directory, and the mode/ownership of these newly
+    # created directories is copied from the original.
+
+    def run(files)
+      done_work = false
+      files.each do |f|
+        if not File.directory?(f)
+          dst = old = nil
+          dst = @o[:targetdir] + File::SEPARATOR + File.basename(f) if @o[:targetdir]
+          old = @o[:olddir]    + File::SEPARATOR + File.basename(f) if @o[:olddir]
+          Rconftool::install(f, dst, old, @o)
+        elsif not @o[:recursive]
+          raise Errno::EISDIR, "#{f} (not copied). Need --recursive?"
+        else
+          Rconftool::recurse_dir(f) do |nf|
+            src = f + File::SEPARATOR + nf
+            dst = old = nil
+            dst = @o[:targetdir] + File::SEPARATOR + nf if @o[:targetdir]
+            old = @o[:olddir]    + File::SEPARATOR + nf if @o[:olddir]
+            if File.directory?(src)
+              if dst and not File.directory?(dst)
+                orig = File.stat(src)
+                Dir.mkdir(dst, orig.mode)
+                begin
+                  File.chown(orig.uid, orig.gid, dst)
+                rescue Errno::EPERM
+                end
+              end
+            else
+              Rconftool::install(src, dst, old, @o)
+            end
+          end
+        end
+        done_work = true
+      end
+      unless done_work
+        $stderr.puts "Usage: #{$0} [options] src1 src2 ...\n"+
+                     "Try #{$0} --help for more information\n"
+        exit 1
+      end
+    end
+  end # class Processor
+
+end # module Rconftool
+
+# Run from command line?
+if __FILE__ == $0
+
+  begin
+    s = Rconftool::Processor.new(ARGV)
+    s.run(ARGV)
+  rescue Exception => e
+    $stderr.puts "#{$0}: #{e}"
+  end
+
+end