Changeset 1225 in MondoRescue

Timestamp:

Mar 6, 2007, 1:08:18 PM (17 years ago)

Author:

Bruno Cornec

Message:

mondo-web now uses the mondo configuration file for its initial setup

File:

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

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

@@ -18 +18 @@
 use Data::Dumper;
 use AppConfig;
-use AppConfig::File;
 
 my $cgi = new CGI;
+my $default = "";
+my @default;
 
 # Handling Configuration files
-#my $file = "/etc/mondo/mondo.conf.dist";
-#my $config = AppConfig->new();
-#my $cfgfile = $config->file($file);
-#$config->parse($file);            # read config file
-#print Dumper($cfgfile);
+my $file1 = "/etc/mondo/mondo.conf.dist";
+my $file2 = "/etc/mondo/mondo.conf";
+
+my $config = AppConfig->new({
+                # Auto Create variables mentioned in Conf file
+                CREATE => 1, 
+                DEBUG => 0, 
+                GLOBAL => {
+                    # Each conf item has one single parameter
+                    ARGCOUNT => AppConfig::ARGCOUNT_ONE
+                }
+            });
+$config->file($file1, $file2);
 
 my $command="";
@@ -55 +64 @@
 my @options = sort keys %options;
 my %speed = (
+        1 => '1x',
         2 => '2x',
         4 => '4x',
@@ -111 +121 @@
     print "Destination path or device:\n";
     print $cgi->textfield(-name=>'dest',
-                -default=>'',
+                -default=>$config->get("mondo_images_dir"),
                 -size=>15,
                 -maxlenght=>150);
@@ -117 +127 @@
     print "Size of media (MB):\n";
     print $cgi->textfield(-name=>'size',
-                -default=>'4380',
+                -default=>$config->get("mondo_media_size"),
                 -size=>6,
                 -maxlenght=>6);
@@ -125 +135 @@
     print $cgi->h2('Compression Info');
     print "<TABLE><TR><TD WIDTH=330>\n";
+    $default = 'GZIP' if ($config->get("mondo_compression_tool") =~ /gzip/);
+    $default = 'BZIP2' if ($config->get("mondo_compression_tool") =~ /bzip2/);
+    $default = 'LZO' if ($config->get("mondo_compression_tool") =~ /lzo/);
     print "Compression tool: ",$cgi->popup_menu(-name=>'comp',
             -values=>\@comp,
-            -default=>'GZIP',
+            -default=>$default,
             -labels=>\%comp);
     print "</TD><TD WIDTH=300>\n";
     print "Compression ratio: ",$cgi->popup_menu(-name=>'compratio',
             -values=>\@ratio,
-            -default=>6,
+            -default=>$config->get("mondo_compression_level"),
             -labels=>\%ratio);
     print "</TD></TR></TABLE>\n";
@@ -139 +152 @@
     print $cgi->h2('Optional Info');
     print "<TABLE><TR><TD WIDTH=360>\n";
+
+    @default = (@default,'AUTO') if ($config->get("mondo_automatic_restore") =~ /yes/);
+    @default = (@default,'NOFLOPPY') if ($config->get("mondo_write_boot_floppy") =~ /no/);
+    @default = (@default,'DIFF') if ($config->get("mondo_differential") =~ /yes/);
+    #'NFSEXCL' => 'Exclude Network File Systems',
+    @default = (@default, 'NFSEXCL');
+    #'NOBOOTABLE' => 'Create Non-Bootable media',
+    #'MANEJECT' => 'Manual media ejection',
+    #'VERIF' => 'Media verification (Slower)',
+    #'XATTR' => 'Extended Attributes and ACL Management (Slower)'
     print $cgi->checkbox_group(-name=>'options',
             -values=>\@options,
-            -defaults=>['NFSEXCL', 'NOFLOPPY'],
+            -defaults=>\@default,
             -linebreak=>'true',
             -labels=>\%options);
@@ -147 +170 @@
     print "Temporary Directory:\n";
     print $cgi->textfield(-name=>'temp',
-                -default=>'/var/cache/mondo/tmp',
+                -default=>$config->get("mondo_tmp_dir"),
                 -size=>25,
                 -maxlenght=>150);
@@ -153 +176 @@
     print "Scratch Directory:\n";
     print $cgi->textfield(-name=>'scratch',
-                -default=>'/var/cache/mondo/scratch',
+                -default=>$config->get("mondo_scratch_dir"),
                 -size=>25,
                 -maxlenght=>150);
@@ -159 +182 @@
     print "ISO Image Name Prefix:\n";
     print $cgi->textfield(-name=>'prefix',
-                -default=>'mondorescue',
+                -default=>$config->get("mondo_prefix"),
                 -size=>15,
                 -maxlenght=>150);
@@ -165 +188 @@
     print "Tape block size:\n";
     print $cgi->textfield(-name=>'block',
-                -default=>'32768',
+                -default=>$config->get("mondo_external_tape_blocksize"),
                 -size=>10,
                 -maxlenght=>10);
@@ -171 +194 @@
     print "Media Speed (if pertinent): ",$cgi->popup_menu(-name=>'speed',
             -values=>\@speed,
-            -default=>$speed[-1],
+            -default=>$config->get("mondo_iso_burning_speed"),
             -labels=>\%speed);
     print "<BR>";
     print "Kernel:\n";
     print $cgi->textfield(-name=>'kernel',
-                -default=>'NATIVE',
+                -default=>$config->get("mondo_kernel"),
                 -size=>30,
                 -maxlenght=>150);
@@ -196 +219 @@
     print "Bootloader:<BR>\n",$cgi->radio_group(-name=>'boot',
             -values=>\@boot,
-            -default=>'NATIVE',
+            -default=>$config->get("mondo_boot_loader"),
             -linebreak=>'true',
             -labels=>\%boot);
@@ -203 +226 @@
     print $cgi->popup_menu(-name=>'debug',
             -values=>\@ratio,
-            -default=>2,
+            -default=>$config->get("mondo_log_level"),
             -labels=>\%ratio);
     print "</TD><TD>\n";
     print "Excluded directories:\n";
     print $cgi->textfield(-name=>'exclude',
-                -default=>'',
+                -default=>$config->get("mondo_exclude_files"),
                 -size=>30,
                 -maxlenght=>150);
@@ -214 +237 @@
     print "Included directories:\n";
     print $cgi->textfield(-name=>'include',
-                -default=>'',
+                -default=>$config->get("mondo_include_files"),
                 -size=>30,
                 -maxlenght=>150);