Autoinstall ОС Альт Сервер, возможность изменения названия VG (volume group)

[ccoll]

Здравствуйте.
Подскажите пожалуйста параметр для изменения названия группы VG (volume group) при выполнении Autoinstall ОС Альт Сервер? По умолчанию создается группа "alt".
часть файла настроек vm-profile.scm:
  (actiondata  ("swap" (size 2048000 . 2048000) (fsim . "SWAPFS") (methods lvm))
               ("/" (size 16384000 . 16384000 ) (fsim . "Ext4") (methods lvm))
               ("/var" (size 4096000 . #t ) (fsim . "Ext4") (methods lvm))))

Ссылка на документацию:
https://docs.altlinux.org/ru-RU/alt-server/10.2/html/alt-server/install-distro--autoinstall--chapter.html

[berkut_174]

по идее так:

Код: [Выделить]

("swap" (size 2048000 . 2048000) (fsim . "SWAPFS") (methods lvm) (name . "vgname"))


[ccoll]

Здравствуйте.
Не работает "(name . "vgname")", группа VG все равно создается "alt".

[berkut_174]

Хм, тогда смотрите сами пакет alterator-vm. Вообще там есть такая функция:

Код: [Выделить]

(define (pr-place-one name size rest methods)
  (format (current-error-port) "PLACE-ONE: ~S ~S ~S ~S\n" name size rest methods)
  (if (null? methods) #f
      (or (case (car methods)
            ((lvm) (pr-place-lvm name size rest))
            ((raid) (pr-place-raid name size rest))
            ((plain) (pr-place-plain name size rest))
            (else (format (current-error-port) "wtf?\n") #f))
          (pr-place-one name size rest (cdr methods)))))


[berkut_174]

Может быть так:

Код: [Выделить]

("swap" (name "vgname") (size 2048000 . 2048000) (fsim . "SWAPFS") (methods lvm))

Ну либо искать спеца по Scheme, коим я не являюсь

[berkut_174]

Хотя вот этот код как бы намекает на то, что вариации на тему не может существовать и всегда будет "alt":

Код: [Выделить]

(define (pr-place-lvm name size rest)
  (and-let*
   ((vg (pr-lvm-vg "alt" size rest)))
   (format (current-error-port) "PLACE-LVM: VG: ~S\n" (obj->name vg))
   (false-if-exception
    (let* ((task (evms 'create (evms 'plugin #:name "LVM2")))
           (lv (find (lambda(obj) (eqv? vg (obj->producer obj)))
                     (task 'acceptable)))
           (size (pr-place-size lv size rest)))
      (format (current-error-port)
              "PLACE-LVM: LV: ~S ~S ~S ~S\n" name size (obj->name lv) (obj->size lv))
      (set! (task 'selected) (list lv))
      (set! (task 'options) `(("name" . ,(pr-lvm-mangle-lv-name name))))
      (and (number? size) (set! (task 'options) `(("size" . ,size))))
      (task 'apply)))))


[ccoll]

Здравствуйте.
Печально.
Благодарю за помощь.

Получается и точки монтирования вида /var/log автоматом не создаются, только вида /var создаются (vm-profile.scm).