Code:

set file [open $::joins a] 

Code:

###########################THIS TCL BY COLDFYREbind pubm - "*" save_messagebind join - "*" save_joinbind part - "*" save_partbind sign - "*" save_signbind topc - "*" save_topcbind kick - "*" save_kickbind nick - "*" save_nickbind mode - "*" save_modeset date [clock format [clock seconds] -format "%d_%m_%y"]set times [clock format [clock seconds] -format "%T"]set thechan "#dialtone"set joins "/www/htdocs/dialtone_radio/logs/irc_$date.log"proc save_message {nick uhost handle chan text} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times $nick: $text (00)"                catch {close $file}        }}proc save_join {nick uhost handle chan} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan  == "#dialtone"} {                set file [open $::joins a]                puts $file "$times JOIN $nick ($uhost)(00)"                catch {close $file}        }}proc save_part {nick uhost handle chan msg} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times PART $nick ($uhost)(00)"                catch {close $file}        }}proc save_sign {nick uhost handle chan msg} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times QUIT $nick ($uhost) REASON: $msg (00)"                catch {close $file}        }}proc save_topc {nick uhost handle chan topic} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times $nick ($uhost) sets topic: $topic (00)"                catch {close $file}        }}proc save_kick {nick uhost handle chan target reason} {        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times $nick ($uhost) kicked $target because $reason (00)"                catch {close $file}        }}proc save_nick {nick uhost handle chan newnick} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                puts $file "$times $nick changed nick to $newnick (00)"                catch {close $file}        }}proc save_mode {nick uhost handle chan mode victim} {        set date [clock format [clock seconds] -format "%d_%m_%y"]        set times [clock format [clock seconds] -format "%T"]        if {$chan == "#dialtone"} {                set file [open $::joins a]                if {$victim == "" } {                        puts $file "$times $nick sets mode: $mode (00)"                } else {                        puts $file "$times $nick sets mode $mode on $victim (00)"}                catch {close $file}        }}