Contents of /trunk/packages/partman/partman/partman

#!/bin/sh

. /lib/partman/definitions.sh

abort () {
    if [ -f /var/run/parted_server.pid ]; then
        open_infifo
        write_line "QUIT"
        close_infifo
        rm /var/run/parted_server.pid
    fi
    exit $1
}

confirm_changes () {
    local dev x part partitions num id size type fs path name filesystem partitems items formatted_previously
    # Compute the changes we are going to do
    partitems=''
    items=''
    for dev in $DEVICES/*; do
        [ -d "$dev" ] || continue
        cd $dev

        open_dialog IS_CHANGED
        read_line x
        close_dialog
        if [ "$x" = yes ]; then
            partitems="${partitems}   $(humandev $(cat device))
"
        fi

        partitions=
        open_dialog PARTITIONS
        while { read_line num id size type fs path name; [ "$id" ]; }; do
            [ "$fs" != free ] || continue
            partitions="$partitions $id,$num"
        done
        close_dialog
        
        formatted_previously=no
        for part in $partitions; do
            id=${part%,*}
            num=${part#*,}
            [ -f $id/method -a -f $id/format \
                -a -f $id/visual_filesystem ] || continue
            # if no filesystem (e.g. swap) should either be not
            # formatted or formatted before the method is specified
            [ -f $id/filesystem -o ! -f $id/formatted \
                -o $id/formatted -ot $id/method ] || continue
            # if it is already formatted filesystem it must be formatted 
            # before the method or filesystem is specified
            [ ! -f $id/filesystem -o ! -f $id/formatted \
                -o $id/formatted -ot $id/method \
                -o $id/formatted -ot $id/filesystem ] ||
                    {
                        formatted_previously=yes
                        continue
                    }
            filesystem=$(cat $id/visual_filesystem)
            db_subst partman/text/confirm_item TYPE "$filesystem"
            db_subst partman/text/confirm_item PARTITION "$num"
            db_subst partman/text/confirm_item DEVICE $(humandev $(cat device))
            db_metaget partman/text/confirm_item description
            
            items="${items}   ${RET}
"
        done
    done

    if [ "$items" ]; then
        db_metaget partman/text/confirm_item_header description
        items="$RET
$items"
    fi
    
    if [ "$partitems" ]; then
        db_metaget partman/text/confirm_partitem_header description
        partitems="$RET
$partitems"
    fi
    
    if [ "$partitems$items" ]; then
        if [ -z "$items" ]; then
            x="$partitems"
        elif [ -z "$partitems" ]; then
            x="$items"
        else
            x="$partitems
$items"
        fi
        db_subst partman/confirm ITEMS "$x"
        db_input critical partman/confirm
        db_go || true
        db_get partman/confirm
        if [ "$RET" = false ]; then
            db_reset partman/confirm
            return 1
        else
            db_reset partman/confirm
            return 0
        fi
    else
        if [ "$formatted_previously" = no ]; then
            db_input high partman/confirm_nochanges
            db_go || true
            db_get partman/confirm_nochanges
            if [ "$RET" = false ]; then
                db_reset partman/confirm_nochanges
                return 1
            else
                db_reset partman/confirm_nochanges
                return 0
            fi
        else
            return 0
        fi
    fi
}

db_capb backup

# Measure the width of partman/text/number here to make things faster.
# number_width is used only in visual.d/number
db_metaget partman/text/number description
RET=$(printf "$RET" '')
RET=$(stralign 50 "$RET" | sed 's/[^ ]//g')
number_width=$((2 + 50 - ${#RET}))
export number_width


# Here is maybe not a good place to set deci (TODO)
#db_metaget partman/text/deci description
#deci="$RET"
#export deci

# The comma has special meaning for debconf.  Lets force dot untill we
# discover where the comma has to be escaped..
deci='.'

#if [ -e /var/lib/partman ]; then 
#    rm -rf /var/lib/partman 
#fi

mkdir /var/lib/partman

while true; do
    
    initcount=`ls /lib/partman/init.d/* | wc -l`
    db_progress START 0 $initcount partman/progress/init/title
    for s in /lib/partman/init.d/*; do
        if [ -x $s ]; then
            base=$(basename $s | sed 's/[0-9]*//')
            echo $base >&2
            # Not every init script has, or needs, its own progress
            # template. Add them to slow init scripts only.
            if ! db_progress INFO partman/progress/init/$base; then
                db_progress INFO partman/progress/init/fallback
            fi
            if ! $s; then
                db_progress STOP
                abort 10
            fi
        fi
        db_progress STEP 1
    done
    db_progress STOP
    
    while true; do
        ask_user /lib/partman/choose_partition
        exitcode=$?
        if [ $exitcode -eq 255 ]; then
            db_subst partman/confirm_abort ITEMS "$items"
            db_input high partman/confirm_abort
            db_go || true
            db_get partman/confirm_abort
            if [ "$RET" = true ]; then
                db_reset partman/confirm_abort
                abort 10 # back up to main menu
            fi
            db_reset partman/confirm_abort
        elif [ $exitcode -ge 100 ] && confirm_changes; then
            break
        fi
    done

    for s in /lib/partman/commit.d/*; do
        if [ -x $s ]; then
            $s || continue 2
        fi
    done
    
    for s in /lib/partman/finish.d/*; do
        if [ -x $s ]; then
            $s || {
                status=$?
                if [ "$status" = 1 ]; then
                    continue 2
                else
                    abort $status
                fi
            }
        fi
    done

    break
done    
1	#!/bin/sh
2
3	. /lib/partman/definitions.sh
4
5	abort () {
6	if [ -f /var/run/parted_server.pid ]; then
7	open_infifo
8	write_line "QUIT"
9	close_infifo
10	rm /var/run/parted_server.pid
11	fi
12	exit $1
13	}
14
15	confirm_changes () {
16	local dev x part partitions num id size type fs path name filesystem partitems items formatted_previously
17	# Compute the changes we are going to do
18	partitems=''
19	items=''
20	for dev in $DEVICES/*; do
21	[ -d "$dev" ] \|\| continue
22	cd $dev
23
24	open_dialog IS_CHANGED
25	read_line x
26	close_dialog
27	if [ "$x" = yes ]; then
28	partitems="${partitems} $(humandev $(cat device))
29	"
30	fi
31
32	partitions=
33	open_dialog PARTITIONS
34	while { read_line num id size type fs path name; [ "$id" ]; }; do
35	[ "$fs" != free ] \|\| continue
36	partitions="$partitions $id,$num"
37	done
38	close_dialog
39
40	formatted_previously=no
41	for part in $partitions; do
42	id=${part%,*}
43	num=${part#*,}
44	[ -f $id/method -a -f $id/format \
45	-a -f $id/visual_filesystem ] \|\| continue
46	# if no filesystem (e.g. swap) should either be not
47	# formatted or formatted before the method is specified
48	[ -f $id/filesystem -o ! -f $id/formatted \
49	-o $id/formatted -ot $id/method ] \|\| continue
50	# if it is already formatted filesystem it must be formatted
51	# before the method or filesystem is specified
52	[ ! -f $id/filesystem -o ! -f $id/formatted \
53	-o $id/formatted -ot $id/method \
54	-o $id/formatted -ot $id/filesystem ] \|\|
55	{
56	formatted_previously=yes
57	continue
58	}
59	filesystem=$(cat $id/visual_filesystem)
60	db_subst partman/text/confirm_item TYPE "$filesystem"
61	db_subst partman/text/confirm_item PARTITION "$num"
62	db_subst partman/text/confirm_item DEVICE $(humandev $(cat device))
63	db_metaget partman/text/confirm_item description
64
65	items="${items} ${RET}
66	"
67	done
68	done
69
70	if [ "$items" ]; then
71	db_metaget partman/text/confirm_item_header description
72	items="$RET
73	$items"
74	fi
75
76	if [ "$partitems" ]; then
77	db_metaget partman/text/confirm_partitem_header description
78	partitems="$RET
79	$partitems"
80	fi
81
82	if [ "$partitems$items" ]; then
83	if [ -z "$items" ]; then
84	x="$partitems"
85	elif [ -z "$partitems" ]; then
86	x="$items"
87	else
88	x="$partitems
89	$items"
90	fi
91	db_subst partman/confirm ITEMS "$x"
92	db_input critical partman/confirm
93	db_go \|\| true
94	db_get partman/confirm
95	if [ "$RET" = false ]; then
96	db_reset partman/confirm
97	return 1
98	else
99	db_reset partman/confirm
100	return 0
101	fi
102	else
103	if [ "$formatted_previously" = no ]; then
104	db_input high partman/confirm_nochanges
105	db_go \|\| true
106	db_get partman/confirm_nochanges
107	if [ "$RET" = false ]; then
108	db_reset partman/confirm_nochanges
109	return 1
110	else
111	db_reset partman/confirm_nochanges
112	return 0
113	fi
114	else
115	return 0
116	fi
117	fi
118	}
119
120	db_capb backup
121
122	# Measure the width of partman/text/number here to make things faster.
123	# number_width is used only in visual.d/number
124	db_metaget partman/text/number description
125	RET=$(printf "$RET" '')
126	RET=$(stralign 50 "$RET" \| sed 's/[^ ]//g')
127	number_width=$((2 + 50 - ${#RET}))
128	export number_width
129
130
131	# Here is maybe not a good place to set deci (TODO)
132	#db_metaget partman/text/deci description
133	#deci="$RET"
134	#export deci
135
136	# The comma has special meaning for debconf. Lets force dot untill we
137	# discover where the comma has to be escaped..
138	deci='.'
139
140	#if [ -e /var/lib/partman ]; then
141	# rm -rf /var/lib/partman
142	#fi
143
144	mkdir /var/lib/partman
145
146	while true; do
147
148	initcount=`ls /lib/partman/init.d/* \| wc -l`
149	db_progress START 0 $initcount partman/progress/init/title
150	for s in /lib/partman/init.d/*; do
151	if [ -x $s ]; then
152	base=$(basename $s \| sed 's/[0-9]*//')
153	echo $base >&2
154	# Not every init script has, or needs, its own progress
155	# template. Add them to slow init scripts only.
156	if ! db_progress INFO partman/progress/init/$base; then
157	db_progress INFO partman/progress/init/fallback
158	fi
159	if ! $s; then
160	db_progress STOP
161	abort 10
162	fi
163	fi
164	db_progress STEP 1
165	done
166	db_progress STOP
167
168	while true; do
169	ask_user /lib/partman/choose_partition
170	exitcode=$?
171	if [ $exitcode -eq 255 ]; then
172	db_subst partman/confirm_abort ITEMS "$items"
173	db_input high partman/confirm_abort
174	db_go \|\| true
175	db_get partman/confirm_abort
176	if [ "$RET" = true ]; then
177	db_reset partman/confirm_abort
178	abort 10 # back up to main menu
179	fi
180	db_reset partman/confirm_abort
181	elif [ $exitcode -ge 100 ] && confirm_changes; then
182	break
183	fi
184	done
185
186	for s in /lib/partman/commit.d/*; do
187	if [ -x $s ]; then
188	$s \|\| continue 2
189	fi
190	done
191
192	for s in /lib/partman/finish.d/*; do
193	if [ -x $s ]; then
194	$s \|\| {
195	status=$?
196	if [ "$status" = 1 ]; then
197	continue 2
198	else
199	abort $status
200	fi
201	}
202	fi
203	done
204
205	break
206	done