[Yaacs-svn] SF.net SVN: yaacs: [559] trunk

[<si...@us...>]

Revision: 559
Author:   sickpig
Date:     2006-03-09 10:29:25 -0800 (Thu, 09 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/yaacs/?rev=559&view=rev

Log Message:
-----------
* yaconf: use cross platform command to manage yaacs' work directory
* yacati: clever code in {pop,inc}WdjState procs
* yaacs.con.sample: list of available code 

Modified Paths:
--------------
    trunk/docs/yaacs.conf.sample
    trunk/yaacs/yaconf.tcl
    trunk/yacati.tcl
Modified: trunk/docs/yaacs.conf.sample
===================================================================
--- trunk/docs/yaacs.conf.sample	2006-03-08 16:23:14 UTC (rev 558)
+++ trunk/docs/yaacs.conf.sample	2006-03-09 18:29:25 UTC (rev 559)
@@ -34,7 +34,8 @@
 # VoIP stuff
 #
 IAX_SERVER=192.168.0.95
-CODEC=gsm
+#available codec are: gsm ulaw alaw speex ilibc
+CODEC=gsm 
 DIALPREFIX=9
 AUMIX=/usr/bin/aumix
 BASE_VOLUME=5

Modified: trunk/yaacs/yaconf.tcl
===================================================================
--- trunk/yaacs/yaconf.tcl	2006-03-08 16:23:14 UTC (rev 558)
+++ trunk/yaacs/yaconf.tcl	2006-03-09 18:29:25 UTC (rev 559)
@@ -119,28 +119,28 @@
 # return path of local user conf
 proc ::yaconf::checkLocalConf {} {
 
-    set myHome [yaconf::getHome]
+	set myHome [yaconf::getHome]
 
-    if { !([file exists $myHome/.YaaCs] && [file isdirectory $myHome/.YaaCs]) } {
-	file mkdir $myHome/.YaaCs
-    }
+	if { !([file exists $myHome/.YaaCs] && [file isdirectory $myHome/.YaaCs]) } {
+		file mkdir [file join $myHome .YaaCs]
+	}
 
-    set outYaaCs "$myHome/.YaaCs"
+	set outYaaCs [file join $myHome .YaaCs]
 
-    if { !([file exists $myHome/.YaaCs/spool] && [file isdirectory $myHome/.YaaCs/spool]) } {
-	file mkdir $myHome/.YaaCs/spool
-    }
+	if { !([file exists $myHome/.YaaCs/spool] && [file isdirectory $myHome/.YaaCs/spool]) } {
+		file mkdir [file join $myHome .YaaCs spool]
+	}
     
-    #Un bel posto dove mettere i file temporanei delle mail
-    if { !([file exists $myHome/.YaaCs/spool/email] && [file isdirectory $myHome/.YaaCs/spool/email]) } {
-	file mkdir $myHome/.YaaCs/spool/email
-    }
+	#Un bel posto dove mettere i file temporanei delle mail
+	if { !([file exists $myHome/.YaaCs/spool/email] && [file isdirectory $myHome/.YaaCs/spool/email]) } {
+		file mkdir [file join $myHome .YaaCs spool email]
+	}
     
-    #Un bel posto dove mettere i file da spedire via fax
-    if { !([file exists $myHome/.YaaCs/spool/fax] && [file isdirectory $myHome/.YaaCs/spool/fax]) } {
-	file mkdir $myHome/.YaaCs/spool/fax
-    }
-    return $outYaaCs
+	#Un bel posto dove mettere i file da spedire via fax
+	if { !([file exists $myHome/.YaaCs/spool/fax] && [file isdirectory $myHome/.YaaCs/spool/fax]) } {
+		file mkdir [file join $myHome .YaaCs spool fax]
+	}
+	return $outYaaCs
 }
 
 # Get log file path

Modified: trunk/yacati.tcl
===================================================================
--- trunk/yacati.tcl	2006-03-08 16:23:14 UTC (rev 558)
+++ trunk/yacati.tcl	2006-03-09 18:29:25 UTC (rev 559)
@@ -1669,10 +1669,11 @@
 #
 # @ param state to which the widgets are swithced 
 proc ::yacati::popWdjState {state} {
-	set b "birthday study work accept male female panel ref lbref lbemail email btel1 btel2"
-	for { set i 0} { $i < [llength $b]} {incr i} {
-		yacati::configureWdj [lindex $b $i] state $state 
-	}
+	set b [list birthday study work accept male female panel ref lbref lbemail email btel1 btel2]
+	foreach a $b {
+		::yacati::configureWdj $a state $state
+	}	
+	
 	if {!$::yacati::sex} {
 		::yacati::configureWdj male state disabled
 		::yacati::configureWdj female state disabled
@@ -1689,10 +1690,10 @@
 #
 # @ param state to which the widgets are swithced
 proc ::yacati::incWdjState {state} {
-	set b "ref fax bt_fax lbfax  lbref cbfax lbemail email btel1 btel2"
-	for { set i 0} { $i < [llength $b]} {incr i} {
-		yacati::configureWdj [lindex $b $i] state $state 
-	}
+	set b [list ref fax bt_fax lbfax  lbref cbfax lbemail email btel1 btel2]
+	foreach a $b {
+		::yacati::configureWdj $a state $state
+	}	
 }
 
 
@@ -2642,6 +2643,7 @@
 yalog::message "Setting Autodialing..."
 set yacati::autodial [yavoip::getAutodial $db_int [array get yacati::config]]
 if {$yacati::autodial==1  && [::yavoip::conn  [array get yacati::config]]==-1} {
+		::yalog::error "Somethig goes wrong while connetting to the VoIP server"
 		set yacati::autodial 0
 }	
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.