SHOW:
|
|
- or go back to the newest paste.
| 1 | bind pubm -|- "?[string trim $bs(cmdchar)]seen" bs_pubreq1 | |
| 2 | proc bs_pubreq1 {nick uhost hand chan args} {
| |
| 3 | ||
| 4 | set args [split [stripcodes bcruag $args]] | |
| 5 | putlog "Ok, i got $args" | |
| 6 | switch -nocase [lindex $args 0] {
| |
| 7 | "!seen" {
| |
| 8 | set who [lindex $args 1] | |
| 9 | bs_pubreq $nick $uhost $hand $chan $who 0 | |
| 10 | ||
| 11 | } | |
| 12 | default {
| |
| 13 | putlog "I don't understand [lindex $args 0]" | |
| 14 | } | |
| 15 | } | |
| 16 | } |
