Hallo Davide,
> This is the default XMail table :
$ ./xmailresend.pl 480 16 32
01 send-time = 00:00:00 next-try = 480
02 send-time = 00:08:00 next-try = 510
03 send-time = 00:16:30 next-try = 541
04 send-time = 00:25:31 next-try = 575
05 send-time = 00:35:07 next-try = 611
06 send-time = 00:45:19 next-try = 649
07 send-time = 00:56:09 next-try = 690
08 send-time = 01:07:39 next-try = 733
09 send-time = 01:19:53 next-try = 779
10 send-time = 01:32:53 next-try = 828
11 send-time = 01:46:41 next-try = 880
12 send-time = 02:01:21 next-try = 935
13 send-time = 02:16:56 next-try = 993
14 send-time = 02:33:30 next-try = 1055
15 send-time = 02:51:05 next-try = 1121
16 send-time = 03:09:47 next-try = 1191
17 send-time = 03:29:39 next-try = 1266
18 send-time = 03:50:45 next-try = 1345
19 send-time = 04:13:10 next-try = 1429
20 send-time = 04:37:00 next-try = 1518
21 send-time = 05:02:19 next-try = 1613
22 send-time = 05:29:12 next-try = 1714
23 send-time = 05:57:47 next-try = 1821
24 send-time = 06:28:08 next-try = 1935
25 send-time = 07:00:24 next-try = 2056
26 send-time = 07:34:41 next-try = 2185
27 send-time = 08:11:06 next-try = 2321
28 send-time = 08:49:47 next-try = 2466
29 send-time = 09:30:54 next-try = 2620
30 send-time = 10:14:35 next-try = 2784
31 send-time = 11:01:00 next-try = 2958
32 send-time = 11:50:18 next-try = 3143
Code:
=====
#!/bin/perl -w
use strict;
use vars qw($t $i $n $tot);
($t,$i,$n) = @ARGV;
$tot = 0;
if ($#ARGV < 2)
{
printf "use: %s init_delay delay_incr num_retries\n", $0;
exit;
}
foreach (my $c = 1; $c <= $n; $c++)
{
my $hours = $tot / 60 / 60;
my $mins = ($tot / 60) % 60;
my $secs = $tot % 60;
printf("%02u\tsend-time = %02u:%02u:%02u\tnext-try = %u\n",
$c, $hours, $mins, $secs, $t);
$tot += $t;
$t += ($t / $i);
}
#Gerrit
--
=^..^=
-
To unsubscribe from this list: send the line "unsubscribe xmail" in
the body of a message to [EMAIL PROTECTED]
For general help: send the line "help" in the body of a message to
[EMAIL PROTECTED]
