src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl 1.23

Index: src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -b -B -U 4 -r1.22 -r1.23
--- src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl	12 Jan 2010 03:02:20 -0000	1.22
+++ src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl	22 Jan 2010 01:38:14 -0000	1.23
@@ -29,11 +29,13 @@
     $opt_fileType
     $opt_preamble
     $opt_db
     $opt_verbose
+    $opt_checksum
     /;
 
 our $checksumFile = "md5sum.txt";
+our $textFile = "files.txt";    # plain text file list with metadata
 
 sub usage {
     print STDERR <<END;
 usage: hgEncodeDownloads.pl {index.html} [downloads-dir]
@@ -41,8 +43,9 @@
 Creates an HTML page and README text file listing the downloads in the current directory or optional directory.
 
 options:
     -help               Displays this usage info
+    -checksum           Generate checksum file 
     -preamble=file      File containing introductory information (written in HTML) that will be included in this file (default preamble.html)
     -db=hg18            Use a database other than the default hg18 (For aquiring releaseDate and metadata from trackDb)
     -fileType=mask	    mask for file types included (default '*.gz')
     -verbose=num        Set verbose level to num (default 1).
@@ -275,8 +278,9 @@
 my $ok = GetOptions("fileType=s",
                     "preamble=s",
                     "db=s",
                     "verbose=i",
+                    "checksum",
                     );
 usage() if (!$ok);
 $opt_verbose = 1 if (!defined $opt_verbose);
 my $fileMask = "*.gz";
@@ -304,8 +308,9 @@
 $opt_db = "hg18" if(!defined $opt_db);
 my $db = HgDb->new(DB => $opt_db);
 
 open( OUT_FILE, "> $downloadsDir/$indexHtml") || die "SYS ERROR: Can't write to \'$downloadsDir/$indexHtml\' file; error: $!\n";
+open( TEXT_FILE, "> $downloadsDir/$textFile") || die "SYS ERROR: Can't write to \'$downloadsDir/$textFile\' file; error: $!\n";
 #print OUT_FILE @fileList;
 
 
 my @readme;
@@ -316,9 +321,11 @@
 
 # Start the page
 htmlStartPage(*OUT_FILE,$downloadsDir,$indexHtml,$preamble);
 
+# NOTE: these two arrays should be collapsed, and HTML derived from plain text
 my @rows; #  Gather rows to be printed here
+my @textRows; #  Gather rows to be printed here (plain-text)
 
 print OUT_FILE "<TABLE cellspacing=0>\n";
 print OUT_FILE "<TR valign='bottom'><TH>RESTRICTED<BR>until<TH align='left'>&nbsp;&nbsp;File<TH align='right'>Size<TH>Submitted<TH align='left'>&nbsp;&nbsp;Details</TR>\n";
 
@@ -496,22 +503,27 @@
 #    }
 
     #htmlTableRow(*OUT_FILE,$fileName,$file[2],$submitDate,$releaseDate,$details);
     push @rows, sortableHtmlRow(\@sortables,$fileName,$file[2],$submitDate,$releaseDate,$details);
+    printf TEXT_FILE "%s\tsize=%s; dateSubmitted=%s; %s\n", $fileName, $file[2], $submitDate, $details;
 }
 sortAndPrintHtmlTableRows(*OUT_FILE,@rows);
 print OUT_FILE "</TABLE>\n";
 
 htmlEndPage(*OUT_FILE);
+close TEXT_FILE;
 
 # create file of checksums
-open STDOUT, ">$checksumFile" or die "Cannot open $checksumFile file";
-foreach my $file (@files) {
+if (defined $opt_checksum) {
+    open STDOUT, ">$checksumFile" or die "Cannot open $checksumFile file";
+    foreach my $file (@files) {
     system("md5sum", $file);
+    }
+    close STDOUT;
 }
-close STDOUT;
 
 chdir $downloadsDir;
-chmod 0775, $indexHtml;
-chmod 0775, $checksumFile;
+chmod 0664, $indexHtml;
+chmod 0664, $checksumFile;
+chmod 0664, $textFile;
 
 exit 0;