Script bash shell per accedere a server POP
Moderatore: Staff
Regole del forum
1) Citare sempre la versione di Slackware usata, la versione del Kernel e magari anche la versione della libreria coinvolta. Questi dati aiutano le persone che possono rispondere.
2) Per evitare confusione prego inserire in questo forum solo topic che riguardano appunto Gnu/Linux in genere, se l'argomento è specifico alla Slackware usate uno dei forum Slackware o Slackware64.
3) Leggere attentamente le risposte ricevute
4) Scrivere i messaggi con il colore di default, evitare altri colori.
5) Scrivere in Italiano o in Inglese, se possibile grammaticalmente corretto, evitate stili di scrittura poco chiari, quindi nessuna abbreviazione tipo telegramma o scrittura stile SMS o CHAT.
6) Appena registrati è consigliato presentarsi nel forum dedicato.
La non osservanza delle regole porta a provvedimenti di vari tipo da parte dello staff, in particolare la non osservanza della regola 5 porta alla cancellazione del post e alla segnalazione dell'utente. In caso di recidività l'utente rischia il ban temporaneo.
1) Citare sempre la versione di Slackware usata, la versione del Kernel e magari anche la versione della libreria coinvolta. Questi dati aiutano le persone che possono rispondere.
2) Per evitare confusione prego inserire in questo forum solo topic che riguardano appunto Gnu/Linux in genere, se l'argomento è specifico alla Slackware usate uno dei forum Slackware o Slackware64.
3) Leggere attentamente le risposte ricevute
4) Scrivere i messaggi con il colore di default, evitare altri colori.
5) Scrivere in Italiano o in Inglese, se possibile grammaticalmente corretto, evitate stili di scrittura poco chiari, quindi nessuna abbreviazione tipo telegramma o scrittura stile SMS o CHAT.
6) Appena registrati è consigliato presentarsi nel forum dedicato.
La non osservanza delle regole porta a provvedimenti di vari tipo da parte dello staff, in particolare la non osservanza della regola 5 porta alla cancellazione del post e alla segnalazione dell'utente. In caso di recidività l'utente rischia il ban temporaneo.
- darkstoorm
- Linux 1.x

- Messaggi: 146
- Iscritto il: mar 31 ago 2004, 0:00
- Slackware: 12.0.0
- Kernel: 2.6.21.5-smp (SMP)
- Desktop: shell testuale
- Località: Trieste
- Contatta:
Script bash shell per accedere a server POP
Ciao,
è possibile fare uno script bash per accedere a un pop server e cancellare le email presenti? mi date qualche dritta per fare questo script?
Grazie
è possibile fare uno script bash per accedere a un pop server e cancellare le email presenti? mi date qualche dritta per fare questo script?
Grazie
- MAT
- Linux 4.x

- Messaggi: 1242
- Iscritto il: mer 9 mar 2005, 0:00
- Nome Cognome: Matteo Magni
- Kernel: 2.6.20
- Desktop: Fluxbox
- Distribuzione: Gentoo
- Località: Vignola, Modena
Puoi accedere via telnet
e cancellare le mail manualmente. Ma non saprei dirti come farlo fare in automatico 
Codice: Seleziona tutto
telnet miopop 110- touchstyle
- Linux 4.x

- Messaggi: 1085
- Iscritto il: gio 13 mag 2004, 0:00
- Slackware: 12.1
- Kernel: 2.6.27
- Desktop: KDE
- Località: Portogruaro [VE]
- Contatta:
- darkstoorm
- Linux 1.x

- Messaggi: 146
- Iscritto il: mar 31 ago 2004, 0:00
- Slackware: 12.0.0
- Kernel: 2.6.21.5-smp (SMP)
- Desktop: shell testuale
- Località: Trieste
- Contatta:
- masalapianta
- Iper Master

- Messaggi: 2775
- Iscritto il: lun 25 lug 2005, 0:00
- Nome Cognome: famoso porco
- Kernel: uname -r
- Desktop: awesome
- Distribuzione: Debian
- Località: Roma
- Contatta:
beccatelo in perl
***ATTENZIONE IL SEGUENTE SCRIPT CANCELLA TUTTE LE MAIL***
#!/usr/bin/perl
use Mail::POP3Client;
use Getopt::Std;
getopt('u:p:h:');
die "Usage: $0 [-u username] [-p password] [-h host]\n" unless ($opt_u and $opt_p and $opt_h);
$w = new Mail::POP3Client ( USER => "$opt_u", PASSWORD => "$opt_p", HOST => "$opt_h", AUTH_MODE => 'PASS');
if ($w->Count()) {
$burp = $w->Count();
for ($i = 1; $i <= $burp; $i++) {
$w->Delete($i);
}
}
$w->Close();
***ATTENZIONE IL SEGUENTE SCRIPT CANCELLA TUTTE LE MAIL***
#!/usr/bin/perl
use Mail::POP3Client;
use Getopt::Std;
getopt('u:p:h:');
die "Usage: $0 [-u username] [-p password] [-h host]\n" unless ($opt_u and $opt_p and $opt_h);
$w = new Mail::POP3Client ( USER => "$opt_u", PASSWORD => "$opt_p", HOST => "$opt_h", AUTH_MODE => 'PASS');
if ($w->Count()) {
$burp = $w->Count();
for ($i = 1; $i <= $burp; $i++) {
$w->Delete($i);
}
}
$w->Close();