egghelp/eggheads community

a help for this part of a tcl

2023-01-08T06:39:22-04:00

Thanks SpiKe^^
you have solved the whole code for me all working

Statistics: Posted by flink — Sun Jan 08, 2023 6:39 am

strftime

2023-01-07T19:46:27-04:00

Try put this, or something like this, in the text you want dated...

Code:

[strftime "on %x at %X"]

Statistics: Posted by SpiKe^^ — Sat Jan 07, 2023 7:46 pm

a help for this part of a tcl

2023-01-07T12:02:19-04:00

thanks SpiKe^^
the list solution works for me.
for the date and time to be written in each request to be written in list_requests.txt can you help me thank you

Statistics: Posted by flink — Sat Jan 07, 2023 12:02 pm

a help for this part of a tcl

2023-01-07T10:29:04-04:00

This should add the new "Start List of requests" line...

Code:

proc requestlist {nick uhost hand chan arg} {       global adminchans1       if {$chan == $adminchans1} {               set filename "lista_peticiones.txt"               set in [open $filename r]               set reqnumber 0               set data [split [read -nonewline $in] "\n"]               close $in               if {![llength $data]} {                 putnow "PRIVMSG $adminchans1 :No hay solicitudes por el momento."                 return 0               }               putnow "PRIVMSG $adminchans1 :Inicio Listado peticiones."               foreach line $data {   incr reqnumber                 putnow "PRIVMSG $adminchans1 :$reqnumber: $line "               }               putnow "PRIVMSG $adminchans1 :Fin Listado peticion."       }       return 0}

Statistics: Posted by SpiKe^^ — Sat Jan 07, 2023 10:29 am

a help for this part of a tcl

2023-01-07T07:14:46-04:00

Hi Spike^^
Thank you for collaborating. What you have posted works, it seems that I forgot to put in the previous examples when the list begins with: Start List of requests. One last bit of help could be that when I send the list it goes like this:

@dj : !listapedidos
@radio : Inicio Listado peticiones.
@radio : pepe A Solicitado una lechuga amarilla En El Canal #pruebas
@radio : pepe A Solicitado una cocacola sin gas En El Canal #pruebas
@radio : Fin Listado petición.

In this part how can I put timestamps on it so that it would look like this in the listings:
@radio : pepe A Requested four takeaway pizzas on 07/01/23 at 12:15 In The Channel #tests

Code:

 set tempeti [open "lista_peticiones.txt" a]            put $tempeti "$nick A Solicitado $arg En El Canal $chan"            close $tempeti

Statistics: Posted by flink — Sat Jan 07, 2023 7:14 am

try this.

2023-01-06T17:37:36-04:00

Try this

Code:

proc requestlist {nick uhost hand chan arg} {       global adminchans1       if {$chan == $adminchans1} {               set filename "lista_peticiones.txt"               set in [open $filename r]               set reqnumber 0               set data [split [read -nonewline $in] "\n"]               close $in               if {![llength $data]} {                 putnow "PRIVMSG $adminchans1 :No hay solicitudes por el momento."                 return 0               }               foreach line $data {   incr reqnumber                 putnow "PRIVMSG $adminchans1 :$reqnumber: $line "               }               putnow "PRIVMSG $adminchans1 :Fin Listado peticion."       }       return 0}

Statistics: Posted by SpiKe^^ — Fri Jan 06, 2023 5:37 pm

Re: a help for this part of a tcl

2023-01-06T14:15:34-04:00

hello crazycat
with this code I request the list of requests

First of all, congratulations all Happy New Year 2023.

When users make a musical request, the bot sends it to the dj room and writes it in a txt.
When I request the order list
It always comes out, whether there are requests or not: No requests at the moment.
Any suggestion to fix it?

Code:

     bind pub -|- !listapedidos requestlistproc requestlist {nick uhost hand chan arg} {       global adminchans1       if {$chan == $adminchans1} {               set reqnumber 1               set filename "lista_peticiones.txt"               set in [open $filename r]               while {1} {                       set line [gets $in]                       if {$line == ""} {                               putnow "PRIVMSG $adminchans1 :No hay solicitudes por el momento."                               break                       } else {                               if {[eof $in]} {                                       putnow "PRIVMSG $adminchans1 :Fin Listado peticion."                                       close $in                                       break                               }                               if {$reqnumber == 0} {                                       putnow "PRIVMSG $adminchans1 :Inicio Listado peticiones"                                       incr reqnumber                               } else {                                       putnow "PRIVMSG $adminchans1 :$reqnumber: $line "                                       #putnow "PRIVMSG $adminchans1 :Fin Listado peticiones"                                       incr reqnumber                                                                                                            }                       }               }       }}

this is how you write lista_peticiones.txt

Code:

       set tempeti [open "lista_peticiones.txt" a]             puts $tempeti "$nick A Solicitado $arg En El Canal $chan"             close $tempeti

what it does when there are requests:

@dj : !listapedidos
@radio : pepe A Solicitado cuatro pizzas para llevar En El Canal #pruebas
@radio : pepe A Solicitado unas hamburguesas con todo En El Canal #pruebas
@radio : pepe A Solicitado una lechuga verde En El Canal #pruebas
@radio : pepe A Solicitado uno de lomo con todo En El Canal #pruebas
@radio : pepe A Solicitado una lechuga amarilla En El Canal #pruebas
@radio : pepe A Solicitado una cocacola sin gas En El Canal #pruebas
@radio : No hay solicitudes por el momento.

when should it be:

@dj : !listapedidos
@radio : pepe A Solicitado cuatro pizzas para llevar En El Canal #pruebas
@radio : pepe A Solicitado unas hamburguesas con todo En El Canal #pruebas
@radio : pepe A Solicitado una lechuga verde En El Canal #pruebas
@radio : pepe A Solicitado uno de lomo con todo En El Canal #pruebas
@radio : pepe A Solicitado una lechuga amarilla En El Canal #pruebas
@radio : pepe A Solicitado una cocacola sin gas En El Canal #pruebas
@radio : Fin Listado petición.

when there is no request list it should be like this:

@dj : !listapedidos
@radio : No hay solicitudes por el momento.

That's what I need the code to do if you can contribute, thank you.

Statistics: Posted by flink — Fri Jan 06, 2023 2:15 pm

a help for this part of a tcl

2023-01-06T11:10:13-04:00

Change your loop:

Code:

while {[gets $in line] >= 0} {

See example @ https://www.tcl.tk/man/tcl8.4/TclCmd/gets.html

And if your first line is empty (depend on how your file is done), it's normal.

Without the complete code, I can't help you further

Statistics: Posted by CrazyCat — Fri Jan 06, 2023 11:10 am

a help for this part of a tcl

2023-01-06T09:53:00-04:00

Code:

     bind pub -|- !listapedidos requestlistproc requestlist {nick uhost hand chan arg} {       global adminchans1       if {$chan == $adminchans1} {               set reqnumber 1               set filename "lista_peticiones.txt"               set in [open $filename r]               while {1} {                       set line [gets $in]                       if {$line == ""} {                                                                putnow "PRIVMSG $adminchans1 :No hay solicitudes por el momento."                                                                                      break                              } else {                               if {[eof $in]} {                                       putnow "PRIVMSG $adminchans1 :Fin Listado peticion."                                       close $in                                       break                               }                               if {$reqnumber == 0} {                                       putnow "PRIVMSG $adminchans1 :Inicio Listado peticiones"                                       incr reqnumber                               } else {                                       putnow "PRIVMSG $adminchans1 :$reqnumber: $line "                                       #putnow "PRIVMSG $adminchans1 :Fin Listado peticiones"                                       incr reqnumber                                                                                                            }                       }               }       }}

Statistics: Posted by flink — Fri Jan 06, 2023 9:53 am