Välkommen till linuxportalen.se!

Linuxportalen.se är Sveriges största och aktivaste webbplats för användare av öppen- och fri programvara.

Du besöker Linuxportalen.se som gäst vilket begränsar din möjlighet att använda webbplatsens alla funktioner. Genom att registera dig som medlem får du inte bara möjlighet att söka bland webbplatsens innehåll, skapa nya och delta i befintliga diskussioner, skapa din egen blogg, kommunicera med andra medlemmar genom privata meddelanden och delta i omröstningar. Du får också tillgång till Veckans Kadavro - en seriestrip unikt skapad för Linuxportalen.se!

Registeringen sker snabbt och är helt kostnadsfri - tveka inte, bli medlem idag!

Perl - imap mail checker

Jag hittade inget program som gjorde just det här, kollade din imapmailbox och om det fanns olästa mail så gör den en liten popup. Inget mer, alls.
Detta eftersom jag mest använder mig av webbmail då jag aldrig fastnat för något program riktigt.

#! /usr/bin/perl -w

use strict;
use warnings;
use Net::IMAP::Simple;
use Email::Simple;

#Settings
my $username = "foo\@bar.se";
my $password = "foo" ;
my $host = "foooooo.bar.se";
my $command ="notify-send -t 0 -i '/usr/share/icons/oxygen/32x32/places/mail-message.png' 'Du har olästa mail' 'Systemet har märkt att du har olästa mail. Kolla mailboxen'";

#Creating the object
my $imap = Net::IMAP::Simple->new($host) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";
#login
if(!$imap->login($username,$password)){
        print STDERR "Login failed: " . $imap->errstr ."\n";
        exit(64);
}
while($imap)
{
        #check how many unread messages
        my $messages;
        if($messages = $imap->unseen("Inbox"))
        {
        #       print "you have new mail";
                my $result = system($command);

        }
        print "going in to sleep\n";
        sleep(60*5);
}