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ů

20.5.2018 17:45 /Redakce Linuxsoft.cz
Ve čtvrtek 31. května 2018 připravuje webový magazín BusinessIT ve spolupráci s Best Online Média s.r.o. pátý ročník odborné konference Firemní informační systémy 2018. Akce proběhne v kongresovém centru Vavruška (palác Charitas), Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 15 hod. odpoledne. Konference je zaměřena na efektivní využití firemních informačních systémů a na to, jak plně využít jejich potenciál. Podrobnější informace na webových stránkách konfrence.
Přidat komentář

14.5.2018 7:28 /František Kučera
Květnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 17. 5. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: Audio – zvuk v GNU/Linuxu.
Přidat komentář

7.5.2018 16:20 /František Kučera
Na stránkách spolku OpenAlt vyšla fotoreportáž Pražské srazy 2017 dokumentující srazy za uplynulý rok. Květnový pražský sraz na téma audio se bude konat 17. 5. 2018 (místo a čas ještě upřesníme).
Přidat komentář

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

16.3.2018 22:01 /František Kučera
Kulatý OpenAlt sraz v Praze oslavíme klasicky: u limonády a piva! Přijďte si posedět, dát si dobré jídlo a vybrat z mnoha piv do restaurace Kulový blesk, který najdete v centru Prahy nedaleko metra I. P. Pavlova na adrese Sokolská 13, Praha 2. Sraz se koná ve čtvrtek 22. března a začínáme v 18:00. Heslo: OpenAlt. Vezměte s sebou svoje hračky! Uvítáme, když si s sebou na sraz vezmete svoje oblíbené hračky. Jestli máte nějaký drobný projekt postavený na Arduinu, nějakou zajímavou elektronickou součástku, či třeba i pěkný úlovek z crowdfundingové akce, neváhejte. Oslníte ostatní a o zábavu bude postaráno.
Přidat komentář

13.2.2018 0:41 /František Kučera
Únorový pražský sraz OpenAltu se koná 15. 2. 2018 a tentokrát se vydáme na návštěvu do jednoho pražského datacentra. Sejdeme se v 17:50 v severovýchodní části nástupiště tramvajové zastávky Koh-I-Noor. Po exkurzi se přesuneme do restaurace U Pštrosa (Moskevská 49), kde probereme tradiční témata (svobodný software a hardware, DIY, CNC, SDR, 3D tisk…) a tentokrát bude k vidění i IoT brána od The Things Network.
Přidat komentář

11.2.2018 23:11 /Petr Ježek
Hledáte lehký a rychlý prolížeč PDF souborů? Pokud vás již omrzelo čekat na načítání stránek či jiné nešvary, zkuste xreader.
Přidat komentář

11.2.2018 20:35 /Redakce Linuxsoft.cz
Třetí ročník odborné IT konference na téma Cloud computing v praxi proběhne ve čtvrtek 1. března 2018 v konferenčním centru Vavruška, v paláci Charitas, Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 16 hod. odpoledne. Konference o trendech v oblasti cloud computingu nabídne i informace o konkrétních možnostech využívání cloudů a řešení vybraných otázek souvisejících s provozem IT infrastruktury.
Přidat komentář

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

> Poslední diskuze

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í?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

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