Commit fea89442 authored by Leigh B Stoller's avatar Leigh B Stoller

Generate a compressed version of the statis advertisement.

parent 7b30c2d2
#!/usr/bin/perl -w
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# Copyright (c) 2008-2012 University of Utah and the Flux Group.
# All rights reserved.
use strict;
......@@ -190,6 +190,14 @@ sub ProbeCMs()
print OUT "\n";
# Make a comrpessed copy.
system("cat $ADDIR/$urn | gzip > $ADDIR/${urn}.gz");
if ($?) {
notify("Could not compress $ADDIR/$urn\n");
if (-e "$ADDIR/${urn}.gz");
# Save the name so we can write the text file at the end.
$ads{$urn} = $urn;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment