diff options
Diffstat (limited to 'genMaintNotes.perl')
| -rwxr-xr-x | genMaintNotes.perl | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/genMaintNotes.perl b/genMaintNotes.perl deleted file mode 100755 index 9b470a7816..0000000000 --- a/genMaintNotes.perl +++ /dev/null @@ -1,102 +0,0 @@ -#!/usr/bin/perl -w - -print <<'EOF' ; -<a href="http://3.bp.blogspot.com/-zbY2zfS4fKE/TlgfTSTK-oI/AAAAAAAACOQ/E_0Y4408QRE/s1600/GprofileSmall.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="http://3.bp.blogspot.com/-zbY2zfS4fKE/TlgfTSTK-oI/AAAAAAAACOQ/E_0Y4408QRE/s1600/GprofileSmall.png"></a> -<style> -div.inset { -background: #aff; -color: #888; -margin-left: 10%; -margin-top: 2em; -margin-bottom: 2em; -width: 60%; -padding: 1.2em; -} -div.inset { -color: #444; -} -div.inset a { -color: #444; -} -div.inset a:hover { -color: #00f; -} -h2 { -text-decoration: underline; -color: #888; -} -span.tt { -font-family: monospace; -} -img#ohloh-badge, img#git { -border: none; -float: right; -} -</style> -EOF - -sub show_links { - local ($_) = @_; - my $br = ''; - for (split(/\n/, $_)) { - s/^\s*//; - s/\s*\Z//; - my $url = $_; - my $comment = $_; - $url =~ s/ .*//; - if ($url =~ /^http:/) { - print "$br<a href=\"$url\"\n>$comment</a>"; - } else { - print "$br$comment"; - } - $br = "<br />\n"; - } - print "\n"; -} - -sub show_commands { - local ($_) = @_; - my $br = ''; - for (split(/\n/, $_)) { - s/^\s*//; - s/\s*\Z//; - print "$br<span class=\"tt\">$_</span>"; - $br = "<br />\n"; - } - print "\n"; -} - -my $in_ul; -$/ = ""; -while (<>) { - $_ =~ s/\n+$//s; - - if (/^ - /) { - if (!$in_ul) { - $in_ul = 1; - print "<ul>\n"; - } - s/^ - //; - print "<li>$_</li>\n"; - next; - } - - if ($in_ul) { - $in_ul = undef; - print "</ul>\n\n"; - } - - if (s/^\*\s*//) { - print "<h2>$_</h2>\n\n"; - } elsif (s/^ {4,}//) { - print "<div class=\"inset\">\n"; - if (/^(http|git|nntp):\/\//) { - show_links($_); - } else { - show_commands($_); - } - print "</div>\n\n"; - } else { - print "<p>$_</p>\n\n"; - } -} |
