SMTP
$ telnet 127.0.0.1 25
Trying 127.0.0.1...
Connected to localhost.localdomain (127.0.0.1).
Escape character is '^]'.
220 nombre.dominio ESMTP Sendmail 8.13.1/8.13.1; Thu, 13 Dec 2007 11:51:38 -0600
HELO nombre.dominio
250 nombre.dominio Hello your.host [127.0.0.1], pleased to meet you
MAIL FROM:< fulano@nombre.dominio >
250 2.1.0 ... Sender ok
RCPT TO:< micta@your.host >
250 2.1.5 ... Recipient ok
DATA
354 Enter mail, end with "." on a line by itself
Cliente: Subject: Mensaje de prueba
From: fulano@nombre.dominio
To: micta@your.host
Prueba
.
250 2.0.0 k2IM2RjA0053987 Message accepted for delivery
QUIT
221 2.0.0 nombre.dominio closing connection
Connection closed by foreign host.
POP
$ telnet 127.0.0.1 110
Trying 127.0.0.1...
Connected to localhost.localdomain (127.0.0.1).
Escape character is '^]'.
+OK dovecot ready.
USER fulano
+OK
PASS password
+OK Logged in.
LIST
+OK 1 messages:
1 128
STAT
+OK 1 728
RETR 1
+OK 128 octets
Return-Path:
Received: from localhost.localdomain (localhost.localdomain [192.168.1.254])
by localhost.localdomain (8.13.1/8.13.1) with SMTP id k2IM2RjA003987
for ; Sat, 18 Mar 2006 16:03:21 -0600
Date: Sat, 18 Mar 2006 16:02:27 -0600
Message-Id: <200603182203 .k2im2rja003987="" localhost.localdomain="">
Subject: Mensaje de prueba
From: fulano@localhost.localdomain
To: root@localhost.localdomain
Status: O
Content-Length: 43
Lines: 2
X-UID: 202
X-Keywords:
Prueba. .
QUIT
+OK Logging out.
Connection closed by foreign host.
200603182203>
jueves, 8 de agosto de 2013
martes, 12 de octubre de 2010
Ubuntu hp elitebook 8440p
Instalando Ubuntu en un HP EliteBook 8440p
* Version 9.04 (Jaunty), no reconoce la interfaz de red
* Version 10.04 (Lucid Lynx), no funciona el video a la hora de instalacion.
Solucion:
= Selecionar la opcion de adicionar parametros de boot =
- sustituir splash por nosplash
- adicionar nomodeset xforcevesa
* Version 9.04 (Jaunty), no reconoce la interfaz de red
* Version 10.04 (Lucid Lynx), no funciona el video a la hora de instalacion.
Solucion:
= Selecionar la opcion de adicionar parametros de boot =
- sustituir splash por nosplash
- adicionar nomodeset xforcevesa
jueves, 5 de agosto de 2010
Perl regex
Hace unos dias me pregunto alguien como sustituir el $ por un caracter n veces, despues de buscar encontre que es asi:
#!/usr/bin/perl
$cadena="uno";
$cadena =~ s/$/" " x 2 /e;
print $cadena;
Referencia: Perlop
#!/usr/bin/perl
$cadena="uno";
$cadena =~ s/$/" " x 2 /e;
print $cadena;
Referencia: Perlop
miƩrcoles, 17 de marzo de 2010
Comandos protocolo POP...
telnet machine 110
POP commands:
USER uid Log in as "uid"
PASS password Substitue "password" for your actual password
STAT List number of messages, total mailbox size
LIST List messages and sizes
RETR n Show message n
DELE n Mark message n for deletion
RSET Undo any changes
QUIT Logout (expunges messages if no RSET)
TOP msg n Show first n lines of message number msg
POP commands:
USER uid Log in as "uid"
PASS password Substitue "password" for your actual password
STAT List number of messages, total mailbox size
LIST List messages and sizes
RETR n Show message n
DELE n Mark message n for deletion
RSET Undo any changes
QUIT Logout (expunges messages if no RSET)
TOP msg n Show first n lines of message number msg
viernes, 12 de febrero de 2010
Just Another Perl / Unix Hacker
#!/usr/bin/perl
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord ($p{$_})&6];$p{$_}=/ $P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
Referencia:
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord ($p{$_})&6];$p{$_}=/ $P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
Referencia:
viernes, 18 de diciembre de 2009
Contador antes del fin del mundo.... perl Tk
#!/usr/local/bin/perl -w
#####################################
# Contador para el fin del mundo
#
#######################
use Date::Calc qw(Delta_DHMS);
use Time::localtime;
use strict;
use Tk;
my @W_End = (2012, 12, 21, 00, 00, 01); # 21 Dec 2012, 0:00:01
my $str = "...";
my $mw = new MainWindow;
$mw->title("Fin del mundo");
$mw->Label(-text => "Faltan para el fin del mundo")->pack;
my $entry = $mw->Entry(
-textvariable => \$str,
-width => 17,
-font => "{Comic Sans MS} 12",
-relief => 'raised',
-highlightthickness => 0,
-state => 'disable',
)->pack();
$mw->Button(-text => 'Quit',
-justify => 'center',
-command => sub{exit} )->pack;
$mw->repeat(1000 => \&downcounter);
MainLoop;
sub downcounter {
# Calculando fecha actual
my @Today = (localtime->year()+ 1900, localtime->mon()+ 1, localtime->mday(), localtime->hour(), localtime->min(), localtime->sec());
my @diff = Delta_DHMS(@Today, @W_End);
if ( $diff[1] <10 ){
$diff[1]="0$diff[1]";
}
if ( $diff[2] <10 ){
$diff[2]="0$diff[2]";
}
if ( $diff[3] <10 ){
$diff[3]="0$diff[3]";
}
$str = "$diff[0] dias, $diff[1]:$diff[2]:$diff[3] ";
}
#####################################
# Contador para el fin del mundo
#
#######################
use Date::Calc qw(Delta_DHMS);
use Time::localtime;
use strict;
use Tk;
my @W_End = (2012, 12, 21, 00, 00, 01); # 21 Dec 2012, 0:00:01
my $str = "...";
my $mw = new MainWindow;
$mw->title("Fin del mundo");
$mw->Label(-text => "Faltan para el fin del mundo")->pack;
my $entry = $mw->Entry(
-textvariable => \$str,
-width => 17,
-font => "{Comic Sans MS} 12",
-relief => 'raised',
-highlightthickness => 0,
-state => 'disable',
)->pack();
$mw->Button(-text => 'Quit',
-justify => 'center',
-command => sub{exit} )->pack;
$mw->repeat(1000 => \&downcounter);
MainLoop;
sub downcounter {
# Calculando fecha actual
my @Today = (localtime->year()+ 1900, localtime->mon()+ 1, localtime->mday(), localtime->hour(), localtime->min(), localtime->sec());
my @diff = Delta_DHMS(@Today, @W_End);
if ( $diff[1] <10 ){
$diff[1]="0$diff[1]";
}
if ( $diff[2] <10 ){
$diff[2]="0$diff[2]";
}
if ( $diff[3] <10 ){
$diff[3]="0$diff[3]";
}
$str = "$diff[0] dias, $diff[1]:$diff[2]:$diff[3] ";
}
martes, 8 de diciembre de 2009
Link sobre perl....
Estaba vagando por la red y vi este link que considero esta interesante:
http://perlenespanol.com/articulos/archivo/000112.html
http://perlenespanol.com/articulos/archivo/000112.html
Suscribirse a:
Entradas (Atom)