API tools faq
paste
Advertisement
Skreffnet

Gestión de peticiones

Skreffnet
Jul 16th, 2022
2,265
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 9.24 KB | None | 0 0
raw download clone embed print report
  1. ON *:TEXT:*:#: {
  2.   if ($strip($1) == $+($pref,peticiones)) {
  3.     if (!%database) || (%database == $null) { error No existe conexión con la base de datos MySQL }
  4.  
  5.     if ($strip($2) == $null) { msg # Sintaxis: $sintaxis(peticiones) | msg # $sintaxis(peticiones,error) | halt }
  6.  
  7.     if ($strip($2) == ON) {
  8.  
  9.       set %PETICIONES.tabla modulos
  10.       set %PETICIONES.item estado
  11.       set %PETICIONES.dato 1
  12.       set %PETICIONES.is =
  13.       set %PETICIONES.s $chr(9)
  14.  
  15.       if ($dbGet(%PETICIONES.tabla)) {
  16.  
  17.         if ($dbResults) {
  18.  
  19.           set %PETICIONES.id_modulo $hget(db_results,id_modulo)
  20.           set %PETICIONES.modulo $hget(db_results,modulo)
  21.           set %PETICIONES.estado $hget(db_results,estado)
  22.  
  23.           if (%PETICIONES.modulo == peticiones) && (%PETICIONES.estado == %PETICIONES.dato) {
  24.  
  25.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Lo siento $theme(&primary;,$nick) pero las $theme(&underline;,peticiones) ya están $+($theme(&success;,abiertas),$chr(46))
  26.             halt
  27.  
  28.           }
  29.  
  30.  
  31.           if ($dbUpdate(%PETICIONES.tabla,%PETICIONES.item,%PETICIONES.dato,id_modulo = %PETICIONES.id_modulo)) {
  32.  
  33.             msg %lc_locutores $theme([&warning;]:,PETICIONES) $theme(&primary;,%locutor) Se han abierto las $theme(&underline;,peticiones) a petición de $theme(&primary;,$nick)
  34.             amsg $theme([&warning;]:,PETICIONES) Desde este momento puedes solicitar tu tema/dedicatoria escribiendo $theme(&primary;,$+($pref,$upper(peticion)) <artista> <canción> <dedicada a "usuario(s)"> <mensaje de dedicatoria>)
  35.  
  36.           }
  37.         }
  38.       }
  39.     }
  40.     if ($strip($2) == OFF) {
  41.       set %PETICIONES.tabla modulos
  42.       set %PETICIONES.item estado
  43.       set %PETICIONES.dato 0
  44.       set %PETICIONES.is =
  45.       set %s $chr(9)
  46.       if ($dbGet(%PETICIONES.tabla)) {
  47.         if ($dbResults) {
  48.           set %PETICIONES.id_modulo $hget(db_results,id_modulo)
  49.           set %PETICIONES.modulo $hget(db_results,modulo)
  50.           set %PETICIONES.estado $hget(db_results,estado)
  51.           if (%PETICIONES.modulo == peticiones) && (%PETICIONES.estado == %PETICIONES.dato) {
  52.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Lo siento $theme(&primary;,$nick) pero las $theme(&underline;,peticiones) ya están cerradas.
  53.             halt
  54.           }
  55.           if ($dbUpdate(%PETICIONES.tabla,%PETICIONES.item,%PETICIONES.dato,id_modulo = %PETICIONES.id_modulo)) {
  56.             ;success Desde este momento las peticiones están cerradas.
  57.             amsg $theme([&warning;]:,PETICIONES) Desde este momento las $theme(&underline;,peticiones) están $+($theme(&danger;,cerradas),$chr(46))
  58.             unset %PETICIONES.*
  59.           }
  60.         }
  61.       }
  62.       $mysql_free(%database)
  63.     }
  64.  
  65.     if ($strip($2) == INFO) {
  66.       if (!$3) {
  67.         msg # Sintaxis: $sintaxis(peticiones,info)
  68.         msg # $sintaxis(peticiones,error)
  69.         halt
  70.       }
  71.       if ($3 !isnum) {
  72.         msg # Lo siento $nick pero debes escribir un ID válido para poder procesar la información.
  73.         halt
  74.       }
  75.       else {
  76.         set %PETICIONES.tabla peticiones
  77.         set %PETICIONES.radio $isStationID
  78.         if ($dbGet(%PETICIONES.tabla)) {
  79.           if ($dbResults) {
  80.  
  81.             set %PETICIONES.id_peticion $hget(db_results,id_peticion)
  82.             set %PETICIONES.radio $hget(db_results,radio)
  83.             set %PETICIONES.locutor $hget(db_results,locutor)
  84.             set %PETICIONES.locutor_transferido $hget(db_results,locutor_transferido)
  85.             set %PETICIONES.artista $hget(db_results,artista)
  86.             set %PETICIONES.cancion $hget(db_results,cancion)
  87.             set %PETICIONES.solicitado $hget(db_results,solicitado)
  88.             set %PETICIONES.DATE $hget(db_results,DATE)
  89.             set %PETICIONES.TIME $hget(db_results,TIME)
  90.             set %PETICIONES.mensaje $hget(db_results,mensaje)
  91.             set %PETICIONES.estado $hget(db_results,estado)
  92.             set %PETICIONES.serial $hget(db_results,serial)
  93.  
  94.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Mostrando información de la petición con ID: %PETICIONES.id_peticion $+($chr(123)Serial:,%PETICIONES.serial,$chr(125))
  95.             msg %lc_locutores $theme([&warning;]:,PETICIONES)
  96.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Locutor $isUSER(%PETICIONES.locutor)
  97.  
  98.             if (%PETICIONES.locutor_transferido) {
  99.               msg %lc_locutores $theme([&warning;]:,PETICIONES) Petición transferida a $isUSER(%PETICIONES.locutor_transferido)
  100.             }
  101.  
  102.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Fecha: $theme(&primary;,%PETICIONES.DATE) Hora: $theme(&primary;,%PETICIONES.TIME)
  103.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Artista: $theme(&primary;,%PETICIONES.artista) - $theme(&primary;,%PETICIONES.cancion)
  104.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Solicitada por: $theme(&primary;,%PETICIONES.solicitado)
  105.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Mensaje de solicitud: %PETICIONES.mensaje
  106.  
  107.             if (%PETICIONES.estado == realizada) { set %PETICIONES.estado $theme(&success;,$hget(db_results,estado)) }
  108.             elseif (%PETICIONES.estado == pendiente) { set %PETICIONES.estado $theme(&danger;,$hget(db_results,estado)) }
  109.             elseif (%PETICIONES.estado == ignorada) { }
  110.  
  111.             msg %lc_locutores $theme([&warning;]:,PETICIONES) Estado de la solicitud: %PETICIONES.estado
  112.             msg %lc_locutores $theme([&warning;]:,PETICIONES)
  113.             msg %lc_locutores $theme([&warning;]:,PETICIONES) - Fin de la información -
  114.  
  115.           }
  116.         }
  117.       }
  118.     }
  119.   }
  120.   if ($strip($2) == TRANSFER) {
  121.     if (!$3) { msg # Sintaxis: $sintaxis(peticiones,transfer) | msg # $sintaxis(peticiones,error) | halt }
  122.     if ($strip($3)) {
  123.  
  124.       set %m.sql $mysql_connect($config(mysql,hostname), $config(mysql,username), $config(mysql,password))
  125.  
  126.       else if ($mysql_select_db(%m.sql, $config(mysql,database))) {
  127.  
  128.         var %sql = SELECT * FROM `peticiones` WHERE `radio` = $m.sqlq($radio) AND `locutor` = $m.sqlq($nick)
  129.         var %res = $mysql_query(%m.sql, %sql)
  130.         if (%res) {
  131.           while ($mysql_fetch_row(%res, row, $mysql_assoc)) {
  132.             set %id_peticion $hget(row, id_peticion)
  133.             set %locutor $hget(row, locutor)
  134.             set %locutor_transferido $hget(row, locutor_transferido)
  135.             set %estado $hget(row, estado)
  136.             set %transferida $hget(row, transferida)
  137.             if (%estado == pendiente) { }
  138.             if (%estado == ignorada) { }
  139.             if (%estado == realizada) { }
  140.             if ($3 == %id_peticion) {  
  141.               if ($4 == %locutor) { msg # Lo siento, pero la petición con ID 10 $+ $3 $+  ya pertenece al locutor 12 $+ %locutor  $+  | halt }    
  142.  
  143.               if (%transferida == SI) {
  144.                 msg # Lo siento pero la peticion con ID 10 $+ $3 $+  ya había sido transferida a 12 $+ %locutor_transferido $+  $+ .
  145.               }
  146.  
  147.               if (%transferida == NO) {
  148.                 var %sql = UPDATE `peticiones` SET `locutor_transferido` = $m.sqlq($4) $+ , `transferida` = 'SI' $+ , `estado` = 'pendiente' WHERE `peticiones`.`id_peticion` = $m.sqlq($3)
  149.                 noop $mysql_query(%m.sql, %sql)
  150.                 msg %config.debug Petición con ID 10 $+ $3 $+  transferida correctamente al locutor 12 $+ $4 $+  $+ .
  151.               }
  152.             }
  153.           }
  154.         }
  155.         $mysql_free(%m.sql)
  156.       }
  157.     }
  158.     if ($strip($2) == COUNT) {
  159.       if (!$3) {
  160.         set %m.sql $mysql_connect($config(mysql,hostname), $config(mysql,username), $config(mysql,password))
  161.         if ($mysql_select_db(%m.sql, $config(mysql,database))) {
  162.           var %sql = SELECT COUNT(*) AS `Filas` FROM `peticiones` WHERE radio = $isStationID AND `DATE` = $+($chr(39),$asctime(yyyy-mm-dd),$chr(39))
  163.           var %res = $mysql_query(%m.sql, %sql)
  164.           if (%res) {
  165.             while ($mysql_fetch_row(%res, row, $mysql_assoc)) {
  166.               set %filas $hget(row, filas)
  167.             }
  168.             $mysql_free(%m.sql)
  169.           }
  170.           if (%filas == 0) { msg # $bold(PETICIONES COUNT:) 12 $+ $nick $+  Perfecto! No hay peticiones pendientes. }
  171.           else {
  172.             msg # $bold(PETICIONES COUNT:) Han solicitado un total de4 %filas $+  dedicatorias el día de hoy.
  173.             $mysql_close(%m.sql)  
  174.           }
  175.         }
  176.       }
  177.     }
  178.     else {
  179.       set %m.sql $mysql_connect($config(mysql,hostname), $config(mysql,username), $config(mysql,password))
  180.       if ($mysql_select_db(%m.sql, $config(mysql,database))) {
  181.  
  182.         var %sql = SELECT COUNT(*) AS `Filas` FROM `peticiones` WHERE radio = $isStationID AND `DATE` = $+($chr(39),$asctime(yyyy-mm-dd),$chr(39)) AND `locutor` = $+($chr(39),%locutor,$chr(39))
  183.         var %res = $mysql_query(%m.sql, %sql)
  184.         if (%res) {
  185.           while ($mysql_fetch_row(%res, row, $mysql_assoc)) {
  186.             set %filas $hget(row, filas)
  187.           }
  188.           $mysql_free(%m.sql)
  189.         }
  190.         msg # $bold(PETICIONES COUNT:) Han solicitado un total de4 %filas $+  dedicatorias el día de hoy.
  191.         $mysql_close(%m.sql)  
  192.       }
  193.     }
  194.   }
  195.   if ($strip($2) == RECORD) { msg # Recolectando datos... RECORD: <datos> }
  196. }
  197.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!