egghelp/eggheads community

.save and tcl help plz

2002-07-19T17:00:57-04:00

Hi ppslim,
Thank you so much, it worked, but
+o-mn didn't work, don't know how to get just Op list, no Master/owner

anyother suggestions plz

thanks
regards
AW

Statistics: Posted by Guest — Fri Jul 19, 2002 5:00 pm

.save and tcl help plz

2002-07-19T05:16:33-04:00

I think a match for +o-mn would do the matching (so the documentation states).

As for getting the host, using your example, you would

Code:

foreach u [userlist -b+o $statchan] { set h [lindex [getuser $u HOSTS] 0]

Statistics: Posted by ppslim — Fri Jul 19, 2002 5:16 am

.save and tcl help plz

2002-07-18T17:13:20-04:00

Sorry i think i had mixed up, well i am trying to make a opstat page from a userlist of the bot, where i wanna display their informations like
email, info..etc

but since mostly ppl in a userlist have multiple hosts, i want to display at site
handle!host<--just one

foreach u [userlist -b+o $statchan] {
set h [getuser $u HOSTS]

but how do i use lindex, to get just one host??

and is there anyway i can just get +o users froma userlist, but no +m,+n

thanks
regards
AW

Statistics: Posted by Guest — Thu Jul 18, 2002 5:13 pm

.save and tcl help plz

2002-07-18T04:41:24-04:00

I failed to fully understand either of the 2 posts.

The code you presented did not make much sense to getting any nicknames or hosts.

You can get a list of handles hosts by using "getuser $handle HOSTS"

This will return a list of hosts, and you simply use "lindex" on it.

As for getting the most used, or the most reciently used. This is impossible, unless you create a script to track hostmask usage.

Statistics: Posted by ppslim — Thu Jul 18, 2002 4:41 am

.save and tcl help plz

2002-07-18T02:23:14-04:00

Hi, ok i figure out about hosts, but ops have multiple hosts in a userlist, is there anyway i can get one the most recent one or if not, then the first one in the list??? but still i couldn't figure out, how do i just display ops, no masters or owners??

thanks
regards
Aw

Statistics: Posted by Guest — Thu Jul 18, 2002 2:23 am

.save and tcl help plz

2002-07-17T22:19:31-04:00

Thanks PPslim, it worked.

i will appreciate if you can help me, i am able to get a user name($u), but no luck to get a host, i wanted this format Nick(host)
and want to display just ops, no master or owner, just wanna display userlist at site.

foreach u [userlist -b+o $statchan] {
if {![onchan [hand2nick $u $statchan] $statchan]} {
set ss [getuser $u LASTON]
if {$ss == 0} {set ss -} {set ss [ntime $ss]}
set e [getuser $u XTRA EMAIL]
if {$e == ""} {set e -}
set a [chattr $u $statchan]

Thanks a lot
regards
Aw

Statistics: Posted by Guest — Wed Jul 17, 2002 10:19 pm

.save and tcl help plz

2002-07-17T04:38:06-04:00

This is all related to your html writing code.

Notice how all the puts lines look like

EG

Code:

puts $blah "And he said "Look at this""

You can't just use " in the text, as Tcl will interpret it as part of the command, rather than part of the string.

There are 2 ways around it.

1: Use ' rather than " inside the ""
2: Escape the characters.

2 examples

1:

Code:

puts $blah "And he said 'Look at this'"

Code:

puts $blah "And he said \"Look at this\""

Statistics: Posted by ppslim — Wed Jul 17, 2002 4:38 am

.save and tcl help plz

2002-07-17T01:52:54-04:00

Hi,

everytime i do .save in a partyline, i see the following
Tcl error in script for 'timer36816':
[00:35] extra characters after close-quote, any help please?

Also i was working on stats for users, are known to the bot, like Ops.. but i try my best, couldn't figure out , why its not working, may be any expert can help me, please.

## THE VERSION OF THIS WEBWRITER
set wwver 1.0
set updatetimer 60
set wwpath "/home/aw/public_html"
set statchans "#testing"

proc write_status {} {
global statchans
foreach chan $statchans {ww_next $chan}
}
## THE MAIN PROC
proc ww_next {statchan} {
global wwver updatetimer botnick wwpath
if {$wwpath == ""} {set wf [open status_[string trim $statchan #].htm w]} else {set wf [open $wwpath/status_$statchan.htm w]}
puts $wf ""
put $wf ""
put $wf ""

puts $wf "

Recorded users:"
puts $wf "
"

foreach u [userlist -b+ovf|ovf $statchan] {
if {![onchan [hand2nick $u $statchan] $statchan]} {
set ss [getuser $u LASTON]
if {$ss == 0} {set ss -} {set ss [ntime $ss]}
set e [getuser $u XTRA EMAIL]
if {$e == ""} {set e -}
set a [chattr $u $statchan]
put $wf ""
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "
put $wf " "

}
}

puts $wf "

	" put $wf " " put $wf " $u " put $wf "
	" put $wf " Attr: " put $wf "	" put $wf " " put $wf " $a " put $wf "
	put $wf " Laston: " put $wf "	" put $wf " " put $wf " $ss " put $wf "
	" put $wf " " put $wf "	" put $wf " " put $wf "

"
close $wf
if {![texists write_status]} {utimer $updatetimer write_status}
}

## REMOVES THE YEAR FORMAT FROM THE DATE/TIME
proc ntime {time} {
set v0 [lrange [ctime $time] 0 0]
set v1 [lrange [ctime $time] 1 1]
set v2 [lrange [ctime $time] 2 2]
set v3 [lrange [ctime $time] 3 3]
set v4 [lrange [ctime $time] 4 4]
set v3 [lindex [split $v3 :] 0]:[lindex [split $v3 :] 1]
return "$v0 $v1. $v2. ($v3)"
}

# THIS CHECKS I THERE IS ALREADY A TIMER ASSIGNED TO UPDATE THE WEB FILE
# !!! not similar to the timerexist-proc in all_tools.tcl !!!
proc texists {utimer_proc} {
set y "0"
foreach x [utimers] {
if {[string match [lindex $x 1] $utimer_proc]} {set y "1"}
}
return $y
}

# STARTS THE UPDATE TIMER
if {![texists write_status]} {utimer $updatetimer write_status}

putlog "WW $wwver by aw loaded.."

I will apprecite for your kind help
thanks
regards
Aw

Statistics: Posted by Guest — Wed Jul 17, 2002 1:52 am