[devel-distro] I: mkimage-profiles 1.1.10

[Michael Shigorin]

	Здравствуйте.
За прошлую неделю особых изменений не было -- всё так же висит ряд
экспериментальных коммитов и бранчей, не созревших для публикации.
Идёт доработка altlinux-p7-server.iso.

Среди прочего сейчас выясняю текущее состояние /vm/orthodox --
пока при попытке использовать приложенный хук для формирования
vm-profile.scm вместе с

# FIXME: /vm behaviour should be controllable in some sane manner
%post stage2
sed -i 's,^\(X-Alterator-URI=\).*$,\1/vm/ortodox,' \
        %_datadir/install2/steps/vm.desktop

в installer-distro-altlinux-server.spec (этот субпакет
Requires: alterator-vm) приводит к вот такой картинке:

http://fly.osdn.org.ua/~mike/img/screenshots/vm-ortho.png

(обратите внимание на "0 МБ свободно" и "требуется 0 МБ").

-- 
 ---- WBR, Michael Shigorin / http://altlinux.org
  ------ http://opennet.ru / http://anna-news.info
-------------- next part --------------
#!/bin/sh
# see also http://www.altlinux.org/Autoinstall

mem="$(sed -n '/^MemTotal/s/[^0-9]//gp' /proc/meminfo)" # in kB
max_disk="$(sort -rn /sys/block/[hs]d*/size | head -1)"	# in 512-byte sectors

# feel free to suggest better defaults
if [ "$mem" -le 262144 ]; then
	swap="$[ 2*$mem ]"
elif [ "$mem" -le 524288 ]; then
	swap="$mem"
else
	swap=1048576
fi

# don't do RAID in a VM, reduce swap to a minimum
if grep -qE '(101300b8)|(80eebeef)|(14ad0405)' /proc/bus/pci/devices; then
	methods='plain'
	swap=131072
else
	methods='raid plain'
fi

# less than 10G, choose 1G partitions
if [ "$max_disk" -le 20971520 ]; then
	base=2097152
elif [ "$max_disk" -le 52428800 ]; then
	base=4194304
else
	base=20971520
fi

# EVMS deals with sectors
swap="$[ 2*$swap ]"
base="$[ 2*$base ]"

# The Plan:
# - provide a few more or less equivalent server partitioning profiles
#   

cat > /var/cache/alterator/vm-profile.scm << _EOF_
((var
  (title . "Server (/var holds most space)")
  (action . trivial)
  (actiondata
   ("swap" (size . "$swap") (fsim . "SWAPFS") (methods $methods))
   ("/" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/var" (size "$base" . #t) (fsim . "Ext2/3") (methods $methods))))
 (srv
  (title . "Server (/srv holds most space)")
  (action . trivial)
  (actiondata
   ("swap" (size . "$swap") (fsim . "SWAPFS") (methods $methods))
   ("/" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/var" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/srv" (size "$base" . #t) (fsim . "Ext2/3") (methods $methods))))
 (home
  (title . "Server (/home holds most space)")
  (action . trivial)
  (actiondata
   ("swap" (size . "$swap") (fsim . "SWAPFS") (methods $methods))
   ("/" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/var" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/home" (size "$base" . #t) (fsim . "Ext2/3") (methods $methods))))
 (build
  (title . "Build server (larger swap for tmpfs)")
  (action . trivial)
  (actiondata
   ("swap" (size . "$[10*$swap]") (fsim . "SWAPFS") (methods $methods))
   ("/" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/var" (size "$base" . "$base") (fsim . "Ext2/3") (methods $methods))
   ("/home" (size "$base" . #t) (fsim . "Ext2/3") (methods $methods)))))
_EOF_