chiark / gitweb /
bsmtp-pull: drop -2; avoid connection sharing
[bin.git] / write-newsrc
1 #! /usr/bin/perl -w
2 use strict;
3
4 my $start = <>;
5 chomp $start;
6 my $end = <>;
7 chomp $end;
8
9 while (defined $start)
10 {
11     if (not defined $end)
12     {
13         print $start;
14         undef $start;
15     }
16     elsif ($start + 1 != $end)
17     {
18         print "$start,";
19         $start = $end;
20         $end = <>;
21         chomp $end if defined $end;
22     }
23     else
24     {
25         my $newend = $end;
26         do
27         {
28             $end = $newend;
29             $newend = <>;
30             chomp $newend if defined $newend;
31         } while defined $newend and $newend == $end + 1;
32         print "$start-$end";
33         print "," if defined $newend;
34         $start = $newend;
35         if (defined $start)
36         {
37             $end = <>;
38             chomp $end if defined $end;
39         }
40     }
41 }
42
43 print "\n";