What's cooking
[git/dscho.git] / genMaintNotes.perl
blob3adec3221dc06924a0ae56b1fc35a0795c3670a8
1 #!/usr/bin/perl -w
3 print <<'EOF' ;
4 <html>
5 <head>
6 <style>
7 div.inset {
8 background: #aff;
9 color: #888;
10 margin-left: 10%;
11 margin-top: 2em;
12 margin-bottom: 2em;
13 width: 60%;
14 padding: 1.2em;
16 div.inset {
17 color: #444;
19 div.inset a {
20 color: #444;
22 div.inset a:hover {
23 color: #00f;
25 h2 {
26 text-decoration: underline;
27 color: #888;
29 span.tt {
30 font-family: monospace;
32 img#ohloh-badge, img#git {
33 border: none;
34 float: right;
36 </style>
37 </head>
38 <body>
39 <img src="http://members.cox.net/junkio/Kun-Wave.gif" id="git"
40 width="64" height="64" />
41 <h1>A Message from the Git Maintainer</h1>
42 EOF
44 sub show_links {
45 local ($_) = @_;
46 my $br = '';
47 for (split(/\n/, $_)) {
48 s/^\s*//;
49 s/\s*\Z//;
50 my $url = $_;
51 my $comment = $_;
52 $url =~ s/ .*//;
53 if ($url =~ /^http:/) {
54 print "$br<a href=\"$url\"\n>$comment</a>";
55 } else {
56 print "$br$comment";
58 $br = "<br />\n";
60 print "\n";
63 sub show_commands {
64 local ($_) = @_;
65 my $br = '';
66 for (split(/\n/, $_)) {
67 s/^\s*//;
68 s/\s*\Z//;
69 print "$br<span class=\"tt\">$_</span>";
70 $br = "<br />\n";
72 print "\n";
75 my $in_ul;
76 $/ = "";
77 while (<>) {
78 $_ =~ s/\n+$//s;
80 if (/^ - /) {
81 if (!$in_ul) {
82 $in_ul = 1;
83 print "<ul>\n";
85 s/^ - //;
86 print "<li>$_</li>\n";
87 next;
90 if ($in_ul) {
91 $in_ul = undef;
92 print "</ul>\n\n";
95 if (s/^\*\s*//) {
96 print "<h2>$_</h2>\n\n";
97 } elsif (s/^ {4,}//) {
98 print "<div class=\"inset\">\n";
99 if (/^(http|git|nntp):\/\//) {
100 show_links($_);
101 } else {
102 show_commands($_);
104 print "</div>\n\n";
105 } else {
106 print "<p>$_</p>\n\n";
110 print <<'EOF' ;
111 <a href="http://www.ohloh.net/accounts/5439?ref=Detailed">
112 <img height='35' width='191' id='ohloh-badge'
113 src='http://www.ohloh.net/accounts/5439/widgets/account_detailed.gif'
114 alt="ohloh profile for Junio C Hamano" />
115 </a>
116 </body>
117 </html>