Mercurial > repos > nml > bundle_collections

diff bundle_collection.pl @ 2:705ebd286b57 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload commit 7761f1e59039279728185e751f1a51b56fe14cb0"
author nml
date Mon, 24 Aug 2020 12:14:15 -0400
parents bae199dc511f
children
line wrap: on
line diff
--- a/bundle_collection.pl	Fri Aug 04 12:04:09 2017 -0400
+++ b/bundle_collection.pl	Mon Aug 24 12:14:15 2020 -0400
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;
@@ -52,57 +52,60 @@
 
 printf $out "<!DOCTYPE html>
 <html>
-<style type=\"text/css\">
-
-body {
-        font-family: sans-serif;
-        color: #000;
-        }
+<head>
+  <style type=\"text/css\">
+  
+  body {
+          font-family: sans-serif;
+          color: #000;
+          }
+  
+  table {
+          margin-left: 3em;
+          text-align: center;
+          }
+  th {
+          text-align:center;
+          background-color: #000080;
+          color: #FFF;
+          padding: 0.4em;
+          }
+  td {
+          font-family: monospace;
+          text-align: left;
+          background-color: #EEE;
+          color: #000;
+          padding: 0.4em;
+          }
+  h2 {
+          color: #800000;
+          padding-bottom: 0;
+          margin-bottom: 0;
+          clear: left;
+          }
+  </style>
+</head>
 
-table {
-        margin-left: 3em;
-        text-align: center;
-        }
-th {
-        text-align:center;
-        background-color: #000080;
-        color: #FFF;
-        padding: 0.4em;
-        }
-td {
-        font-family: monospace;
-        text-align: left;
-        background-color: #EEE;
-        color: #000;
-        padding: 0.4em;
-        }
-h2 {
-        color: #800000;
-        padding-bottom: 0;
-        margin-bottom: 0;
-        clear: left;
-        }
-</style></head>
+<body>
+
+  <h2 id=\"M0\">Bundle Collection Summary</h2><br><br>
 
-  <body>
-
-<h2 id=\"M0\">Bundle Collection Summary</h2><br><br>
+  Number of keys: $num_keys<br>
+  Number of values: $num_vals<br><br> 
 
-Number of keys: $num_keys<br>
-Number of values: $num_vals<br><br> 
-
-<table border=\"1\"><tr><th>File name</th><th>File type</th></tr>";
+  <table border=\"1\">
+    <tr><th>File name</th><th>File type</th></tr>\n";
 
 foreach my $key (sort(keys %information))
 {
 
 	foreach my $val (keys %{$information{$key}} )
 	{
-		printf $out "<tr><td>$key</td><td>$val</td></tr>";
+		printf $out "    <tr><td>$key</td><td>$val</td></tr>\n";
 	}
 }
 
-printf $out "</table></body></html>";
+printf $out "  </table>\n</body>\n</html>";
 
 close $out;
 
@@ -114,7 +117,7 @@
 
 =head1 SYNOPSIS
 
-	bundle_collection.pl -h html_file -p output_path -o "key=value"
+	bundle_collection.pl -h html_file -p output_path -i "key=value"
 
 =back
-=cut
\ No newline at end of file
+=cut