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
#
# GENIPUBLIC-COPYRIGHT
# 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";
close(OUT);
# Make a comrpessed copy.
system("cat $ADDIR/$urn | gzip > $ADDIR/${urn}.gz");
if ($?) {
notify("Could not compress $ADDIR/$urn\n");
unlink("$ADDIR/${urn}.gz")
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