Password Safe Convert

pwsafe-convert.tcl

namespace eval gorilla { variable Dir [ pwd ] }
lappend auto_path [ pwd ]
package require pwsafe

interp alias {} mc {} puts

if { [ llength $argv ] != 2 } {
  puts "Usage: $argv0 input-file output-file"
  exit 1
}
 
lassign $argv inf outf

if { ! [ file isfile $inf ] } {
  puts "Error: input-file '$inf' does not exist, aborting."
  exit 1
}
 
if { [ file exists $outf ] } {
  puts "Error: output-file '$outf' exists, refusing to overwrite."
  exit 1
}
 
puts stderr "Enter Password"
gets stdin password
set newdb [ pwsafe::createFromFile $inf $password ]
pwsafe::writeToFile $newdb $outf 3