Changeset 1223 in MondoRescue

Timestamp:

Mar 3, 2007, 9:19:16 AM (18 years ago)

Author:

Bruno Cornec

Message:

Much more advanced version

File:

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

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

@@ -29 +29 @@
 #print Dumper($cfgfile);
 
+my $command="";
+
 # Fake it for now
 my %media = (
-        "CD" => "CD-R", 
+        "CDR" => "CD-R", 
         "CDRW" => "CD-RW", 
         "DVD" => "DVD+/-R/RW", 
@@ -42 +44 @@
 my @media = sort keys %media;
 my %options = (
-        'FLOPPY' => 'Boot floppy production',
+        'NOFLOPPY' => 'No Boot floppy production',
+        'NOBOOTABLE' => 'Create Non-Bootable media',
         'AUTO', => 'Auto Restore Mode',
         'NFSEXCL' => 'Exclude Network File Systems',
@@ -67 +70 @@
 );
 my @comp = sort keys %comp;
-my %compsize = (
+my %ratio = (
         0 => '0',
         1 => '1',
@@ -79 +82 @@
         9 => '9',
 );
-my @compsize = sort {$a <=> $b} keys %compsize;
+my @ratio = sort {$a <=> $b} keys %ratio;
 my %boot = (
-        'LILO' => "LILO (ELILO for ia64)",
+        'LILO' => "LILO",
         'GRUB' => "GRUB",
+        'ELILO' => "ELILO (ia64)",
+        'RAW' => "RAW",
         'NATIVE' => "Autodetected",
 );
@@ -125 +130 @@
             -labels=>\%comp);
     print "</TD><TD WIDTH=300>\n";
-    print "Compression ratio: ",$cgi->popup_menu(-name=>'compsize',
-            -values=>\@compsize,
+    print "Compression ratio: ",$cgi->popup_menu(-name=>'compratio',
+            -values=>\@ratio,
             -default=>6,
-            -labels=>\%compsize);
+            -labels=>\%ratio);
     print "</TD></TR></TABLE>\n";
     print $cgi->hr;
@@ -136 +141 @@
     print $cgi->checkbox_group(-name=>'options',
             -values=>\@options,
-            -defaults=>['NFSEXCL'],
+            -defaults=>['NFSEXCL', 'NOFLOPPY'],
             -linebreak=>'true',
             -labels=>\%options);
@@ -181 +186 @@
                 -maxlenght=>150);
     print "<BR>";
+    print "NFS (server:export):\n";
+    print $cgi->textfield(-name=>'nfs',
+                -default=>'',
+                -size=>30,
+                -maxlenght=>150);
+    print "<BR>";
     print "</TD></TR>\n";
     print "<TR><TD>\n";
@@ -188 +199 @@
             -linebreak=>'true',
             -labels=>\%boot);
+    print "<BR>";
+    print "Debug:\n";
+    print $cgi->popup_menu(-name=>'debug',
+            -values=>\@ratio,
+            -default=>2,
+            -labels=>\%ratio);
     print "</TD><TD>\n";
     print "Excluded directories:\n";
@@ -218 +235 @@
     print $cgi->end_form;
 } else {
-    print $cgi->h2('You made the following choices :');
-    print $cgi->hr;
-    print "<BOLD>Mandatory options </BOLD> - ";
-    print "Language : <em>",$cgi->param('language'),", </em>";
-    print "Keyboard : <em>",$cgi->param('keyboard'),", </em>";
-    print "Timezone : <em>",$cgi->param('timezone'),"</em>";
-    print $cgi->hr;
-    print "<BOLD>Network</BOLD> configuration mode ";
-    if ($cgi->param('mode') eq 'STATIC') {
-        print "<em>static</em><P>"; 
-        print "Name : <em>",$cgi->param('name'),"</em><P>";
-        print "IP address : <em>",$cgi->param('address'),", </em>";
-        print "Netmask : <em>",$cgi->param('netmask'),"</em><P>";
-        print "Gateway : <em>",$cgi->param('gateway'),", </em>";
-        print "DNS server : <em>",$cgi->param('dns'),", </em>";
+    $command="mondoarchive -O -K ".$cgi->param('debug')." ";
+    if ($cgi->param('debug') eq 'STATIC') {
+    } else {
     }
-    else {
-        print "<em>dynamic (DHCP)</em>" 
+    foreach my $s ($cgi->param('options')) {
+        $command .= "-F " if ($s =~ /NOFLOPPY/);
+        $command .= "-W " if ($s =~ /NOBOOTABLE/);
+        $command .= "-H " if ($s =~ /AUTO/);
+        $command .= "-N " if ($s =~ /NFSEXCL/);
+        $command .= "-m " if ($s =~ /MANEJECT/);
+        $command .= "-D " if ($s =~ /DIFF/);
+        $command .= "-V " if ($s =~ /VERIF/);
+        $command .= "-z " if ($s =~ /XATTR/);
     }
-    print $cgi->hr;
-    print "<BOLD>Services</BOLD> activated at boot time : ";
-    foreach my $s ($cgi->param('options')) {
-        print "- <em>FTP server</em> -" if ( $s =~ /FTP/);
-        print "- <em>Web server</em> -" if ($s =~ /WWW/);
-        print "- <em>DNS server</em> -" if ($s =~ /DNS/);
-        print "- <em>Proxy/Cache server</em> -" if ($s =~ /SQUID/);
-    }
-    print $cgi->hr;
-    print "Your customization parameters are now being commited to the server which will then reboot to ensure a proper environement.<P>";
+    my $speed = $cgi->param('speed');
+    $command .= "-c $speed " if ($cgi->param('media') =~ /^CDR$/);
+    $command .= "-w $speed " if ($cgi->param('media') =~ /^CDRW$/);
+    $command .= "-n ".$cgi->param('nfs')." " if (($cgi->param('media') =~ /NFS/) && ($cgi->param('nfs') ne ""));
+    $command .= "-r " if ($cgi->param('media') =~ /DVD/);
+    $command .= "-i " if ($cgi->param('media') =~ /ISO/);
+    $command .= "-U " if ($cgi->param('media') =~ /USB/);
+    $command .= "-t " if ($cgi->param('media') =~ /TAPE/);
+    $command .= "-b ".$cgi->param('block')." " if (($cgi->param('media') =~ /TAPE/) && ($cgi->param('block') ne ""));
+    $command .= "-u " if ($cgi->param('media') =~ /STREAM/);
+    $command .= "-L " if ($cgi->param('comp') =~ /LZO/);
+    $command .= "-G " if ($cgi->param('comp') =~ /GZIP/);
+    $command .= "-E \"".$cgi->param('exclude')."\" " if ($cgi->param('exclude') ne "");
+    $command .= "-I \"".$cgi->param('include')."\" " if ($cgi->param('include') ne "");
+    $command .= "-T ".$cgi->param('temp')." " if ($cgi->param('temp') ne "");
+    $command .= "-S ".$cgi->param('scratch')." " if ($cgi->param('scratch') ne "");
+    $command .= "-B ".$cgi->param('before')." " if ($cgi->param('before') ne "");
+    $command .= "-A ".$cgi->param('after')." " if ($cgi->param('after') ne "");
+    $command .= "-p ".$cgi->param('prefix')." " if ($cgi->param('prefix') ne "");
+    $command .= "-P ".$cgi->param('postnuke')." " if ($cgi->param('postnuke') ne "");
+    $command .= "-l ".$cgi->param('boot')." " if ($cgi->param('boot') ne 'NATIVE');
+    $command .= "-k ".$cgi->param('kernel')." " if (($cgi->param('kernel') ne "") && ($cgi->param('kernel') ne 'NATIVE'));
+    $command .= "-d ".$cgi->param('dest')." -s ".$cgi->param('size')." -".$cgi->param('compratio')." ";
+
+    print $cgi->h2('Here is the mondoarchive command generated:');
+    print $cgi->hr;
+    print $command;
+
+    print $cgi->hr;
+    print "That mondoarchive is now being commited to the server which launch the disaster recovery procedure.<P>";
     print "Please wait till it's done ...";
     print $cgi->end_form;
@@ -253 +285 @@
     # Now doing the job ...
     #
-
-        my $genbin = "/tmp";
-        open(T,"> $genbin/populate") || die "Unable to open $genbin/populate";
-        print T "#!/bin/sh\n";
-        print T "#\n";
-
-        foreach my $s ($cgi->param('services')) {
-            print T "/sbin/chkconfig --level 345 named on\n" if ($s =~ /DNS/);
-            print T "/sbin/chkconfig --level 345 httpd on\n" if ($s =~ /WWW/);
-            print T "/sbin/chkconfig --level 345 squid on\n" if ($s =~ /SQUID/);
-        }
-        close(T);
-        chmod 0755,"$genbin/populate";
-        system("sudo $genbin/populate");
+    #system("sudo $command");
     }