Changeset 1769 in MondoRescue for branches/stable/mondo-web

Timestamp:

Nov 6, 2007, 1:37:38 AM (16 years ago)

Author:

Bruno Cornec

Message:

Continue on configuration file items (compression)

File:

• branches/stable/mondo-web/mondo-web.pl (modified) (2 diffs)

branches/stable/mondo-web/mondo-web.pl

@@ -73 +73 @@
 );
 my @speed = sort {$a <=> $b} keys %speed;
+my %suffix = (
+        GZIP => 'gz',
+        BZIP2 => 'bz2',
+        LZO => 'lzo',
+);
+my @suffix = sort keys %suffix;
 my %comp = (
         GZIP => 'gzip (average)',
@@ -148 +154 @@
             -default=>$config->get("mondo_compression_level"),
             -labels=>\%ratio);
+    print "</TD><TD WIDTH=300>\n";
+    print "Compression suffix: ",$cgi->popup_menu(-name=>'compsuffix',
+            -values=>\@suffix,
+            -default=>$config->get("mondo_compression_suffix"),
+            -labels=>\%suffix);
     print "</TD></TR></TABLE>\n";
     print $cgi->hr;