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ů

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

18.6.2018 0:43 /František Kučera
Červnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 21. 6. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: F-Droid, aneb svobodný software do vašeho mobilu. Kromě toho budou k vidění i vývojové desky HiFive1 se svobodným/otevřeným čipem RISC-V.
Přidat komentář

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

> Poslední diskuze

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:04 / Jan Ober
Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:00 / Jan Ober
Re: Gimp

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

Více ...

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