#!/usr/bin/env tclsh

# Выполнение команды с правами администратора
# Используется с dmenu
# suDo <command> <password>

package require Expect

proc execCommand {command password} {
	spawn bash
	exp_send "su -c \"$command\"\n"
	expect -nocase "password: "
	exp_send "$password\n"
	expect eof
}

execCommand [lindex $argv 0] [lindex $argv 1]