aboutsummaryrefslogtreecommitdiffstats
path: root/dist-tools/timeplot
blob: c8240d05b613021fde0a3b272d74b4bb0ed48dbb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/bin/sh
#
# timeplot -- plot data on fetchmail release intervals
#
# 

# Get data from the NEWS file
timeseries | awk >/tmp/timeplot$$ '
START	{maxdiff = 0;}
/^[#%]/	{next;}
	{days[count++] = $6;}
END	{
		for (i = 0; i < count-1; i++)
		{
			diffs[i] = days[i] - days[i + 1];
			if (maxdiff < diffs[i])
				maxdiff = diffs[i];
		}
		for (i = 0; i <= maxdiff; i++)
			freq[i] = 0;
		for (i = 0; i < count - 1; i++)
		{
			freq[diffs[i]]++;
		}
		for (i = 0; i <= maxdiff; i++)
			printf("%d	%d\n", i, freq[i]);
	}
'

gnuplot >time.png - <<EOF
set xlabel "Release interval (days)"
set ylabel "Interval frequency"
plot '/tmp/timeplot$$' using 1:2 \
	title "Release interval frequency"
pause 9999
EOF

rm -f /tmp/time*

# timeplot ends here
s="c1"># mailport's optional; default is 110 (pop-3). # # Having started, you type away much as you would with telnet. # # # # It has this great advantage over telnet: it reads its input from stdin and writes to stdout; # you can prepare the entire sequence in a file, then run it this: # pop2test.1 <thefileyoujustcreated >theresultsyouwanttoperuse host port # # # uses: # 1 Debugging POP3 (and maybe imap does anyone know?) mail problems # 2 Deleting the occasional piece of mail that's too big or stuffs fetchmail. # 3 Talking to sendmail # use Socket; sub hx; sub getreply; $timeout=1; $RemoteHost = $ARGV[0];shift; $RemotePort = $ARGV[0] || 110;shift; ($PRname,$PRaliases,$PRport,$PRproto) = getservbyname($RemotePort,'tcp'); $PRport=$RemotePort unless $PRport; $proto=getprotobyname($PRproto); $RemoteIP = inet_aton $RemoteHost or die "Can't resolve $RemoteHost"; $that = pack 'Sna4x8',AF_INET, $PRport, $RemoteIP; socket(REMOTESITE,AF_INET,SOCK_STREAM,$proto) or die "Can't create socket to $RemoteHost: $!\n";; connect(REMOTESITE, $that) or die "Can't connect: $!\n"; select(REMOTESITE);$|=1;select STDOUT; $rin = $win = $ein = ''; vec($rin,fileno(REMOTESITE),1) = 1; #vec($win,fileno(REMOTESITE),1) = 1; $ein = $rin | $win; getreply; while ($L=<STDIN>) { chomp $L; print REMOTESITE $L . "\r\n"; print "send: " . $L . "\n"; getreply; } print REMOTESITE "Quit\r\n"; getreply; #print <REMOTESITE>; close REMOTESITE; exit; # P sub hx { $N=$_[0];shift; $S=$_[0];shift; return "$N(" . unpack("h", $S) . ") "; } sub getreply { while ('x') { ($nfound,$timeleft) = select($rout=$rin, undef, $eout=$ein, $timeout); last if $nfound == 0; # print "nf($nfound) tl($timeleft) " . hx("rin",$rin) . hx("rout", $rout) . hx("ein",$ein) . hx("eout",$eout) . "\n"; $Reply= <REMOTESITE>; print "recv: " . $Reply; last if $Reply eq ''; $Reply =~ s/[\r\n]*//; last if $Reply eq '.'; } }