raid/create_raid.cgi

   1 #!/usr/local/bin/perl
   2 # create_raid.cgi
   3 # Create raid set
   4
   5 require './raid-lib.pl';
   6 &ReadParse();
   7 &lock_raid_files();
   8 $conf = &get_raidtab();
   9
  10 # Build config file structure
  11 &error_setup($text{'create_err'});
  12 $raid = { 'name' => 'raiddev',
  13           'value' => $in{'device'},
  14           'members' => \@members };
  15 push(@members, { 'name' => 'raid-level',
  16                  'value' => $in{'level'} } );
  17 push(@members, { 'name' => 'persistent-superblock',
  18                  'value' => $in{'super'} } );
  19 push(@members, { 'name' => 'chunk-size',
  20                  'value' => $in{'chunk'} } );
  21 if ($in{'layout'}) {
  22         push(@members, { 'name' => 'parity-algorithm',
  23                          'value' => $in{'layout'} } );
  24         }
  25
  26 # Add RAID disks
  27 @disks = split(/\0/, $in{'disks'});
  28 if (!@disks) {
  29         &error($text{'create_edisks'});
  30         }
  31 elsif ($in{'level'} == 1 && scalar(@disks)+$in{'missing'} < 2) {
  32         &error($text{'create_edisks2'});
  33         }
  34 push(@members, { 'name' => 'nr-raid-disks',
  35                  'value' => scalar(@disks)+($in{'pdisk'} ? 1 : 0) } );
  36 for($i=0; $i<@disks; $i++) {
  37         push(@members, { 'name' => 'device',
  38                          'value' => $disks[$i],
  39                          'members' => [ { 'name' => 'raid-disk',
  40                                           'value' => $i } ] } );
  41         }
  42
  43 # Add spares
  44 @spares = split(/\0/, $in{'spares'});
  45 if (@spares) {
  46         push(@members, { 'name' => 'nr-spare-disks',
  47                          'value' => scalar(@spares) } );
  48         for($i=0; $i<@spares; $i++) {
  49                 if (&indexof($spares[$i], @disks) != -1) {
  50                         &error(&text('create_espare', $spares[$i]));
  51                         }
  52                 push(@members, { 'name' => 'device',
  53                                  'value' => $spares[$i],
  54                                  'members' => [ { 'name' => 'spare-disk',
  55                                                   'value' => $i } ] } );
  56                 }
  57         }
  58
  59 # Add parity disk
  60 if ($in{'pdisk'}) {
  61         &indexof($in{'pdisk'}, @disks) < 0 || &error($text{'create_epdisk'});
  62         push(@members, { 'name' => 'device',
  63                          'value' => $in{'pdisk'},
  64                          'members' => [ { 'name' => 'parity-disk',
  65                                           'value' => 0 } ] } );
  66         }
  67
  68 # Parse spare group
  69 if ($in{'group_mode'} == 1) {
  70         push(@members, { 'name' => 'spare-group',
  71                          'value' => $in{'group'} });
  72         }
  73 elsif ($in{'group_mode'} == 2) {
  74         $in{'newgroup'} =~ /^[a-z0-9\_]+$/i ||
  75                 &error($text{'create_enewgroup'});
  76         push(@members, { 'name' => 'spare-group',
  77                          'value' => $in{'newgroup'} });
  78         }
  79
  80 &create_raid($raid);
  81 &unlock_raid_files();
  82 if ($err = &make_raid($raid, $in{'force'}, $in{'missing'}, $in{'assume'})) {
  83         &delete_raid($raid);
  84         &error($err);
  85         }
  86 elsif ($in{'level'} != 0) {
  87           # Set RAID to read/write mode after creation except for RAID0 which is automatically set to read/write.
  88           &readwrite_raid($raid);
  89 }
  90 &webmin_log("create", undef, $in{'device'}, \%in);
  91 &redirect("");
  92