egghelp/eggheads community

Re: for

2017-04-07T07:26:50-04:00

Hi gembels. Can you add a leading zero for one digit numbers to the text file and try again, i. e. 06 04 Hari Nelayan Nasional?

aha.. got it... must be 2 digit... tha

Statistics: Posted by gembels — Fri Apr 07, 2017 7:26 am

Re: for

2017-04-06T12:17:43-04:00

Hi gembels. Can you add a leading zero for one digit numbers to the text file and try again, i. e. 06 04 Hari Nelayan Nasional?

Statistics: Posted by CP1832 — Thu Apr 06, 2017 12:17 pm

Re: for

2017-04-06T09:39:07-04:00

can you show us format for date.txt ? or sample data maybe ? or full version of your date.txt please
Hi gembels. Here's a sample of my date.txt
Code:
25 12 Merry Christmas!31 12 Happy new year!
By the way, you can a couple of dates via command and see the format, then add yours manually.

why is not working with that format ?

Statistics: Posted by gembels — Thu Apr 06, 2017 9:39 am

Holiday / event topic changer

2016-06-08T00:52:19-04:00

[21:00] [21:00:27] Tcl error [pubholiday]: invalid command name "checkUser"

Sorry about that, I added that función to every públic command to avoid throttling from the users and forgot to delete that líne when I posted the code. I also replaced ${cmdchar} with dot as I have set cmdchar elsewhere.

Statistics: Posted by CP1832 — Wed Jun 08, 2016 12:52 am

Holiday / event topic changer

2016-06-07T16:42:09-04:00

Np. I thanx for all the help that you give :)

Statistics: Posted by gamefan098 — Tue Jun 07, 2016 4:42 pm

Holiday / event topic changer

2016-06-07T15:06:06-04:00

You get this error cos the function is missing from the original post. Can't help you with something i don't know. Sorry buddy.

Statistics: Posted by caesar — Tue Jun 07, 2016 3:06 pm

Holiday / event topic changer

2016-06-07T14:01:12-04:00

[21:00] [21:00:27] Tcl error [pubholiday]: invalid command name "checkUser"

Statistics: Posted by gamefan098 — Tue Jun 07, 2016 2:01 pm

Holiday / event topic changer

2016-06-07T12:50:32-04:00

Replace the:

Code:

bind pub - ${cmdchar}date pubholiday

line with:

Code:

bind pub - !date pubholiday

for instance if want to call the script like !date, or replace that ! with a . (dot) or whatever you want.

Statistics: Posted by caesar — Tue Jun 07, 2016 12:50 pm

Holiday / event topic changer

2016-06-07T11:21:22-04:00

[18:19] [18:19:38] can't read "cmdchar": no such variable
[18:19] while executing
[18:19] "bind pub - ${cmdchar}date pubholiday"
[18:19] (file "scripts/HolidayTopick.tcl" line 5)
[18:19] invoked from within
[18:19] "source scripts/HolidayTopick.tcl"
[18:19] (file "eggdrop.conf" line 1431)
[18:19] [18:19:38] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by gamefan098 — Tue Jun 07, 2016 11:21 am

Re: for

2016-05-27T14:12:30-04:00

can you show us format for date.txt ? or sample data maybe ? or full version of your date.txt please

Hi gembels. Here's a sample of my date.txt

Code:

25 12 Merry Christmas!31 12 Happy new year!

By the way, you can a couple of dates via command and see the format, then add yours manually.

Statistics: Posted by CP1832 — Fri May 27, 2016 2:12 pm

for

2016-03-27T08:16:27-04:00

can you show us format for date.txt ? or sample data maybe ? or full version of your date.txt please

Statistics: Posted by gembels — Sun Mar 27, 2016 8:16 am

Holiday / event topic changer

2016-06-08T00:46:10-04:00

I created a script so as to be able to change the channel's topic for a given date.

Code:

foreach bind [binds topic_holiday] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}foreach bind [binds pubholiday] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind time - "00 00 * * *" topic_holidaybind pub - .date pubholidayset date_file "date.txt"if {![file exists $date_file]} {    fconfigure [set datefile [open $date_file w]] -encoding binary    close $datefile}proc topic_holiday {min hour day month year} {   global date_file   fconfigure [set datefile [open $date_file r]] -encoding binary   set today [clock format [clock seconds] -format "%d %m"]   set holidays [list]    while {![eof $datefile]} {set CurEntry "[gets $datefile]"        set date [lrange $CurEntry 0 1]        if {[string match -nocase $today $date]} {lappend holidays "[lrange $CurEntry 2 end]"   }   }   close $datefile   if {[string length $holidays] > 0} {   foreach channel [channels] {if {[validchan $channel] && [botonchan $channel] && [botisop $channel]} {   putserv "TOPIC $channel :[join $holidays]"   }}   }putlog "Changing topic to [join $holidays]"}proc pubholiday {nick uhost hand chan text} {         set choice [lindex $text 0]set dd [lindex $text 1]set mm [lindex $text 2]set desc [lrange $text 3 end]if {[string equal -nocase "delete" $choice]} {        if {[GetDate $dd $mm] == "There are no events loaded for that date" || [GetDate $dd $mm] == "That date / month combination doesn't exist"} {        puthelp "PRIVMSG $chan :ERROR: [GetDate $dd $mm]"return 1}DeleteDate $dd $mm    puthelp "PRIVMSG $chan :$nick deleted $dd $mm"} elseif {[string equal -nocase "get" $choice]} {puthelp "PRIVMSG $chan :[GetDate $dd $mm]"return 1} elseif {[string equal -nocase "set" $choice]} {        if {$desc==""} {puthelp "PRIVMSG $chan :ERROR: Add a description for the event"return 1 }        if {[GetDate $dd $mm] == "That date / month combination doesn't exist"} {        puthelp "PRIVMSG $chan :ERROR: [GetDate $dd $mm]"return 1} elseif {[GetDate $dd $mm] != "There are no events loaded for that date"} {        puthelp "PRIVMSG $chan :ERROR: An event already exists for that date"return 1}SetDate $dd $mm "$desc"    puthelp "PRIVMSG $chan :Ahora: $dd $mm == [GetDate $dd $mm]"    return 1} else {puthelp "PRIVMSG $chan :\[DATE sintaxis\]"puthelp "PRIVMSG $chan :Use: .date get   - Shows the event on the calendar for the specified date"puthelp "PRIVMSG $chan :Use: .date set 
   - Changes the channel topic to  on the specified date"puthelp "PRIVMSG $chan :Use: .date delete   - Deletes the event on the calendar for the specified date"          puthelp "PRIVMSG $chan :\[DATE sintaxis\]"return 1}return 1}proc GetDate {dd mm} {regsub -all {[0-9]} $mm {1} myresultif {$myresult != 11 && $myresult != 1 } {return "That date / month combination doesn't exist"}if {$myresult == 1 } {set mm 0$mm}if {$mm > 12 || $mm == 0} {return "That date / month combination doesn't exist"}regsub -all {[0-9]} $dd {1} myresultif {$myresult != 11 && $myresult != 1 } {return "That date / month combination doesn't exist"}if {$myresult == 1 } {set dd 0$dd}if {[string index $mm 0] eq 0} { set month [string index $mm 1] } else {set month $mm }        set days "31 29 31 30 31 30 31 31 30 31 30 31"        if {[lindex $days ${month}-1] < $dd || $dd == 0} {        return "That date / month combination doesn't exist"        }    global date_file    fconfigure [set datefile [open $date_file r]] -encoding binary    set retval "There are no events loaded for that date"    set entry "$dd $mm"    while {![eof $datefile]} {set CurEntry "[gets $datefile]"set EntryName [string tolower [lrange $CurEntry 0 1]]if {$EntryName==$entry} {    set retval "[lrange $CurEntry 2 end]"}    }    close $datefile    return $retval}proc DeleteDate {dd mm} {    global date_file    regsub -all {[0-9]} $mm {1} myresult    if {$myresult == 1 } { set mm 0$mm }    regsub -all {[0-9]} $dd {1} myresult    if {$myresult == 1 } { set dd 0$dd }    fconfigure [set datefile [open $date_file r]] -encoding binary    set entry "$dd $mm"    while {![eof $datefile]} {set CurLine "[gets $datefile]"if {[lrange $CurLine 0 1]!=$entry} {lappend dateList $CurLine}    }    close $datefile    fconfigure [set datefile [open $date_file w]] -encoding binary    foreach CurLine $dateList {if {$CurLine!=""} {puts $datefile $CurLine}    }    close $datefile    SortDate 1}proc SetDate {dd mm definition} {    global date_file    regsub -all {[0-9]} $mm {1} myresult    if {$myresult == 1 } { set mm 0$mm }    regsub -all {[0-9]} $dd {1} myresult    if {$myresult == 1 } { set dd 0$dd }    set entry "$dd $mm"    set entry [string trim [string tolower $entry] \=]    fconfigure [set datefile [open $date_file r]] -encoding binary    while {![eof $datefile]} {set CurLine "[gets $datefile]"if {[lrange $CurLine 0 1]!=$entry} {    lappend dateList $CurLine}    }    close $datefile    fconfigure [set datefile [open $date_file w]] -encoding binary    foreach CurLine $dateList {if {$CurLine!=""} {puts $datefile $CurLine}    }    puts $datefile "$dd $mm $definition"    close $datefile    SortDate 1}proc SortDate {type} {global date_fileset t [clock clicks -milliseconds]fconfigure [set datefile [open $date_file r]] -encoding binaryset txt ""while {![eof $datefile]} {set tmp "[gets $datefile]"if {[info exists tmp]&&$tmp!=""} {set a [lindex $tmp 1][lindex $tmp 0]lappend txt [list $a $tmp]}}close $datefileset txt [lsort -index 0 $txt]fconfigure [set datefile [open $date_file w]] -encoding binaryforeach tmp $txt {puts $datefile [lindex $tmp 1]}close $datefileputlog "Sorting done of data on the database ($date_file)->[expr double([clock clicks -milliseconds]-$t)/1000]s"}putlog "Holiday topic changer... Loaded"

Statistics: Posted by CP1832 — Wed Jun 24, 2015 11:19 am