Archivo de la categoría: blog

blog

Gmail Notify perl y Ebuddy

Debido a que mi madre no revisa su correo seguido. una forma visual fue activar el ebuddy

el codigo lo encontre en el foro de ubuntu! solo fue adaptado un poco

[bash]

#!/usr/bin/perl
use Mail::IMAPClient;
use IO::Socket::SSL;
use Date::Parse;
use IO::Socket;
use strict;

my $num = 10;

my $sock = IO::Socket::INET->new(
Proto    => ‘udp’,
PeerPort => 8888,
PeerAddr => ‘127.0.0.1’,
) or die "Could not create socket: $!\n";

my $output_file = ‘/home/patricio/.gmail_unread’;
my $max = $ARGV[0];

my $imap = Mail::IMAPClient->new
( User     => ‘gnu@gmail.com’,
Password => ‘elseb2eswk’,
Socket   => IO::Socket::SSL->new
(  Proto    => ‘tcp’,
PeerAddr => ‘imap.gmail.com’,
PeerPort => 993, # IMAP over SSL standard port
),
);
$imap->select(‘Inbox’);
my @unread = $imap->unseen or warn "Could not find unseen msgs: $@\n";

$sock->send(’25’) or die "Send error: $!\n";

unless (scalar(@unread))
{
unlink $output_file;
exit;
}

my(@lines);
my $count = 0;
foreach my $msg_id (@unread)
{
$count++;
if ($count > $max)
{
push(@lines,"More…\n");
last;
}
my $date = convert_time($imap->get_header($msg_id, "Date"));
my $from = $imap->get_header($msg_id, "From");
my $subject = $imap->get_header($msg_id, "Subject");
push(@lines, "$from – $date\n $subject\n");
}
open(OUT,">$output_file");
print OUT (@lines);
close(OUT);
$sock->send(’18’) or die "Send error: $!\n";

sub convert_time
{
my $old_time = str2time(shift);
my $seconds = time() – $old_time;
my $time_string;
if (int($seconds / 3600))
{
$time_string .= (int($seconds / 3600).’h’);
$seconds = $seconds = int($seconds / 3600);
}
if (int($seconds / 60))
{
$time_string .= (int($seconds / 60).’m’);
$seconds = $seconds = int($seconds / 60);
}
if ($seconds)
{
$time_string .= ($seconds.’s’);
}
return "$time_string ago";
}

[/bash]

Salteado de Sobras de Pollo.

 

Salteado de Sobras de Pollo.

Ingredientes:

(preparación 3 personas)

4 Cebolla Grande.

2 Tutos De pollo.

ají Seco.

2 Cucharadas de Vinagre.

1 Diente de Ajo.

1/8 taza salsa soya.

2 Tomates chicos.

Sal y pimienta a Gusto.

Aceite.

Preparación:

  • Picar Tomate en 4 partes.
  • Picar Cebolla en trozos grande unos 5 cortes de cada mitad.
  • Picar ajo.
  • Desmenuzar el pollo en pequeñas porciones y mezclamos con pimienta y sal.

En un sarten grande poner aceite a calentar. Cuando logre una buena temperatura agregar. El pollo y revolver hasta que el pollo tome un color blanco.

 

. Ahora Agregamos poco mas de Aceite. Incorporamos Cebolla, aji­ , Ajo y cocinamos hasta que se la cebolla se torne transparente.

Procedemos Agregar Vinagre,Salsa de Soya revolvemos y dejamos a fuego lento para que se mezclen los jugos. Un poco antes de Servir Agregar los tomates.

 

Sevir con Arroz