LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> popdeleter_v2

Edituj záznam
Kategorie: Perl
Programovací jazyk: Perl
Domovská stránka: http://komodo.webz.cz/
Download: http://komodo.webz.cz/down.php?id=10
Tvůrce: komodo
Popis skriptu: Robi to iste ako popdeleter_v1, tedy to ze zmaze vsetky maily zo servera ktory je nastaveny priamo v subore. Plus tato druha verzia ma v sebe implementovane aj logovanie. Takze si mozes vybrat ci xces logovat do suboru alebo pomocou syslogu do /var/log/maillog. Pouzitie logovania najdes ak spustis script s parametrom -h. Nastavenia su len tri, a to : server, login a password. Po nasta- veni staci script len spustit a vsetky maily su !!! NENAVRATNE PREC !!! (takze pozor !!)
Nároky na klienta: perl
Nároky na server: POP3
Kód s komentáři:
#!/usr/bin/perl -w

#################################################
# popdeleter v2 #
# Deleting mails from POP3 #
# created by komodo - kom0do@pobox.sk #
#################################################

# striktny rezim. nesmu sa pouzivat globalne premenne
use strict;

# pouzivat modul Net::POP3
use Net::POP3;

# pouzivat funkcie POSIX
use POSIX;

# pouzivat rozsirene zistovanie parametrov
use Getopt::Long;

# pouzivat pre logovanie do syslogu
use Sys::Syslog;

# nadefinujem premenne
my $host = "mail.server";
my $user = "meno";
my $pass = "heslo";

# toto uz nemenit !!
my $number = "";
my $pop = "";
my $login = "ok";
my $deleted = 0;
my %mails = ();
my $l = '';
my $h = '';
my $log = '';

# zistim ci zadal nejake argumenty

GetOptions ('l=s' => \$l, 'h' => \$h);

# ak je zadane -h alebo --h tak sa vypise help

if ($h)
{
print "\nUsage: popdeleter [OPTION] [FILE]\n";
print "Delete mails from server over POP3 protocol and write log.\n\n";
print "\t-l\t log deleted mails into file or over syslogd\n\n";
print "With -l FILE - logs into given filename.\n";
print "With -l syslog - logs over syslogd into /var/log/maillog.\n\n";
}
else
{

# datum pre log
my $date = strftime ("%d.%b %H:%M:%S->", localtime);

# ak sa ma logovat do suboru prida sa aj datum
if($l ne '' && $l ne 'syslog'){
$log = $date;
}

# vytvorim objekt $pop
$pop = Net::POP3->new($host);

# kontrola ci sa pripojil
if (defined($pop))
{
$log .= "connected to host $host";

# prihlasim sa na server. ak sa nepodari vracia undef
$login = $pop->login($user,$pass);

# kontrola prihlasenia
if (defined($login))
{
$log .= "->loged succesfully";

# zistim pocet sprav
# vysledok bude odkaz na hash ($hash{cislo_spravy}=velkost_spravy)
my $count = $pop->list();

# prevediem odkaz na hash
%mails = %{$count};

# pocet mailov
my $pocet = keys %mails;
$log .= "->total:$pocet";

# zmazem vsetky maily
foreach $number (keys %mails)
{

$pop->delete($number);
$deleted++;
}
$log .= "->deleted:$deleted";

# ukoncim spojenie s POP3 serverom
$pop->quit();
$log .= "->done";
}
else
{
$log .= "->login to account $user failed";
}}
else
{
$log .= "failed connect to $host";
}

# ak je zadane -l bude sa logovat

# ak syslog tak cez syslogd
if ($l eq "syslog")
{
&write_syslog($log);
}

# ak ine tak sa predpoklada cesta k suboru
elsif ($l ne '')
{
if (!&write_file($l, $log))
{
print "Can't write to file $l. Check permissions, or path to file.\n";
}
}

# procedury

# zapis do suboru

sub write_file
{
my $logfile = shift;
my $log = shift;

open (LOGFILE, ">> $logfile") || return 0;
print LOGFILE $log."\n";
close LOGFILE;

return 1;
}

# zapis do maillogu

sub write_syslog
{
my $log = shift;

openlog ('popdeleter','pid, ndelay','mail');
syslog('info', $log);
closelog();
}
}
Zadal/a: komodo


pridej.cz

> Vyhledávání software
> Vyhledávání článků

13.9.2017 8:00 /František Kučera

Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt – tentokrát netradičně v pondělí: 18. září od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

3.9.2017 20:45 /Redakce Linuxsoft.cz
PR: Dne 21. září 2017 proběhne v Praze konference "Mobilní řešení pro business". Hlavní tématy konference budou: nejnovější trendy v oblasti mobilních řešení pro firmy, efektivní využití mobilních zařízení, bezpečnostní rizika a řešení pro jejich omezení, správa mobilních zařízení ve firmách a další.
Přidat komentář

15.5.2017 23:50 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

18.9.2017 14:37 / Rojas
high security vault

15.9.2017 7:33 / Wilson
new zealand childcare jobs

31.8.2017 12:11 / Jaromir Obr
Re: ukůládání dat ze souboru

30.7.2017 11:12 / Jaromir Obr
Národní znaky

27.7.2017 12:24 / Jaromir Obr
Cteni/zapis

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze