#!/usr/bin/tclsh

package require helga 1.0

if { $argc != 0 && $argc != 2 } {
	puts "Error: usage: $argv0 \[-p <helgaAdmin sql password>\]"
	exit 1
}

set cmd "exec mysqldump -u helgaAdmin $::SQLDB --password"

if { $argc == 2 } {
	if { [lindex $argv 0] != "-p" } {
		puts "Error: $argv0 accepts only one argument: -p, the SQL password of your local helgaAdmin user."
		exit 1
	}
	append cmd "=[lindex $argv 1]"
}

puts stdout [eval $cmd]