'; $archivoindex=$tupath."/index.htm"; $file = fopen($archivoindex, "w+");fwrite($file, $indexredirect);fclose($file); }# fin de if ini_set('session.save_path', $tupath); ##### END SESSION PATH session_start(); # leo via post si hay login $loginuser=strtolower($_POST['loginuser']); $loginpsw=strtolower($_POST['loginpsw']); ## aqui verifico si viene loginuser y loginpsw los veo si estan en la base de datos if ( ($loginuser != "")and($loginpsw != "") ) { #ahora los comparo con database: $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $daterio=explode("|",$lineya); $emailleido=strtolower($daterio[0]); $pswleido=strtolower($daterio[1]); $saldoleido=strtolower($daterio[3]);# esto me dira el tipo de user si nada,gratis,pagado_o_master $fechaexpiracion=strtolower($daterio[4]); if ( ($emailleido == $loginuser) and ($pswleido == $loginpsw) ) {$out=1;} }# fin del while fclose($ar2); $loginypswvalido="no"; if ( $out==1 ) { $loginypswvalido="si";} if ( ($loginuser == $masterpsw) and ($loginpsw == $masterpsw) ) { $loginypswvalido="si";} }# fin de if ( ($loginuser != "")and($loginpsw != "") ) { # en el futuro debere comparar usuarios y psw con database de usuarios activos ahorita solo yo: #if ( ($loginuser == $masterpsw) and ($loginpsw == $masterpsw) ) { if ( $loginypswvalido=="si" ) { # aqui debo de abrir conectados.cgi y verificar que no este # o que si esta el tiempo sea mayor al $timeoutenminutos $ar2=fopen("conectados.cgi","r"); $a=0;$out=0;$filecont=""; while ((!feof($ar2))and($out==0)) { $a=$a+1; $lineya=(fgets($ar2)); $filecont.=$lineya."#- "; $lines[$a]=$lineya; list($userleido,$tiempoleido)=explode("|",$lineya); if ( $userleido == $loginuser ) {$out=1;} }# fin del while fclose($ar2); #debug: #echo "out=1 es que si esta, y out=0 esa que no econtro. out es: ".$out. "ingresadouser: ".$loginuser." y ulitmo user leido es ".$userleido."## archivo leido: ".$filecont; #$tiempoactual1 = time() ; #$h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y");$unixtime=mktime($h-5,$m,$s,$m,$d,$a);#$h-7 cro y $h+2 miami $h-4:gmt #$tiempoactual2 = $unixtime;# ver si le quito el hostdime adelanto de +2 #echo "el tiempo leido1 es ".$tiempoactual1; #echo "## el tiempo leido2 es ".$tiempoactual2; #exit; $lodejoentrar="si"; if ($out==1) { # aqui significa que si esta en conectados entonces debo verificar que el tiempo ya haya pasado sino error $tiempoactual = time() ; # esto me da el tiempo actual en segundos, segun formula de abajo en timeout #cucon: #echo "el tiempoactual es: ".$tiempoactual;exit; #echo "el usuario ya esta conectado ## el tiempoactual es:".$tiempoactual." y el tiempo leido en dB es".$tiempoleido." la resta de ellos da ".$restita." y el maximo time es: ".$timeoutensegundos;exit; $segundoslastclic = $tiempoactual - $tiempoleido; if ( $segundoslastclic < $timeoutensegundos ) {$lodejoentrar="no";}#significa que no ha transcurrido logout forzado }# fin de if ($out==1) if ($lodejoentrar=="no") {errorbox("ERROR: No se permite el ingreso de dos personas con el mismo usuario. El usuario ingresado ya se encuentra conectado desde otra maquina y no ha hecho un logout ni tampoco ha pasado el tiempo de logout automatico, por lo que no es posible ingresar (Intente de nuevo en ".$timeoutenminutos." minutos).

This user is already connected in our database, (try again in ".$timeoutenminutos." minutes.)

## timeout=".$timeoutensegundos." Number of Seconds since last clik :".$segundoslastclic,0);exit;}; $_SESSION['userid']=$loginuser;# aqui podria meterle incluso su nombre segun mi base de datos $_SESSION['saldo']=$saldoleido;# nada es que es registrado gratis y 1 es registrado pagado $_SESSION['fechaexpiracion']=$fechaexpiracion; # aqui asumiendo que es primer ingreso, grabo los datos del usuario en conectados.cgi: # ojo si existe lo reemplazo y si no solo lo agrego al final #xixo: ## ojo: si estaba ($out==1) solo lo updateo -- si no estaba ($out==0) lo appendeo: if ($out==1) { # update el user $lastime ### inicio regrabar en conectados.cgi "Actualizar" ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("conectados.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($quserleido,$qtiempoleido) = explode("|", $linea); if (($linea != "")and($loginuser != $quserleido)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres if (($linea != "")and($loginuser == $quserleido)) {$finalfile.=$loginuser."|".$tiempoactual."\n";} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); #cucon: #if ($tiempoactual == "") {echo "ERROR: no se pudo obtener el tiempo actual";} $file = fopen("conectados.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en conectados.cgi "Actualizar" ### } # fin de if ($out==1) if ($out==0) { # appendeo el user $lasttime $tiempoactual = time() ; # esto me da el tiempo actual en segundos, segun formula de abajo en timeout #cucon: #echo "el tiempoactual again es: ".$tiempoactual;exit; $nuevalineadb=$loginuser."|".$tiempoactual."\n"; $file = fopen("conectados.cgi", "a+"); fwrite($file, $nuevalineadb); fclose($file); } # fin de if ($out==0) #cucon: #echo "aqui ya grabo la nueva linea es: ".$nuevalineadb." el time detectado es ".$tiempoactual;exit; }# fin de if ( ($loginuser == $masterpsw) and ($loginpsw == $masterpsw) ) $logeado="no"; if(isset($_SESSION['userid'])) { $logeado="si"; # aqui debo de actualizar el $lastcliktime en conectados.cgi ## begin de actualizar time en conectados ### inicio regrabar en conectados.cgi "actualizar tiempo de usuario" ### $loginuser=$_SESSION['userid']; $tiempoactual = time() ; # esto me da el tiempo actual en segundos, segun formula de abajo en timeout #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("conectados.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($quserleido,$qtiempoleido) = explode("|", $linea); if (($linea != "")and($loginuser != $quserleido)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres if (($linea != "")and($loginuser == $quserleido)) {$finalfile.=$loginuser."|".$tiempoactual."\n";} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); #cucon: #if ($tiempoactual == "") {echo "ERROR: no se pudo obtener el tiempo actual";} $file = fopen("conectados.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en conectados.cgi "actualizar tiempo de usuario" ### ## final de actualizar time en conectados }# fin de if(isset($_SESSION['userid'])) $zlogout=$_GET['logout']; # esto hace que si viene index.php?logout=confirm # aqui hago el logout if ($zlogout == "confirm") { if ($_SESSION['userid'] != "") { ### inicio regrabar en conectados.cgi "Borrar usuario x clic" ### $loginuser=$_SESSION['userid']; #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("conectados.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($quserleido,$qtiempoleido) = explode("|", $linea); if (($linea != "")and($loginuser != $quserleido)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres #if (($linea != "")and($loginuser == $quserleido)) {$finalfile.=$loginuser."|".$tiempoactual."\n";} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); #cucon: #if ($tiempoactual == "") {echo "ERROR: no se pudo obtener el tiempo actual";} $file = fopen("conectados.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en conectados.cgi "Borrar usuario x clic" ### }# fin de if ($_SESSION['userid'] != "") session_unset(); session_destroy(); $logeado=="no"; echo ""; exit; }# fin de if zlogut=confirm # aqui evito que se muestren adsense si en caso ya esta logeado #if (($logeado=="si")and($_SESSION['userid']==$masterpsw)) {$mostraradsensedesabro="no";} ###################################################################################################### ## BEGIN timing para logout (esta es salida por timing no salida por click de logout, falta borrarlo por clic) if (isset($_SESSION['start_time'])) { $elapsed_time = time() - $_SESSION['start_time']; # aqui forza el logut si ya paso el tiempo: if ($elapsed_time >= $timeoutensegundos) { ## aqui tambien lo borro de conectados.cgi pues debera reconectarse: # total hay 3 funciones: actualizarconectados, agregaraconectados, borrardeconectados # borro entonces al usuario $_SESSION['userid'] if ($_SESSION['userid'] != "") { ### inicio regrabar en conectados.cgi "Borrar usuario x timeout" ### $loginuser=$_SESSION['userid']; #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("conectados.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($quserleido,$qtiempoleido) = explode("|", $linea); if (($linea != "")and($loginuser != $quserleido)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres #if (($linea != "")and($loginuser == $quserleido)) {$finalfile.=$loginuser."|".$tiempoactual."\n";} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); #cucon: #if ($tiempoactual == "") {echo "ERROR: no se pudo obtener el tiempo actual";} $file = fopen("conectados.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en conectados.cgi "Borrar usuario x timeout" ### }# fin de if ($_SESSION['userid'] != "") # ahora elimino lo del browser session_unset(); session_destroy(); # ahora lo lanzo al index pidiendo user y psw: echo ""; } # fin de if ($elapsed_time >= $timeoutensegundos) }# fin de if (isset($_SESSION['start_time'])) # creo que aqui deberia ponerle un if si esta logeado pero lo dejare asi pa ver si jala: $_SESSION['start_time'] = time(); ## END timing para logout ############### fin de timedlogout ############ ###################################################################################################### $mostraradsensedesabro="si"; $tipodelogin=0;# este significa que no esta registrado if ($logeado=="si") { if ($_SESSION['fechaexpiracion'] == "") {$tipodelogin=1;} # este significa que esta registrado pero gratis # ojo aqui debo verificar que la fecha expiracion sea mayor a la de hoy y que no venga vacia ### saco unixtimeactual $h=date("H");$i=date("i");$s=date("s");$d=date("d");$m=date("m");$y=date("Y"); $unixtimeactual=mktime($h-2,$i,$s,$m,$d,$y); ### saco unixtime del vencimiento: dd/mm/aaaa $unixtimevence="no tiene vencimiento"; if ($_SESSION['fechaexpiracion'] != "") { $dv=substr($_SESSION['fechaexpiracion'],0,2); $mv=substr($_SESSION['fechaexpiracion'],3,2); $av=substr($_SESSION['fechaexpiracion'],6,4); $unixtimevence=mktime(0,0,0,$mv,$dv,$av); }# fin del if #expiration != "" $venciomembresia="no"; if ( $unixtimevence < $unixtimeactual ) {$venciomembresia="si";$tipodelogin=1;} if ( ($venciomembresia=="no") or (strtolower($_SESSION['userid']) == strtolower($masterpsw) ) ) {$tipodelogin=2;$mostraradsensedesabro="no";} # este significa que esta registrado y pago } # FIN de if ($logeado=="si") ## PENDIENTES: # ya puedo mostrar un listado de usuarios conectados para tener una idea de los que estan conectados # contador segun categoria # si recibo videos de gente confiable, aprobarlos automaticamente segun su email # poner la opcion de login sin anuncion y algun extra mas # poner el contador de segundos para ver videos loading # meterle un ocmentador a cada video basado en url referer # hacerle el sistema de rank videos # poner mis baner con rotacion automatica y meter uno que diga pase esto a dvd # hacer funcion de comparador de imagenes que cuando una jpg la bote youtube se desaparezca tonces # ponerle send to a friend # evitar meter videos que tienen prohibido reproducir en otro site, verlo con curl # (solo enviarme videos con longevidad de 2 anios) # en bulk suggest obligar el campo de categoria # ver forma de remover caidos automaticamenet # bulk publishing, PASAR AL TOP TODO LO CONFIGURABLE (JPG KEYWORDS en la misma foto ETC) # comments, fondo, top, bottom y 5b y 5a editable, # prevenir el spam con sugerirunvideo blokeando ips o contanod maximo sugerencias pro dia o enviadas por email via pipe # !! poner un get link para reportar un video ya no disponible # poner opcion de keywrods y descrip en index y en subpaginas que se adiera al keywords que pongo ## OJO: secretamente, para ver ordenadamente ultimos ingresos pongo: http://videos.com.net.gt/index.php?pagina=1 ## el masterpsw se debe grabar en index.php y en addphoto.php # Script de vendo.me para vender carros online # programado por www.SamuelBrooks.com el 13/mar/2011 all rights reserved # #ADMIN notes: #1.para editar, entro a borrar y le pongo codigo y la "e", ejemplo 4e (sin nombre ni nada), luego el psw sera vendo@sabro.net #2.para borrar a cualquiera en el email le pongo vendo@sabro.net y listo # ### BEGIN de pagina paccion=removerconfirmado # aqui asumo que idioma es "espanol" por eso no pongo if idioma=espanol if ($idioma=="") {$idioma == "espanol";} ###### ###### BEGIN ESPANOL TXT ###### $textodeinicio="PAGINA DE INICIO"; $textodeagregar="AGREGA UNA CANCION DE YOUTUBE"; $textodeultimos="ULTIMOS INGRESOS"; $textodecontactenos="CONTACTANOS"; $textodeformulario="También puede contactarnos, a través del siguiente formulario:"; $randombutton="LISTAR MAS CANCIONES AL AZAR"; $botondebuscar="Buscar"; $pretitulodevideo=$tituloprecategoria; $textoregresar="REGRESAR A LA PAGINA ANTERIOR"; $textoreportar="Si este Audio ya no esta disponible, notificanos para que lo podamos eliminar, para notificarnos haz click en:"; $textobotonreportar="REPORTAR AUDIO NO DISPONIBLE"; $textodelete="Suscribir"; $thumbtitulo="TITULO"; $thumbfecha="FECHA"; $thumbcategoria="CATEGORIA"; $thumbduracion="DURACION"; $tituloagregarvideo="FORMULARIO PARA SUGERIRNOS UNA CANCION DE YOUTUBE"; $textoseleccionecategoria="Selecciona una Categoria"; # textos de publicarvideo $titulomail="Tu Email"; $titulolink="Link de Youtube"; $usertitulo="Titulo Opcional"; $userdescripcion="Descripcion Opcional"; $usercategoria="Categoria"; $usernewcategoria="Nueva Categoria"; #erroboxes: $errorvideoeliminado="Error: El AUDIO ha sido eliminado de youtube o ha sido marcado como un video privado."; $videoyaexiste="El video que sugeriste ya esta ingresado en nuestra base de datos, por lo tanto no es posible ingresarlo dos veces."; #textos del contact form $fnombre="Nombre"; $ftelefono="Telefonos"; $fdireccion="Pais y ciudad"; $femail="Email"; $freferencia="Como te enteraste de este sitio"; $fcomentario="Pregunta o comentario"; $fenviar="Enviar"; $nosearch="No se encontraton resultados, con esos términos de búsqueda, en nuestra base de datos."; $signup="Registrate"; $rememberpsw="Recordar Password"; $noreplyuser="noresponder"; $registrosubject="Confirmacion de registro en "; $myaccounttxt="Mi Cuenta"; $txtformularioderegistro="FORMULARIO DE REGISTRO"; $txtregistrofull='Regístrate para poder escuchar mas de una cancion en este sitio.

El registro es automático y es completamente GRATIS !!

Al registrarte, podras escuchar canciones completas, pues a los visitantes no registrado no se les permite escuchar más de 10 minutos.

Para registrarte llena los siguientes datos:

Nota: Debes ingresar una dirección de email válida pues para activar tu cuenta deberás hacer click en un link de activación que enviaremos a tu dirección de correo.'; $txttuemail="Tu correo electronico"; $txtpswdeseado="Passwrod deseado"; #x5 no zamzar: $txtdownloadvideo="DESCARGA ESTA CANCION EN FORMATO MP3
(O EN FORMATO MPG, AVI, MP4, FLV, WMV)"; $txtdownloadvideo=""; $txttucuenta="DATOS DE TU CUENTA"; $txtusuario="Usuario"; $txtgratisexplicacion="(Tu membresia ahora es la GRATUITA porque ya vencio tu membresia PREMIUM, para reactivarla puedes hacer un pago abajo con tu tarjeta VISA.)"; $txtdostipos="Existen dos tipos de membresías: La Gratuita y La Premium"; $txtmembresiagratis="Con La membresía Gratuita SOLAMENTE PODRAS ESCUCHAR UN MAXIMO DE 5 CANCIONES POR DIA y antes de cada cancion se reproducirá un anuncio publicitario."; $txtmembresiapremium="Con La membresía Premium no escucharas anuncios publicitarios entre canciones, podras escuchar un ilimitado numero de canciones de forma continua sin ninguna interrupción"; $txttipodemembresia="Tipo de tu Membresia"; $txtgratuita="GRATUITA"; $txtpremiumvencio="Fecha de Vencimiento de Membresia PREMIUM"; $txtnuncapremium="Nunca has activado una memebresia Premium"; $txtnuncaadmin="NUNCA, POR SER EL ADMINISTRADOR"; $txtopcionesdepago="Para activar o extender tu membresía Premium puedes pagar con tu tarjeta de VISA (debito o credito) cualquiera de estas opciones:

(NOTA: Tu tarjeta solamente sera cobrada una sola vez, NO tendras cobros mensuales, tu pago se hara en una pagina segura con certificado de SSL para garantizar la privavidad de tus datos, tu membresia quedara activada inmediatamente despues de realizar tu pago, estos precios no incluyen iva ni impuestos para ningún país.)"; $txtpagar2dias="Activar o Extender Membresia Premium por 2 dias a partir de hoy"; $txtpagar30dias="Activar o Extender Membresia Premium por 30 dias a partir de hoy
(Sin cobros mensuales)"; $txtpagar365dias="Activar o Extender Membresia Premium por 365 dias a partir de hoy
(Sin cobros mensuales)"; $txtbotonpagar2="Pagar Q.10 (Aprox.\$Us 1.30)"; $txtbotonpagar30="Pagar \$Us 5 (Una sola vez)"; $txtbotonpagar365="Pagar \$Us 50 (Una sola vez)"; $txtdireccionregistrada="Direccion Registrada"; $txtreportarvideoroto="Reportar No disponible"; ###### ###### BEGIN IDIOMA ESPANOL2 (usted) ###### if ($idioma == "espanol2") { $textodeinicio="PAGINA DE INICIO"; $textodeagregar="AGREGAR UN VIDEO"; $textodeultimos="ULTIMOS INGRESOS"; $textodecontactenos="CONTACTENOS"; $textodeformulario="También puede contactarnos, a través del siguiente formulario:"; $randombutton="LISTAR MAS CANCIONES AL AZAR"; $botondebuscar="Buscar"; $pretitulodevideo=$tituloprecategoria; $textoregresar="REGRESAR A LA PAGINA ANTERIOR"; $textoreportar="Si este audio ya no esta disponible, notifiqueno para que lo podamos eliminar, para notificarnos haga click en:"; $textobotonreportar="REPORTAR AUDIO NO DISPONIBLE"; $textodelete="Suscribir"; $thumbtitulo="TITULO"; $thumbfecha="FECHA"; $thumbcategoria="CATEGORIA"; $thumbduracion="DURACION"; $tituloagregarvideo="FORMULARIO PARA SUGERIRNOS UN VIDEO"; $textoseleccionecategoria="Seleccione una Categoria"; # textos de publicarvideo $titulomail="Su Email"; $titulolink="Link de Youtube"; $usertitulo="Titulo Opcional"; $userdescripcion="Descripcion Opcional"; $usercategoria="Categoria"; $usernewcategoria="Nueva Categoria"; #erroboxes: $errorvideoeliminado="Error: El AUDIO ha sido eliminado de youtube o ha sido marcado como un video privado."; $videoyaexiste="El AUDIO que usted sugirio ya esta ingresado en nuestra base de datos, por lo tanto no es posible ingresarlo dos veces."; #textos del contact form $fnombre="Nombre"; $ftelefono="Telefonos"; $fdireccion="Pais y ciudad"; $femail="Email"; $freferencia="Como se entero de este sitio"; $fcomentario="Pregunta o comentario"; $fenviar="Enviar"; $nosearch="No se encontraton resultados, con esos términos de búsqueda, en nuestra base de datos."; $signup="Registrarse"; $rememberpsw="Recordar Password"; $noreplyuser="noresponder"; $registrosubject="Confirmacion de registro en "; $myaccounttxt="Mi Cuenta"; $txtformularioderegistro="FORMULARIO DE REGISTRO"; $txtregistrofull='Regístrese para poder escuchar mas de una canción en este sitio.

El registro es automático y es completamente GRATIS !!

Al registrarse, podra escuchar canciones completas completamente gratis, pues a los visitantes no registrado no se les permite ver más de 10 minutos.

Para registrarse llene los siguientes datos:

Nota: Debe ingresar una dirección de email válida pues para activar su cuenta deberá hacer click en un link de activación que enviaremos a su dirección de correo.'; $txttuemail="Su correo electronico"; $txtpswdeseado="Passwrod deseado"; #x5: $txtdownloadvideo="DESCARGUE ESTE AUDIO EN FORMATO MP3
(O EN FORMATO MPG, AVI, MP4, FLV, WMV)"; $txtdownloadvideo=""; $txttucuenta="DATOS DE SU CUENTA"; $txtusuario="Usuario"; $txtgratisexplicacion="(Su membresia ahora es la GRATUITA porque ya vencio su membresia PREMIUM, para reactivarla puede hacer un pago abajo con su tarjeta VISA.)"; $txtdostipos="Existen dos tipos de membresías: La Gratuita y La Premium"; $txtmembresiagratis="La membresía Gratuita permite escuchar camciones, pero cada cancion muestra una publicidad durante 10 segundo antes de mostrar el video, el sitio muestra la mayor publicidad posible."; $txtmembresiapremium="La membresía Premium permite escuchar canciones sin limites y de forma directa, sin tantos banner de publicidad y sin tener que esperar los 10 segundo de publicidad para ver los videos."; $txttipodemembresia="Tipo de su Membresia"; $txtgratuita="GRATUITA"; $txtpremiumvencio="Fecha de Vencimiento de Membresia PREMIUM"; $txtnuncapremium="Nunca ha activado una memebresia Premium"; $txtnuncaadmin="NUNCA, POR SER EL ADMINISTRADOR"; $txtopcionesdepago="Para activar o extender su membresía Premium puede pagar con su tarjeta de VISA (debito o credito) cualquiera de estas opciones:

(NOTA: Su tarjeta solamente sera cobrada una sola vez, NO tendra cobros mensuales, su pago se hara en una pagina segura con certificado de SSL para garantizar la privavidad de sus datos, su membresia quedara activada inmediatamente despues de realizar su pago.)"; $txtpagar2dias="Activar o Extender Membresia Premium por 2 dias a partir de hoy"; $txtpagar30dias="Activar o Extender Membresia Premium por 30 dias a partir de hoy"; $txtpagar365dias="Activar o Extender Membresia Premium por 365 dias a partir de hoy"; $txtbotonpagar2="Pagar Q.10 (Aprox.\$Us 1.30)"; $txtbotonpagar30="Pagar Q.50 (Aprox.\$Us 7)"; $txtbotonpagar365="Pagar Q.400 (Aprox.\$Us 50)"; $txtdireccionregistrada="Direccion Registrada"; $txtreportarvideoroto="Reportar audio no disponible"; ###### ###### END IDIOMA ESPANOL2 (USTED) ###### }# fin de if $idioma == espanol2 (usted) ###### ###### BEGIN INGLES TXT (Y FIN DE ESPANOL) ###### if ($idioma == "ingles") { $textodeinicio="HOME"; $textodeagregar="ADD A VIDEO"; $textodeultimos="ALL VIDEOS"; $textodecontactenos="CONTACT US"; $textodeformulario="To contact us please fill up the following form:"; $randombutton="MORE RANDOM VIDEOS"; $botondebuscar="Search"; $textodegaleria="VIDEO GALLERY"; $pretitulodevideo=$tituloprecategoria; $textoregresar="PREVIOUS PAGE"; $textoreportar="Si este audio ya no esta disponible, notifiquenos para que los podamos eliminar, para notificarnos haga click en:"; $textoreportar="If this audio is not available anymore, please use the following link to report this problem, so we can remove this video"; $textobotonreportar="REPORT BROKEN VIDEO"; $textodelete="Subscribe"; $thumbtitulo="TITLE"; $thumbfecha="DATE"; $thumbcategoria="CATEGORY"; $thumbduracion="DURATION"; $tituloagregarvideo="TO SUGGEST A SONG FILL UP THIS FORM"; $textoseleccionecategoria="Select a Category"; #textos de publicarvideo $titulomail="Your Email"; $titulolink="Youtube Link"; $usertitulo="Title (optional)"; $userdescripcion="Descripcion (optional)"; $usercategoria="Category"; $usernewcategoria="New Category"; #erroboxes: $errorvideoeliminado="Error: This audio has been erased from youtube or has been marked as a private video."; $videoyaexiste="This audio already exist in our website."; #textos del contact form $fnombre="Your Name"; $ftelefono="Telephones"; $fdireccion="Country and City"; $femail="Your Email Address"; $freferencia="How did you find this website"; $fcomentario="Write here your questions or comments"; $fenviar="Send"; $nosearch="The searched text was not found in our website."; $signup="Sign Up"; $rememberpsw="Remember Password"; $noreplyuser="donotreply"; $registrosubject="Registration link for: "; $myaccounttxt="My Account"; $txtformularioderegistro="REGISTRATION FORM"; $txtregistrofull='Register FREE to listen unlimited songs without any interruption.

Registration is automatic and is completely FREE !!

By registering, you will be able to listen unlimited audios without time restriction, unregistered users are limited to watch only ten minutes of each video

To register fill the following form:

Note: You must enter a valid email address because in order to activate your account, you must click an activation link that will be sent to your e-mail address.'; $txttuemail="Enter your email address"; $txtpswdeseado="Set your Password"; #x5 $txtdownloadvideo="DOWNLOAD THIS SONG IN MP3 FORMAT
(OR MPG, AVI, MP4, FLV, WMV)"; $txtdownloadvideo=""; $txttucuenta="YOUR ACCOUNT INFORMATION"; $txtusuario="User"; $txtgratisexplicacion="(Now you have the FREE membership because your PREMIUM membership has expired, To reactivate your PREMIUM membership you can pay any of the membership options below.)"; $txtdostipos="We have two types of memberships: The FREE membership and the PREMIUM membership"; $txtmembresiagratis="The FREE Membership allows you to watch unlimited videos, but each audio shows an ad for 10 seconds before it starts, with a free membership, every song is sorrounded by large ads, and the full screen feature is not available."; $txtmembresiapremium="The PREMIUM Membership Allows you to listen unlimited audios with full screen feature, without large ads and without having to wait those 10 seconds ads to start a video."; $txttipodemembresia="Type of your membership"; $txtgratuita="FREE"; $txtpremiumvencio="Your PREMIUM Membership expiration date"; $txtnuncapremium="You have never activated a Premium membership"; $txtnuncaadmin="NEVER, YOU ARE THE ADMINISTRATOR"; $txtopcionesdepago="To activate or extend your PREMIUM memebership you can pay with you VISA card (debit or credit) any of the following options:

(NOTE: You card will be charged only one time, you will not have any monthly or recurring charge, To ensure your data Privacy your payment will be held on a secure web page with an SSL certificate, your membership will be activated immediately after making your payment.)"; $txtpagar2dias="Activate or Extend your PREMIUM membership for 2 days"; $txtpagar30dias="Activate or Extend your PREMIUM membership for 30 days"; $txtpagar365dias="Activate or Extend your PREMIUM membership for 365 days"; $txtbotonpagar2="Pay Q.10 (Aprox.\$Us 1.30)"; $txtbotonpagar30="Pay Q.50 (Aprox.\$Us 7)"; $txtbotonpagar365="Pay Q.400 (Aprox.\$Us 50)"; $txtdireccionregistrada="Enter your registered Email Address"; $txtreportarvideoroto="Report Broken Video"; ###### ###### END INGLES TXT ###### }# fin de if $idioma == ingles $textodegaleria=$tituloh1; ##################################################### ##### BEGIN ADDPHOTO.PHP AQUI ###### ##################################################### if ($masterpsw=="") {echo "Error: no existe el masterpsw en setup.cgi";exit;} $masterpsw=strtolower($masterpsw); ## cucote para que no me de doble error: $codigopp=$_POST['codigodeprepago']; $codigopp = strtolower($codigopp); $codigopp = str_ireplace(" ", "", $codigopp);# esto quita posibles espacios $idir = "images/"; // Path To Images Directory $tdir = "images/thumbs/"; // Path To Thumbnails Directory //$idir = ""; // Path To Images Directory //$tdir = ""; // Path To Thumbnails Directory $twidth = "640"; // Maximum Width For Thumbnail Images $theight = "480"; // Maximum Height For Thumbnail Images if (isset($_GET['subpage']) && $_GET['subpage'] == 'upload') { // Uploading/Resizing Script $url1 = $_FILES['imagefile1']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url2 = $_FILES['imagefile2']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url3 = $_FILES['imagefile3']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url4 = $_FILES['imagefile4']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url5 = $_FILES['imagefile5']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url6 = $_FILES['imagefile6']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url7 = $_FILES['imagefile7']['name']; // Set $url To Equal The Filename For Later Use in thumbs $url8 = $_FILES['imagefile8']['name']; // Set $url To Equal The Filename For Later Use in thumbs # abro base de datos para saber que numero de codigo asignar: $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $a=$a+1; $lineya=fgets($ar); $lines[$a]=$lineya; }# fin del while fclose($ar); $params=explode("|",$lines[$a-1]); # aqui debo darle pagina de corroboracion de datos y si todo esta bien continuo pa la grabacion: $iemail=$_POST['email']; $ilink=$_POST['link']; if ($iemail != $masterpsw) { if (!filter_var($iemail, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de email correcta (".$iemail." NO es una direccion correcta), regrese e ingrese esta informacion

You must enter a valid email address, go back and correct your email address.",0);exit;} }# fin de if != masterpsw if ($ilink == "") {errorbox("Debe ingresar un Link con un video de youtube (no ingreso nada), ejemplo: http://www.youtube.com/watch?v=gA4v0Qj5OEI

You must enter a Valid Youtube Link, go back and paste a valid youtube link.",0);exit;} # aqui debo verificar que solo metan UN solo link, solo el masterpsw (sbsb) puede meter muchos: $linka=$ilink; $linkb=preg_replace("/[\n\r]/","",$ilink); if (($iemail != $masterpsw)and($linka != $linkb)) {errorbox("Solo se puede ingresar un solo link, sin espacios ni el caracter de [Enter].

You can only enter one youtube link, without spaces and without [Enter] characters.",0);exit;} $ititulo=$_POST['titulo']; $idescripcion=$_POST['descripcion']; $icategoria=$_POST['categoria']; $inuevacategoria=$_POST['nuevacategoria']; if ($inuevacategoria != "") {$icategoria=$inuevacategoria;} if ($icategoria == "1010101010") {errorbox("Debe seleccionar una categoria o ingresar una nueva categoria.

You must select a category or enter a new category ",0);exit;} #aqui deberia remplazar el icategoria metida sin _ para que en vez de espacios tenga _ #$icategoria = str_ireplace(" ", "_", $icategoria); ## aqui comineza el proceso de ingresar bulk links - solo tomo ilink y icategoria nada mas if (($iemail == $masterpsw)and($linka != $linkb)) {## begin ykyk: #estas variables me dicen cuantos videos fueron agregados y cuantos ya estaban repetidos $agregados=0; $noembed=0; $noexiste=0; $repetidos=0; $muyrecientes=0; # debo parsear texto metido, oviar lineas que no tengan youtube ni (href="/watch?v=) y evitar meter repetidos # ordenar y quitar lineas repetidas y en funcion de ingresar meterlo solo si no esta repetido # en futuro verificar via api que no tenga restriccion de empotramiento ni necesite login xxx $links=explode("\n",$ilink);# ya tengo todos los links en el array $links[x] # ahora hago un ciclo para recorrer el array y evaluar cada link para: # ver si es link valido y 2 si no esta repetido meterlo con categoria $icategoria $b=0;$c=0;$codigosreales=""; foreach ($links as $linkito) { preg_match('#(?<=youtube\.com/v/)[\w\-]+#', $linkito, $matches); // esto tambien me saca caracteres: -- de algunos videos if ($matches[0] == "") { preg_match('#(?<=youtube\.com\/watch\?v=)[\w\-]+#', $linkito, $matches); // esto tambien me saca caracteres: -- de algunos videos } $codito=$matches[0]; if ($codito=="") { $esyoutubeuser="no"; $pos = strpos(strtolower($linkito), "youtube.com/user/"); if ($pos !== false) {$esyoutubeuser="si";$codito=substr($ilink,strlen($ilink)-11,11);}; }# fin de if ($codito="") ## ahora aqui debo analizar si viene estilo bulk te sourcedo ojoojoojo parsiando: /watch?v=92Ec35tXmKM& if ($codito=="") { $pos = strpos($linkito, "/watch?v=" ); if ($pos !== false) {# si contiene watch $youcode=explode("/watch?v=",$linkito); $codito=substr($youcode[1],0,11); $pos = strpos(strtolower($codito), "featur"); if ($pos !== false) {$codito="";}; }# fin de si contiene watch }# fin de if ($codito=="") ## finalmente aqui analizo si viene bulk desde mi ppblog: "/watchvideo.cgi?video=5Srx-LuDjU8&title" if ($codito=="") { $pos = strpos($linkito, ".cgi?video=" ); if ($pos !== false) {# si viene de mi ppblog $youcode=explode(".cgi?video=",$linkito); $codito=substr($youcode[1],0,11); }# fin de si viene de mi ppblog }# fin de if ($codito=="") ## aqui analizo si viene de otro sabrovideo galery if ($codito=="") { $pos = strpos($linkito, ".php?codigo=" ); if ($pos !== false) {# si viene de mi ppblog $youcode=explode(".php?codigo=",$linkito); $codito=substr($youcode[1],0,11); }# fin de si viene de otro sabrovideogalery }# fin de if ($codito=="") if ($codito != "") { $codito = preg_replace("/[\n\r]/","",$codito); $codigosreales[$c]=$codito; $c=$c+1; # echo "link ".$c." tiene como video ".$codito."

"; } $linkito = preg_replace("/[\n\r]/","",$linkito); $newlinks[$b]=$linkito; $b=1+$b; }# fin del foreach #$newlinks=array_unique($newlinks); #$rresult=implode(" # ",$newlinks); $codigosreales=array_unique($codigosreales); $rresult=implode(" # ",$codigosreales); $todoslosingresados=count($codigosreales); # echo "ya se tienen los links, el numero de videos distintos es:".count($codigosreales)." son: ".$rresult;exit; # ahora que ya tengo todos los videitos distintos en el array $codigosreales, # debo hacer un foreach para grabarlos en la categoria uno x uno # pero verificar que no este repetido y que tengan de longevidad mas de 2 anios con hoy ### reviso que no exista el codigo metido en la base de datos: #leo database en un array $ar=fopen("database.cgi","r"); $a=0;$out=0; $lineasdb=""; while ( (!feof($ar))and($out == 0) ) { $linea=(fgets($ar)); $lineasdb[$a]=$linea; $a=$a+1; #list($ycodigo,$yduracion,$ytitulo,$ydescripcion,$yfecha,$ycategoria,$yvotos,$yingreso,$yexxtra) = explode("|", $linea); }# fin del while fclose($ar); $nuevalineadb=""; # este string se grabara con todas las nuevas lineas foreach ($codigosreales as $codito) { # este foreach graba uno x uno en database $out=0; $i=0; $final=count($lineasdb); while (($i < $final)and($out==0)) { # begin del while que recorre database $linea=$lineasdb[$i]; list($ycodigo,$yduracion,$ytitulo,$ydescripcion,$yfecha,$ycategoria,$yvotos,$yingreso,$yexxtra) = explode("|", $linea); if ( strtolower($ycodigo) == strtolower($codito) ) {$out=1;} $i=$i+1; } # fin del while que recorre database # si al recorrer database salio con $out=0 siginifica que es video nuevo entonces si lo ingreso: #pendiente calculo de fecha a dos anios pa no grabar este current vido $videovalido="si";# asumo que sera valido y cheko requsitos pero si falla videovalio="no" if ($out == 1) {$videovalido="no";$repetidos=$repetidos+1;} #ahora grabo el video con formato de database pero antes debo sacarle su info de titulo, descripcion, categoria y fecha if ($videovalido=="si") { $bigdata=file_get_contents_curl("http://gdata.youtube.com/feeds/api/videos/".$codito); # ojo si el video ya no esta disponible el curl de # http://gdata.youtube.com/feeds/api/videos/codigovideo solo devuelve Private video # lo cual no pasa de 20 chars y eso me dice que ya se elimino el video tonces: if (strlen($bigdata)<20) {$videovalido="no";$noexiste=$noexiste+1;} # aqui verifico si el video permite que se inserte en sitios externos (que no tenga restriccion de private ni embeded) $pos = strpos(strtolower($bigdata), "", $bigdata); $lafecha=substr($prefecha[1],0,10);# ejemplo: 2008-09-17 $fechavideo= substr($lafecha,8,2)."/".substr($lafecha,5,2)."/".substr($lafecha,0,4); } # fin de if ($videovalido == "si") if ($permitirvideosrecientes == "no") { if (diasdesdefecha($fechavideo) < 370) {$videovalido="no";$muyrecientes=$muyrecientes+1;} }# fin de if ($permitirvideosrecientes == "no") if ($videovalido == "si") { $sxml = simplexml_load_file_curl('http://gdata.youtube.com/feeds/api/videos/'.$codito); $media = $sxml->children('http://search.yahoo.com/mrss/'); $yt = $media->children('http://gdata.youtube.com/schemas/2007'); $attr2 = $yt->duration->attributes(); $segundos = $attr2['seconds']; // in seconds $minutos = sec2min($segundos); // in minutes $eltitulo = $media->group->title; $ladescripcion = $media->group->description; #quito enteres al titulo: $eltitulo = preg_replace("/[\n\r]/","",$eltitulo); #quito enteres a la descripcion: $ladescripcion = preg_replace("/[\n\r]/","",$ladescripcion); #dejo la descripcion de 200 chars maximo $ladescripcion = strtolower(substr($ladescripcion,0,200)); #quito direcciones web a descripciones: $pos = strpos($ladescripcion, "youtube.com"); if ($pos !== false) {$ladescripcion="";} $ladescripcion = str_ireplace("www.", "", $ladescripcion); $ladescripcion = str_ireplace("...", "", $ladescripcion); $ladescripcion = str_ireplace(".com.ar", "", $ladescripcion); $ladescripcion = str_ireplace(".com.gt", "", $ladescripcion); $ladescripcion = str_ireplace(".com", "", $ladescripcion); $ladescripcion = str_ireplace(".net.ar", "", $ladescripcion); $ladescripcion = str_ireplace(".net.gt", "", $ladescripcion); $ladescripcion = str_ireplace(".net", "", $ladescripcion); $ladescripcion = str_ireplace(".org", "", $ladescripcion); $ladescripcion = str_ireplace(".info", "", $ladescripcion); $ladescripcion = str_ireplace("http", "", $ladescripcion); $ladescripcion = str_ireplace("twitter", "", $ladescripcion); $ladescripcion = str_ireplace("facebook", "", $ladescripcion); $ladescripcion = str_ireplace("@hotmail", "", $ladescripcion); $ladescripcion = str_ireplace("@gmail", "", $ladescripcion); $ladescripcion = str_ireplace("@yahoo", "", $ladescripcion); $ladescripcion = str_ireplace("@", "", $ladescripcion); $ladescripcion = str_ireplace("://", "", $ladescripcion); $ladescripcion = str_ireplace("/", "", $ladescripcion); $ladescripcion = str_ireplace("?", "", $ladescripcion); $ladescripcion = str_ireplace("|", "", $ladescripcion); $ladescripcion = str_ireplace("__", "", $ladescripcion); $eltitulo = str_ireplace("www.", "", $eltitulo); $eltitulo = str_ireplace("...", "", $eltitulo); $eltitulo = str_ireplace(".com.ar", "", $eltitulo); $eltitulo = str_ireplace(".com.gt", "", $eltitulo); $eltitulo = str_ireplace(".com", "", $eltitulo); $eltitulo = str_ireplace(".net.ar", "", $eltitulo); $eltitulo = str_ireplace(".net.gt", "", $eltitulo); $eltitulo = str_ireplace(".net", "", $eltitulo); $eltitulo = str_ireplace(".org", "", $eltitulo); $eltitulo = str_ireplace(".info", "", $eltitulo); $eltitulo = str_ireplace("http", "", $eltitulo); $eltitulo = str_ireplace("twitter", "", $eltitulo); $eltitulo = str_ireplace("facebook", "", $eltitulo); $eltitulo = str_ireplace("@hotmail", "", $eltitulo); $eltitulo = str_ireplace("@gmail", "", $eltitulo); $eltitulo = str_ireplace("@yahoo", "", $eltitulo); $eltitulo = str_ireplace("@", "", $eltitulo); $eltitulo = str_ireplace("://", "", $eltitulo); $eltitulo = str_ireplace("/", "", $eltitulo); $eltitulo = str_ireplace("?", "", $eltitulo); $eltitulo = str_ireplace("|", "", $eltitulo); $eltitulo = str_ireplace("__", "", $eltitulo); $ladescripcion=strip_tags($ladescripcion); #calculo fecha de hoy quitando dos horas de miami $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); $fechahoy=date("d/m/Y",mktime($h+2,$m,$s,$m,$d,$a)); $xcodigo=$codito; $xduracion=$minutos; $xtitulo=$eltitulo; $xdescripcion=$ladescripcion; $xfecha=$fechavideo;# por mas que intente no lo pude obtener, tendira que usar otro curl $xcategoria=$icategoria; $xvotos=""; $xingreso=$fechahoy; $xexxtra=""; ## ojo la xcategoria JAMAS puede llevar espacios a puro huevo debe llevar _ entonces remplazo espacios: $xcategoria = str_ireplace(" ", "_", $xcategoria); # EL TITULO Y LA DESCRIPCION JAMAS pueden llevar pipes sino me arruinan la database, aqui los quito: $xtitulo=str_ireplace("|", "", $xtitulo); $xdescripcion=str_ireplace("|", "", $xdescripcion); if ($xduracion != "0:00") { $xcategoria=strtoupper($xcategoria); $nuevalineadb = $nuevalineadb.$xcodigo."|".$xduracion."|".$xtitulo."|".$xdescripcion."|".$xfecha."|".$xcategoria."|".$xvotos."|".$xingreso."|".$xexxtra."|\n"; $agregados=$agregados+1; }# fin de if }# fin de if ($videovalido == "si") } # fin del foreach ($codigosreales as $codito) # aqui debo agregar a la database la $nuevalineadb solo si no tiene un lenght mayor de 20 # pendiente el restringir grabacion por fecha if (strlen($nuevalineadb)>20) { $file = fopen("database.cgi", "a+"); fwrite($file, $nuevalineadb); fclose($file); regrabarmenu(); } # fin de if (strlen($nuevalineadb)>20) echo "



RESULTADO DE AUDIOS INGRESADOS

"; echo "Los AUDIOS ingresados fueron: ".$todoslosingresados."

"; echo "Se Grabaron ".$agregados." canciones a la base de datos.

"; if ($repetidos > 0) {echo "LosVideos que no se grabaron por ya estar repetidos en la pagina fueron: ".$repetidos;} if ($noembed > 0) {echo "
LosVideos que no se grabaron por que no permiten ser empotrados fueron: ".$noembed;} if ($nodisponible > 0) {echo "
LosVideos que ya no estan disponibles en youtube fueron: ".$nodisponible;} if ($permitirvideosrecientes=="no") { echo "
Los videos que no se agregaron por tener menos de 1 año de publicacion, fueron:".$muyrecientes;} echo "

"; echo "

Para continuar haga click aqui"; #echo ""; exit; }## end ykyk: ## aqui termina el proceso de ingresar bulk links - solo tomo ilink y icategoria nada mas ## aqui comienza el analisis de un solo link ingresado en publicar video ya sea por el usuario o masterpsw $ititulo = str_ireplace(" ", "_", $ititulo); $idescripcion = str_ireplace(" ", "_", $idescripcion); $icategoria = str_ireplace(" ", "_", $icategoria); preg_match('#(?<=youtube\.com/v/)[\w\-]+#', $ilink, $matches); // esto tambien me saca caracteres: -- de algunos videos if ($matches[0] == "") { preg_match('#(?<=youtube\.com\/watch\?v=)[\w\-]+#', $ilink, $matches); // esto tambien me saca caracteres: -- de algunos videos } $codito=$matches[0]; if ($codito=="") { $esyoutubeuser="no"; $pos = strpos(strtolower($ilink), "youtube.com/user/"); if ($pos !== false) {$esyoutubeuser="si";$codito=substr($ilink,strlen($ilink)-11,11);}; }# fin de if ($codito="") ## aqui le permito hacer busqueda directar de keywords y los meto con post atuomatico, ej: search: sx: st: sy: que corresponde a searchy:(year) y searcht:(today) if ($codito=="") { #searchkeywords para para sx: st: y sy: (genera, hoy, haceunaño respectivamnete) ej: st:mariobros mete videos de mariobros de hoy, util para googletrend diario $buscalink="";$busqueda=""; if (substr(strtolower($ilink),0,3) == "sx:") {$busqueda=substr(strtolower($ilink),3,300);$buscalink="http://www.youtube.com/results?search_query=".$busqueda."&aq=f";} if (substr(strtolower($ilink),0,3) == "st:") {$busqueda=substr(strtolower($ilink),3,300);$buscalink="http://www.youtube.com/results?uploaded=d&search_query=".$busqueda."&search_type=videos";} if (substr(strtolower($ilink),0,3) == "sy:") {$busqueda=substr(strtolower($ilink),3,300);$buscalink="http://www.youtube.com/results?uploaded=y&search_query=".$busqueda."&search_type=videos";} #ahora aqui, si buscalink es algo lo mando a post automatico if ($buscalink != "") { $html = <<< EOF

EOF; print $html; exit; }# fin de if ($buscalink != "") }# fin de if ($codito="") de searchkeywords para sx: st: y sy: ## ojojo aqui determino que si se ingresao una simple line (no es bulk) y lo hizo el masterpsw, tonces post automatico con variable curleada para el textbox: ## BEGIN posteada con un searchlink if ($codito=="") { ## ojo esto aun no funciona pues el gran CURL del serachpage no se graba bien en bigtexton PENDIENTEPENDIENTE $linkdesearch="no"; $pos = strpos(strtolower($ilink), "youtube.com/results?"); if ($pos !== false) {$linkdesearch="si";}; if ( ($iemail == $masterpsw) and ($linkdesearch=="si") ) { # ahora meto en $bigtexton el curl de esa pagina asi: $bigtexton = file_get_contents_curl($ilink); $textio = explode ('href="/watch?v=',$bigtexton); # ahora elimino todos los $textio que no contengan watch?v= $elfuente=""; $i=0;$videitos=""; foreach ($textio as $linkiyo) { $presuntovideo=substr($linkiyo,0,11); $videoverdadero="si"; $pos = strpos($presuntovideo, " "); if ($pos !== false) {$videoverdadero="no";} $pos = strpos($presuntovideo, "<"); if ($pos !== false) {$videoverdadero="no";} $pos = strpos($presuntovideo, ">"); if ($pos !== false) {$videoverdadero="no";} if ($videoverdadero == "si") {$videitos[$i]="http://www.youtube.com/watch?v=".$presuntovideo;$i=$i+1;} }# fin del foreach if (count($videitos)>0) { $videitos=array_unique($videitos); $elfuente = implode("\n",$videitos); }#fin de countito #echo "big texton es: ".$elfuente;exit; # aqui le envio con post automatico todo el fuente: $html = <<< EOF
EOF; print $html; } # fin de if ( ($iemail == $masterpsw) and ($linkdesearch=="si") }# fin de if ($codito="") ## END posteada con un searchlink ## aqui determino la fecha de publicacion del video para ver si es viejo (2 anios minimo) if ($codito == "") {errorbox("Debe ingresar un Link con un video de youtube (codigo invalido), ejemplo: http://www.youtube.com/watch?v=gA4v0Qj5OEI

You must enter a Valid Youtube Link, go back and paste a valid youtube link.",0);exit;} #echo "el coditocodito es: ".$codito;exit; $bigdata=file_get_contents_curl("http://gdata.youtube.com/feeds/api/videos/".$codito); # ojo si el video ya no esta disponible el curl de # http://gdata.youtube.com/feeds/api/videos/codigovideo solo devuelve Private video # lo cual no pasa de 20 chars y eso me dice que ya se elimino el video tonces: if (strlen($bigdata)<20) {errorbox($errorvideoeliminado,0);exit;} $prefecha=explode("", $bigdata); $lafecha=substr($prefecha[1],0,10);# ejemplo: 2008-09-17 $fechavideo= substr($lafecha,8,2)."/".substr($lafecha,5,2)."/".substr($lafecha,0,4); $sxml = simplexml_load_file_curl('http://gdata.youtube.com/feeds/api/videos/'.$codito); $media = $sxml->children('http://search.yahoo.com/mrss/'); $yt = $media->children('http://gdata.youtube.com/schemas/2007'); $attr2 = $yt->duration->attributes(); $segundos = $attr2['seconds']; // in seconds $minutos = sec2min($segundos); // in minutes $eltitulo = $media->group->title; $ladescripcion = $media->group->description; #quito enteres al titulo: $eltitulo = preg_replace("/[\n\r]/","",$eltitulo); #quito enteres a la descripcion: $ladescripcion = preg_replace("/[\n\r]/","",$ladescripcion); #dejo la descripcion de 200 chars maximo $ladescripcion = strtolower(substr($ladescripcion,0,200)); #quito direcciones web a descripciones: $pos = strpos($ladescripcion, "youtube.com"); if ($pos !== false) {$ladescripcion="";} $ladescripcion = str_ireplace("www.", "", $ladescripcion); $ladescripcion = str_ireplace(".com", "", $ladescripcion); $ladescripcion = str_ireplace(".net", "", $ladescripcion); $ladescripcion = str_ireplace(".org", "", $ladescripcion); $ladescripcion = str_ireplace(".info", "", $ladescripcion); $ladescripcion = str_ireplace("http", "", $ladescripcion); $ladescripcion = str_ireplace("twitter", "", $ladescripcion); $ladescripcion = str_ireplace("facebook", "", $ladescripcion); $ladescripcion = str_ireplace("@hotmail", "", $ladescripcion); $ladescripcion = str_ireplace("@gmail", "", $ladescripcion); $ladescripcion = str_ireplace("@yahoo", "", $ladescripcion); $ladescripcion = str_ireplace("@", "", $ladescripcion); $ladescripcion = str_ireplace("://", "", $ladescripcion); $ladescripcion = str_ireplace("/", "", $ladescripcion); $eltitulo = str_ireplace("www.", "", $eltitulo); $eltitulo = str_ireplace(".com", "", $eltitulo); $eltitulo = str_ireplace(".net", "", $eltitulo); $eltitulo = str_ireplace(".org", "", $eltitulo); $eltitulo = str_ireplace(".info", "", $eltitulo); $eltitulo = str_ireplace("http", "", $eltitulo); $eltitulo = str_ireplace("twitter", "", $eltitulo); $eltitulo = str_ireplace("facebook", "", $eltitulo); $eltitulo = str_ireplace("@hotmail", "", $eltitulo); $eltitulo = str_ireplace("@gmail", "", $eltitulo); $eltitulo = str_ireplace("@yahoo", "", $eltitulo); $eltitulo = str_ireplace("@", "", $eltitulo); $eltitulo = str_ireplace("://", "", $eltitulo); $eltitulo = str_ireplace("/", "", $eltitulo); $ladescripcion=strip_tags($ladescripcion); #calculo fecha de hoy quitando dos horas de miami $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); $fechahoy=date("d/m/Y",mktime($h+2,$m,$s,$m,$d,$a)); #echo $iemail." + ".$ilink." + ".$ititulo." + ".$idescripcion." + ".$icategoria." + ".$inuevacategoria." duracion:".$minutos.":".$segundos." TituloY:".$eltitulo." Desc:".$ladescripcion." DURACION:".$minutos." fecha hoy:".$fechahoy; #exit; #poshposh #remplazo guiones en el ititulo (el titulo ingresado por mi) $ititulo=str_ireplace("_", " ", $ititulo); if ($ititulo != "") {$eltitulo=$ititulo;} if ($idescripcion != "") {$ladescripcion=$idescripcion;} # $xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra $xcodigo=$codito; $xduracion=$minutos; $xtitulo=$eltitulo; $xdescripcion=$ladescripcion; $xfecha=$fechavideo;# por mas que intente no lo pude obtener, tendira que usar otro curl $xcategoria=$icategoria; $xvotos=""; $xingreso=$fechahoy; $xexxtra=""; ## ojo la xcategoria JAMAS puede llevar espacios a puro huevo debe llevar _ entonces remplazo espacios: $xcategoria = str_ireplace(" ", "_", $xcategoria); # EL TITULO Y LA DESCRIPCION JAMAS pueden llevar pipes sino me arruinan la database, aqui los quito: $xtitulo=str_ireplace("|", "", $xtitulo); $xdescripcion=str_ireplace("|", "", $xdescripcion); if ($xduracion != "0:00") { $xcategoria=strtoupper($xcategoria); $nuevalineadb = $xcodigo."|".$xduracion."|".$xtitulo."|".$xdescripcion."|".$xfecha."|".$xcategoria."|".$xvotos."|".$xingreso."|".$xexxtra."|"; } else {errorbox("ERROR: El audio no se puede empotrar porque externamente youtube lo graba con duracion de 0:00",0);exit;}; # ahora lo grabo y lo llevo a la galeria de ingresos: ## aqui evito que metan el caracter | para no arruinar la database: $pos = strpos($xcodigo, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en PASSWORD DE ACTIVACION el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xduracion, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en DURACION el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xtitulo, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en TITULO el caracter | , este caracter no esta permitido, regresa y elimina el caracter |",0);exit;} $pos = strpos($xdescripcion, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en DESCRIPCION el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xfecha, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en FECHA el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xcategoria, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en CATEGORIA el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xvotos, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en VOTOS el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xingreso, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en FECHA DE INGRESO el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} $pos = strpos($xexxtra, "|"); if ($pos !== false) {errorbox("ERROR: Ingresaste en EXXTRA el caracter | , este caracter no esta permitido, regresa y elimina el caracter |

The character pipe is not allowed, go back and remove this character: | ",0);exit;} ## AQUI AHORA LO GRABO (PERO OJO SOLO SI VIENE EMAIL SBSB O UNO PERMITIDO SINO SOLO ME LO ENVIO POR EMAIL) if (strtolower($iemail) == strtolower($masterpsw)) { # aqui grabo database ## ojo: aqui podria poner en el futuro ands para dar libre acceso a mails de personas que dan buenos videos # reviso que no exista el codigo metido en la base de datos: $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { $linea=(fgets($ar)); list($ycodigo,$yduracion,$ytitulo,$ydescripcion,$yfecha,$ycategoria,$yvotos,$yingreso,$yexxtra) = explode("|", $linea); if ($ycodigo == $xcodigo) {$out=1;} }# fin del while fclose($ar); if ($out == 1) {errorbox($videoyaexiste,0);exit;} # final de revision que no este repetido ## aqui lo grabo $file = fopen("database.cgi", "a+"); fwrite($file, $nuevalineadb."\n"); fclose($file); ## ahora aqui recalculo las categorias con numerito: yujule regrabarmenu(); # redirecciono pa verlo: echo ""; exit; }# fin de if (strtolower($iemail) == $masterpsw) ## ahora aqui solo me enviare email pues no s eingreso el master psw sino un email: if (strtolower($iemail) != $masterpsw) { if (!filter_var($iemail, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de email correcta, regrese e ingrese esta informacion.

You must enter a valid email address.",0);exit;} $pos = strpos(strtolower($ilink), "youtube.com"); if ($pos === false) {errorbox("Debe ingresar un Link con un video de youtube (link no contiene youtube.com), ejemplo: http://www.youtube.com/watch?v=gA4v0Qj5OEI

You must enter a Valid youtube link ",0);exit;} # en el futuro me enviara dos links uno pa verlo y otro para postearlo deunavez via get pero revisara que no sea repetido # reviso que no exista el codigo metido en la base de datos: $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { $linea=(fgets($ar)); list($ycodigo,$yduracion,$ytitulo,$ydescripcion,$yfecha,$ycategoria,$yvotos,$yingreso,$yexxtra) = explode("|", $linea); if ($ycodigo == $xcodigo) {$out=1;} }# fin del while fclose($ar); if ($out == 1) {errorbox($videoyaexiste,1);exit;} # final de revision que no este repetido $thereferer = strtolower($_SERVER['HTTP_REFERER']); $losparametros="link=".$ilink."&titulo=".$ititulo."&descripcion=".$idescripcion."&categoria=".$icategoria; $losparametros = preg_replace("/[\n\r]/","",$losparametros); $aprobacionlink = substr($thereferer,0,strlen($thereferer)-16)."?zaccion=aprobar&".$losparametros; $email= "gerencia@sabro.net";$msg =""; $headers = "From: videos@sabro.net\r\n"; $to = $email; $subject = 'Video Sugerido'; $msg .= "Video sugerido en: $thereferer \n"; $msg .= "Sugerido por: $iemail \n\n"; $msg .= "Video: $ilink \n"; $msg .= "Titulo: $ititulo \n\n"; $msg .= "Descripcion: $idescripcion \n"; $msg .= "\n"; $msg .= "Duracion: $minutos minutos\n"; $msg .= "\n"; $msg .= "CATEGORIA: $icategoria \n"; $msg .= "FECHA PUBLICACION: $fechavideo \n"; $msg .= "\n"; $msg .= "LINK DE APROBACION: (OJO con categoria y FECHA):\n"; $msg .= "\n"; $msg .= "$aprobacionlink \n"; $msg .= "\n"; $mail_sent = @mail( $to, $subject, $msg, $headers ); #echo "Gracias por sugerir un video, el cual lo analizara nuestro webmaster para colocarlo"; echo "




"; echo "Gracias por Sugerir tu video, el cual ya ha sido enviado a nuestro webmaster para evaluar su ingreso

"; echo "Para continuar haz clic aqui

"; echo "




"; echo "Thanks for suggesting us your video, it has already been sent to our webmaster for further evaluation.

"; echo "To continue do click here"; exit; ## pendiente, debe de enviarme un email con ese link sugerido }# fin de if (strtolower($iemail) != $masterpsw) { # fin de ingreso via email porque no vino master psw: ### finito finito finito if ($codigopp=="123-654-789-0") { #cucona: ## ## aqui en opcion "GRATIS" evito que metan anuncios repetidos, esdecir que solo un anuncio por email, ya pagado que hagan lo que quieran ## aqui en opcion "GRATIS" evito que metan anuncios repetidos, verifico: email, marca, linea y anio y si ya esta le digo que nel que ya esta anucniado bajo codigo tal ## en el futuro puedo ser mas estricto que solo un anuncio por email exista, pero ahora dejo que existan varios con mismo email, solo que no se repitan marca y linea y modelo #cuconn # la database ya la abrio arriba en $ar poreso no lo abro denuevo: $ar=fopen("database.cgi","r"); $a=0; $salio=0; while ( (!feof($ar)) and ($salio==0) ) { $lineadb=strtolower(fgets($ar)); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xlinkyoutube) = explode("|", $lineadb); # ## Con estas 3 lineas si me permite a vendo@sabro.net ingresar repetidos: # if (strtolower($email) != "vendo@sabro.net") { # if ( ($xemail == strtolower($email))and($xmarca == strtolower($marca))and($xlinea == strtolower($linea))and($xmodelo == strtolower($modelo)) ) {$salio=1;} # }# fin de if (strtolower($email) != "vendo@sabro.net") ##en esta linea no me permite ingresar repetidos, aunque el email de publicacion sea el mio ## bien pero no verifica pais: if ( ($xemail == strtolower($email))and($xmarca == strtolower($marca))and($xlinea == strtolower($linea))and($xmodelo == strtolower($modelo)) ) {$salio=1;} ## con estgo si verifica pais, por lo tanto solo si yo ingreso un carro igual en el mismo pais me dara error, la solucion seria meterlo con otro email o cambiarle la linea, o hacer un mi 2ndo psw que ese no pregunte si se repite como zabro2 y meterlo en exepcion de salio1 if ( ($xpais == strtolower($pais))and($xemail == strtolower($email))and($xmarca == strtolower($marca))and($xlinea == strtolower($linea))and($xmodelo == strtolower($modelo)) ) {$salio=1;} $a=$a+1; }# fin del while fclose($ar); #echo "Los datos metidos fueron encontrados? 1=si 0=no Respuesta=".$salio;exit; if ($salio == 1) {errorbox2("ERROR: No se puede ingresar el mismo vehiculo dos veces, el vehiculo que usted intenta ingresar ya aparece ingresado por usted con la direccion:

www.vendo.me/".$xcodigo."

Para poder ingresar su anuncio, primero debe eliminar el anuncio, codigo: ".$xcodigo." haciendo click en:

BORRAR VEHICULO",0);exit;} $codigovalido="si"; };# fin de if codigopp es valido # esto debo quitarlo solo es para ver si no me detecta $codigopp #if ($codigopp=="") {errorbox("DEBUGING ERROR: NO VIENE codigopp",0);exit;} # aqui le permito publicar con solo meter clave: zabro if ($codigopp=="zabro") {$codigovalido="si";}; # con esto permito ingresos gratuitos de otros paises if ($codigopp=="123-654-789-0") {$codigovalido="si";}; ## AQUI LE DOY PSW DE VENDEDOR A RICARDO, EN FUTURO DARE A CADA DISTRIBUIDOR Y NOTIFICARME A MI VIA EMAIL: ## ojo ademas de poner el psw de cada vendedor aqui, tambien debo ir a ponerlo en ladeshabilitacion "sorpresa" $distribuidor=""; if (strtolower($codigopp=="sorpresa")) {$codigovalido="si";$distribuidor="Ricardo Gonzalez";}; #if ( ($codigopp != "zabro") and ($codigovalido == "no")) {# aqui entro a comparar codigo valido con formula secreta: # puse el if sin and porque con codigos validos me daba error: if ($codigovalido == "no") {# aqui entro a comparar codigo valido con formula secreta: # aqui verifico que el codigopp no haya sido usado ya (e.d. que noexiste en codigosdeshabilitados.cgi) $duda=$codigopp; $cudigoppx = preg_replace('/[^0-9]/','',$duda); $ar=fopen("codigosdeshabilitados.cgi","r"); $a=0;$out=0; while ((!feof($ar))and($out==0)) { $linya=fgets($ar); list($codigousado,$ucodigo,$umarca,$ulinea,$ufecha) = explode("|", strtoupper($linya)); #quitoespacios a $codigousado y a $codigopp: $codigousadox = preg_replace('/[^0-9]/','',$codigousado); if (($linya != "")and($codigousadox == $cudigoppx)) {$out=1;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); if ($out == 1) {errorbox("El PASSWORD DE ACTIVACION que usted ingreso esta INHABILITADO pues fue utilizado el ".$ufecha." para publicar un vehiculo:

".$umarca." ".$ulinea."

Bajo el codigo:".$ucodigo.".

Para publicar un nuevo vehiculo, regresa y adquiera un nuevo PASSWORD DE ACTIVACION.",0);exit;} ## ahora verifico si el codigo es valido basado en la formula secreta que es: ## ## unixtime*3-unixtime*4 (para evitar haker el unixtime*4) le di la vuelta como string ## ejemplo: con ut=1299828634 debe dar: 3899485902-5199314536 y para hacerlo chilero list($calculo1,$calculo2)=explode("-",$codigopp); # ahora le quito los puntos a calculo1 y 2: (ojo si vienen como ceros dar error pues no es nada) $calculo1= preg_replace('/[^0-9]/','',$calculo1); $calculo2= preg_replace('/[^0-9]/','',$calculo2); #ahora desinvierto calculo2: $calculo2=strrev($calculo2); if (($calculo1 == 0)or($calculo2 == 0)) {errorbox("Debe ingresar UN PASSWORD DE ACTIVACION Valido (".$codigopp."), regrese a la pagina anterior y lea la informacion sobre como obtener un Password de Activacion para poder publicar su vehiculo ".$moreinfo,0);exit;$out=2;} ## saco ahora el unixtime de $calculo1, $utime=$calculo1/3; #aqui debo exigir que calculo1 sea minimo de 5 digitos sino dar error: if ($calculo1 < 10000) {errorbox("Debe ingresar un PASSWORD DE ACTIVACION Valido, regrese a la pagina anterior y lea la informacion sobre como obtener un Password de Activacion para poder publicar su vehiculo ".$moreinfo,0);exit;} # ahora verifico que el $calculo2 sea $utime*1989 if ($utime == $calculo2/4 ) {$codigovalido="si";}# fin de if codigoeravalido # ahora debo grabar ese codigo en el archivo llamado codigosusados.cgi para evitar que lo metan again #cucona $moreinfo="### calculo1 es: ".$calculo1." y ch1=".$ch1; $moreinfo.="calculo2 es: ".$calculo2." y ch2=".$ch2; $moreinfo.="calculo3 es: ".$calculo3." y ch3=".$ch3; $moreinfo.=" anio es: ".$anio." r1:".$r1."r2:".$r2." y r3:".$r3." ## BIG LINE: ".$codigopp; ## con esto anulo el reprote de la info en el error $moreinfo=""; }## fin de if ($codigovalido=="no") (este if abria el archivo) if ($codigovalido == "no") {errorbox("EL CODIGO NO ES VALIDO, Debe ingresar un PASSWORD DE ACTIVACION que sea Valido (Password ingresado:".$codigopp."), regrese a la pagina anterior y lea la informacion sobre como obtener un Password de Activacion para poder publicar su vehiculo ".$moreinfo,0);exit;} # despues debere indicar si el codigo ya fue utilizado y que debe adquirir un nuevo Password de Activacion para poder publicar su vehiculo (y a que carro o codigo pertenecio) ##hago que el nombre no sea requisito: ##if ($nombre == "") {errorbox("Debe ingresar su nombre, regrese e ingrese esta informacion",0);exit;} if ($telefonos == "") {errorbox("Debe ingresar por lo menos un telefono, regrese e ingrese esta informacion",0);exit;} if ($email == "") {errorbox("Debe ingresar su direccion de email, regrese e ingrese esta informacion",0);exit;} #aqui verifico si el email no viene bien: if (!filter_var($email, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de email correcta, regrese e ingrese esta informacion",0);exit;} if ($pais == "Seleccione") {errorbox("Debe seleccionar un pais, Si desea agregar un nuevo pais, debe seleccionar la opcion, que dice AGREGAR PAIS (en el campo de: *Seleccione un país), regrese e ingrese esta informacion",0);exit;} $savepais=0; $savemarca=0; $savelinea=0; $savemoneda=0; if (($nuevopais == "")and($pais == "Agregar Pais")) {errorbox("Debe ingresar el pais en el campo de: Nuevo Pais, regrese e ingrese esta informacion",0);exit;} if (($nuevopais != "")and($pais != "Agregar Pais")) {errorbox("Debe seleccionar solo un pais, no se pueden seleccionar dos paises ($nuevopais y $pais), Si desea agregar un nuevo pais, debe seleccionar arriba la opcion, que dice AGREGAR PAIS (en el campo de: *Seleccione un país), regrese e ingrese esta informacion",0);exit;} if (($nuevopais != "")and($pais == "Agregar Pais")) {$pais=$nuevopais;$savepais=1;} if ($categoria == "Seleccione") {errorbox("Debe seleccionar una Categoria (ejemplo: automoviles, motocicletas), regrese e ingrese esta informacion",0);exit;} #no es obligatoria la ciudad #if ($ciudad == "") {errorbox("Debe ingresar su ciudad o su zona, regrese e ingrese esta informacion",0);exit;} if ($marca == "Seleccione") {errorbox("Debe seleccionar la marca del vehiculo, Si desea agregar una nuevo marca, debe seleccionar la opcion, que dice AGREGAR MARCA (en el campo de: *Seleccione una Marca), regrese e ingrese esta informacion",0);exit;} if (($nuevamarca == "")and($marca == "Agregar Marca")) {errorbox("Debe ingresar la marca del vehiculo en el campo de: Nueva marca, regrese e ingrese esta informacion",0);exit;} if (($nuevamarca != "")and($marca != "Agregar Marca")) {errorbox("Debe seleccionar solo una marca, no se pueden seleccionar dos marcas ($nuevamarca y $marca), Si desea agregar una nueva marca, debe seleccionar arriba la opcion, que dice AGREGAR MARCA (en el campo de: *Seleccione una marca), regrese e ingrese esta informacion",0);exit;} if (($nuevamarca != "")and($marca == "Agregar Marca")) {$marca=$nuevamarca;$savemarca=1;} if ($linea == "Seleccione") {errorbox("Debe seleccionar la linea del vehiculo, Si desea agregar una nueva linea, debe seleccionar la opcion, que dice AGREGAR LINEA (en el campo de: *Seleccione la Linea), regrese e ingrese esta informacion",0);exit;} if (($nuevalinea == "")and($linea == "Agregar Linea")) {errorbox("Debe ingresar la linea del vehiculo en el campo de: Nueva linea, regrese e ingrese esta informacion",0);exit;} if (($nuevalinea != "")and($linea != "Agregar Linea")) {errorbox("Debe seleccionar solo una linea, no se pueden seleccionar dos lineas ($nuevalinea y $linea), Si desea agregar una nueva linea, debe seleccionar arriba la opcion, que dice AGREGAR LINEA (en el campo de: *Seleccione una linea.), regrese e ingrese esta informacion",0);exit;} if (($nuevalinea != "")and($linea == "Agregar Linea")) {$linea=$nuevalinea;$savelinea=1;} if ($modelo == "Seleccione") {errorbox("Debe seleccionar el modelo (el año) del vehiculo, regrese e ingrese esta informacion",0);exit;} # ya no exijo puertas ni color: #if ($puertas == "Seleccione") {errorbox("Debe seleccionar el numero de puertas del vehiculo (si es una moto o una lancha seleccione 0), regrese e ingrese esta informacion",0);exit;} #if ($color == "") {errorbox("Debe ingresar el color exterior del vehiculo, regrese e ingrese esta informacion",0);exit;} # ya no exijo tapicera: # if ($tapiceria == "") {errorbox("Debe describir la tapiceria del vehiculo (tela o cuero), regrese e ingrese esta informacion",0);exit;} # ya no exijo recorrido: # if ($kilometraje == "") {errorbox("Debe ingresar el recorrido del vehiculo en numeros (ej: 120,000Kms o 80,000millas), regrese e ingrese esta informacion",0);exit;} $kilometraje = preg_replace('/[^0-9.]/','',$kilometraje); if (($kilometraje != "")and($kilometraje2 == "no mostrar")) {errorbox("Error usted ingreso un recorrido pero no determino si son kilometros o millas, regrese e ingrese esta informacion",0);exit;} # aqui junto el kilometraje con millas o kilometros: $kilometraje = $kilometraje." ".$kilometraje2; # ya no exijo estos datos que antes eran obligatorios: if ($moneda == "Seleccione") {errorbox("Hay un Error en la seleccion de la moneda:

1.Debe seleccionar la moneda en la que desea vender su vehiculo.

2.Si no quiere mostrar esta informacion, seleccione la opcion que dice NO MOSTRAR.

3.Si desea agregar una nueva moneda, debe seleccionar la opcion, que dice AGREGAR MONEDA (en el campo de: *Seleccione una Moneda).

Regrese y corrija este campo",0);exit;} if (($nuevamoneda == "")and($moneda == "Agregar Moneda")) {errorbox("Debe ingresar la moneda en el campo de: Nueva Moneda, regrese e ingrese esta informacion",0);exit;} if (($nuevamoneda != "")and($moneda != "Agregar Moneda")) {errorbox("Debe seleccionar solo un tipo de moneda, no se pueden seleccionar dos monedas ($nuevamoneda y $moneda), Si desea agregar una nueva moneda, debe seleccionar arriba la opcion, que dice AGREGAR MONEDA (en el campo de: *Seleccione una moneda), regrese e ingrese esta informacion",0);exit;} if (($nuevamoneda != "")and($moneda == "Agregar Moneda")) { $savemoneda=1; #aqui evito que la nueva moneda traiga numeros o signos, solo se aceptan letras y guiones: $nuevamonedatxt=$nuevamoneda; $nuevamonedatxt=str_ireplace("-", "", $nuevamonedatxt); $nuevamonedatxt=str_ireplace("_", "", $nuevamonedatxt); if (ctype_alpha($nuevamonedatxt)) {$vienesolotexto=1;} else {errorbox("La moneda debe ser espresada solo con letras, no puede contener numeros, signos ni otros caracteres",0);exit;} $moneda=$nuevamoneda; } # fin de if (($nuevamoneda != "")and($moneda == "Agregar Moneda")) ## aqui verifico que si viene el precio, que venga solo con numeros if ($precio != "") { if ( ctype_digit($precio) == true ) {$ok=1; } else {$ok=0;errorbox("El precio solo debe contener numeros, no debe ingresar signos, ni puntos, ni centavos, ni espacios, solamente el precio en numeros.

Regrese y corrija la informacion en el precio",0);exit;} }# fin de if ($precio != "") if (($precio != "")and($moneda == "no mostrar")) {errorbox("Debe seleccionar un tipo de moneda, no se puede mostrar el precio sin definir el tipo de la moneda, Si desea agregar una nueva moneda, debe seleccionar arriba la opcion, que dice AGREGAR MONEDA (en el campo de: *Seleccione una moneda) y Si desea NO mostrar el precio, no ingrese ningun precio y en la opcion de [Seleccione una moneda] marque la opcion de: NO MOSTRAR, regrese e ingrese esta informacion",0);exit;} ## aqui verifico que no se pelen en el textarea de extras: if ($extras != "") { #aqui lo regreso si el texto es muy gigante: $largis=strlen($extras); if ($largis > 400) {errorbox("el texto que ingreso en OTROS DATOS DEL VEHIULO es demasiado largo, maximo permitido es 400 caracteres, regresa y corrija este error",0);exit;} #quito codigo html: $extras=strip_tags($extras); #corto palabras para que no haya una palabra mayo rde 25 letras: $extras=preg_replace('/([^\s]{22})(?=[^\s])/m', '$1 ', $extras); } # fin de if ($extras != "") # aqui verifico si viene link de youtube que sea un link de youtube: if ($linkyoutube != "") { $paso=1; $pos1 = strpos($linkyoutube, "youtube.com"); if ($pos1 === false) {$paso=0;}# no lo contiene $pos2 = strpos($linkyoutube, "http"); if ($pos2 === false) {$paso=0;}# no lo contiene if ($paso == 0) {errorbox("Debes ingresar un link de youtube valido, Para ingresar un link de youtube correctamente debes entrar a youtube y hacer click en el video que deseas mostrar y cuando el video se muestre, debes copiar la direccion URL que muestra tu navegador ( Ejemplo: http://www.youtube.com/watch?v=d6rkWOhIvew ) ",0);exit;} }# fin de if ($linkyoutube != "") # ahora que ya paso los chekeso ya creo la nuevalinea de la database: $nuevalineadb=$codigo."|".$fechaingreso."|".$vendido."|".$nombre."|".$telefonos."|".$email."|".$pais."|".$ciudad."|".$categoria."|".$marca."|".$linea."|".$modelo."|".$puertas."|".$color."|".$tapiceria."|".$motor."|".$cilindros."|".$kilometraje."|".$transmision."|".$combustible."|".$aros."|".$radio."|".$origen."|".$aire."|".$bolsas."|".$cerradura."|".$vidrios."|".$timon."|".$espejos."|".$alarma."|".$polarizado."|".$extras."|".$moneda."|".$precio."|".$negociable."|".$aceptavehiculo."|".$linkyoutube."|"; $file1=$filename=$_FILES['imagefile1']['name']; if ($file1 == "") {errorbox("Debe ingresar por lo menos una foto del vehiculo en donde dice foto1, la cual sera la foto principal de su anuncio, regresa y agrege la foto del vehiculo",0);exit;} ## aqui borro los posibles fotos y la mini de ese codigo (del 2 al 7 la mini no pues le cae encima) if (file_exists("images/foto".$codigo."_1mini.jpg")) {unlink("images/foto".$codigo."_1mini.jpg");} if (file_exists("images/foto".$codigo."_1.jpg")) {unlink("images/foto".$codigo."_1.jpg");} if (file_exists("images/foto".$codigo."_2.jpg")) {unlink("images/foto".$codigo."_2.jpg");} if (file_exists("images/foto".$codigo."_3.jpg")) {unlink("images/foto".$codigo."_3.jpg");} if (file_exists("images/foto".$codigo."_4.jpg")) {unlink("images/foto".$codigo."_4.jpg");} if (file_exists("images/foto".$codigo."_5.jpg")) {unlink("images/foto".$codigo."_5.jpg");} if (file_exists("images/foto".$codigo."_6.jpg")) {unlink("images/foto".$codigo."_6.jpg");} if (file_exists("images/foto".$codigo."_7.jpg")) {unlink("images/foto".$codigo."_7.jpg");} if (file_exists("images/foto".$codigo."_8.jpg")) {unlink("images/foto".$codigo."_8.jpg");} ## pendinete: debo ser mas estricto para verificar que el email sea real, que sean numeros etc. ## esto sirve pa saber si enrealidad sube una JPG: if ($_FILES['imagefile1']['type'] == "image/jpg" || $_FILES['imagefile1']['type'] == "image/jpeg" || $_FILES['imagefile1']['type'] == "image/pjpeg") { ## subo foto1: $filename=$_FILES['imagefile1']['name']; $filetemp=$_FILES['imagefile1']['tmp_name']; $destino="foto".$codigo."_1.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto1 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto1 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto1 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); minifoto("$idir" . $destino);# esto genera el thumb ejemplo: "foto342_1mini.jpg" }# fin de if $filename != ""; ## subo foto2: $filename=$_FILES['imagefile2']['name']; $filetemp=$_FILES['imagefile2']['tmp_name']; $destino="foto".$codigo."_2.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto2 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto2 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto2 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto3: $filename=$_FILES['imagefile3']['name']; $filetemp=$_FILES['imagefile3']['tmp_name']; $destino="foto".$codigo."_3.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto3 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto3 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto3 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto4: $filename=$_FILES['imagefile4']['name']; $filetemp=$_FILES['imagefile4']['tmp_name']; $destino="foto".$codigo."_4.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto4 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto4 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto4 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto5: $filename=$_FILES['imagefile5']['name']; $filetemp=$_FILES['imagefile5']['tmp_name']; $destino="foto".$codigo."_5.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto5 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto5 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto5 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto6: $filename=$_FILES['imagefile6']['name']; $filetemp=$_FILES['imagefile6']['tmp_name']; $destino="foto".$codigo."_6.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto6 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto6 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto6 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto7: $filename=$_FILES['imagefile7']['name']; $filetemp=$_FILES['imagefile7']['tmp_name']; $destino="foto".$codigo."_7.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto7 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto7 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto7 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## subo foto8: $filename=$_FILES['imagefile8']['name']; $filetemp=$_FILES['imagefile8']['tmp_name']; $destino="foto".$codigo."_8.jpg"; if ($filename != "") { if ( strtolower(strrchr($filename, '.')) != ".jpg" ) { errorbox("La foto8 no es una foto valida, solo se pueden subir archivos jpg",0);exit;} $copy = copy($filetemp, "$idir" . $destino); // Move Image From Temporary Location To Permanent Location list($ancho, $alto, $type, $attr) = getimagesize("$idir" . $destino); # if ( ($ancho > 400) or ($alto > 300) ) {achiquitar("$idir" . $destino);} if ($ancho < 400) { errorbox("La foto8 es muy angosta, el ancho de la foto debe ser mayor de 400 pixeles, regresa y reemplace esta fotografia",0);exit;} if ($alto < 300) { errorbox("La foto8 es muy corta, el alto de la foto debe ser mayor de 300 pixeles, regresa y reemplace esta fotografia",0);exit;} # aqui forzo la resizeada para todos: achiquitar("$idir" . $destino); watermark("$idir" . $destino,"$idir" . $destino); }# fin de if $filename != ""; ## aqui ya subio fotos con nombre 1 al 8 ahora grabo database con datos que entraron: ## ojo contingencia: pueda darse el error que un bruto suba fotos 123 y 4 de error y venga otro que si metar 12 y no 3 y la 3 salga con nombre de otro (entonces debo borrar las que ese nuevo no meta) ## ojo para evitar enteres que arruinan la database, le paso filtro de enteres: $nuevalineadb = preg_replace("/[\n\r]/","",$nuevalineadb); ## ahora grabo los datos en la basededatos: $file = fopen("database.cgi", "a+"); fwrite($file, $nuevalineadb."\n"); fclose($file); ## $codigo."|".$fechaingreso."|".$vendido."|".$nombre."|".$telefonos."|".$email."|".$pais."|".$ciudad."|".$categoria."|".$marca."|".$linea."|".$modelo."|".$puertas."|".$color."|".$tapiceria."|".$motor."|".$cilindros."|".$kilometraje."|".$transmision."|".$combustible."|".$aros."|".$radio."|".$origen."|".$aire."|".$bolsas."|".$cerradura."|".$vidrios."|".$timon."|".$espejos."|".$alarma."|".$polarizado."|".$extras."|".$moneda."|".$precio."|".$negociable."|".$aceptavehiculo."|".$linkyoutube."|"; regrabaropciones(); # ahora solo debo ordenarlo cuando lo lea y cuando borre un carro debo analizar borrar la linea si es caso unico ## aqui envio la base de datos database.cgi a conectesonline@gmail para prevenir servercrash: ## aqui tiro el envio: $my_file = "database.cgi"; #$my_path = $_SERVER['DOCUMENT_ROOT']."/your_path_here/"; $my_path = $_SERVER['DOCUMENT_ROOT']."/"; $my_name = "VENDO ME"; $my_mail = "noresponder@vendo.me"; $my_replyto = "noresponder@vendo.me"; $my_subject = "Backup DATABASE de VENDO.me"; $my_message = "Copia de Resguardo,\r\nBase de datos de vendo.me\r\n"; mail_attachment($my_file, $my_path, "conectesonline@gmail.com", $my_mail, $my_name, $my_replyto, $my_subject, $my_message); # aqui ya envio db al mail, ya subio los datos y las foto asi que lo redirecciono al index pa que se vea: # en el futuro enviar las fotos zipeadas para tener ese bakup (por lo menos la thumb y la foto1) #Pendiete: aqui deberia dalre instrucciones para pintar su carro y decirle que el codgo ya caduco #cuco #print "Su vehiculo Ya fue agregado, ingrese a www.vendo.me"; #exit; # aqui como ya paso todas las pruebas y ya grabo el carrito solo debo deshabilitar ese codigo # con este if perdono el Password de Activacion gratis: ##ladeshabilitacion: if ( ($codigopp != "sorpresa") and ($codigopp != "123-654-789-0") and (strtolower($codigopp) != "zabro") ) { # comienza la inhabilitacion del codigo metido: $codigousado,$ucodigo,$umarca,$ulinea,$ufechaingreso $file = fopen("codigosdeshabilitados.cgi", "a+"); fwrite($file, $codigopp."|".$codigo."|".$marca."|".$linea."|".$fechaingreso."|\n"); fclose($file); }# fin del if ## http://www.facebook.com/pages/VENDOme/196573283709283 ### aqui debo enviar un email a facebook para avisar que acaban de ingresar un vehiculo: # $noticia="Acaba de ser publicado un vehiculo marca: ".$marca." ".$linea." Modelo: ".$modelo." Color: ".$color.". Para verlo ingrese a http://www.vendo.me/".$codigo; #$noticia="SE VENDE ".$marca." ".$linea." Modelo ".$modelo." en ".$pais.". Para verlo ingrese a http://www.vendo.me/".$codigo; $colortxt=""; if ($color != "") {$colortxt="COLOR ".strtoupper($color)." ";} $noticia="SE VENDE ".$marca." ".$linea." MODELO ".$modelo." ".$colortxt."EN ".$pais.". Para mas informacion visite: http://www.vendo.me/".$codigo; ## envio a facebook perfecto pero solo texto: ## ## $dbemail=strtolower($email); ## $email="afraid88values@m.facebook.com"; ## $headers = "From: robot@vendo.me\r\n"; ## $to = $email; ## $subject = $noticia; ## $msg .= $noticia."\n"; ## # esto hace que si use mi email vendo@sabro.net entonces NO envia a facebook pues no fue ingreso real ## # if ($dbemail != "vendo@sabro.net") { $mail_sent = @mail( $to, $subject, $msg, $headers ); } ## # ya sea metido por mi o por cliente siempre envio a facebook: ## $mail_sent = @mail( $to, $subject, $msg, $headers ); ## # aqui hago el envio a Facebook pero con otro metodo, enviando la foto a facebook con foto1 $noticia="SE VENDE ".$marca." ".$linea." MODELO ".$modelo." ".$colortxt."EN ".$pais.". Para mas informacion visite: http://www.vendo.me/".$codigo; $my_file = "foto".$codigo."_1.jpg"; #$my_path = $_SERVER['DOCUMENT_ROOT']."/your_path_here/"; $my_path = $_SERVER['DOCUMENT_ROOT']."/images/"; $my_name = "VENDO ME"; $my_mail = "noresponder@vendo.me"; $my_replyto = "noresponder@vendo.me"; $my_subject = $noticia; $my_message = $noticia; ##xxx## mail_attachment($my_file, $my_path, "afraid88values@m.facebook.com", $my_mail, $my_name, $my_replyto, $my_subject, $my_message); # ahora envia email a twitter de vendopuntome: #$noticia="Acaba de ser publicado un vehiculo marca: ".$marca." ".$linea." Modelo: ".$modelo.". Para verlo ingrese a http://www.vendo.me/".$codigo; #$email="tweet@twitmail.com"; #$headers = "From: robot@vendo.me\r\n"; #$to = $email; #$subject = "vendome1977"; #$msg .= $noticia."\n"; #$mail_sent = @mail( $to, $subject, $msg, $headers ); ## ingresos a twitter: http://twitter.com/vendopuntome #$noticia="Acaba de ser publicado un vehiculo marca: ".$marca." ".$linea." Modelo: ".$modelo." Color: ".$color.". Para verlo ingrese a http://www.vendo.me/".$codigo; $colortxt=""; if ($color != "") {$colortxt="COLOR ".strtoupper($color)." ";} $noticia="VENDO ".$marca." ".$linea." MODELO ".$modelo." ".$colortxt."en ".$pais.". Ver vehiculo en: http://www.vendo.me/".$codigo; $email="dtch21-6ds4vw@twittermail.com"; $headers = "From: robot@vendo.me\r\n"; $to = $email; $subject = $noticia; $msg .= $noticia."\n"; # esto hace que si use mi email vendo@sabro.net entonces NO envia a twitter pues no fue ingreso real #if ($dbemail != "vendo@sabro.net") {$mail_sent = @mail( $to, $subject, $msg, $headers );} # aqui forzo el envio a twitter aunque sea yo o el cliente: ##xxx## $mail_sent = @mail( $to, $subject, $msg, $headers ); ## aqui me envio un email para notificarme que un distribuidro metio un carro para cobrarselo pues!! if ($distribuidor != "") { $msg = ""; $email="gerencia@sabro.net"; $headers = "From: robot@vendo.me\r\n"; $to = $email; $subject = "Un Vehiculo ha sido ingresado como Vendo.me/".$codigo." por ".$distribuidor; $msg .= "Acaba de ser publicado un vehiculo \n\n Marca: ".$marca." ".$linea." Modelo: ".$modelo." \n\n Disponible en www.Vendo.me/".$codigo." \n\n Publicado por: ".$distribuidor."\n"; $mail_sent = @mail( $to, $subject, $msg, $headers ); } # fin de if ($distribuidor != "") ### aqui termino d ehacer el ingreso ### aqui me redireciconara al index ordenado por lastentry echo ""; exit; print 'CUCO ya subio foto1 y foto2 y foto2 la nueva linea es: '.$nuevalineadb.' ### el codigo a asignar es '.$codigo; // Resize successful exit; } ##################################################### ##### FINAL DE ADDPHOTO.PHP AQUI ###### ##################################################### $zaccion=$_GET['zaccion']; if ($zaccion=="activarmembresia") { ## viene algo asi: http://www.caricaturas.com.net.gt/index.php?zaccion=activarmembresia&dias=30&email=gerencia@sabro.net&hash=1978.1977.1949.1948 $hash=$_GET['hash']; $idias=$_GET['dias']; $iemail=strtolower($_GET['email']); if ($hash!="1978.1977.1949.1948") {errorbox("ERROR: Para activar tu membresia primero debes hacer tu pago con tarjeta VISA de lo contratrio solamente se bloqueara tu cuenta",0);exit;}; # aqui ahora actualizo el estatus del cliente con los dias comprados y el email que mandaron # en el loop veo si tiene fecha comprada y si no pues solo le calculo los dias de cero: ## database de users: 1.$email|2.$passwrod|3.$fechadeactivacion|4.$saldo|5.$fechaexpiracion|6.$nombre|7.$telefonos|8.$pais|9.$ciudad|10.$url|11.$extradata1|12.$extradata2|13.$extradata3|14.$extradata4|15.$extradata5| ## $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); ## $fechadeactivacion=date("d/m/Y",mktime($h+2,$m,$s,$m,$d,$a)); ## $newline=$suemail."|".$supassword."|".$fechadeactivacion."|||||||||||||"; ### inicio regrabar en usuarios.cgi "premium" ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("usuarios.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($qemail,$qpsw,$qfa,$qs,$qfe,$qnom,$qtel,$qpa,$qci,$qurl,$qe1,$qe2,$qe3,$qe4,$qe5) = explode("|", $linea); if (($linea != "")and($qemail != $iemail)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres if (($linea != "")and($qemail == $iemail)) { # aqui le sumo los dias ## ojo aqui debo tener cuidado de ver si la fecha esta expirada porque no le voy a sumar un mes vendido al vencido # con este IF me garantizo que leas fechas viejas no estorben una renovacion: if ($qfe!="") { $dv=substr($qfe,0,2); $mv=substr($qfe,3,2); $av=substr($qfe,6,4); $unixtimevence=mktime(0,0,0,$mv,$dv+$idias,$av); $h=date("H");$i=date("i");$s=date("s");$d=date("d");$m=date("m");$y=date("Y"); $unixtimeactual=mktime($h-2,$i,$s,$m,$d+$idias,$y); if ( $unixtimevence < $unixtimeactual ) {$qfe="";} }# fin de if ($qfe!="") ## aqui entonces calculo su nuevo saldo: if ($qfe!="") { $dv=substr($qfe,0,2); $mv=substr($qfe,3,2); $av=substr($qfe,6,4); $unixtimevence=mktime(0,0,0,$mv,$dv+$idias,$av); $fechavence=date("d/m/Y",$unixtimevence); $qfe=$fechavence; }# fin de if if ($qfe=="") { ### saco unixtimeactual $h=date("H");$i=date("i");$s=date("s");$d=date("d");$m=date("m");$y=date("Y"); $unixtimeactual=mktime($h-2,$i,$s,$m,$d+$idias,$y); $fechavence=date("d/m/Y",$unixtimeactual); $qfe=$fechavence; }# fin de if #deldeldel: #$qs=$idias; $finalfile.=$qemail."|".$qpsw."|".$qfa."|".$qs."|".$qfe."|".$qnom."|".$qtel."|".$qpa."|".$qci."|".$qurl."|".$qe1."|".$qe2."|".$qe3."|".$qe4."|".$qe5."|\n"; #deldel2: $_SESSION['fechaexpiracion']=$qfe; } # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("usuarios.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en usuarios.cgi "premium" ### # aqui ahora debo mandarlo con un windowlocation para que no sepa el cliente cual es el hash echo ""; exit; } # fin de if ($zaccion=="activarmembresia") if ($zaccion == "confirmaciondepago") { encabezado(); echo "

Muchas gracias por tu pago, tu Membresia ha sido Actualizada !!

Te hemos enviado un email con los detalles del pago efectuado, confirmando tu membresia PREMIUM.

"; echo "

Para corroborar la fecha y los datos de tu membresia haz click en

Mi Cuenta

"; piedepagina(); exit; }# fin de zaccion == confirmacion de pago if ($zaccion == "myaccount") { $usuariomail=$_SESSION['userid']; $expiration=$_SESSION['fechaexpiracion']; $explicaciongratis=""; if (($venciomembresia=="si")and($expiration != "")) {$explicaciongratis="
".$txtgratisexplicacion;} if ($expiration=="") {$expiration=$txtnuncapremium;} # si no esta logeado lo reenvio hacia el index: if ($logeado=="no") {echo "";exit;} if ($tipodelogin=="1") {$tipodemembresia=$txtgratuita;} if ($tipodelogin=="2") {$tipodemembresia="PREMIUM";} #echo " uv=".$unixtimevence." ua=".$unixtimeactual." vm=".$venciomembresia; $esadmin="no"; if (strtolower($masterpsw)==strtolower($_SESSION['userid']) ) {$expiration=$txtnuncaadmin;$esadmin="si";} encabezado(); $html = <<< EOF

EOF; print $html; if ($esadmin=="no") { $postlink365 = "http://".$estesite."/index.php?zaccion=activarmembresia&dias=365&email=".$_SESSION['userid']; #ojo el postlink no puede llevar = porque truena entonces los hago , asi: (luego al finalizar el curl en com.net.gt remplazo | por =) $postlink365 = str_ireplace("=", "|", $postlink365); #los and tampoco los reconoce asi que le pondre doble || $postlink365 = str_ireplace("&", "||", $postlink365); $postlink30 = "http://".$estesite."/index.php?zaccion=activarmembresia&dias=30&email=".$_SESSION['userid']; #ojo el postlink no puede llevar = porque truena entonces los hago , asi: (luego al finalizar el curl en com.net.gt remplazo | por =) $postlink30 = str_ireplace("=", "|", $postlink30); #los and tampoco los reconoce asi que le pondre doble || $postlink30 = str_ireplace("&", "||", $postlink30); $postlink2 = "http://".$estesite."/index.php?zaccion=activarmembresia&dias=2&email=".$_SESSION['userid']; #ojo el postlink no puede llevar = porque truena entonces los hago , asi: (luego al finalizar el curl en com.net.gt remplazo | por =) $postlink2 = str_ireplace("=", "|", $postlink2); #los and tampoco los reconoce asi que le pondre doble || $postlink2 = str_ireplace("&", "||", $postlink2); ## ejemplo: # http://com.net.gt/pagar.cgi?hash=239876sfdg8734lkjsap93um5cp9w358gqwtc9q23lk4sunf8632bc87359nsdgcgnieuwfxlkew7t5hnekrjt4&ip=178.352.135.214&descripcion=pago%20de%20membresia&archivo=gerencia@sabro.net&url=http://www.caricaturas.com.net.gt/index.php&q=2&id=93v.3x4sdx.100.00x.2598xsg4&idioma=$idioma $prelink365="https://com.net.gt/pagar.cgi?hash=239876sfdg8734lkjsap93um5cp9w358gqwtc9q23lk4sunf8632bc87359nsdgcgnieuwfxlkew7t5hnekrjt4&ip=178.352.135.214&descripcion=Membresia_PREMIUM_por_365_dias_en_".$estesite."_para_".$_SESSION['userid']."&id=93v.345.sdx.50dx.dsi.u3wxz.44.9s&idioma=$idioma&url="; $prelink30="https://com.net.gt/pagar.cgi?hash=239876sfdg8734lkjsap93um5cp9w358gqwtc9q23lk4sunf8632bc87359nsdgcgnieuwfxlkew7t5hnekrjt4&ip=178.352.135.214&descripcion=Membresia_PREMIUM_por_30_dias_en_".$estesite."_para_".$_SESSION['userid']."&id=73v.245.sdx.5dx.dsi.u3wxz.44.92c&idioma=$idioma&url="; $prelink2="https://com.net.gt/pagar.cgi?hash=239876sfdg8734lkjsap93um5cp9w358gqwtc9q23lk4sunf8632bc87359nsdgcgnieuwfxlkew7t5hnekrjt4&ip=178.352.135.214&descripcion=Membresia_PREMIUM_por_2_dias_en_".$estesite."_para_".$_SESSION['userid']."&id=82v.145.sdx.10x.dsi.u3wxz.623.8x&idioma=$idioma&url="; $link365=$prelink365.$postlink365; $link30=$prelink30.$postlink30; $link2=$prelink2.$postlink2; $html = <<< EOF
EOF; print $html; } ## fin de if ($esadmin=="no") $html = <<< EOF

$txttucuenta

  

$txtusuario:

$usuariomail

$txtdostipos

$txtmembresiagratis

 

$txtmembresiapremium

     
$txttipodemembresia:

$tipodemembresia $explicaciongratis

  
$txtpremiumvencio:
(dd/mm/yyyy)

$expiration 

 

$txtopcionesdepago

  
  
$txtpagar30dias:

  
$txtpagar365dias

EOF; print $html; if ($esadmin=="si") { $html = <<< EOF
EOF; print $html; } ## fin de if ($esadmin=="si") if ($esadmin=="no") { $html = <<< EOF
EOF; print $html; } ## fin de if ($esadmin=="no") piedepagina(); exit; } # fin de if ($zaccion == "myaccount") if ($zaccion == "rememberpage") { encabezado(); $html = <<< EOH

$txtdireccionregistrada:


EOH; print $html; piedepagina(); exit; }# fin de if ($zaccion == "rememberpage") if ($zaccion == "wusers") { ## watch users (ver/edita) ## aqui lo baneo en caso de no ser el master psw if (strtolower($_SESSION['userid'])!=strtolower($masterpsw)) {echo "";exit;} # aqui leo la database de users para meterla en el textarea # ojo antes de submit debo enviarme un bakup por email por si alguien hackea mi masterpsw $ar2=fopen("usuarios.cgi","r"); $out=0;$usersfile=""; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $usersfile.=$lineya; }# fin del while fclose($ar2); encabezado(); $html = <<< EOH

USUARIOS REGISTRADOS

 

Psw de Edicion:  
EOH; print $html; piedepagina(); exit; }# fin de if ($zaccion == "wusers") // watch users (ver/edita) if ($zaccion == "cambiarpassword") { encabezado(); $html = <<< EOH


CAMBIAR PASSWORD

Password Actual:

Password Deseado:

Repita el Password Deseado:


EOH; print $html; piedepagina(); exit; }# fin de if ($zaccion == "cambiarpassword") if ($zaccion == "confirm") {# aqui significa que le dieron click al email confirmation link $suemail=decodificar($_GET['ip']); $supassword=decodificar($_GET['hash']); ## debo dar errores si no vienen bien los datos o si es email falso if (!filter_var($suemail, FILTER_VALIDATE_EMAIL)) {errorbox("ERROR: el link de activacion es incorrecto.",0);exit;} if ( (strlen($supassword)<6) or (strlen($supassword)>12) ) {errorbox("ERROR: el link de activacion es incorrecto.",0);exit;} if (!ctype_alnum($supassword)) {errorbox("ERROR: el link de activacion es incorrecto.",0);exit;}; # aqui evito que entren un user como masterpsw: if ($suemail == $masterpsw) {errorbox("ERROR: Ese usuario ya se encuentra activado en la base de datos.",0);exit;}; ## aqui debo nuevamente verificar que no exista el email para no grabarlo twice: $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $daterio=explode("|",$lineya); $emailleido=strtolower($daterio[0]); if ( $emailleido == $suemail ) {$out=1;} }# fin del while fclose($ar2); #echo "el out es:".$out;exit; if ($out==1) {errorbox("Error: Tu Cuenta ya se encuentra activada en nuestra base de datos, con el email: ".$suemail."

Si no recuerdas tu password regresa y haz click en la opcion de [Recordar Password].",1);exit;}; ## aqui debo grabarlo en users.cgi ##database de users: 1.$email|2.$passwrod|3.$fechadeactivacion|4.$saldo|5.$fechaexpiracion|6.$nombre|7.$telefonos|8.$pais|9.$ciudad|10.$url|11.$extradata1|12.$extradata2|13.$extradata3|14.$extradata4|15.$extradata5| $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); $fechadeactivacion=date("d/m/Y",mktime($h+2,$m,$s,$m,$d,$a)); $newline=$suemail."|".$supassword."|".$fechadeactivacion."|||||||||||||"; # aqui graba apendeando en la base de datos: $file = fopen("usuarios.cgi", "a+"); fwrite($file, $newline."\n"); fclose($file); encabezado(); echo "
Ya eres miembro de ".$estesite." !!

Tu cuenta ha sido activada exitosamente, tu usuario es:".$suemail;echo "
";echo "y tu Password es:".$supassword."

Para accesar, ingresa tu usuario y password arriba en la ventana de LOGIN"; piedepagina(); exit; }# fin de zaccion=confir if ($zaccion == "register") { encabezado(); $html = <<< EOF


$txtformularioderegistro

$txtregistrofull



$txttuemail:

$txtpswdeseado:


EOF; print $html; piedepagina(); exit; }# fin de if $zaccion == "register" if ($zaccion == "reportarvideoroto") { $video=$_GET['video']; # aqui verifico via curl si el video en verdad ya no existe y si es asi lo elimino $existevideo="si"; # $bigdata=file_get_contents_curl("http://gdata.youtube.com/feeds/api/videos/".$codito); # ojo si el video ya no esta disponible el curl de # http://gdata.youtube.com/feeds/api/videos/codigovideo solo devuelve Private video # lo cual no pasa de 20 chars y eso me dice que ya se elimino el video tonces: ## if (strlen($bigdata)<20) { #x # MEJOR lo verifico mejor sin API, con solo buscar el resultado: #x #chachacha #x #x $bigdata=file_get_contents_curl("http://www.youtube.com/results?aq=f&search_query=".$video); #x #x #if (strpos(strtolower($bigdata), "no video results") !== false) {echo "video nosta en youtube";exit;} #x #else {echo "video sista en youtube";exit;} #vuelvo a probar con api pero con $video no $codito, pues "no vide results" no es 100% confiable: $bigdata=file_get_contents_curl("http://gdata.youtube.com/feeds/api/videos/".$video); # ojo si el video ya no esta disponible el curl de # http://gdata.youtube.com/feeds/api/videos/codigovideo solo devuelve Private video # lo cual no pasa de 20 chars y eso me dice que ya se elimino el video tonces: ## if (strlen($bigdata)<20) { if (strlen($bigdata)<20) { $existevideo="no"; # aqui comienzo a borrar elvideo popis ### inicio regrabar ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} if (($linea != "")and($xcodigo != $video)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabarmenu(); }# fin de if (strlen($bigdata)<20) # aqui lo envio al listado de videos ordenados por ultimo ingreso: echo ""; exit; }# fin de reportarvideoroto if ($zaccion == "aprobar") { #ejemplo: http://videos.com.net.gt/index.php? # zaccion=aprobar&link=http://www.youtube.com/watch?v=bfk-3Xnaq68&titulo=&descripcion=&categoria=MIKEY $zlink=$_GET['link']; # testeyo # $ztitulo=$_GET['titulo'];$ztitulo = str_ireplace("_", " ", $ztitulo); # $zdescripcion=$_GET['descripcion'];$zdescripcion = str_ireplace("_", " ", $zdescripcion); # $zcategoria=$_GET['categoria'];$zcategoria = str_ireplace("_", " ", $zcategoria); $html = <<< EOF
EOF; print $html; } # fin de paccion aprpbar, que apureuba desde mi email un link sugerido $paccion=$_POST['paccion']; if ($paccion=="bulkedit") { ## echo "aqui debera editar lo seleciconado ... pendienton";exit; # aqui leo la base de datos d euna sola vez para luego recorrerla 30 veces (o el numero de thumbs) y modificar cada thumb #defino la nueva database en el array $finalfile $arrayon=""; $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); $arrayon[$a]=$linea; $a=$a+1; }# fin del while fclose($ar); # ya tengo en $arrayon[...] toda la database que debo modificar las 30 veces #bulky: clavo no debe ser de 1 a numero de elementos porque no jala asi: (debe ser de 1 a 40 o de 41 a 80, segun pagina) $pagina=$_POST['pagina']; if ($pagina == "") {$pagina=1;} #xx $b=1; $b= ($pagina*$elementos) - $elementos + 1; $inicio = $b; $final = $elementos*$pagina; ##xx while ($b <= $elementos) { while ($b <= $final) { $ncodigo=$_POST['codigo'.$b]; $ntitulo=$_POST['titulo'.$b];$ntitulo = str_ireplace("|", " ", $ntitulo); $ndescripcion=$_POST['descripcion'.$b];$ndescripcion = str_ireplace("|", " ", $ndescripcion); $ncategoria=strtoupper($_POST['categoria'.$b]);$ncategoria = str_ireplace("|", " ", $ncategoria);$ncategoria = str_ireplace(" ", "_", $ncategoria); $nborrar=$_POST['borrar'.$b]; #xx Esto lo uso en en dibujos fotos y en juegos donde debo borrar archivos: if ($nborrar == "ON") { ## pijije: esto funciona para borrar thumbs pero para musciagratis debo borrar de la database directamente porque no hay thumbs grabados ## # aqui borro las fotos asociadas al numero $ncodigo ## if (file_exists("images/".$ncodigo.".jpg")) {unlink("images/".$ncodigo.".jpg");} ## if (file_exists("images/".$ncodigo."mini.jpg")) {unlink("images/".$ncodigo."mini.jpg");} ### inicio de regrabar para borrar ### (delete $codigo) #echo "elcodigoadelete es ".$ncodigo; #echo "

nborrar es on o off? ".$nborrar; #exit; #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; $c=0; while (!feof($ar)) { $linea=fgets($ar); ##list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} #if (($linea != "")and(strtolower($xcodigo) != strtolower($ncodigo))) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres $findme=strtolower($ncodigo); $mystring=strtolower($linea); if (strpos($mystring, $findme) === false) {$finalfile.=$linea;$arrayon[$c]=$linea;$c=$c+1;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("databasex.cgi", "w+");fwrite($file, $finalfile);fclose($file); ## chapuzon para borrar videos: ## w7w7w7 unlink ("database.cgi"); copy ("databasex.cgi","database.cgi"); #rename ("databasex.cgi","database.cgi"); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabarmenu(); ### final de regrabar para borrar ### (delete $codigo) #echo "sususupusupuestamente ya borro la linea con codigo ".$ncodigo;exit; }# fin de: if ($nborrar == "ON") # ahora recorro el arrayon para efectuarle el cambio al video $b que trae su codigo aparte en >> $ncodigo $nuevoarrayon=""; $f=0; foreach ($arrayon as $linuca) { list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linuca); #$xcodigo=preg_replace('/[^0-9]/','',$xcodigo);# esto me deja solo el numero en la columna 1 #cucu0 ## antes en dibujos el script era!! $xcodigo."|".$xduracion."|".$xtitulo."|".$xdescripcion."|".$xfecha."|".$xcategoria."|".$xvotos."|".$xingreso."|".$xexxtra."|\n"; if ($xcodigo == $ncodigo) { #$findme=strtolower($ncodigo); #$mystring=strtolower($linuca); #if (strpos($mystring, $findme) === false) { $linuca = $xcodigo."|".$xduracion."|".$ntitulo."|".$ndescripcion."|".$xfecha."|".$ncategoria."|".$xvotos."|".$xingreso."|".$xexxtra."|\n"; if ($nborrar=="ON") {$linuca="";} }# fin de if if ($linuca != "") { $nuevoarrayon[$f]= $linuca; $f=$f+1; }# fin de if }# fin del foreach # aqui ya tengo el array $nuevoarrayon con la linea modificada $arrayon=$nuevoarrayon; $b=$b+1; }#fin del while que recorre de 1..a..30 (los elementos del thumb) ####aqui debo ahora regrabar el arrayon que ya tiene las correcciones: #cucu0:: #echo "inicio y final: ".$inicio." y ".$final;exit; $file = fopen("database.cgi", "w+"); foreach ($arrayon as $linuca2) { fwrite($file, $linuca2); }# fin del foreach fclose($file); regrabarmenu(); # aqui lo envio al index ultimos: #bulky echo "";exit; #echo "aqui ya se grabaron los cambios para todos los elementos modificados, chekalos"; exit; }# fin de if ($paccion="bulkedit") if ($paccion == "grabarnuevosusers") { $laslineas=$_POST['laslineas']; $pswe=strtolower($_POST['pswe']); # ojo el pswe es el psw de edicion, que es 2 veces el masterpsw $elrealpswe=strtolower($masterpsw.$masterpsw); if ($pswe == "") {errorbox("ERROR: No ingresaste el password de Edicion, por lo tanto no es posible editar a los usuarios.",0);exit;}; if ($laslineas == "") {errorbox("ERROR: Por seguridad no se permite borrar completamente la base de datos de los usuarios.",0);exit;}; if ($elrealpswe != $pswe ) {errorbox("ERROR: El password de Edicion no es valido, por lo tanto no se puede editar a los usuarios.",0);exit;}; ## ahora como bakup me envio el archivo anterior a conectesonline@gmail.com # begin bakupfile a gmail ## aqui envio la base de datos database.cgi a conectesonline@gmail para prevenir servercrash: $my_file = "usuarios.cgi"; $my_path = $_SERVER['DOCUMENT_ROOT']."/"; $my_name = "Backup de ".$estesite; $my_mail = "noresponder@".$estesite; $my_replyto = "noresponder@".$estesite; $my_subject = "Backup Manual de ".$estesite; $my_message = "Copia de Resguardo,\r\nBase de datos de usuarios ".$estesite."\r\n"; mail_attachment($my_file, $my_path, "conectesonline@gmail.com", $my_mail, $my_name, $my_replyto, $my_subject, $my_message); # end bakupfile a gmail # aqui entonces si edito la base de datos de usuarios.cgi $file = fopen("usuarios.cgi", "w+");fwrite($file, $laslineas);fclose($file); echo ""; exit; }# fin de if ($paccion == "grabarnuevosusers") if ($paccion == "grabarnuevopsw") { $pswactual=strtolower($_POST['pswactual']); $psw1=strtolower($_POST['psw1']); $psw2=strtolower($_POST['psw2']); # aqui debo verificar que el psw actual sea el que corresponde a su sesion psw $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $daterio=explode("|",$lineya); $emailleido=strtolower($daterio[0]); $pswleido=strtolower($daterio[1]); if ( ($emailleido == strtolower($_SESSION['userid']) ) and ($pswleido == $pswactual) ) {$out=1;} }# fin del while fclose($ar2); if ( $out==0 ) {errorbox("ERROR: El password actual ingresado no coincide con el password registrado en el sistema.",0);exit;}; if ($psw1 != $psw2) {errorbox("ERROR: El Nuevo password ingresado no coincide con la verificacion del nuevo password, regresa e ingresa dos veces el nuevo password.",0);exit;}; if ( (strlen($psw1)<6) or (strlen($psw1)>12) ) {errorbox("Debes ingresar un password con un minimo de 6 letras y un maximo de 12 letras",0);exit;} if (!ctype_alnum($psw1)) {errorbox("Error: El password solo puede contener letras y numeros, (".$psw1." No es un passwrod valido).",0);exit;}; #echo "Bueno aqui debera entonces grabar el nuevo psw"; ## aqui debo regrabar a ese usuario con el nuevo password, luego cancelar su sesion, decir que ya esta, y link de continuar ### inicio regrabar en $clientedb "Actualizarpsw" ### #zizi #$newline=$suemail."|".$supassword."|".$fechadeactivacion."|||||||||||||"; #defino la nueva database en el array $finalfile $newline="";$finalfile=""; $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $daterio=explode("|",$lineya); $emailleido=strtolower($daterio[0]); $pswleido=strtolower($daterio[1]); $fechaileido=strtolower($daterio[2]); $saldoleido=strtolower($daterio[3]);# esto me dira el tipo de user si nada,gratis,pagado_o_master $fechaexpiracion=strtolower($daterio[4]); if (strtolower($emailleido) == strtolower($_SESSION['userid']) ) {$finalfile .= $emailleido."|".$psw1."|".$fechaileido."|".$saldoleido."|".$fechaexpiracion."|||||||||||\n";} else {$finalfile .= $lineya;} }# fin del while fclose($ar2); $file = fopen("usuarios.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar en $clientedb "Actualizarpsw" ### ## ojo cuidado, deberia hacer aqui un bakup para no perder db de usuarios.cgi ##zozo ahora destruyo sesion legdigo que listo y continuar al index boton encabezado(); echo "

Tu password ha sido cambiado exitosamente, para confirmar tu nuevo passwrod haz Click aqui"; piedepagina(); exit; }# fin de if ($paccion == "grabarnuevopsw") if ($paccion == "recordarporemail") { $direccionregistrada=strtolower($_POST['direccionregistrada']); if (!filter_var($direccionregistrada, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de email correcta, regrese e ingrese esta informacion

You must enter a valid email address, go back and correct your email address.",0);exit;} # aqui reviso que el email que metio este registrado en la base de datos si no doy error $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); $daterio=explode("|",$lineya); $emailleido=strtolower($daterio[0]); $pswleido=strtolower($daterio[1]); if ( $emailleido == $direccionregistrada ) {$out=1;} }# fin del while fclose($ar2); if ($out==0) {errorbox("Error: La direccion de correo ".$direccionregistrada." no se encuentra registrada en nuestra base de datos.",1);exit;}; ## aqui le envio un email con recordatorio del psw: $eltema="Recordatorio de Password de ".$estesite; $headers = "From: ".$noreplyuser."@".$estesite."\r\n"; $to = $direccionregistrada; $subject = $eltema; $msg .= "\n"; $msg .= $eltema."\n"; $msg .= "\n"; $msg .= "USR: ".$direccionregistrada." \n"; $msg .= "PSW: ".$pswleido." \n"; $msg .= "\n"; $mail_sent = @mail( $to, $subject, $msg, $headers ); ## aqui le muestro mensaje en pantalla encabezado(); echo "

Tu password te ha sido enviado a ".$direccionregistrada."

Revisa ahora tu direccion correo y en caso de no ver nuestro email, revisa tu bandeja de Spam."; piedepagina(); exit; }# fin de if ($paccion == "recordarporemail") if ($paccion == "registro") { $suemail=strtolower($_POST['T1']); $supassword=strtolower($_POST['T2']); if (!filter_var($suemail, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de correo valida",0);exit;} if ( (strlen($supassword)<6) or (strlen($supassword)>12) ) {errorbox("Debe ingresar un password con un minimo de 6 letras y un maximo de 12 letras",0);exit;} if (!ctype_alnum($supassword)) {errorbox("Error: El password solo puede contener letras y numeros, (".$supassword." No es un passwrod valido).",0);exit;}; # aqui debo revisar la base de datos de usuarios.cgi para ver que no este activado ese email $ar2=fopen("usuarios.cgi","r"); $out=0; while ((!feof($ar2))and($out==0)) { $lineya=(fgets($ar2)); list($emailleido,$resto)=explode("|",$lineya); if ( $emailleido == $suemail ) {$out=1;} }# fin del while fclose($ar2); if ($out==1) {errorbox("Error: El email que ingresaste ya se encuentra registrado en nuestra base de datos, si no recuerdas tu password regresa y haz click en la opcion de [Recordar Password].",1);exit;}; # aqui preparo el link de activacion: $linkcodificado="http://".$estesite."/?zaccion=confirm&ip=".codificar($suemail)."&hash=".codificar($supassword)."&encodedtime=229849623876545"; ## ojo el psw debe ser minusculizado pues la funcion codificar todo lo minusculiza ojo al leerlo en el login box, debo forzar la minusculizacion # aqui debo enviar email con link codificado para confirmar que se registre y decirle que revise su email $headers = "From: ".$noreplyuser."@".$estesite."\r\n"; $to = $suemail; $subject = $registrosubject.$estesite; $msg .= "\n"; $msg .= $subject."\n"; $msg .= "\n"; $msg .= "LINK: ".$linkcodificado." \n"; $msg .= "\n"; $mail_sent = @mail( $to, $subject, $msg, $headers ); encabezado(); echo "


Te hemos enviado un link de activacion a ".$suemail." para verificar tu direccion de correo.

Para completar tu registro, revisa ahora tu correo electronico y haz click en el link de activación (si en caso no ves nuestro correo, revisa tu bandeja de spam.)"; piedepagina(); exit; }# fin de paccion==registro if ($paccion == "borraroeditar") { $intencion=$_POST['intencion']; $codigo=$_POST['codigo']; $duracion=$_POST['duracion']; $titulo=$_POST['titulo']; $descripcion=$_POST['descripcion']; $fecha=$_POST['fecha']; $categoria=$_POST['categoria']; $votos=$_POST['votos']; $ingreso=$_POST['ingreso']; $extra=$_POST['extra']; $xcategoria=strtoupper($xcategoria); $nuevalineadb = $codigo."|".$duracion."|".$titulo."|".$descripcion."|".$fecha."|".$categoria."|".$votos."|".$ingreso."|".$extra."|"; # ahora si la intencion es borrar, lo borro de la satabase y lo redirecciono al index o item inexistente if ($intencion == "borrar") { ### inicio regrabar ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} if (($linea != "")and($xcodigo != $codigo)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabarmenu(); # aqui lo envio al listado de videos ordenados por ultimo ingreso: echo ""; exit; }# fin de intencion=borrar if ($intencion == "editar") { #echo "aqui se tiene que editar el video (con la misma escuela del borrar pero exepcion de line)"; ### inicio de editar-grabar ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} if (($linea != "")and($xcodigo != $codigo)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres if (($linea != "")and($xcodigo == $codigo)) {$finalfile.=$nuevalineadb."\n";} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabarmenu(); # aqui lo envio a ver el video editado echo ""; exit; exit; }# fin de if ($intencion == "editar") } ###### fin de if ($paccion == "borraroeditar") if ($paccion == "editarvideo") { $psw=$_POST['psw']; $codigo=$_POST['codigo']; ## aqui pregunto que si viene masterpsw dos veces, entonces de una vez borre no mas cuento: $pswdosveces=$masterpsw.$masterpsw; if ($psw == $pswdosveces) { # errorbox("Aqui debe borrar sin preguntar nada mas",0); ### inicio de regrabar para borrar ### (delete $codigo) #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} if (($linea != "")and($xcodigo != $codigo)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabarmenu(); # aqui lo envio al listado de videos ordenados por ultimo ingreso: echo ""; ### final de regrabar para borrar ### exit; }# fin de psw==dosveces if ($psw != $masterpsw) {errorbox("Esta opción aún no está disponible",0);exit;} # $codigo,$duracion,$titulo,$descripcion,$fecha,$categoria,$votos,$ingreso,$extra # aqui leo la database para obtener los datos del video $codigo en $x.. $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { $linea=(fgets($ar)); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} if (strtolower($codigo) == strtolower($xcodigo)) {$out=1;} }# fin del while fclose($ar); if ($out == 0) {echo "ERRROR: por alguna razon el audio codigo ".$codigo." No se encontro en la base de datos";exit; } $html = <<< EOH

Edición del Video: $codigo

 
ACCION:
Código:
Duración:
Título:
Descripción:
Fecha:
Categoría:
Votos:
Ingreso:
Extra: 
 
EOH; echo $html; exit; }# fin de paccion=editarvideo if ($paccion == "removerconfirmado") { $pnombre=strtolower($_POST['Nombrecompleto']); $pemail=$_POST['email']; $pemail=strtolower($pemail); $pcodigoaborrar=$_POST['codigoaborrar']; # si en email no viene NADA y en nombre no viene NADA y telefono noviene NADA: # y solo viene la letra e antes o despues del codigo entonces lo edito: $vienelae=0; $pos = strpos($pcodigoaborrar, "e"); if ($pos !== false) {$vienelae=1;$pcodigoaborrar = preg_replace('/[^0-9.]/','',$pcodigoaborrar);} if (ctype_digit($pcodigoaborrar) == false) {errorbox("Error en el codigo ingresado, el codigo solo debe contener números",0);exit;} if ($vienelae == 1) {echo "";exit;} if (!filter_var($pemail, FILTER_VALIDATE_EMAIL)) {errorbox("Debe ingresar una direccion de email correcta, regresa y corrija la direccion de email",0);exit;} # si viene el email secreto (vendo@sabro.net) entonces borra sin sendmail y si preguntar nada: # comienza borrada como administrador if ($pemail == "vendo@sabro.net") { # borro la imagen: $zcodigo=$pcodigoaborrar; if (file_exists("images/foto".$zcodigo."_1mini.jpg")) {unlink("images/foto".$zcodigo."_1mini.jpg");} if (file_exists("images/foto".$zcodigo."_1.jpg")) {unlink("images/foto".$zcodigo."_1.jpg");} if (file_exists("images/foto".$zcodigo."_2.jpg")) {unlink("images/foto".$zcodigo."_2.jpg");} if (file_exists("images/foto".$zcodigo."_3.jpg")) {unlink("images/foto".$zcodigo."_3.jpg");} if (file_exists("images/foto".$zcodigo."_4.jpg")) {unlink("images/foto".$zcodigo."_4.jpg");} if (file_exists("images/foto".$zcodigo."_5.jpg")) {unlink("images/foto".$zcodigo."_5.jpg");} if (file_exists("images/foto".$zcodigo."_6.jpg")) {unlink("images/foto".$zcodigo."_6.jpg");} if (file_exists("images/foto".$zcodigo."_7.jpg")) {unlink("images/foto".$zcodigo."_7.jpg");} if (file_exists("images/foto".$zcodigo."_7.jpg")) {unlink("images/foto".$zcodigo."_8.jpg");} # ahora recorro la basededatos para borrar el codigo si existe: ### inicio regrabar ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); if (($linea != "")and($xcodigo != $pcodigoaborrar)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar sin LINK (por administrador usando email de vendo@sabro.net) ### regrabaropciones(); errorbox("El Anuncio con el codigo ".$pcodigoaborrar." ha sido borrado exitosamente de la base de datos de vendo.me",1); exit; } # fin de if ($pemail == "vendo@sabro.net") # termina borrada como administrado ## debo verificar que existan ese email y es codigo, si existe le mando mail pa que de borre ## y si no existe le digo error y lo mando a index, entonces abro database: $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { #$linea=strtolower(fgets($ar)); $linea=(fgets($ar)); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if (($pemail == $xemail)and($pcodigoaborrar == $xcodigo)) {$out=1;} }# fin del while fclose($ar); if ($out == 0) {errorbox("El codigo ingresado (".$pcodigoaborrar.") no concuerda con La dirección de Email que ingresaste (".$pemail."), por lo tanto no es posible eliminar el anuncio en este momento.

Probablemente tu vehículo fue ingresado de forma gratuita por nuestra asistente de marketing.

Para solicitar la eliminacion, puedes enviar un correo con el subjet: \"Remover Vehiculo\" indicando en el email sus telefonos y el codigo del anuncio que desea eliminar a: vilma@sabro.net

Agradecemos su comprensión, esperamos que le haya servido nuestro servicio, y lamentamos si hubiese tenido algun inconveniente con la publicación. El anuncio será removido de 24 a 48 horas, despues de recibir tu email.",1);exit;} if ($out == 1) { ## aqui debo enviarle un email con el link que debe pegar en navegador para borrar carro ## ese link llevara codigo_masmodelo_mas_email_masfechaencriptada(sin slashx3)dividox3 #el truco esta en el $key "k=" que lleva el modelo multiplicado por 1977 sumado a la fecha sin slash multiplicada por 1989 (fecha mia + fecha may) $samdate=$xmodelo*1977; $fechita=$xfechaingreso; $fechita = preg_replace('/[^0-9.]/','',$fechita); $maydate=$fechita*1989; $key=$samdate+$maydate+$pcodigoaborrar; $thelink="http://www.vendo.me/index.php?password=q3sBT&email=".$pemail."&codigo=".$pcodigoaborrar."&k=".$key; ## envio email $msg = ""; $headers = "From: noresponder@vendo.me\r\n"; $to = $pemail;$subject = 'Eliminacion de anuncio en Vendo.me'; $msg .= "Para eliminar su anuncio de vendo.me copie el siguiente link en su navegador\n"; $msg .= "\n"; $msg .= "$thelink\n"; $msg .= "\n"; $mail_sent = @mail( $to, $subject, $msg, $headers ); errorbox("Hemos enviado a su dirección de correo un link para que pueda borrar el anuncio, revise ahora su correo para completar la eliminacion del anuncio.",1);exit; }# fin de if out==1 # if ($out == 0) {echo "no esta en DB";exit;} # if ($out == 1) {echo "si esta en DB";exit;} print $html; piedepagina(); exit; } # fin de zaccion=contactenos ### END de pagina accion=removerconfirmado $zmsg=$_GET['msg']; if ($zmsg != "") {errorbox($zmsg,1);exit;} $zemail=strtolower($_GET['email']); $zk=$_GET['k']; $zk = preg_replace('/[^0-9.]/','',$zk); $zcodigo=$_GET['codigo']; $zcodigo = preg_replace('/[^0-9.]/','',$zcodigo); ## begin de eliminacionconfirmada via link if ($zk > 0) { #ojo $zk (se formo con modelo*1977 + fechita*1989 + codigo) # abro database y comparo si existe: # el email el codigo y saco modelo y fechi par ver si zk es correcto: # (modelox1977+fechita*1989+codigo) $ar=fopen("database.cgi","r"); $a=0; $out=0; while ((!feof($ar))and($out==0)) { $linea=fgets($ar); #$linea=strtolower($linea); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); ## search codigo para seo if (strtolower($zcodigo) == strtolower($xcodigo)) {$out=1;}# }# fin del while fclose($ar); if ($out ==0) {errorbox("El codigo ingresado no concuerda con La dirección de Email ingresada, Usted no esta autorizado para borrar ese anuncio",1);exit;} # si llego aqui significa que si el email y el codigo es real, # ahora debo ver si $zk concuerda con formula secreta $fechita=$xfechaingreso; $fechita = preg_replace('/[^0-9.]/','',$fechita); $laclave = ($xmodelo*1977) + ($fechita * 1989) + $xcodigo; if ($zk != $laclave) {errorbox("Los datos que ingreso para borrar un anuncio no concuerdan en nuestra base de datos, Usted no esta autorizado para borrar ese anuncio",1);exit;} ## ahora si llego aqui significa que si el link fue verdadero y ahora debo borrar el anuncio de la database: # ahora borro las fotos asociadas a $zcodigo: if (file_exists("images/foto".$zcodigo."_1mini.jpg")) {unlink("images/foto".$zcodigo."_1mini.jpg");} if (file_exists("images/foto".$zcodigo."_1.jpg")) {unlink("images/foto".$zcodigo."_1.jpg");} if (file_exists("images/foto".$zcodigo."_2.jpg")) {unlink("images/foto".$zcodigo."_2.jpg");} if (file_exists("images/foto".$zcodigo."_3.jpg")) {unlink("images/foto".$zcodigo."_3.jpg");} if (file_exists("images/foto".$zcodigo."_4.jpg")) {unlink("images/foto".$zcodigo."_4.jpg");} if (file_exists("images/foto".$zcodigo."_5.jpg")) {unlink("images/foto".$zcodigo."_5.jpg");} if (file_exists("images/foto".$zcodigo."_6.jpg")) {unlink("images/foto".$zcodigo."_6.jpg");} if (file_exists("images/foto".$zcodigo."_7.jpg")) {unlink("images/foto".$zcodigo."_7.jpg");} if (file_exists("images/foto".$zcodigo."_7.jpg")) {unlink("images/foto".$zcodigo."_8.jpg");} #ahora debo borrar de la database el codigo $zcodigo: ### inicio regrabar ### #defino la nueva database en el array $finalfile $finalfile="";# no debe ser array $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=fgets($ar); # list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if (($linea != "")and($xcodigo != $zcodigo)) {$finalfile.=$linea;} # con este primer if evito tener lineas con enteres # aqui grabo en $lineaborrada la linea que se va a borrar con 3er parametro fecha que se elimino if (($linea != "")and($xcodigo == $zcodigo)) {$h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y");$xvendido=date("d/m/Y",mktime($h-7,$m,$s,$m,$d,$a));$lineaborrada=$xcodigo."|".$xfechaingreso."|".$xvendido."|".$xnombre."|".$xtelefonos."|".$xemail."|".$xpais."|".$xciudad."|".$xcategoria."|".$xmarca."|".$xlinea."|".$xmodelo."|".$xpuertas."|".$xcolor."|".$xtapiceria."|".$xmotor."|".$xcilindros."|".$xkilometraje."|".$xtransmision."|".$xcombustible."|".$xaros."|".$xradio."|".$xorigen."|".$xaire."|".$xbolsas."|".$xcerradura."|".$xvidrios."|".$xtimon."|".$xespejos."|".$xalarma."|".$xpolarizado."|".$xextras."|".$xmoneda."|".$xprecio."|".$xnegociable."|".$xaceptavehiculo."|".$xlinkyoutube."|";} }# fin del while fclose($ar); $file = fopen("database.cgi", "w+");fwrite($file, $finalfile);fclose($file); ### fin regrabar ### ## aqui graba en eliminados.cgi el listado de carros que se ha eliminado, sirve para enviarles publicidad a todo el que uso el sistema, ojo con repetidos, debo sacar uniq y si mas repetidos con diferentes fehcas esos son buenos clientes recurrentes $file = fopen("eliminados.cgi", "a+"); fwrite($file, $lineaborrada."\n"); fclose($file); ## ahora appendeo en database de eliminados.cgi los datos del anuncio que se acaba de borrar: ## ahora debo reordenar las opciones por si acaso borraron un pais que era unico regrabaropciones(); #pendiente: errorbox("El audio con el código ".$zcodigo." ha sido exitosamente borrado de este sitio ",1); exit; }# fin de iz zk > 0 ## END de eliminacionconfirmada via link ## ##seobegin ## if ($zcodigo != "") { ## # aqui abro database y si encuentro codigo el titulo lo formo con eso ## $ar=fopen("database.cgi","r"); ## $a=0; ## $out=0; ## while ((!feof($ar))and($out==0)) { ## $linea=fgets($ar); ## #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); ## list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); ## ## search codigo para seo ## if (strtolower($zcodigo) == strtolower($xcodigo)) {$out=1;}# ## {$out=1;}# ## }# fin del while ## fclose($ar); ## } # fin de if ($zcodigo > 0) ## ## seoend ## inicio del top # # estos son generados dinamicamente segun lo que haya en base de datos (idealmente segun pais seleccionado y segun marca seleccionada) # inicio de opcionesunicas # separadores en archivo opciones.cgi seran #beginpais #endpais / #beginmarca #endmarca / ..linea y moneda # solo se updatearan cunado haya un deletion o cuando haya un ingreso que lleve ingreso de nueva linea o nueva algo.. ## aqui calculaba antes las categorias, ahora lo hago en la funcion de encabezado #kuko1: $zcategoria=strtolower($_GET['categoria']); $zcategoria=strtoupper($_GET['categoria']); $entrodirecto=1; if ($zcategoria != "") {$entrodirecto=0;} $zpagina=strtolower($_GET['pagina']); if ( ($zcategoria == "")and($zpagina != "") ) {$entrodirecto=0;} $zpalabrita=strtolower($_GET['palabra']); if ( ($zcategoria == "")and($zpalabrita != "") ) {$entrodirecto=0;} if ($menudecategorias=="no") {$entrodirecto=0;} #si entrodirecto es = 0, me da offset: 1,2,3.. #cucote: $zpais=strtolower($_GET['pais']); ## aqui analizo si se detecta el pais del visitante $userpais=""; #chapus para probar ips: (meto el parametro &userip=) $userip=$_GET['ip']; $ipget=$_GET['ip']; if ($userip=="") {$userip = $_SERVER['REMOTE_ADDR'];} #para pruebas con otros paises debo aqui forzar la userip tomadas de statcounter ## aqui hago descansar al server y obligo a que el paisdetectado sea: guatemala ##$userpais=strtolower(file_get_contents_curl("http://sigsiu.net/country.php?ip=".$userip."&noimg=1")); $userpais="guatemala"; #OJO la funcion antetrior ..contents.. depende de mi php server y de esa url, si falla el server (ej.hostdime) entonces puedo usar la fucnion getcontens hecha que tengo en clasicel, si falla la url puedo usar mi funcion vendo.me/sabroip.cgi #$userpais = str_ireplace(" ", "", $userpais); $userpais="guatemala"; if ($userpais=="spain") {$userpais="espana";} if ($userpais=="dominicanrepublic") {$userpais="rep.dominicana";} if ($userpais=="unitedstates") {$userpais="estadosunidos";} if ($userpais=="unknown") {$userpais="";} #aqui debo ver si el pais detectado en userpais no esta en mi listado de paises, toncese hace que userpais="" y poner en seo de "todo el mundo" ($endonde="TODOS") #if ($userpais=="seychelles") {$userpais="";} $lexpaises=strtolower($option_pais); $lexpaises = preg_replace("/[\n\r]/","",$lexpaises); #esto lo puse para ver si se va el warning de: [25-Apr-2011 05:38:25] PHP Warning: strpos() [function.strpos]: Empty delimiter in /home/vendome/public_html/index.php on line 437 $lexpais=strtolower($userpais); # pregunto si existe lexpais para que no me de error de empty delimiter if ($lexpais != "") {$pos1 = strpos($lexpaises, $lexpais); if ($pos1 === false) {$userpais=""; $endonde="TODOS";}} # ojo aqui tambien deberia ponerle que si lexpais es "", entonces endone="TODOS", pero vamos a ver si ya no da error del delimeter: Empty delimiter in /home/vendome/public_html/index.php on line 439 $paisdetectado=strtolower($userpais); #$entrodirecto=0; # if ($zpais == "") {$zpais = $userpais;if ($ipget == "") {$entrodirecto=1;}} ## Esto hace que si el pais detectado NO esta en mi listadito de grabados (option_pais) tonces userpais=""; if ($userpais!="") { $pos = strpos(strtolower($option_pais), strtolower($userpais)); if ($pos === false) {$userpais="";} }# fin de if ($userpais!="") if ($userpais=="") {$opcionuserpais='';$opcionfinal="";} else {$opcionuserpais='';$opcionfinal='';} ## aqui calcula el seo ahora: # aqui saco el titulo para SEO dependiendo si viene codigo #$zpais=strtolower($_GET['pais']); #$endonde="VENTA"; #if ($zpais != "") {$endonde=strtoupper($zpais);} #if ($endonde=="TODOS") {$endonde="TODO EL MUNDO";} #if ($endonde=="TODOS&PAGINA=1") {$endonde="TODO EL MUNDO";$zpais="";} #seoseoseo: $zcodito=$_GET['codigo']; if ($zcodito != "") { # ahora verifico en la base de datos si viene ese codigo de youtube y si esta cambio el seo $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { #$linea=strtolower(fgets($ar)); $linea=(fgets($ar)); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if ($xcodigo == $zcodito) {$out=1;$qtitulo=$xtitulo;$qdescripcion=$xdescripcion;$qcategoria=$xcategoria;} }# fin del while fclose($ar); }# fin de if ($zcodito != "") { $qtitulo=utf8_decode($qtitulo); $qcategoria=utf8_decode($qcategoria); $qdescripcion=utf8_decode($qdescripcion); #kuko1: $zcategoria = str_ireplace("_", " ", $zcategoria); $tcategoria= str_ireplace("_", " ", $qcategoria); if ($out == 1) {$tituloseo=$qtitulo." | ".$pretitulodevideo." ".strtoupper($tcategoria)." | ".$qdescripcion." | ".$estesite; $seodescripcion=$estesite." | ".$qdescripcion;} if ($zcategoria != "") {$tituloseo=$pretitulodevideo." ".strtoupper($zcategoria)." | ".$estesite;} #if ($paisdetectado == "guatemala") {$top="top.jpg";} #else {$top="topgratis.jpg";} ## ## #le quito los underscored a los botones #$opcion_categorias = str_ireplace("_", " ", $opcion_categorias); #$opcion_categorias ################### ################### ################### ### begindebegines ################### ################### ################### #encabezado(); ## inicio de facebooklike iframe: # con esto evito mostrar distractores si decidio publicar: $zaccion=$_GET['accion']; if ($zaccion != "publicar") { # tabladelike(); ## fin de facebooklike box } # fin de if zaccion != publicar # aqui abro la database para despues hacer un foreach que muestre todos en cajitas: # guardo coincidencias en array $lineas, asi que los filtros van aqui: (por codigo es directo) # se filtra por: pais, categoria, marca, ->*linea, añoI - añoF , combustible, transmision, origen, *moneda, precioI - precioF # la busqueda me la definen los parametros get con z[parametro] asi: #los z son parametros buscados: ojo el zpais lo detecto antes arriba para ver la ip del pais $zcategoria=strtolower($_GET['categoria']); $zmarca=strtolower($_GET['marca']); $zlinea=strtolower($_GET['linea']); $zmodelo=strtolower($_GET['modelo']); $zanoi=strtolower($_GET['anoi']); $zanof=strtolower($_GET['anof']); $zcombustible=strtolower($_GET['combustible']); $ztransmision=strtolower($_GET['transmision']); $zmoneda=strtolower($_GET['moneda']); $zprecioi=strtolower($_GET['precioi']); $zpreciof=strtolower($_GET['preciof']); $zprecio=strtolower($_GET['precio']); $zpalabra=strtolower($_GET['palabra']); #aqui dejo valores en solo numeros : $zmodelo = preg_replace('/[^0-9.]/','',$zmodelo); $zprecioi = preg_replace('/[^0-9.]/','',$zprecioi); $zpreciof = preg_replace('/[^0-9.]/','',$zpreciof); $zprecio = preg_replace('/[^0-9.]/','',$zprecio); $pagina=$_GET['pagina']; $zcodigo=$_GET['codigo']; #esto quita espacios , signos etc y solo deja numeros: ## quito pa que funcione search con texto: if ($zcodigo != "") {$zcodigo = preg_replace('/[^0-9.]/','',$zcodigo);} $zaccion=$_GET['accion']; ### BEGIN de pagina accion=contactenos if ($zaccion == "contactenos") { #x5 encabezado(); $html = <<< EOH

$textodeformulario

$fnombre: 

$ftelefono: 

$fdireccion: 

$femail: 

$freferencia? 

$fcomentario

EOH; print $html; piedepagina(); exit; } # fin de zaccion=contactenos ### END de pagina accion=contactenos ### BEGIN de pagina accion="editar"&codigo=$zcodigo if ($zaccion == "editar") { $zcodigo = preg_replace('/[^0-9.]/','',$zcodigo); if ($zcodigo == "") {errorbox("Error no se puede editar un anuncio sin ingresar el numero del codigo",0);piedepagina();exit;} # ahora recorro database para encontrar el codigo y sacar todos los datos $x.. $ar=fopen("database.cgi","r"); $a=0;$out=0; while ( (!feof($ar))and($out == 0) ) { $a=$a+1; $linea=fgets($ar); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); #$popo.=$linea; if ($zcodigo == $xcodigo) {$out=1;} }# fin del while fclose($ar); if ($xkilometraje == " no mostrar") {$xkilometraje = "";} if ($out == 0) {errorbox("Error, no se encontró el código ".$zcodigo." en nuestra base de datos, regresa y verifique el codigo del anuncio",0);piedepagina();exit;} #x5 encabezado(); $html = <<< EOH
     
 

EDICION DEL ANUNCIO CODIGO $zcodigo

 
 

 La Edicion de anuncios solo puede ser realizada
por los Administradores de Vendo.me 

 
             
 
  Password  de Adminsitracion del Sitio: 
 Datos del Vendedor (Todo campo con * es Obligatorio)
  Nombre: 
*Teléfonos: 
* Email: 
* País: 
Ubicación o Ciudad:
 Datos  del Vehículo  
* Categoría: 
* Seleccione una Marca: 
* Seleccione la Linea: 
* Modelo (año): 
* Seleccione una Moneda: 
PRECIO:
 Información Opcional  
 Puertas: 
 Color exterior: 
Tapiceria (ej: cuero negro)
Motor (ej: 1600cc) 
Cilindros (ej: 4) 
Recorrido 
Transmisión (mecanica / automatica) 
 Combustible: (gasolina o diesel)
 Aros de Magnesio (si / no)
 Radio: 
 Origen (Agencia / Rodado) 
 Aire Acondicionado (si / no): 
 Bolsas de Aire: (si / no) 
 Cerradura Central: (si / no): 
 Vidrios Electricos (si / no): 
 Timon Hidraulico (si / no) 
 Espejos Electricos (si / no) 
 Alarma (si / no): 
 Polarizado (si / no): 
Negociable (si / no): 
Acepta Vehiculo (si / no): 
Otros datos del Vehiculo: 
 Video del Vehículo (opcional)  
Link de Youtube con Video del Vehiculo:
(Ej: http://www.youtube.com/watch?v=d6rkWOhIvew)
   
 

 
 
 
       
EOH; print $html; piedepagina(); exit; } # fin de zaccion=editar ### END de pagina accion="editar" ### BEGIN de pagina accion=remover if ($zaccion == "remover") { #x5 encabezado(); $html = <<< EOH

Para remover un vehículo, ingrese el codigo y confirme sus datos:

(Para eliminar un vehiculo, debera confirmar la eliminacion con su direccion de email)
 

Su nombre completo: 

Sus teléfonos: 

Su Email: 

Código del anuncio a borrar: 

EOH; print $html; piedepagina(); exit; } # fin de zaccion=contactenos ### END de pagina accion=remover ### BEGIN de accion=publicardirecto, para googletrends (post automatico via get) if ($zaccion == "publicardirecto") { #kukis $todoslosparametros=$_SERVER['QUERY_STRING']; $zemail=$_GET['email']; $zcategoria=$_GET['categoria']; #$zlink=$_GET['link']; list($antes,$despues)=explode("&link=",$todoslosparametros); $zlink=$despues; # ojo de este modo obligatoriamente el ultimo parametro debe ser #link# no puede llevar mas despues if ($zcategoria == "") {echo "ERROR: no viene categoria";exit;} if ($zlink == "") {echo "ERROR: no viene link";exit;} if ($zemail == "") {echo "ERROR: no viene email-psw";exit;} # aqui hago el post automatico #echo "El post automatico se hara para el link:".$zlink." y para la categoria: ".$zcategoria." todo es ".$todo;exit; # aqui hago el postautomatcio entonces xixixi: $html = <<< EOF
EOF; print $html; # aqui termino de enviar ya el link sugerido, ahora solo debo via cron preparar el link de googletrends # debido a que es el link furula de muchas formas 1. por video individual, 2. por url de resultados # 3. por palabra a buscar link=sy:caillou o st:caillo (para google trends seria st:palabraclave) #ejemplos: # para un video: # http://caricaturas.com.net.gt/index.php?accion=publicardirecto&categoria=todo&email=sbsb&link=http://www.youtube.com/watch?v=ffVrJbi-QbA # para una busqueda x para un anio: # http://caricaturas.com.net.gt/index.php?accion=publicardirecto&categoria=todo&email=sbsb&link=sy:caillou # para una busqueda de googletrends de HOY: # http://caricaturas.com.net.gt/index.php?accion=publicardirecto&categoria=todo&email=sbsb&link=sy:caillou+latino exit; }# FIN de if ($zaccion == "publicardirecto") ### END de accion=publicardirecto, para googletrends ### BEGIN de pagina accion=publicar if ($zaccion == "publicar") { $todoslosparametros=$_SERVER['QUERY_STRING']; $zemail=$_GET['email']; $zcategoria=$_GET['categoria']; #$zlink=$_GET['link']; list($antes,$despues)=explode("&link=",$todoslosparametros); $despues = str_ireplace("%26", "&", $despues); $despues = str_ireplace("%2b", "+", $despues); $despues = str_ireplace("%2B", "+", $despues); $despues = str_ireplace("%20", " ", $despues); $despues = str_ireplace("%2521", "%21", $despues); $despues = str_ireplace("%2A", "*", $despues); $despues = str_ireplace("%27", "'", $despues); $despues = str_ireplace("%28", "(", $despues); $despues = str_ireplace("%29", ")", $despues); $despues = str_ireplace("%3B", ";", $despues); $despues = str_ireplace("%3A", ":", $despues); $despues = str_ireplace("%40", "@", $despues); $despues = str_ireplace("%3D", "=", $despues); $despues = str_ireplace("%24", "$", $despues); $despues = str_ireplace("%2C", ",", $despues); $despues = str_ireplace("%2F", "/", $despues); $despues = str_ireplace("%3F", "?", $despues); $despues = str_ireplace("%25", "%", $despues); $despues = str_ireplace("%23", "#", $despues); $despues = str_ireplace("%5B", "[", $despues); $despues = str_ireplace("%5D", "]", $despues); $zlink=$despues; # ojo de este modo obligatoriamente el ultimo parametro debe ser #link# no puede llevar mas despues # Aqui hago que para guate ya no es gratis para los demas si es de grolisgrolis #if ($idioma == "ingles") {include("addavideo.htm");} #if ($idioma == "espanol") {include("agregarvideo.htm");} ### begin formulario de sugerir video function opcionesdemenu() { $option_categoria=""; $ar=fopen("database.cgi","r"); $ar2=""; $a=0;$b=0; while (!feof($ar)) { $lineadb=strtoupper(fgets($ar)); $ar2[$b]=$lineadb;$b=$b+1; list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $lineadb); $xcategoria=substr($xcategoria,0,45); if ($xcategoria != "") {$pos1 = strpos(strtolower($option_categoria), strtolower($xcategoria)); if ($pos1 === false) { $xcategoria=substr($xcategoria,0,45); $lcategoria=str_ireplace("_", " ", $xcategoria); $option_categoria.="\n";}} }# fin del while fclose($ar); # ahora ordeno las categorias: $cate=explode("\n",$option_categoria); sort($cate); $option_categoria=implode("\n",$cate); # fin de ordenamiento de categorias return $option_categoria; } # fin de funcion opciones de menu $option_categoria=opcionesdemenu(); #x5 encabezado(); echo "

".$tituloagregarvideo."
"; $html = <<< EOH

             
 
 
$titulomail:
$titulolink:     
$usertitulo:
$userdescripcion:
$usercategoria:
$usernewcategoria:

 

 
 
     
EOH; echo $html; # end formulario de sugerir video #if ($paisdetectado == "guatemala") {include("agregarvideo.htm");} #else {include("agregarvehiculogratis.htm");} #else {include("agregarvideo.htm");} piedepagina(); exit; } # fin de accion=publicar ### END de pagina accion=publicar # esto lo hago para que funcione con el 404 del dominio if (substr($zcodigo,0,1) == "/") { $zcodigo=substr($zcodigo,1,1000); $zcodigo=strtolower($zcodigo); # aqui verifico que si solo viene texto que lo busque entonces: # http://www.vendo.me/index.php?palabra=rojo if ($zcodigo=="degrolis") { degrolis();exit; }# fin de if zcodigo es "degrolis" if (($zcodigo=="publicar")or($zcodigo=="p")or($zcodigo=="agregar")) { $nextlink="http://vendo.me/index.php?accion=publicar"; echo ""; exit; }# fin de if zcodigo es "publicar" if (($zcodigo=="remover")or($zcodigo=="b")or($zcodigo=="borrar")or($zcodigo=="eliminar")) { $nextlink="http://www.vendo.me/index.php?accion=remover"; echo ""; exit; }# fin de if zcodigo es "remover" if (($zcodigo=="contactenos")or($zcodigo=="contacto")) { $nextlink="http://www.vendo.me/index.php?accion=contactenos"; echo ""; exit; }# fin de if zcodigo es "contactenos" if (ctype_alpha($zcodigo)==true) { $nextlink="http://www.vendo.me/index.php?palabra=".$zcodigo; echo ""; exit; }# fin de if texto de salsh es texto # aqui verifico que si el codigo es 1 que me los ordene por ultimo ingreso: # http://www.vendo.me/index.php?pais=&categoria=&marca=&linea=&anoi=1950&anof=2012&combustible=&Transmision=&moneda=&precioi=&preciof=&palabra=&B1=Buscar if ($zcodigo=="1") { $nextlink="http://www.vendo.me/index.php?pais=todos&pagina=1"; echo ""; exit; }# fin de if zcodigo es "1" if ($zcodigo != "") {$zcodigo = preg_replace('/[^0-9.]/','',$zcodigo);} }# fin de if viene "/" # si no viene el parametro pagina, muestro la pagina numero 1 if ($pagina == "") {$pagina=1;} $ar=fopen("database.cgi","r"); $a=0; $out=0; while ((!feof($ar))and($out==0)) { # esto lo tuve que hacer por que necesitaba sacar el codigo de youtube sin minudscular: pero creo que aqui se cago el searchsearch $linea=fgets($ar); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xxxlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); #$linea=strtolower($linea); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); #kukin quito los caracteres basuras que estan de mas if (strlen($xcodigo)>11) {$xcodigo=substr($xcodigo,strlen($xcodigo)-11,11);} $xprecio = preg_replace('/[^0-9.]/','',$xprecio);# aqui dejo el precio sin comas # $xmotor = number_format($number); # $xmodelo = number_format($xmodelo); #esto le ponia dos decimales pero quite los decimales: #$xpreciotxt = number_format($xprecio, 2); $xpreciotxt = number_format($xprecio); # ahora reformateo $xkilometraje el reccorido: viene algo asi: 200000 millas: $xkil=explode(" ", $xkilometraje); $xkil[0] = number_format($xkil[0]); $xkilometraje=$xkil[0]." ".$xkil[1]; $xpais=strtoupper($xpais); $xciudad=strtoupper($xciudad); $xnombre=strtoupper($xnombre); ## searchsearch: if (($zcodigo != "")and($zcodigo == $xcodigo)) {$out=1;}# si buscan por codigo aqui paro la cosa para mostrar esa pagina: # pendiente poner not found si codigo viene y no existe $match=1;# asumo que si paso pruebas $searchterms=""; #kiki if (($match == 1)and(strlen($zcategoria) > 0)) { #kuko1b:$zcategoria = str_ireplace("_", " ", $zcategoria); $searchterms .= "&categoria=".$zcategoria; if (strtolower($zcategoria) != strtolower($xcategoria)) {$match=0;} } if (($match == 1)and(strlen($zpalabra) > 0)) { $searchterms .= "&palabra=".$zpalabra; if (substr($zpalabra,0,1) != "-") { $pos = strpos(strtolower($linea), strtolower($zpalabra)); if ($pos === false) {$match=0;} } # esto es para buscar que no contentga: if (substr($zpalabra,0,1) == "-") {$zp2=substr($zpalabra,1,1000); $pos = strpos($linea, $zp2); if ($pos !== false) {$match=0;} } }# fin de search $zpalabra # aqui obligo a que el searchterms empieze con ? if ($searchterms != "") { $searchterms = "?".substr($searchterms,1,1500);} # aqui agrego esa linea a los results: (de error, algo hace que match sea 0 siempre, el TODOS y TODAS es) if (($match==1)and($xcodigo != "")) {$a=$a+1;$lineas[$a] = $linea;} }# fin del while fclose($ar); ## BEGIN codigo invalido dice que ya no esta anuncio: if (($zcodigo != "")and($zcodigo != $xcodigo)) { #x5 encabezado(); $html = <<
 

 

No se encontró el audio con el código $zcodigo en nuestra base de datos, es probable que esa cancion ya haya sido eliminada

EOF; print $html; piedepagina(); exit; } # fin if (($zcodigo != "")and($zcodigo == $xcodigo)) ## END codigo invalido dice que ya no esta anuncio: ## BEGIN html de pantalla unica, pagina individual if (($zcodigo != "")and($zcodigo == $xcodigo)) { #echo "hola hola";exit; $video=$zcodigo; # ahora aqui abro mi database pa ver si tengo permitido el video y leo el title y keyword para evitar malintencionados que usen la pagina con get # y asi leo titulo y descripcion que usar en la pagina y keywrds seo: $title y $descripcion y $tituloseo $dblines=""; $ar=fopen("database.cgi","r"); $a=0;$out=0; while (!feof($ar)) { $linea=(fgets($ar)); $dblines[$a]=$linea;$a=$a+1; #ojo en dblines me queda toda la database para ya no abrir y recorrer el archivo despues list($wcodigo,$wduracion,$wtitulo,$wdescripcion,$wfecha,$wcategoria,$wvotos,$wingreso,$wexxtra) = explode("|", $linea); if ($video == $wcodigo) { $out=1; list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); }# fin de if }# fin del while fclose($ar); if ($out=0) {echo "ERROR: ese audio no se encuentra en nuestra base de datos";exit;} $title=strtoupper($xtitulo); $descripcion=$xdescripcion; # en el futuro puedo mostrar aqui la: categoria, losvotos, fecha ingreso, etc.. # tambien debo ver que el title sea el correcto con este video desde que empieza el site # debo poner un contador de tiempo para luego decir que si pagan un login no esperen # para usar este liketit debo senzar con php el url de arriba: # # $title=utf8_decode($title); $udescripcion=utf8_decode($descripcion); $ucat=strtoupper(utf8_decode($xcategoria)); $ucat = str_ireplace("_", " ", $ucat); $videito=$video; # aqui calculo cual sera $elnextvideo !!, ojo en futuro a quienes no sean tipo2(gratuitos) no les dare next automatico # $elnextvideo= me debe dar un link ya sea el siguiente o el primero si llego al ultimo # entonces calculo la lista de los videos que tengan la categoria xcategoria $videosdecategoria=""; #--aqui recorro again el array $dblines para obtener la lista de los videos relacionados con $xcategoria $b=0;$dbchoosen=""; foreach ($dblines as $linita) { list($wcodigo,$wduracion,$wtitulo,$wdescripcion,$wfecha,$wcategoria,$wvotos,$wingreso,$wexxtra) = explode("|", $linita); if (strtolower($wcategoria)==strtolower($xcategoria)) {$dbchoosen[$b]=$linita;$b=$b+1;} }# fin del foerach linita # eureka aqui ya tengo la db de los escojidos en $dbchoosen, ahora saco el next de los $dbchoosen y si finalizo tonces el 1ero: ## si solo hay un video en esa categoria/busqueda tonces el next sera el index por eso elnextvidoe=""; if (count($dbchoosen) == 1) {$elnextvideo="";} if (count($dbchoosen) > 1) { ###### ## aqui pregunto que si en el setup se definio random en next, tonces que randomize el array de dbchoosen if ($nextvideoautomatico == "2") { shuffle($dbchoosen); } #ojo no es necesario omitir el actual video pues aqui se metera el actual video en $loencontro y buscara el siguiente $c=0; $loencontro=0; $elnextvideo=""; $dbchoosen=array_reverse($dbchoosen); foreach ($dbchoosen as $linito) { list($wcodigo,$wduracion,$wtitulo,$wdescripcion,$wfecha,$wcategoria,$wvotos,$wingreso,$wexxtra) = explode("|", $linito); //list($mcodigo,$mduracion,$mtitulo,$mdescripcion,$mfecha,$mcategoria,$mvotos,$mingreso,$mexxtra) = explode("|", $dbchoosen[$c+1]); if ($loencontro==1) { $elnextvideo=$wcodigo; $loencontro=0; }# fin de if loencontro if ($wcodigo == $xcodigo) { //$elnextvideo=$mcodigo; //$elnextvideo=$wcodigo; $loencontro=1; }# fin de if wcodigo = xcodigo $c=c+1; }# fin del foreach linito # aqui si mcodigo es cero signiface que debe regresar al primer video (en el futuro contemplare un random) if ($elnextvideo == "") { # ahora debe irse al primero list($wcodigo,$wduracion,$wtitulo,$wdescripcion,$wfecha,$wcategoria,$wvotos,$wingreso,$wexxtra) = explode("|", $dbchoosen[0]); $elnextvideo = $wcodigo; } ###### } # fin de if (count($dbchoosen) > 1) ##-- aqui ya tengo a puro tubo $elnextvideo si es "" no hay next y si es algo llamare a ese video en spot: #### ESTO ES ASUMIENDO QUE if ($mostraradsensedesabro=="no") : # aqui determina si muestro adsense o no en el video: # asumo los valores para un usuario sin adsense: $realduracion=min2sec($xduracion)+1; $realtime=sec2min($realduracion); list ($realminutos,$realsegundos) = explode(":",$realtime); $videocode = ""; if ($nextvideoautomatico > 0) { # aqui significa que SI viene next automatico ya sea secuencial o random $videocode.=' '; $videocode.=''; }# fin de if if ($nextvideoautomatico > 0) #viduno: (weigth=480 yheigth era 385, le puse 1x1) $videocode.='

ANUNCIO PATROCINADO:

'; $videocode.='

'; ### FIN DE ASUMIDA DE QUE if ($mostraradsensedesabro=="no") : if ($mostraradsensedesabro=="si") { $realduracion=$realduracion + 5; $realtime=sec2min($realduracion); list ($realminutos,$realsegundos) = explode(":",$realtime); $videocode = ""; $activaciondelnext=""; if ($nextvideoautomatico > 0) { $videocode.=' '; $activaciondelnext="startclock();"; }# fin del if ($nextvideoautomatico > 0) # con esto hago que no se muestre nada de extracode a los visitantes ni # a los de pago, solo a los registrados grtatis para obligarlos a que vean # una publicidad extra if ($tipodelogin != 1) {$extracodewritestuff="";} ## chapulin de speech para que hable mi anuncio de 10 segundos mientras carga video: #$extracodewritestuff=''; #perfect: $extracodewritestuff=''; #malogoogle: $extracodewritestuff=''; # pongo un random de cada 4 rolas mi audi anuncio para no aburrir a la mara $extracodewritestuff=''; ## anuncio perfecto tipo robot sin google: ## if (rand(1,4)==2) { ## $anunciodeaudio=""; ## $ar=fopen("anuncios.txt","r"); $b=0;$array=""; while ( !feof($ar) ) { $linea=fgets($ar); $array[$b]=$linea; $b=$b+1; } fclose($ar); ## $i=rand(0,$b); ## $anunciodeaudio=$array[$i]; ## $anunciodeaudio=strtolower(str_ireplace(" ","+",$anunciodeaudio)); ## $anunciodeaudio=preg_replace("/[\n\r]/","",$anunciodeaudio); ## ## if ($anunciodeaudio=="") {$anunciodeaudio="si+necesita+una+página+web+contrátela+en+triple+doble+ve+punto+sabro.net";} ## ## en el futuro para no sobrecargar el api de google con mi ip, hare una funcion qye sea sabro/tools/playaudio.php?txt=eltexto ## ## esa funcion verificara una db si ya tengo ese texto que nombre de archivo mp3 tiene asignado y le da autoplayflash a ese mp3 sino lo crea entonces y le da play ## ## $extracodewritestuff=''; ## }# fin de if (rand(1,4)==2) ## anuncio con mp3 generado por google, verifica si existe file anuncio.mp3 si no existe lo genera aqui: ## OJO (solo sirve para un audio, para cambiarlo debo borrar en root archivo: anuncio.mp3 y cambiar aqui el texto en $words=...) if (rand(1,4)==2) { #if (1==1) { if (rand(1,2)==2) {$extracodewritestuff='';} else { if (file_exists("anuncio.mp3")) {$extracodewritestuff='';} if (!file_exists("anuncio.mp3")) { #$words="si necesita registrar un dominio punto com, o contratar un hosting, o diseñar una página web, visite triple doble ve punto sabro.net"; #$words="si+necesita+registrar+un+dominio+punto+com,+o+contratar+un+hosting,+o+diseñar+una+página+web,+visite+triple+doble+ve+punto+sabro.net"; #OJO: 71 caracteres maximo: $words="si+necesitas+una+pa+gina+web,+visitá+triple+doble+ve+punto:+sa+bro.net"; $mp3 = file_get_contents_curl('http://translate.google.com/translate_tts?tl=es&q='.$words); $file = fopen("anuncio.mp3", "w+");fwrite($file, $mp3."\n");fclose($file); #$extracodewritestuff=''; #$extracodewritestuff=''; $extracodewritestuff=''; }# fin de if (!file_exists("anuncio.mp3")) }#findel else }# fin de if (rand(1,4)==2) # prohibido1 x adsense: # $videocode.='





Loading ....

'.$extracodewritestuff.'

'; # $videocode.='
'; #kizkiz: $videocode.='



'.$extracodewritestuff.'


'; ##x Esto era el player de los registrador gratis tipo1: ##x #viddos: ##x $videocode.='
ANUNCIO PATROCINADO:

'; ##x $videocode .= '

'; #viduno: (weigth=480 yheigth era 385, le puse 1x1), para los tipo1: $videocode.='

ANUNCIO PATROCINADO:

'; $videocode.='

'; }# fin del if $urlactual=curPageURL(); #x5 if ($tipodelogin==0) {$interrumpirvideo="si";} encabezado(); $botonfullscreen=''; if ($tipodelogin==1) { $targetlink='"index.php?zaccion=myaccount"'; #x5_zamzarno: $botonfullscreen='

'.$txtdownloadvideo.'

'; $botonfullscreen='

'; }# fin de if tipo==1 if ($tipodelogin==2) { $targetlink='"http://www.zamzar.com/url/?u=http://www.youtube.com/watch?v='.$videito.'" target=_blank'; #x5_zamzarno: $botonfullscreen='

'.$txtdownloadvideo.'

'; $botonfullscreen='

'; }# fin de if tipo==2 $divdelcontador=""; if ($nextvideoautomatico > 0) { $divdelcontador='

Tiempo para cambiar de cancion:
'; }# fin del if ($nextvideoautomatico > 0) ## aqui empiezo a contarle como cookie (galletas) las canciones al tipodelogin==1 (al registrado gratis) y si ya paso de 10 lo mando a su cuenta: if ($tipodelogin==1) { $_SESSION['limite']=$_SESSION['limite']+1; if ($_SESSION['limite']>5) {echo "";exit;} }# fin de if ($tipodelogin==1) { $html = <<

$pretitulodevideo $ucat

$title

$udescripcion

$videocode
$divdelcontador $textoregresar $botonfullscreen
$textoreportar

$textobotonreportar

EOF; print $html; if ($mostrarcomentarios=="si") { $urlactual=curPageURL(); $html = <<
blog comments powered by Disqus EOF; print $html; } # fin del if ($mostrarcomentarios=="si") piedepagina(); exit; }# fin de if (($zcodigo != "")and($zcodigo == $xcodigo)) ## END html de pantalla unica $totaldelineas=$a; #poshposh #$totaldelineas=10; if ($totaldelineas < 1) { #x5 encabezado(); $html = <<
 

 

$nosearch

EOF; print $html; } if ($totaldelineas > 0) { # aqui voy a hacer offset, el total de lineas matched lo tiene $a (los filtros de search estan up) # de $a sacare el total de pantallas dividiendolo en 15 carros # offset, 2424 o 1616 $pantallas = $totaldelineas / $elementos; if ($pagina > $pantallas) {$pagina=1;} # aqui redondeo y le sumo mas si trae decimales: if ($pantallas > intval($pantallas)) { $pantallas = intval($pantallas) + 1;} #reverso el array para mostrar primero los ultimos ingresos: ## esto em invierte el array para desplegar de primero los ultimos # con esto quilo la 1er linea que no sirve para que no me de error #$lineas=array_shift($lineas); $lineas=array_reverse($lineas); ## esto me los randomiza al tinmarin: # esto lo hice para randomizar si no hay busqueda si solo es el index: #if ($searchterms=="") {shuffle($lineas);} if ($entrodirecto == 1) {shuffle($lineas);} ## aqui me barajea sea cual sea el termino de busqueda para que se vayan todo ## shuffle($lineas); #$lineas=array_rand($lineas); #$lineas=array_rand($lineas,count($lineas)); #PERFECTO: shuffle($lineas); << se usa sin asignar pero no respeta los next # $html = <<< EOH #
# EOH; # echo $html; ######### ### begin del foreach que muestra las cajitas en la $pantalla pedida minithumbs minifotos ######### $carritos=$elementos;# este es el numero de carritos a mostrar por pantalla ##$carritos=16; #cucote: $pagina=$_GET['pagina']; if ($pagina == "") {$pagina=1;} #$tituloh1=$textodegaleria; if ($zcategoria != "") { $zcategoria = str_ireplace("_", " ", $zcategoria); $tituloh1=$pretitulodevideo." ".strtoupper($zcategoria);} #x5 encabezado(); #$anuncio1='
Mas de 100,000 letras de canciones gratis en www.letradecanciones.com.net.gt

'; ##$anuncio1='
Mas de 100,000 letras de canciones gratis en www.letradecanciones.com.net.gt   Descarga Gratis Biblia en PDF
'; $anuncio1='

'; echo "

".$tituloh1."

".$anuncio1."
"; ##xxxx5: echo "

".$tituloh1."


"; # echo "esto se imprime antes del foreach de cajitas | la linea 1 es: ".$lineas[0];exit;#poshposh # aqui muestro BEGIN del form para editar cajitas, solo si es masterpsw: if ($_SESSION['userid']==$masterpsw) {echo "
";} # ahora hago el froeach de cajitas: $b=0;$c=0; foreach ($lineas as $n) { $b=$b+1; #kikiki arregla 1er linea quizas #$n = preg_replace("/[\n\r]/","",$n); list($codigo,$duracion,$titulo,$descripcion,$fecha,$categoria,$votos,$ingreso,$exxtra) = explode("|", $n); #echo "La linea 1 es: ".$n." y el codigo es:".$codigo;exit;#poshposh ## esto son de las minifotos: $modelo = number_format($modelo); # esto ponia precio con decimales pero de los quite: $precio = number_format($precio, 2); $precio = number_format($precio); $moneda=strtoupper($moneda); $marca=strtoupper($marca); $linea=strtoupper($linea); #echo "aqui ya entro al foreach con linea n: ".$n;exit;#poshposh #$codigo="Ebjb5WHxhKk";#poshposh errror:no detecta codigo yo tube que ponerlo if ($codigo != "") { $c=$c+1; #bueno: if ( ($c > (15*($pagina-1)) )and($c < 15*($pagina)+1)) { if ( ($c > ($carritos*($pagina-1)) )and($c < $carritos*($pagina)+1)) { #echo "yupi"; $seominidata=strtoupper($marca).' '.strtoupper($linea).' Modelo '.$modelo.' se Vende en '.strtoupper($pais).' | Vendo.me/'.$codigo; # echo "Marca:".$marca."-Linea:".$linea."-Modelo:".$modelo."-Precio:".$precio."-Fecha:".$fechaingreso."Foto:

"; # como estetica pongo en mayusucla la marca y la linea: $marcatxt=strtoupper($marca); $marcatxt=substr($marcatxt,0,9); $lineatxt=strtoupper($linea); $lineatxt=substr($lineatxt,0,9); $paisx=strtoupper(substr($pais,0,10)); $moneda=substr(strtoupper($moneda),0,10); # esta linea la puse porque al primer video siempre le aparecian 3 chars raros # if ($c==1) {$codigo=substr($codigo,3,500);} if (strlen($codigo)>11) {$codigo=substr($codigo,strlen($codigo)-11,11);} if ( ( ($c+3) % 4 ) == 0) { # esto es que es primer caso $cerrotabla=0; $html = <<< EOH EOH; echo $html; } ####### fin de cuadrito inicial if ( ( ($c+2) % 4 ) == 0) { # esto es que es segundo caso $html = <<< EOH EOH; echo $html; } ####### fin de cuadrito if ( ( ($c+1) % 4 ) == 0) { # esto es que es tercer caso $html = <<< EOH EOH; echo $html; } ####### fin de cuadrito if ( ( $c % 4 ) == 0) { # esto es que es cuarto caso $html = <<< EOH
      
EOH; echo $html; thumbvideo($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra); $html = <<< EOH
EOH; echo $html; thumbvideo($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra); $html = <<< EOH
EOH; echo $html; thumbvideo($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra); $html = <<< EOH
  
EOH; echo $html; thumbvideo($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra); $html = <<< EOH
EOH; echo $html; $cerrotabla = 1; } ####### fin de cuadrito final }# fin de if ( ($c > ($carritos*($pagina-1))-1 )and($c < $carritos*($pagina))) }# fin de if $marca }# fin del foreach de cajitas # aqui muestro END del form para editar cajitas, solo si es masterpsw: if ($_SESSION['userid']==$masterpsw) {echo '
';} ######### ### FIN del foreach que muestra las cajitas en la $pagina pedida ######### if ($cerrotabla == 0) { $html = <<< EOH

EOH; echo $html; } ## aqui muestro los numeritos para el offset: ## aqui muestro los adsense de 2 cajitas jstexto tipo mariobros: $html = <<< EOH


EOH; ## ya no imprimo los dos cuadros de maribros: ## echo $html; #kuko: #$entrodirecto=0; ## ##if ($searchterms != "") { if ($entrodirecto == 0) { //foreach ($pantallas as $i) { echo "

TOTAL ($totaldelineas):"; for ($i = 1; $i <= $pantallas; $i++) { ## if ($searchterms != "") { if ($entrodirecto == 0) { if ($searchterms != "") { $html = <<< EOH $i | EOH; echo $html; }# fin de if if ($searchterms == "") { $html = <<< EOH $i | EOH; echo $html; }# fin de if } ## if ($searchterms == "") { if ($entrodirecto == 1) { $html = <<< EOH $i | EOH; echo $html; } }# fin del for que hace los numeritos echo ""; echo '

'; }# fin de if ($searchterms != "") ## if ($searchterms == "") { if ($entrodirecto == 1) { $html = <<< EOH



EOH; echo $html; }# fin de if ($searchterms == "") } # fin del if ($totaldelineas > 0) ## anuncio del bottom de contratnado vendedores y promotores: # aqui pongo anuncio de representate autorizado, solo en los paises que ya se esta cobrando, ej:guatemala if ($zpais == "guatemala") { $html = <<< EOH

EOH; echo $html; }# fin de if ($zpais == "guatemala") piedepagina(); function myurlencode($string) { $entities = array('%21', '%2A', '%27', '%28', '%29', '%3B', '%3A', '%40', '%26', '%3D', '%2B', '%24', '%2C', '%2F', '%3F', '%25', '%23', '%5B', '%5D'); $replacements = array('!', '*', "'", "(", ")", ";", ":", "@", "&", "=", "+", "$", ",", "/", "?", "%", "#", "[", "]"); return str_replace($entities, $replacements, urlencode($string)); } function thumbvideo_old($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra){ global $thumbtitulo; global $thumbduracion; global $thumbfecha; global $thumbcategoria; global $estesite; global $colorthumbfondo; global $colorthumbtexto1; global $colorthumbtexto2; global $txtreportarvideoroto; $titulo=utf8_decode($titulo)." | ".$estesite; $seominidata=$titulo; $descripcion=utf8_decode($descripcion); $cat2=strtoupper($categoria); $catguion=$cat2; $cat2= str_ireplace("_", " ", $cat2); # aqui podira acorta la categoria aun mas: # $cat2=substr($categoria,0,45); $foto="http://i2.ytimg.com/vi/".$codigo."/default.jpg"; #esto viene en setup.php: #$colordetextos="#000000"; #$colorthumbfondo="#efefef"; #$colorthumbtexto1="#000000"; #$colorthumbtexto2="#000000"; $html = <<< EOH
$titulo

$thumbtitulo: $titulo
$thumbduracion:
$duracion
$thumbfecha: $fecha
$thumbcategoria: $cat2
[X] $txtreportarvideoroto

EOH; echo $html; #bgcolor } # fin de funcion thumbvideo_old ####### ####### ####### function thumbvideo($codigo,$titulo,$descripcion,$duracion,$fecha,$categoria,$votos,$ingreso,$exxtra){ global $c; global $masterpsw; global $thumbtitulo; global $thumbduracion; global $thumbfecha; global $thumbcategoria; global $estesite; global $colorthumbfondo; global $colorthumbtexto1; global $colorthumbtexto2; global $txtreportarvideoroto; global $userdescripcion; $minidescripcion=substr($descripcion,0,100); # $titudescripcion=strtoupper($userdescripcion); $titudescripcion="DESC."; $minidescripcion = wordwrap($minidescripcion, 8, "\n", true); #guacala: #$titulo=utf8_decode($titulo)." | ".$estesite; #con esto espero quitar clavoclavo de linea1 #$codigo = preg_replace('/[^0-9]/','',$codigo); $seominidata=$titulo; ##$descripcion=utf8_decode($descripcion); $cat2=strtoupper($categoria); $catguion=$cat2; $cat2= str_ireplace("_", " ", $cat2); # aqui podira acorta la categoria aun mas: # $cat2=substr($categoria,0,45); global $thumbtitulo; global $thumbduracion; global $thumbfecha; global $thumbcategoria; global $estesite; global $colorthumbfondo; global $colorthumbtexto1; global $colorthumbtexto2; global $txtreportarvideoroto; # ya no agrego pipe pa no cagar detabase: $titulo=utf8_decode($titulo)." | ".$estesite; $titulo=utf8_decode($titulo); $seominidata=$titulo; $descripcion=utf8_decode($descripcion); $cat2=strtoupper($categoria); $catguion=$cat2; $cat2= str_ireplace("_", " ", $cat2); # aqui podira acorta la categoria aun mas: # $cat2=substr($categoria,0,45); $foto="http://i2.ytimg.com/vi/".$codigo."/default.jpg"; #esto viene en setup.php: #$colordetextos="#000000"; #$colorthumbfondo="#efefef"; #$colorthumbtexto1="#000000"; #$colorthumbtexto2="#000000"; # aqui muestro los textfields para cambiar titulo, descripcion, borrar o cambiar categoria solo si es masterpsw $cambios=""; if ($_SESSION['userid']==$masterpsw) {$cambios='
Titulo:
Desc.:
Cat.:
BORRAR
';} $titulo = wordwrap($titulo, 8, "\n", true);# aqui parto los textos de titulos de 8 en 8 maximo $html = <<< EOH
$titulo $cambios

$thumbtitulo: $titulo
$titudescripcion:
$minidescripcion...
$thumbcategoria: $cat2
[X] $txtreportarvideoroto

EOH; echo $html; #bgcolor } # fin de funcion thumbvideo ## funfun funciones: function mail_attachment($filename, $path, $mailto, $from_mail, $from_name, $replyto, $subject, $message) { $file = $path.$filename; $file_size = filesize($file); $handle = fopen($file, "r"); $content = fread($handle, $file_size); fclose($handle); $content = chunk_split(base64_encode($content)); $uid = md5(uniqid(time())); $name = basename($file); $header = "From: ".$from_name." <".$from_mail.">\r\n"; $header .= "Reply-To: ".$replyto."\r\n"; $header .= "MIME-Version: 1.0\r\n"; $header .= "Content-Type: multipart/mixed; boundary=\"".$uid."\"\r\n\r\n"; $header .= "This is a multi-part message in MIME format.\r\n"; $header .= "--".$uid."\r\n"; $header .= "Content-type:text/plain; charset=iso-8859-1\r\n"; $header .= "Content-Transfer-Encoding: 7bit\r\n\r\n"; $header .= $message."\r\n\r\n"; $header .= "--".$uid."\r\n"; $header .= "Content-Type: application/octet-stream; name=\"".$filename."\"\r\n"; // use different content types here $header .= "Content-Transfer-Encoding: base64\r\n"; $header .= "Content-Disposition: attachment; filename=\"".$filename."\"\r\n\r\n"; $header .= $content."\r\n\r\n"; $header .= "--".$uid."--"; if (mail($mailto, $subject, "", $header)) { ## esto dice que ya fue enviado ## echo "mail send ... OK"; // or use booleans here } else { echo "mail send ... ERROR!"; } }# fin de funcion mailattachment function minifoto ($lefile) { $simg = imagecreatefromjpeg($lefile); // Make A New Temporary Image To Create The Thumbanil From $currwidth = imagesx($simg); // Current Image Width $currheight = imagesy($simg); // Current Image Height $newwidth = 122; // Creates The New Width $newheight = 92; // Height Is Equal To Max Height $dimg = imagecreatetruecolor($newwidth,$newheight); imagecopyresampled($dimg, $simg, 0, 0, 0, 0, $newwidth, $newheight, $currwidth, $currheight); // Copy Resized Image To The New Image (So We Can Save It) #$lefile2=$lefile."mini"; ## ejemplo: foto7_1mini.jpg $lefile=strtolower($lefile); $lefile2= str_ireplace(".jpg", "", $lefile); $lefile2=$lefile2."mini.jpg"; imagejpeg($dimg, $lefile2); // Saving The Image imagedestroy($simg); // Destroying The Temporary Image imagedestroy($dimg); // Destroying The Other Temporary Image }# fin funcion minifoto function watermark ($SourceFile, $DestinationFile) { $watermark = imagecreatefrompng('watermark.png'); $watermark_width = imagesx($watermark); $watermark_height = imagesy($watermark); $image = imagecreatetruecolor($watermark_width, $watermark_height); $image = imagecreatefromjpeg($SourceFile); $size = getimagesize($SourceFile); $dest_x = $size[0] - $watermark_width - 5; $dest_y = $size[1] - $watermark_height - 5; imagecopymerge($image, $watermark, $dest_x, $dest_y, 0, 0, $watermark_width, $watermark_height, 100); # de esta forma solo muestra la foto en browser: imagejpeg($image); # con esta coma me lo graba en server, una segunda coma me daria la calidad ## Nop ude hacer que se grabara asi: imagejpeg($image,'fotox2.jpeg',100); imagejpeg($image,$DestinationFile,100); // imagejpeg($image); # la solucion que se me ocurre para grabarlo es hacerme un get content file a este link y grabarlo como jpg imagedestroy($image); imagedestroy($watermark); };# fin de funcion watermark function achiquitar ($lefile) { $simg = imagecreatefromjpeg($lefile); // Make A New Temporary Image To Create The Thumbanil From $currwidth = imagesx($simg); // Current Image Width $currheight = imagesy($simg); // Current Image Height $newwidth = 400; // Creates The New Width $newheight = 300; // Height Is Equal To Max Height $dimg = imagecreatetruecolor($newwidth,$newheight); imagecopyresampled($dimg, $simg, 0, 0, 0, 0, $newwidth, $newheight, $currwidth, $currheight); // Copy Resized Image To The New Image (So We Can Save It) imagejpeg($dimg, $lefile); // Saving The Image imagedestroy($simg); // Destroying The Temporary Image imagedestroy($dimg); // Destroying The Other Temporary Image }# fin funcion achiquitar function errorbox2($error) { $html = <<< EOH

  

     
 
 
$error
 
 
     

EOH; echo $html; exit; }# fin fucniton errorbox function min2sec($itime){ #vienen minutos - obligatoriamente con : #calcula segundos de un tiempo en minutos como 7:23 (ojo da error si viene con hora asi 01:07:23 pues tomaria 1minuto con 7segs poreso solo es para youtube de menos de 1 hora) list($imin,$isec)=explode(":",$itime); $segundos=$imin*60+$isec; return ($segundos); }# fin de funcion min2sec function sec2min($seconds){# vienen segundos un numero planito y da xx:yy /// get minutes $minResult = floor($seconds/60); // if minutes is between 0-9, add a "0" --> 00-09 // if($minResult < 10){$minResult = 0 . $minResult;} /// get sec $secResult = ($seconds/60 - $minResult)*60; /// if secondes is between 0-9, add a "0" --> 00-09 if($secResult < 10){$secResult = 0 . $secResult;} /// return result // echo $minResult,":",$secResult; #$secResult=substr($secResult,0,2); $result= $minResult.":".$secResult; return ( $result ); } // fin de funcion sec2min function simplexml_load_file_curl($url) { $xml=""; if(in_array('curl', get_loaded_extensions())){ $ch = curl_init($url); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); $xml = simplexml_load_string(curl_exec($ch)); curl_close($ch); } else{ $xml = simplexml_load_file($url); } return $xml; }# fin de funcion simplexml_load_file_curl($url) function diasdesdefecha($ifecha) { #la ifecha viene en formato "dd/mm/aaaa"; #calculo fecha de hoy quitando dos horas de miami $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); #$fechahoy=date("d/m/Y",mktime($h+2,$m,$s,$m,$d,$a)); # defino fecha 1 hoy $ano1 = date("Y",mktime($h+2,$m,$s,$m,$d,$a)); $mes1 = date("m",mktime($h+2,$m,$s,$m,$d,$a)); $dia1 = date("d",mktime($h+2,$m,$s,$m,$d,$a)); //defino fecha 2 ayer la ingresada, ej.: 26/05/2010 $ano2 = substr($ifecha,6,4); $mes2 = substr($ifecha,3,2); $dia2 = substr($ifecha,0,2); //calculo timestam de las dos fechas $timestamp1 = mktime(0,0,0,$mes1,$dia1,$ano1); $timestamp2 = mktime(4,12,0,$mes2,$dia2,$ano2); //resto a una fecha la otra $segundos_diferencia = $timestamp1 - $timestamp2; //echo $segundos_diferencia; //convierto segundos en días $dias_diferencia = $segundos_diferencia / (60 * 60 * 24); //obtengo el valor absoulto de los días (quito el posible signo negativo) $dias_diferencia = abs($dias_diferencia); //quito los decimales a los días de diferencia $dias_diferencia = floor($dias_diferencia); return $dias_diferencia; } # fin de funcion diasdesdefecha function encabezado() { ## ojo con este globalerio: global $estesite; global $alineaciontopad; global $botondebuscar; global $botondecontactenos; global $botondeultimos; global $colordetextos; global $colorfondobotones; global $colorfondobuscador; global $colorfondointerno; global $colortextobotones; global $colorthumbfondo; global $colorthumbtexto1; global $colorthumbtexto2; global $imagenfondointerno; global $logeado; global $loginbox; global $menudecategorias; global $mostraradsensedesabro; global $mostrarbuscador; global $opcion_categorias; global $opciondelogin; global $sabroad; global $textodeagregar; global $textodecontactenos; global $textodeinicio; global $textodeultimos; global $tituloseo; global $signup; global $rememberpsw; global $myaccounttxt; global $interrumpirvideo; global $txtusuario; global $opciondelogin; global $seodescripcion; global $seokeywords; if ($seodescripcion == "") {$seodescripcion=$tituloseo;} if ($seokeywords == "") {$seokeywords=$tituloseo;} ## aqui le agrego el codigo de interrumpir si viene de writestuff y si tipodelogin==0 $codigodeinterrumpir=""; if ($opciondelogin == "si") { if ($interrumpirvideo=="si") {$codigodeinterrumpir='';} } # fin de if opciondelogin==si ### opciones de categorias $opcion_categorias=""; if ($menudecategorias=="si") { $ar=fopen("categorias.cgi","r"); while (!feof($ar)) { $linea = strtoupper(fgets($ar)); if ($linea != "") { $mostrax=substr($linea,0,45); $mostrax=str_ireplace("_", " ", $mostrax); $linea=str_ireplace(" ", "_", $linea); # aqui le quito a la $linea el _(numero) para que el link funcione $lux=explode("_(", $linea); $linea=$lux[0]; $opcion_categorias .= '

'.$mostrax.'


'; } # fin del if }#fin del while fclose($ar); }# fin de if ($menudecategorias=="si") ## fin de opcionesunicas # aqui imprime el encabezado $html = <<< EOH $tituloseo $codigodeinterrumpir
EOH; echo $html; include("top.htm"); #$sabroad=''; #if ($mostraradsensedesabro=="si") {$sabroad='
';} $sabroad=''; ## antes mostraba adsense en top: if ($mostraradsensedesabro=="si") {$sabroad='';} ## ahora muestro mi banner de sabrosabro: #$sabroad='Software para grabar llamadas telefonicas, grabador de sonidos activado por voz, www.grabaciones.us'; #$sabroad='Control Remoto Web, automatizacion y domotica, controle sus aparatos electricos por internet'; $sabroad='

www.. COM  

'; $sabroad='
www.Sabro.net El Mejor Hosting de Guatemala
www.. COM  
'; ## ojoxojo2103febrero5 esto lo puse para administrar los banners desde sabro ya sea espanol o ingles para cualquier otro idioma global $idioma; $sabroad=''; if (strtolower($idioma) != "espanol") {$sabroad='';} $loginbox=""; if ($opciondelogin=="si") { # aqui tambien debo poner un link que diga myaccount donde se detalle sus datos y su saldo # pendiente: poner en setup una opcion que envie via cron recordatorios como medicos o sino solo diga vencio y cuando # pendiente hacer en setup.cgi o index?accion=admin un form para setupear los datos con master psw cambiable if ($logeado == "si") { $loginbox = "LOGOUT
".$myaccounttxt.""; } if ($logeado == "no") { $loginbox .='
'; $loginbox .=' '; $loginbox .='
'; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .=' '; $loginbox .='
'.$txtusuario.':
Password:
'.$signup.'
'.$rememberpsw.'
'; $loginbox .='
'; $loginbox .='
'; } # fin de if ($logeado == "no") }## fin de if ($opciondelogin=="si") $alineaciontopad=right; if ($opciondelogin != "si") {$alineaciontopad=center;} $html = <<< EOH
$sabroad $loginbox

EOH; echo $html; if ($mostrarbuscador=="si") { $html = <<< EOH

 


EOH; echo $html; }# fin de if ($mostrarbuscador=="si") $html = <<< EOH EOH; echo $html; #adsbajosearch $sabroad=''; ##yanel links: if ($mostraradsensedesabro=="si") {$sabroad='ANUNCIOS PATROCINADOS:


';} $html = <<< EOH $sabroad

$textodeinicio


$textodeagregar


$opcion_categorias EOH; echo $html; if ($botondeultimos=="si") { $html = <<< EOH

$textodeultimos


EOH; echo $html; }# fin de if ($botondeultimos=="si") if ($botondecontactenos=="si") { $html = <<< EOH

$textodecontactenos

EOH; echo $html; }# fin de if ($botondecontactenos=="si") include("5a.htm"); $html = <<< EOH

EOH; echo $html; ## fin del top # aqui termina de imprimir el encabezado }# fin de funcion encabezado function piedepagina() { global $mostraradsensedesabro; $sabroad=''; if ($mostraradsensedesabro=="si") {$sabroad='

';} $html = <<< EOH

 

$sabroad EOH; echo $html; ## ojoxojo2103febrero5 esto lo puse para administrar los banners desde sabro ya sea espanol o ingles para cualquier otro idioma global $idioma; $sabroad5b=''; if (strtolower($idioma) != "espanol") {$sabroad5b='';} echo $sabroad5b."
"; include("5b.htm"); ## inicio del bottom $html = <<< EOH

 

EOH; echo $html; include("bottom.htm");# ojo el include solo puede ser local pues hostdime no permite include a url externos, tendria que hacerlo con curl $html = <<< EOH

 

EOH; print $html; }# fin de funcion piedepagina que imprime el bottom function tabladelike($zpais2) { if ($zpais2 == "guatemala") { #if ($paisdetectado == "guatemala") { $bannersobrecaras="
"; $bannersidecaras="";} else { $bannersobrecaras="
"; $bannersidecaras=""; } $html = <<< EOH

$bannersobrecaras $bannersidecaras

EOH; # cucote likelike, aqui solo quito este echo y ya se para de mostrar el facebookfaces: echo $html; }#fin de function tabla de like function regrabarmenu() { # esto me recalcula el menu en base a las categorias de los videos ##### ##### ##### AQUI GRANO LAS OPCIONES*.CGI ##### ##### # calculo todos los que hay, abro database: $option_categoria=""; $ar=fopen("database.cgi","r"); $ar2="";$ar3=""; $a=0;$b=0; while (!feof($ar)) { $lineadb=strtoupper(fgets($ar)); $ar2[$b]=$lineadb; #$ar2[$b] = preg_replace("/[\n\r]/","",$ar2[$b]); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $lineadb); $ar3[$b]=$xcategoria; $b=$b+1; $xcategoria=substr($xcategoria,0,45); #if ($xcategoria != "") {$pos1 = strpos(strtolower($option_categoria), strtolower($xcategoria)); if ($pos1 === false) {$xcategoria=substr($xcategoria,0,45);$option_categoria.= $xcategoria."\n";}} if ($xcategoria != "") {$pos1 = strpos(strtolower($option_categoria), strtolower($xcategoria)); if ($pos1 === false) {$xcategoria=strtolower(substr($xcategoria,0,45));$option_categoria.= $xcategoria."";}} }# fin del while fclose($ar); # ya tengo la idea para hacerle numero de apariciones (x), debo convertir el $opt.. en array # luego debo pra cada elemento del array pasar por la dbase y contar apariciones y meodificar con () # esto me ordena en orden alfabetico las opciones de select: # $op1=explode("",$option_categoria); # sort($op1); # $comodin=implode("",$op1); # $comodin = preg_replace("/[\n\r]/","",$comodin); # $comodin = str_ireplace("", "\n", $comodin); # $option_categoria=$comodin; $op1=explode("",$option_categoria); sort($op1);# aqui tengo todas las categorias ya ordenadas en el array $op1[] ## ahora cuento ocurrencias y lo agrego a cada elemento del vector con (x) ## para esto abro db y hago dos loops, uno para recorres elems y luego recorro db $b=0; $elmenu=""; $menufinal=""; foreach ($op1 as $ci) { #este el el foreach de array op1 (listado de categs) $originalcat=$ci; $casos=0; foreach ($ar3 as $ti) { if ( strtolower($ci) == strtolower($ti) ) {$casos=$casos+1;} }# fin del foreach $ar3 # obligo a que cada item del menu sea grabado con _ en vez de espacios: $ci = str_ireplace(" ", "_", $ci); $elmenu[$b]=$ci." (".$casos.")"; if (strlen($ci)>2) {$menufinal.=$elmenu[$b]."\n";} $b=$b+1; }# fin del foreach $op1 # xixix $ar3txt=implode("\n",$ar3); $op1txt=implode("\n",$op1); # echo "ar3 es:".$ar3txt; echo "

"; echo "op1 es:".$op1txt; exit; $option_categoria=$menufinal; # aqui me saca ya el string de menu con enteres y (casos) # $comodin=implode("",$op1); # $comodin = preg_replace("/[\n\r]/","",$comodin); # $comodin = str_ireplace("", "\n", $comodin); # $option_categoria=$comodin; $file = fopen("categorias.cgi", "w+"); fwrite($file, $option_categoria); fclose($file); ### ### ### FIN de GRABACION DE OPCIONES*.CGI << ahora ya no importa si ya se vendio algo pues con cada ingreso se updatea lo que hay ### ### }# fin de funcion regrabarmenu function regrabaropciones() { ##### ##### ##### AQUI GRANO LAS OPCIONES*.CGI ##### ##### ## aqui actualizo las opciones.cgi para que puedan ser buscados los NUEVO ingresos y las grabo: # calculo todos los paises que hay, abro database: $ar=fopen("database.cgi","r"); $a=0; while (!feof($ar)) { $linea=strtoupper(fgets($ar)); #list($xcodigo,$xfechaingreso,$xvendido,$xnombre,$xtelefonos,$xemail,$xpais,$xciudad,$xcategoria,$xmarca,$xlinea,$xmodelo,$xpuertas,$xcolor,$xtapiceria,$xmotor,$xcilindros,$xkilometraje,$xtransmision,$xcombustible,$xaros,$xradio,$xorigen,$xaire,$xbolsas,$xcerradura,$xvidrios,$xtimon,$xespejos,$xalarma,$xpolarizado,$xextras,$xmoneda,$xprecio,$xnegociable,$xaceptavehiculo,$xlinkyoutube) = explode("|", $linea); list($xcodigo,$xduracion,$xtitulo,$xdescripcion,$xfecha,$xcategoria,$xvotos,$xingreso,$xexxtra) = explode("|", $linea); if ($xpais != "") {$pos1 = strpos($option_pais, $xpais); if ($pos1 === false) {$xpais=substr($xpais,0,15);$option_pais.="\n";}} if ($xmarca != "") {$pos2 = strpos($option_marca, $xmarca); if ($pos2 === false) {$xmarca=substr($xmarca,0,15);$option_marca.="\n";}} if ($xlinea != "") {$pos3 = strpos($option_linea, $xlinea); if ($pos3 === false) {$xlinea=substr($xlinea,0,15);$option_linea.="\n";}} if (($xmoneda != "")and(strtolower($xmoneda) != "no mostrar")) {$pos4 = strpos($option_moneda, $xmoneda); if ($pos4 === false) {$xmoneda=substr($xmoneda,0,15);$option_moneda.="\n";}} }# fin del while fclose($ar); # esto me ordena en orden alfabetico las opciones de select: $op1=explode("",$option_pais); sort($op1); $comodin=implode("",$op1); $comodin = preg_replace("/[\n\r]/","",$comodin); $comodin = str_ireplace("", "\n", $comodin); $option_pais=$comodin; $op2=explode("",$option_marca); sort($op2); $comodin=implode("",$op2); $comodin = preg_replace("/[\n\r]/","",$comodin); $comodin = str_ireplace("", "\n", $comodin); $option_marca=$comodin; $op3=explode("",$option_linea); sort($op3); $comodin=implode("",$op3); $comodin = preg_replace("/[\n\r]/","",$comodin); $comodin = str_ireplace("", "\n", $comodin); $option_linea=$comodin; $op4=explode("",$option_moneda); sort($op4); $comodin=implode("",$op4); $comodin = preg_replace("/[\n\r]/","",$comodin); $comodin = str_ireplace("", "\n", $comodin); $option_moneda=$comodin; $file = fopen("opcionespais.cgi", "w+"); fwrite($file, $option_pais); fclose($file); $file = fopen("opcionesmarca.cgi", "w+"); fwrite($file, $option_marca); fclose($file); $file = fopen("opcioneslinea.cgi", "w+"); fwrite($file, $option_linea); fclose($file); $file = fopen("opcionesmoneda.cgi", "w+"); fwrite($file, $option_moneda); fclose($file); ### ### ### FIN de GRABACION DE OPCIONES*.CGI << ahora ya no importa si ya se vendio algo pues con cada ingreso se updatea lo que hay ### ### }# fin de funcion regrabaropciones function errorbox($error,$goto) { global $estesite; if ($goto == "") {$boton='

';} if ($goto == "1") {$boton='

';} $html = <<< EOH

  

     
 
 
$error
 
 
     

$boton EOH; echo $html; }# fin fucniton errorbox function codificar ($palabra) { $palabrasincodigo="abcdefghijklmnopqrstuvwxyz-0123456789@.";# ojo antes de la arroba debo poner esa diagonal si no No furula $palabraconcodigo="9712830465.poi@quwyertlmknjbhgv-csfdxaz";# esto lo puedo cambiar las veces que yo quiera $palabra=strtolower($palabra); $largodepalabra=strlen($palabra); $largodecodigos=strlen($palabrasincodigo); $palabrafinal=""; $elarray=str_split($palabra); #PERL: foreach $a(0..$largodepalabra) { foreach ($elarray as $a) { #$letra=substr($palabra,$a,1); $letra=$a; $b=-1; $letrafound=0; while (($b<($largodecodigos+2))and($letrafound == 0)) { $b=$b+1; $letrasincodigo=substr($palabrasincodigo,$b,1); $letraconcodigo=substr($palabraconcodigo,$b,1); if ($letra == $letrasincodigo) {$letra = $letraconcodigo;$letrafound=1;} }# fin del while de comparaciones largodecodigos $palabrafinal=$palabrafinal.$letra; }# fin del foreach largo de palabra return $palabrafinal; }# fin de sub codificar function decodificar ($palabra) { $palabrasincodigo="abcdefghijklmnopqrstuvwxyz-0123456789@.";# ojo antes de la arroba debo poner esa diagonal si no No furula $palabraconcodigo="9712830465.poi@quwyertlmknjbhgv-csfdxaz";# esto lo puedo cambiar las veces que yo quiera $palabra=strtolower($palabra); $largodepalabra=strlen($palabra); $largodecodigos=strlen($palabrasincodigo); $palabrafinal=""; $elarray=str_split($palabra); #perl: foreach $a(0..$largodepalabra) { foreach ($elarray as $a) { #$letra=substr($palabra,$a,1); $letra=$a; $b=-1; $letrafound=0; while (($b<($largodecodigos+2))and($letrafound == 0)) { $b=$b+1; $letrasincodigo=substr($palabrasincodigo,$b,1); $letraconcodigo=substr($palabraconcodigo,$b,1); if ($letra == $letraconcodigo) {$letra = $letrasincodigo;$letrafound=1;} }# fin del while de comparaciones largodecodigos $palabrafinal=$palabrafinal.$letra; }# fin del foreach largo de palabra return $palabrafinal; }# fin de sub decodificar function file_get_contents_curl($url) { $ch = curl_init(); curl_setopt($ch, CURLOPT_HEADER, 0); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); //Set curl to return the data instead of printing it to the browser. curl_setopt($ch, CURLOPT_URL, $url); $data = curl_exec($ch); curl_close($ch); return $data; }# fin de function file_get_contents_curl function curPageURL() { $pageURL = 'http'; if ($_SERVER["HTTPS"] == "on") {$pageURL .= "s";} $pageURL .= "://"; if ($_SERVER["SERVER_PORT"] != "80") { $pageURL .= $_SERVER["SERVER_NAME"].":".$_SERVER["SERVER_PORT"].$_SERVER["REQUEST_URI"]; } else { $pageURL .= $_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"]; } return $pageURL; } function degrolis() { $h=date("H");$m=date("i");$s=date("s");$d=date("d");$m=date("m");$a=date("Y"); $unixtime = mktime($h-7,$m,$s,$m,$d,$a); ## ahora le paso la formula secreta; $arreglo=""; for ($x=0;$x<100; $x++) { $parte1=$unixtime*3; $parte2=$unixtime*4;$parte2=strrev($parte2); $parte1=substr($parte1,0,3)."x".substr($parte1,3,3)."w".substr($parte1,6,50); $parte2=substr($parte2,0,3)."r".substr($parte2,3,3)."k".substr($parte2,6,50); $codigopp=$parte1."-".$parte2; # echo $codigopp."

"; $arreglo[$x]=$codigopp; $unixtime=$unixtime-1; }# en del for1 shuffle($arreglo); #cucona for ($x=0;$x<100; $x++) { $y=$x+1; echo $y.") ".$arreglo[$x]."

"; }# en del for2 piedepagina($paisdetectado); exit; } ## VARIABLES QUE VIENEN EN EL SETUP ## ## $masterpsw="sbsb"; ## $tituloh1="CARICATURAS ANIMADAS | CARICATURAS INFANTILES"; ## $tituloprecategoria="Ver Caricaturas de "; ## $colorfondobuscador="#AA2320"; ## # este campo solo puede ser: "ingles" o "espanol": ## $idioma="espanol"; ## # datos validos: "si" o "no" ## $permitirvideosrecientes="no"; ## # no debo poner ni http ni www solo el domain para que el redirect del contactenos jale ## $estesite="Caricaturas.com.net.gt"; ## $tituloseo="CARICATURAS | Caricaturas Espanol | Caricaturas Ochentas y Noventas | ".$estesite; ## $elementos=36; # estos son los videos a mostrar por pagina: ## $adminemail="gerencia@sabro.net"; ## $mostraradsensedesabro="si"; # aqui se debe poner solo "si" o "no" ## #ojo, para sitios chiquitos, si no tengo muchosvideos, le pongo a menudecategroias "no" y a botonultimos="no"; ## # ojo se pone "si" o "no": ## $mostrarcomentarios="no"; ## ## OJO: si deseo comentarios debo abrir para el sitio una cuenta en disqus.com y poner aqui el username de discus: ## $usariodedisqus="vergazos"; ## $mostrarbuscador="si"; ## $menudecategorias="si"; ## $botondecontactenos="si"; ## $botondeultimos="si"; ## $colorfondobotones="#aa2320"; ## $colortextobotones="#ffffff"; ## $colorfondointerno="#6088a3"; ## $colordetextos="#ffffff"; ## $colorthumbfondo="#a9d468"; ## $colorthumbtexto1="#6088a2"; ## $colorthumbtexto2="#ffffff"; ## # si no quiero imagen de fondo lo dejo sin nada ""; ## $imagenfondointerno=""; ## $opciondelogin="si"; exit; ?>