MSN Perl y PHP

Iniciado por isseu, 30 Diciembre 2008, 14:36 PM

0 Miembros y 1 Visitante están viendo este tema.

isseu

Mi chat envia post a una pagina web que escribe los datos en un archivo de texto y tu los pudes visualizar, soportando arta gente, es decir, todos estos chat o clientes se conectan a la web y escriben y reciben por hay, para poner un sistema de identificacion solo hay que poner que estos post tengan de contenido la clave y hacer algo como:


if ($_POST['obtener']){
$hola=$_POST['obtener'];
if ($hola eq "clave"){
#codigo;
}}


client.pl


#!usr/bin/perl
#msn perl
use Time::HiRes qw(gettimeofday);
use LWP::UserAgent;
use HTTP::Request;
use MIME::Base64;
#ej http://www.google.com/path/msn.php
#coded by isseu#
$ip='http://www.google.com/path/msn.php';
$puerto="80";
$clave="juan";
&a;
sub a{
while(1){
print "--Msn perl, put !refresh to refresh the chat !clear to clear--\n";
my $query = ("obtener=1");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
@content2=split("<!-- www.000webhost.com A",$content);
#esta ultima linea solo es para sacar la publicidad de mi web
print @content2[0];
print "Mensaje a Enviar: \n";
$enviar=<STDIN>;
chomp($enviar);
if ($enviar eq '!refresh'){
system("cls");
system("clear");
&a;}elsif($enviar eq '!clear'){

my $query = ("clear=1");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
system("cls");
system("clear");
&a;
}else {
my $query = ("postear=$enviar");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
system("cls");
system("clear");
&a;
}
}
}


msn.php

<?php
if($_POST['obtener']){
$f=fopen ('mensajes.txt','r');
$mensaje=fread($ffilesize('mensajes.txt'));
fclose($f);
echo $mensaje;

}
if(
$_POST['postear']){
$apostear=$_POST['postear'];
$archivo 'mensajes.txt';
$fp fopen($archivo"a");
$string "$apostear\n";
$write fputs($fp$string);
fclose($fp);
}
if(
$_POST['clear']){
$apostear=$_POST['postear'];
$archivo 'mensajes.txt';
$fp fopen($archivo"w");
$string ' ';
$write fputs($fp$string);
fclose($fp);}
?>



problemas:
-el primer mensaje saldra como:
hola
como estas
es decir el espacio el principio xd
- a veces el servidor me daba error 500
-nose sabe quien dio el mensaje pero se podria hacer asi si lo desean:


$user:'pablo';

y cuando envie el mensaje ponen


$envia2="$user: $enviar";
#lo que mandaria cosas como pablo: hola
my $query = ("postear=$enviar2");


waw ultimamente me gustaron mucho estos 2 lenguajes