Pause no envio de e-mails

smarcell escreveu:

Olha esse exemplo "tosco" no qual você pode se basear!

#!/usr/bin/env perl

sub mostraMensagem() {

	while(1) {

		sleep(1);

		print("Hello World!\n");

		$count++;



		if($count == 5) {

			print("PAUSA!\n");

			$count = 0;

			sleep(5);

			print("CONTINUANDO...\n");

			mostraMensagem;

		}

	}

}



mostraMensagem; 

=)

#!/usr/local/bin/perl

$ARGC=@ARGV;
if ($ARGC !=4) {
printf "Você deve ter digitado os comandos de forma errada\n";
printf "Veja como usar corretamente...\n";
printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n";
printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n";
exit(1);
}

$mailtype = "content-type: text/html";
$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
$cont=0;

while(<BANDFIT>) {
($ID,$options) = split(/\|/,$_);
chop($options);
foreach ($ID) {
$recipient = $ID;
open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtype\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $sender\n";
print SENDMAIL "To: $recipient\n\n";
print SENDMAIL "$corpo\n\n";
close (SENDMAIL);
$cont=$cont+1;
print "$cont $recipient"
}
}
close(BANDFIT);

use 5.10.0;
use strict;
use warnings;

# loop infinito
my $count = 0;
while(1) {
# este é o primeiro comando de espera, onde 1 é o número
# em segundos que se quer aguardar
sleep(1);
# count refere-se a quantidade de e-mail por vez que você
# quer enviar entre os intervalos
############# SCRIPT AQUI ###############
print("b4sh\@root#:[+] Enviado Com sucesso [+]\n");
$count++;
if($count == 500) {
print("Opa, vamos esperar né\n");
sleep(5);

# zera o contador para a coisa toda continuar
$count = 0;
print("b4sh\@root#: [+] Recomeçando os envios [+]\n");
}
}

#!/usr/local/bin/perl
## use: perl enviar.pl list-mail.txt "my@mail.com" "subject" html.html


$ARGC=@ARGV;

if ($ARGC !=4) {

printf "$0 <mailist> <my@myemail.com> <subject> <msg.htm>\n\n";

#printf "Script sending emails";

exit(1);

}


$mailtype = "content-type: text/html";

$sendmail = '/usr/sbin/sendmail';

$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
$count=1;

open(FOO, $ARGV[3]);
@foo = <FOO>;

$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";

while(<BANDFIT>) {


($ID,

$options) = split(/\|/,$_);

chop($options);

foreach ($ID) {

$recipient = $ID;
## this changes =>>> ###
### send 5 email of list.txt, and pause 5 seconds, continue.. ###

if ( $count == 5 ) {

print("PAUSE!\n");
$count = 0;
sleep(5);
print("CONTINUE..\n");
}

open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtype\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $sender\n";
print SENDMAIL "To: $recipient\n\n";
print SENDMAIL "$corpo\n\n";
close (SENDMAIL);

printf "sending for $recipient [ Ok Send; $count ]";
$count++;
}

}
close(BANDFIT);

#### end #####

mandrakevenom escreveu:

Então segue o codigo

ele envia, porem não pausa, e quando eu mexo e funciona o Pause ele não envia.... entendeu ? ta rodando um codigo de cada vez e quando o código do Pause começa a funciona os email não são enviado pq eu já checkei isso... ajuda urgente..

EDIT

achei o código que funciona, quem precisar ta aqui....