a help for this part of a tcl

flink · Post by **flink** » Fri Jan 06, 2023 9:53 am

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: Select all

     bind pub -|- !listapedidos requestlist
proc 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
                                       
                                      
                               }
                       }
               }
       }
}

Post by **CrazyCat** » Fri Jan 06, 2023 11:10 am

Change your loop:

Code: Select all

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

flink · Post by **flink** » Fri Jan 06, 2023 2:15 pm

hello crazycat
with this code I request the list of requests

flink wrote: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: Select all

     bind pub -|- !listapedidos requestlist
proc 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: Select all

       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.

Post by **SpiKe^^** » Fri Jan 06, 2023 5:37 pm

Try this

Code: Select all

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
}

flink · Post by **flink** » Sat Jan 07, 2023 7:14 am

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: Select all

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

Post by **SpiKe^^** » Sat Jan 07, 2023 10:29 am

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

Code: Select all

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
}

flink · Post by **flink** » Sat Jan 07, 2023 12:02 pm

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

Post by **SpiKe^^** » Sat Jan 07, 2023 7:46 pm

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

Code: Select all

[strftime "on %x at %X"]

flink · Post by **flink** » Sun Jan 08, 2023 6:39 am

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

egghelp/eggheads community

a help for this part of a tcl

a help for this part of a tcl

Re: a help for this part of a tcl

try this.

strftime