Stuff added

This commit is contained in:
dcp1990 2005-06-26 16:51:00 +00:00
parent 300397b61e
commit b073219efd
5 changed files with 103 additions and 7 deletions

33
xfone/config.tcl Normal file
View File

@ -0,0 +1,33 @@
#!/usr/local/bin/wish8.4
# Copyright (c) 2005, Dan Ponte
#
# config.tcl - configureation
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 4. Neither the name of the University nor the names of its contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Amigan: phoned/xfone/config.tcl,v 1.1 2005/06/26 16:51:00 dcp1990 Exp $
#defaults
set sockfile "/tmp/phoned.sock"

31
xfone/init.tcl Normal file
View File

@ -0,0 +1,31 @@
#!/usr/local/bin/wish8.4
# Copyright (c) 2005, Dan Ponte
#
# init.tcl - initialisation
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 4. Neither the name of the University nor the names of its contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Amigan: phoned/xfone/init.tcl,v 1.1 2005/06/26 16:51:00 dcp1990 Exp $
logindlg

View File

@ -27,8 +27,23 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Amigan: phoned/xfone/maindlg.tcl,v 1.1 2005/06/26 04:47:20 dcp1990 Exp $
# $Amigan: phoned/xfone/maindlg.tcl,v 1.2 2005/06/26 16:51:00 dcp1990 Exp $
# vars
proc logindlg {} {
toplevel .login
frame .login.m -width 5c -height 2c
grid .m -row 0 -column 0
label .login.m.lo -text "Login:"
entry .login.m.loge
grid .login.m.lo .login.m.loge -row 0
label .login.m.pa -text "Pass:"
entry .login.m.pase -show "*"
grid .login.m.pa .login.m.pase -row 1
button .login.m.log -text "Login" -command {loginProc [.login.m.loge get] [.login.m.pase get]}
button .login.m.cancel -text "Cancel" -command {destroy .login}
grid .login.m.log -row 0 -column 0 -sticky ew
grid .login.m.cancel -row 0 -column 1 -sticky ew
}
set prj .mbar.project
set phdm .mbar.phoned
#frame

View File

@ -1,7 +1,7 @@
#!/usr/local/bin/wish8.4
# Copyright (c) 2005, Dan Ponte
#
# xfone.tcl - interface to phoned - main script
# phoned.tcl - Tcl interface to phoned's socket using my udom package
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
@ -27,8 +27,22 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Amigan: phoned/xfone/phoned.tcl,v 1.3 2005/06/26 16:08:19 dcp1990 Exp $
# $Amigan: phoned/xfone/phoned.tcl,v 1.4 2005/06/26 16:51:00 dcp1990 Exp $
load ./udom.so
set sockfile "/tmp/phoned.sock"
set fph [udom -file $sockfile]
close $fph
proc openSock {sfile} {
set os [udom -file $sfile]
fconfigure $os -buffering line
return $os
}
proc parseres {res} {
}
proc login {user pass} {
global sh
puts $sh {login $user $pass}
parseres [gets $sh]
}
set $sh [openSock $sockfile]

View File

@ -27,5 +27,8 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Amigan: phoned/xfone/xfone.tcl,v 1.1 2005/06/26 04:47:20 dcp1990 Exp $
# $Amigan: phoned/xfone/xfone.tcl,v 1.2 2005/06/26 16:51:00 dcp1990 Exp $
source config.tcl
source phoned.tcl
source maindlg.tcl
source init.tcl