;=================================================================================================;
;==    mIRC Apache Server ( mAS ) Version 0.3 by <+CoOL~ShADoW+> cool_shadow_1@yahoo.com        ==;
;==                      - -- --- [ http://www.SLiTSoFT.cjb.net ] --- -- -                      ==;
;=================================================================================================;

on *:start: {
  echo 4 -a mAS v0.3 <+CoOL~ShADoW+> $chr(171) 12Servidor Web Para el mIRC4 $chr(187) 
} 
on *:load: {
  if ($version < 5.9) {
    echo -a mAS V. 0.3 tienes el 4mIRC12 $version necesitas 4mIRC 5.912 o superior 
    .unload -rs $script 
    echo -a 12 mAS 0.3 descargado
  }
  else {
    set %puerto.web 80 
    set %velocidad.tr 2048
    echo -a 4Cargando...
  }
}
alias masconf { 
  dialog -md masconf masconf
  did -a masconf 10 - $chr(189) -- kb por cada paquete -
  did -a masconf 10 - 1 - - kb por cada paquete -
  did -a masconf 10 - 2 - - ks por cada paquete -
  did -a masconf 10 - 4 - - ks por cada paquete -
  if (%velocidad.tr == 512) { did -c masconf 10 1 | halt }
  if (%velocidad.tr == 1024) { did -c masconf 10 2 | halt }
  if (%velocidad.tr == 2048) { did -c masconf 10 3 | halt }
  if (%velocidad.tr == 4096) { did -c masconf 10 4 | halt }
}
dialog masconf {
  title "Configuración"
  size -1 -1 80 60
  option dbu
  ; check "Trasferencia binaria", 1, 3 6 60 10
  ; check "Contador de visistas", 2, 3 16 60 10
  ; check "Servicio de foro", 3, 3 26 60 10
  ; check "Conecciones no permitidas", 4, 3 36 75 10
  ; box "", 5, 1 0 78 47
  button "Salir", 6, 2 50 76 9,ok
  box "", 7, 1 46 78 14
  ;----------v0.3----------
  box "Transferencia binaria", 8, 1 5 78 35
  text "Velocidad de transferencia:", 9, 7 13 65 8
  combo 10, 4 25 72 70, size drop
  box "", 11, 3 21 74 16
  ;----------fin----------
  ; box "Transferencia binaria", 8, 1 62 78 35
  ; text "Velocidad de transferencia:", 9, 7 70 65 8
  ; combo 10, 4 82 72 50, size drop
  ; box "", 11, 3 78 74 16
  ; box "Conecciones no permitidas", 12, 82 0 93 47
  ; list 13, 85 8 70 35, size
  ; button "+", 14, 158 11 12 12
  ; button "-", 15, 158 27 12 12
  ; button "Guardar", 16, 83 50 91 9
  ; box "", 17, 82 46 93 14
}
; on *:dialog:masconf:sclick:1: { 
;  if ($did($dname,$did).state == 1) {
;    dialog -sb $dname $dialog($dname).x $dialog($dname).y 80 97 
;    did -u $dname 4
;  } 
;  else { 
;    dialog -sb $dname $dialog($dname).x $dialog($dname).y 80 60 
;    did -u $dname 4
;  }
; }
; on *:dialog:masconf:sclick:4: { 
;  if ($did($dname,$did).state == 1) {
;    dialog -sb $dname $dialog($dname).x $dialog($dname).y 175 60 
;    did -u $dname 1
;  } 
;  else { 
;    dialog -sb $dname $dialog($dname).x $dialog($dname).y 80 60 
;    did -u $dname 1
;  }
; }
on *:dialog:masconf:sclick:10: { 
  if ($did($dname,$did) == - $chr(189) -- kb por cada paquete -) { set %velocidad.tr 512 | halt }
  if ($did($dname,$did) == - 1 - - kb por cada paquete -) { set %velocidad.tr 1024 | halt }
  if ($did($dname,$did) == - 2 - - ks por cada paquete -) { set %velocidad.tr 2048 | halt }
  if ($did($dname,$did) == - 4 - - ks por cada paquete -) { set %velocidad.tr 4096 | halt }

}

alias mas { dialog -md mas mas }
on *:dialog:mas:init:0: {
  did -a $dname 6 Estado... $crlf
  did -a $dname 9 %puerto.web
  did -a $dname 11 $ip
}
dialog mas {
  title "mAS versión 0.3 ---=--==[ http://www.SLiTSoFT.cjb.net ]==--=---"
  size -1 -1 245 28
  option dbu
  button "Activar Server", 1, 2 3 47 10
  button "Salir", 2, 2 16 47 10,cancel
  box "", 3, 1 -1 49 15
  box "", 4, 1 12 49 15
  box "", 5, 55 -2 110 30
  edit "", 6, 56 2 108 25, read multi vsbar
  box "", 8, 167 -2 19 15
  edit "", 9, 168 2 17 10, autohs center
  box "", 10, 189 -2 54 15
  edit "ip ", 11, 190 2 52 10, read autohs center
  text "Servidor Web para el mIRC ", 12, 172 16 66 9, disable
}
on *:dialog:mas:sclick:1: {
  if ($left($did($dname,$did),1) == C) { 
    if ($sock(web.servidor) != $null) { 
      sockclose web.servidor 
      did -ra $dname $did Activar Server 
      did -a $dname 6 Socket cerrado. $crlf
      halt
    }
  }
  if ($left($did($dname,$did),1) == D) { 
    if ($sock(web.servidor) != $null) { 
      sockclose web.servidor 
      unset %sockread.web.cliente.*
      did -ra $dname $did Activar Server 
      did -a $dname 6 Server cerrado. $crlf
      halt
    }
  }
  if ($left($did($dname,$did),1) == A) { psem }
}
alias psem {
  unset %cliente.num
  if (%velocidad.tr == $null) || (%velocidad.tr !isnum) {
    did -a mas 6 Velocidad de transferencia no válida. Para establecerla usa /masconf $crlf
    halt
  }
  if ($did(mas,9) == $null) || ($did(mas,9) !isnum) { did -a mas 6 ERROR: Puerto no válido. $crlf | halt }
  set %puerto.web $did(mas,9)
  if ($sock(web.servidor) != $null) {
    did -ra mas 1 Cerrar Socket
    did -a mas 6 mAS Ya está corriendo o el nombre del socket está en uso. Para cerrar el socket has click en "Cerrar socket". $crlf
    halt
  }
  if ($portfree(%puerto.web) == $true) { 
    :selindex
    set %index $$sfile($mircdir,Selecciona el archivo principal,Cargar)
    if ($right(%index,4) != html) && ($right(%index,4) != .htm) && ($right(%index,4) != .txt) goto selindex
    socklisten web.servidor %puerto.web
    did -a mas 6 mAS Activado - Escuchando Puerto: %puerto.web $crlf
    did -ra mas 1 Desactivar Server
    set %cliente.num 1
    halt
  }
  else {
    did -a mas 6 ERROR: el puerto %puerto.web ya está en uso. Cierra el programa que esté usando el puerto o cambia el puerto por defecto. $crlf
    halt
  }
}
on *:socklisten:web.servidor: { 
  inc %cliente.num
  sockaccept web.cliente. $+ %cliente.num 
  did -a mas 6 Conección desde $sock(web.cliente. $+ %cliente.num ).ip $crlf
}  
on *:sockclose:web.cliente.*: { did -a mas 6 $sock($sockname).ip desconectado $crlf }
on *:sockread:web.cliente.*: {
  if ($sockerr > 0) { sockclose $sockname | did -a mas 6 Error recibiendo información de $sock($sockname).ip $crlf | halt }
  sockread %sockread. [ $+ [ $sockname ] ]
  if ($gettok(%sockread. [ $+ [ $sockname ] ], 1, 32) == GET) {
    if ($len($gettok(%sockread. [ $+ [ $sockname ] ], 2, 32)) == 1) {
      set %linea.archivo.index. [ $+ [ $sockname ] ] 1
      sockwrite -tn $sockname $read(%index,%linea.archivo.index. [ $+ [ $sockname ] ])  
    }
    else {
      unset %archivo.buscar
      set %archivo.buscar 1
      while ($findfile($left(%index,$calc($len($nopath(%index)) - $len($nopath(%index))*2)),*.*,0) >= %archivo.buscar) {
        if ($right($gettok(%sockread. [ $+ [ $sockname ] ], 2, 32),-1) == $nopath($findfile($left(%index,$calc($len($nopath(%index)) - $len($nopath(%index))*2)),*.*,%archivo.buscar))) {
          set %archivo.encontrado. [ $+ [ $sockname ] ] $findfile($left(%index,$calc($len($nopath(%index)) - $len($nopath(%index))*2)),*.*,%archivo.buscar)
          if ($right(%archivo.encontrado,4) == html) || ($right(%archivo.encontrado,4) == .htm) || ($right(%archivo.encontrado,4) == .txt) {
            set %linea.archivo. [ $+ [ $sockname ] ] 1
            sockwrite -tn $sockname $read(%archivo.encontrado. [ $+ [ $sockname ] ],%linea.archivo. [ $+ [ $sockname ] ]) 
            halt
          }  
          if ($right(%archivo.encontrado,4) != html) && ($right(%archivo.encontrado,4) != .htm) && ($right(%archivo.encontrado,4) != .txt) {
            set %tr. [ $+ [ $sockname ] ] 0 
            set %archivo.binario. [ $+ [ $sockname ] ] %archivo.encontrado. [ $+ [ $sockname ] ]
            unset %archivo.encontrado. [ $+ [ $sockname ] ]
            bread " $+ %archivo.binario. [ $+ [ $sockname ] ] $+ " %tr. [ $+ [ $sockname ] ] %velocidad.tr &tr [ $+ [ $sockname ] ]
            set %tr. [ $+ [ $sockname ] ] $calc(%tr. [ $+ [ $sockname ] ] + %velocidad.tr)
            sockwrite -b $sockname %velocidad.tr &tr [ $+ [ $sockname ] ]
            bunset &tr [ $+ [ $sockname ] ]
            halt
          }
        }
        else {
          if ($findfile($left(%index,$calc($len($nopath(%index)) - $len($nopath(%index))*2)),*.*,0) <= %archivo.buscar) { 
            sockwrite -tn $sockname <HTML>
            sockwrite -tn $sockname <BODY>
            sockwrite -tn $sockname <P ALIGN=CENTER><FONT FACE="Arial, sans-serif"><FONT SIZE=7 STYLE="font-size: 66pt"><B><FONT COLOR="#0000ff">mAS
            sockwrite -tn $sockname </FONT><FONT COLOR="#000080">v0.3</FONT><FONT COLOR="#ff0000"> </FONT>Server</B></FONT></FONT></P>
            sockwrite -tn $sockname <P ALIGN=LEFT><FONT FACE="Arial, sans-serif"><FONT SIZE=7 STYLE="font-size: 44pt"><B>
            sockwrite -tn $sockname <FONT SIZE=7 STYLE="font-size: 32pt"><FONT COLOR="#ff0000">Error :</FONT>
            sockwrite -tn $sockname <FONT COLOR="#800000">file not found - $right($gettok(%sockread. [ $+ [ $sockname ] ], 2, 32),-1)
            sockwrite -tn $sockname </FONT></FONT></B></FONT></FONT>
            sockwrite -tn $sockname </P>
            sockwrite -tn $sockname </BODY>
            sockwrite -tn $sockname </HTML>
            sockclose $sockname
            halt
          }
          inc %archivo.buscar
        }
      }
    }
  }
}

on *:sockwrite:web.cliente.*: {
  if ($sockerr > 0) { 
    sockclose $sockname 
    did -a mas 6 Error enviando información $crlf 
    halt
  }
  if (%archivo.binario. [ $+ [ $sockname ] ] != $null) {
    if (%tr. [ $+ [ $sockname ] ] >= $calc($lof(%archivo.binario. [ $+ [ $sockname ] ]) + %velocidad.tr)) {
      unset %archivo.binario. [ $+ [ $sockname ] ]
      unset %tr. [ $+ [ $sockname ] ]
      bunset &tr [ $+ [ $sockname ] ]
      sockclose $sockname
    }
    else {
      bread " $+ %archivo.binario. [ $+ [ $sockname ] ] $+ " %tr. [ $+ [ $sockname ] ] %velocidad.tr &tr [ $+ [ $sockname ] ]
      set %tr. [ $+ [ $sockname ] ] $calc(%tr. [ $+ [ $sockname ] ] + %velocidad.tr)
      sockwrite -b $sockname %velocidad.tr &tr [ $+ [ $sockname ] ]
      bunset &tr [ $+ [ $sockname ] ]
      halt
    }
  }
  if (%linea.archivo.index. [ $+ [ $sockname ] ] != $null) {
    inc %linea.archivo.index. [ $+ [ $sockname ] ]
    if (%linea.archivo.index. [ $+ [ $sockname ] ] <= $lines(%index)) {
      sockwrite -tn $sockname $read(%index,n,%linea.archivo.index. [ $+ [ $sockname ] ])
    }
    else { unset %linea.archivo.index. [ $+ [ $sockname ] ] | sockclose $sockname }
  }
  if (%archivo.encontrado. [ $+ [ $sockname ] ] != $null) {
    inc %linea.archivo. [ $+ [ $sockname ] ]
    if (%linea.archivo. [ $+ [ $sockname ] ] <= $lines(%archivo.encontrado. [ $+ [ $sockname ] ])) {
      sockwrite -tn $sockname $read(%archivo.encontrado. [ $+ [ $sockname ] ],n,%linea.archivo. [ $+ [ $sockname ] ])
    }
    else { unset %linea.archivo. [ $+ [ $sockname ] ] | unset %archivo.encontrado. [ $+ [ $sockname ] ] | sockclose $sockname }
  }
}