devdaily home | apple | java | perl | unix | directory | blog

What this is

This file is included in the DevDaily.com "Ruby Source Code Warehouse" project. The intent of this project is to help you "Learn Ruby by Example" TM.

Other links

The source code

#!/usr/bin/ruby -I../.. -I../../../src

require 'bdbxml'
require 'getoptlong'
opt = GetoptLong.new(
		     ['--container', '-c', GetoptLong::REQUIRED_ARGUMENT],
		     ['--path', '-p', GetoptLong::REQUIRED_ARGUMENT],
		     ['--files', '-f', GetoptLong::REQUIRED_ARGUMENT],
		     ['--home', '-h', GetoptLong::REQUIRED_ARGUMENT]
		     )
options = {'path' => ''}
opt.each {|name, value| options[name.sub(/^--/, '')] = value}
$files = ARGV.dup
options['path'] << '/' if options['path'].size > 0


if options['files']
   IO.foreach(options['files']) {|line| $files << options['path'] + line.chomp}
end

if !$files || !options['container'] || !options['home'] 
   puts <<-EOT

This program loads XML data into an identified container and environment.
Provide the directory where you want to place your database environment, 
the name of the container to use, and the xml files you want inserted into
the container.

  -h  -c  -f  -p  file1.xml ...
   EOT
   exit(-1)
end

BDB::Env.new(options['home'],BDB::CREATE|BDB::INIT_TRANSACTION).
   begin do |txn|
   con = txn.open_xml(options['container'], 'a')
   $files.each do |f|
      doc = BDB::XML::Document.new(IO.readlines(f, nil)[0])
      /[^\/]*$/ =~ f
      doc.name = $&
      doc.set("http://dbxmlExamples/timestamp", "time", "timeStamp", 
	      Time.now.to_s)
      con << doc
      puts "added #{f} to container #{options['container']}"
   end
   txn.commit
end

      

      




Copyright 1998-2008 Alvin Alexander
All Rights Reserved.
 
devdaily.com is based in louisville, kentucky, and this web site is hosted by godaddy.com