#!/usr/bin/expectk

proc install {} {
global path_exe path_tcl font C_GROUP C_HOST BROADCAST netbiosname KernelVer

if { [regexp "^.*\[^/\]\$" $path_tcl]} { set path_tcl $path_tcl/ }
if { [regexp "^.*\[^/\]\$" $path_exe]} { set path_exe $path_exe/ }

set file [open TkSmb]
set outf [open ${path_exe}TkSmb w]
while { ![eof $file]} {
	set msg [read $file]
	regsub "set font *(\[^\n\]*)\n" [set msg] "set font       {$font}\n"      msg
	regsub "set C_GROUP *(\[^\n\]*)\n" [set msg] "set C_GROUP    {$C_GROUP}\n"   msg
	regsub "set C_HOST *(\[^\n\]*)\n" [set msg] "set C_HOST     {$C_HOST}\n"    msg
	regsub "set BROADCAST *(\[^\n\]*)\n" [set msg] "set BROADCAST  {$BROADCAST}\n" msg
	regsub "set netbiosname *(\[^\n\]*)\n" [set msg] "set netbiosname {$netbiosname}\n"  msg
#	regsub "set KernelVer *(\[^\n\]*)\n" [set msg] "set KernelVer  {$KernelVer}\n"  msg
	regsub "set path *(\[^\n\]*)\n" [set msg] "set path       {$path_tcl}\n" msg
	puts $outf $msg
	}
exec chmod a+x ${path_exe}TkSmb
catch { exec mkdir ${path_tcl} }
foreach  f [glob *.tcl] {
	exec cp $f ${path_tcl}
	}
puts "All Ok."
exit
}

frame .left
frame .right
frame  .top
frame .bottom

set path_exe   /usr/local/bin
set path_tcl   /usr/local/lib/TkSmb
set font       {fixed}
set C_GROUP    {}
set C_HOST     localhost
set BROADCAST  {}
set netbiosname   anonymous
set KernelVer  {new}

puts "Params:'$argv'"
if { $argv != "" } { set font $argv }

label .header -text "TkSamba Install.." -font $font

label .exe_l        -text "Executable DIR:"    -font $font
label .tcl_l        -text "Library DIR:"       -font $font
label .font_l       -text "Font:"              -font $font
label .c_group_l    -text "Local GROUP:"       -font $font
label .c_host_l     -text "Master Browser:"    -font $font
label .broadcast_l  -text "Broadcast Address:" -font $font
label .netbname_l   -text "Your Netbios Name:" -font $font
#label .kernel_l     -text "Kernel Version:"    -font $font

entry .exe_e        -textvariable path_exe   -font $font
entry .tcl_e        -textvariable path_tcl   -font $font -width 30
entry .font_e       -textvariable font       -font $font
entry .c_group_e    -textvariable C_GROUP    -font $font
entry .c_host_e     -textvariable C_HOST     -font $font
entry .broadcast_e  -textvariable BROADCAST  -font $font
entry .netbname_e   -textvariable netbiosname -font $font
#checkbutton .kernel_e -variable KernelVer -offvalue "old" -onvalue "new" -text "new (2.1.X/2.2.X)"  -font $font -anchor w


button .inst -text Install -command install -font $font
label .space -text "   " -font $font
button .cancel -text Cancel -command exit -font $font

pack .exe_l .tcl_l .font_l .c_group_l .c_host_l .broadcast_l .netbname_l -side top -in .left -anchor e  -expand 1
pack .exe_e .tcl_e .font_e .c_group_e .c_host_e .broadcast_e .netbname_e -side top -in .right -anchor w -fill x -expand 1 

pack .inst .space .cancel -side left -in .bottom

pack .left .right -in .top -expand 1 -side left -fill both
pack .header -side top
pack .top    -side top -fill both -expand 1
pack .bottom -side top -expand 0

