Tagging module NodeManager - NodeManager-1.7-27
[build.git] / build.common
1 # -*-Shell-script-*-
2 #
3 # Common functions for build scripts used by various packages
4 # incorporated (e.g., build, myplc, myplc-devel, vserver-reference)
5 #
6 # Marc E. Fiuczynski <mef@cs.princeton.edu>
7 # Copyright (C) 2007 The Trustees of Princeton University
8 #
9 # $Id$
10 #
11
12 function pl_getDefaultDistro() {
13     # FC4 is currently the default release
14     echo "Fedora"
15     return 0
16 }
17
18 function pl_getDefaultRelease() {
19     # FC4 is currently the default release
20     echo "4"
21     return 0
22 }
23
24 function pl_getDistro() {
25     defaultDistro=$(pl_getDefaultDistro)
26     if [ -f "/etc/redhat-release" ] ; then
27         distro=$(awk ' { print $1 } ' /etc/redhat-release)
28     else
29         distro=$defaultDistro
30     fi
31     echo "$distro"
32     return 0
33 }
34
35 function pl_getRelease() {
36     defaultRelease=$(pl_getDefaultRelease)
37     if [ -f "/etc/redhat-release" ] ; then
38         release=$(awk ' { if ($1=="Fedora" && $2=="Core") print $4 ; if (($1=="Fedora" && $2!="Core")||$1=="CentOS") print $3 } ' /etc/redhat-release)
39         [ $release -lt $defaultRelease ] && release=$defaultRelease
40     else
41         release=$defaultRelease
42     fi
43     echo "$release"
44     return 0
45 }
46
47 # vserver expects something like fc4 or f7
48 # for fedora and centos only for now
49 function pl_getReleaseName () {
50     distro=$1; shift
51     release=$1; shift
52     case $distro in
53         [Ff]edora*)
54             if [ "$release" -le 6 ] ; then
55                 releasename=fc$release
56             else
57                 releasename=f$release
58             fi ;;
59         [Cc]entOS*)
60             old_IFS="$IFS"
61             IFS="."
62             set -- $release
63             IFS="$old_IFS"
64             releasename=centos$1
65             ;;
66         *)
67             releasename="unknown-name-for-${pl_DISTRO}-please-edit-build.common"
68             echo 1>&2 "build.common: WARNING - releasename not set for distro=$distro" 
69             return 1
70             ;;
71     esac
72     echo "$releasename"
73     return 0
74 }
75
76 # figure out which redhat distro we are using (fedora, centos, redhat)
77 pl_DISTRO=$(pl_getDistro)
78
79 # select basearch of the host devel environment - protected for macos for local tests
80 pl_DISTRO_ARCH=$(uname -i 2>/dev/null|| echo unknownarch)
81
82 # the release number (plain number)
83 pl_DISTRO_RELEASE=$(pl_getRelease)
84
85 # the release name - for vserver build - like fc4, f8 or centos4
86 pl_DISTRO_NAME=$(pl_getReleaseName $pl_DISTRO $pl_DISTRO_RELEASE)
87
88 # get path to appropriate yumgroups.xml file
89 # Thierry: quick & dirty improvement 
90 # this file is updated by the toplevel build, from groups/<pldistro>.xml
91 pl_DISTRO_YUMGROUPS="../../../RPMS/yumgroups.xml"
92
93 function pl_process_fedora_options () {
94     # Get options
95     shiftcount=0
96     while getopts "l:r:a:h" opt ; do
97         case $opt in
98             l)
99                 pl_DISTRO_URL=$OPTARG
100                 let shiftcount=$shiftcount+2
101                 ;;
102             r)
103                 pl_DISTRO_RELEASE=$OPTARG
104                 let shiftcount=$shiftcount+2
105                 ;;
106             a)
107                 pl_DISTRO_ARCH=$OPTARG
108                 let shiftcount=$shiftcount+2
109                 ;;
110             h|*)
111                 echo "Usage: $0 [OPTION]..."
112                 echo "  -l url          distro mirror location (default: $pl_DISTRO_URL)"
113                 echo "  -r release      distro release number (default: $pl_DISTRO_RELEASE)"
114                 echo "  -a arch         distro architecture (default: $pl_DISTRO_ARCH)"
115                 echo "where distro can be either fedora, centos, or redhat"
116                 echo "  -h              This message"
117                 exit 1
118                 ;;
119         esac
120     done
121     return $shiftcount
122 }
123
124 ######################################## handling a root image
125 function pl_root_rpm_macros () {
126     cat <<EOF
127 %_install_langs C:en_US:en
128 %_netsharedpath /proc:/dev/pts:/usr/share/info
129 %_excludedocs 1
130 %__file_context_path /dev/null
131 EOF
132 }
133
134 function pl_root_makedevs() {
135     vroot=$1
136     # Clean ${vroot}/dev, but only when ${vroot}!=""
137     [ -n $vroot ] && rm -rf $vroot/dev
138     
139     mkdir -p $vroot/dev
140     mknod -m 666 $vroot/dev/null c 1 3
141     mknod -m 666 $vroot/dev/zero c 1 5
142     mknod -m 666 $vroot/dev/full c 1 7
143     mknod -m 644 $vroot/dev/random c 1 8
144     mknod -m 644 $vroot/dev/urandom c 1 9
145     mknod -m 666 $vroot/dev/tty c 5 0
146     mknod -m 666 $vroot/dev/ptmx c 5 2
147     # For bash command substitution
148     ln -nsf ../proc/self/fd $vroot/dev/fd
149
150     # For df and linuxconf
151     touch $vroot/dev/hdv1
152
153     # For pseudo ttys
154     mkdir -p $vroot/dev/pts
155
156     # (Might have to remove the following for vserver-reference.)
157
158     # for tmpfs mount
159     mkdir -p $vroot/dev/shm
160
161     # For TUN/TAP
162     mkdir -p $vroot/dev/net
163     mknod -m 600 $vroot/dev/net/tun c 10 200
164
165     # For mkinitrd (in case a kernel is being installed)
166     # As well for loop back mounting within a vserver. 
167     for i in $(seq 0 255) ; do
168         mknod -m 640 $vroot/dev/loop$i b 7 $i
169     done
170 }
171
172 function mkfedora_usage() {
173     echo "Usage: pl_root_mkfedora [OPTION]... basedir pldistro pkgsfile(s)"
174     echo "      -l url          Fedora mirror location."
175     echo "                      Defaults are searched in <pldistro>.mirrors"
176     echo "      -v              Be verbose"
177     echo "      -h              This message"
178     echo " target selection (defaults based on current build vserver)"
179     echo "      -r release      Fedora release number (default: $releasever)"
180     echo "      -a arch         Fedora architecture (default: $basearch)"
181     exit 1
182 }
183
184 function pl_root_mkfedora () {
185
186     echo "* Entering pl_root_mkfedora" "$@"
187
188     if [ $UID -ne 0 ] ; then
189         echo "Error: You must run this script as root."
190         exit 1
191     fi
192
193 # Verbosity
194     verbose=0
195
196 # Release and architecture to install : defaults to current vserver's settings or previously parsed fedora_options
197     releasever=$pl_DISTRO_RELEASE
198     basearch=$pl_DISTRO_ARCH
199
200 # Get options
201     mirrors=""
202     while getopts "l:r:a:vh" opt ; do
203         case $opt in
204             l)
205                 mirrors="$mirrors $OPTARG"
206                 ;;
207             r)
208                 releasever=$OPTARG
209                 ;;
210             a)
211                 basearch=$OPTARG
212                 ;;
213             v)
214                 verbose=1
215                 set -x
216                 ;;
217             h|*)
218                 mkfedora_usage
219                 ;;
220         esac
221     done
222
223     shift $(($OPTIND - 1))
224     [[ "$#" -lt 3 ]] && mkfedora_usage
225     vroot=$1 ; shift
226     pldistro=$1 ; shift
227     pkgsfile="$@"
228     vroot=$(cd $vroot && pwd -P)
229     [ -d $vroot ] || mkfedora_usage
230
231
232     # parse pkgsfile and add to local vars
233     fcdistro=${pl_DISTRO_NAME}
234     pkgs_packages=$(pl_parsePkgs package $fcdistro $pldistro $pkgsfile) 
235     pkgs_groups=$(pl_parsePkgs group $fcdistro $pldistro $pkgsfile)
236     # packages to exclude - obsolete, was maybe useful when installing a group
237     pkgs_excludes=$(pl_parsePkgs exclude $fcdistro $pldistro $pkgsfile) 
238     pkgs_junk=$(pl_parsePkgs junk $fcdistro $pldistro $pkgsfile)
239     pkgs_precious=$(pl_parsePkgs precious $fcdistro $pldistro $pkgsfile)
240     # formerly related to mkfedora -k
241     pkgs_kexcludes=$(pl_parsePkgs kexclude $fcdistro $pldistro $pkgsfile)
242     # get mirrors if not specified with -l
243     if [ -z "$mirrors" ] ; then
244         mirrorsfile=$(pl_locateDistroFile ../build/ $pldistro "$pldistro.mirrors")
245         mirrors=$(pl_parsePkgs mirror $fcdistro $pldistro $mirrorsfile)
246     fi
247
248     exclude_kernel=""
249     # add them manually as the output of pl_parsePkgs is line-separated
250     if [ -n "$pkgs_kexcludes" ] ; then
251         exclude_kernel="exclude="
252         for kexclude in $pkgs_kexcludes ; do
253             exclude_kernel="$exclude_kernel $kexclude"
254         done
255     fi
256
257     function mkfedora_fetch ()
258     {
259         curl --fail --silent --max-time 60 "$1"
260     }
261
262     # set list of attempted locations according to target distro
263     # xxx all this should go into mirroring/ somehow
264     case $pl_DISTRO in
265         Fedora)
266             if [ $releasever -ge 7 ] ; then
267                 # Plain Fedora comes with a new layout
268                 attempts="
269 fedora/releases/$releasever/Everything/$basearch/os
270 linux/releases/$releasever/Everything/$basearch/os
271 $releasever/Everything/$basearch/os
272 core/$releasever/Everything/$basearch/os
273 linux/core/$releasever/$basearch/os
274 "
275             else
276                 # Fedora Core
277                 attempts="
278 fedora/core/$releasever/$basearch/os 
279 linux/core/$releasever/$basearch/os 
280 core/$releasever/$basearch/os 
281 $releasever/$basearch/os
282 "
283             fi 
284             public_gpg_key=RPM-GPG-KEY-fedora
285             ;;
286         CentOS)
287             # xxx hacky for now
288             # you can use vbuild-fedora-mirror with -f centos5.2
289             # which is hard-coded in mirroring/centos as well
290             # for now I do the mapping here, mmhh
291             case $releasever in
292                 4) actual=4.6 ;;
293                 5) actual=5.2 ;;
294                 *) actual=$releasever ;;
295             esac
296             attempts="
297 centos/$actual/os/$basearch
298 "
299             public_gpg_key=RPM-GPG-KEY-CentOS-$releasever
300             ;;
301         *)
302             echo "distro $pl_DISTRO not supported in build.common / mkfedora" ; exit 1
303     esac
304
305     echo "$0: candidate mirrors"
306     for mirror in $mirrors ; do
307         echo "* candidate mirror $mirror"
308     done
309     baseurl=""
310     for mirror in $mirrors ; do
311         for attempt in $attempts; do 
312             attempturl=$mirror/$attempt
313             if mkfedora_fetch $attempturl/repodata/repomd.xml >/dev/null ; then
314                 baseurl=$attempturl
315                 break 2
316             fi
317         done
318     done
319
320     if [ -z "$baseurl" ] ; then
321         echo "Error: $releasever/$basearch/os/repodata/repomd.xml"
322         echo "       could not be found in any of the following locations:"
323         echo
324         for mirror in $mirrors ; do
325             for attempt in $attempts ; do
326                 echo $mirror/$attempt
327             done
328         done
329         echo
330         mkfedora_usage
331     else
332         echo "* selecting mirror with baseurl=$baseurl"
333     fi
334
335     # Do not tolerate errors
336     set -e
337
338     ## make rpms ignore installing stuff to special fs entries like /proc
339     # Because of https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=52725
340     # you have to use at least one language beside 'C'
341     # Prevent all locales from being installed in reference image
342     mkdir -p $vroot/etc/rpm
343     pl_root_rpm_macros > $vroot/etc/rpm/macros 
344
345     # Trick rpm and yum, who read the real root /etc/rpm/macros file
346     # rather than the one installed in the reference image, despite what
347     # you might expect the --root and --installroot options to mean. Both
348     # programs always read $HOME/.rpmmacros.
349     export HOME=$vroot/tmp
350     mkdir -p $vroot/tmp
351     pl_root_rpm_macros > $vroot/tmp/.rpmmacros
352
353     function mkfedora_cleanup () {
354         umount -l $vroot/proc
355         umount -l $vroot/dev/shm
356         umount -l $vroot/dev/pts
357     }
358
359     # Clean up before exiting if anything goes wrong
360     trap "mkfedora_cleanup" ERR INT
361
362     # Mount in reference image
363     mount -t devpts none $vroot/dev/pts
364     mount -t tmpfs none $vroot/dev/shm
365     mkdir -p $vroot/proc
366     mount -t proc none $vroot/proc
367     
368     # Create a /var/lib dirs for yum & rpm
369     mkdir -p $vroot/var/lib/yum
370     mkdir -p $vroot/var/lib/rpm
371     mkdir -p $vroot/usr/share/info
372
373     # Create a dummy /etc/fstab in reference image
374     mkdir -p $vroot/etc
375     cat >$vroot/etc/fstab <<EOF
376 # This fake fstab exists only to please df and linuxconf.
377 /dev/hdv1       /       ext2    defaults        1 1
378 EOF
379     cp $vroot/etc/fstab $vroot/etc/mtab
380
381     # Necessary for some scripts
382     mkdir -p $vroot/etc/sysconfig
383     echo "NETWORKING=yes" > $vroot/etc/sysconfig/network
384
385     # Initialize RPM database in reference image
386     mkdir -p $vroot/var/lib/rpm
387     rpm --root $vroot --initdb
388     rpm --root $vroot --import $baseurl/$public_gpg_key
389
390     # Initialize yum in reference image
391     mkdir -p $vroot/var/cache/yum $vroot/var/log
392     if [ $releasever -lt 7 ] ; then
393         corename="Core "
394     else
395         corename=""
396     fi
397
398 # yum.conf is for building only - store in different location than /etc/yum.conf
399     yum_conf=$vroot/etc/mkfedora-yum.conf
400     cat > $yum_conf <<EOF
401 [main]
402 cachedir=/var/cache/yum
403 debuglevel=2
404 logfile=/var/log/yum.log
405 pkgpolicy=newest
406 distroverpkg=redhat-release
407 tolerant=1
408 exactarch=1
409 retries=20
410 obsoletes=1
411 gpgcheck=0
412 # Prevent yum-2.4 from loading additional repository definitions
413 # (e.g., from /etc/yum.repos.d/)
414 reposdir=/dev/null
415
416 [base]
417 name=Fedora ${corename}${releasever} - $basearch - base
418 baseurl=$baseurl/
419 $exclude_kernel
420 EOF
421
422     for optional in updates extras ; do
423         for optionalurl in \
424             $mirror/fedora/$optional/$releasever/$basearch \
425             $mirror/linux/core/$optional/$releasever/$basearch \
426             $mirror/core/$optional/$releasever/$basearch \
427             $mirror/linux/$optional/$releasever/$basearch \
428             $mirror/$optional/$releasever/$basearch ; do
429             if mkfedora_fetch $optionalurl/repodata/repomd.xml ; then
430                 cat >> $yum_conf <<EOF
431
432 [$(basename $optional)]
433 name=Fedora ${corename}${releasever} - $basearch - $(basename $optional)
434 baseurl=$optionalurl/
435 $exclude_kernel
436 EOF
437                 break
438             fi
439         done
440     done
441
442     # If we are being built as part of an automated RPM build, solve the
443     # bootstrap problem by including any just built packages in the yum
444     # configuration. This cooperates with the PlanetLab build system.
445     if [ -n "$RPM_BUILD_DIR" ] ; then
446         RPM_RPMS_DIR=$(cd $(dirname $RPM_BUILD_DIR)/RPMS && pwd -P)
447         # If run under sudo, allow user to delete the headers/ and
448         # repodata/ directories.
449         if [ -n "$SUDO_USER" ] ; then
450             chown -R $SUDO_USER $RPM_RPMS_DIR
451         fi
452         cat >> $yum_conf <<EOF
453
454 [bootstrap]
455 name=Bootstrap - $basearch - $RPM_RPMS_DIR/
456 baseurl=file://$RPM_RPMS_DIR/
457 EOF
458 fi
459
460     echo "========== Dumping $yum_conf"
461     cat $yum_conf
462     echo "========== EndDump $yum_conf"
463
464     yum_options=""
465     yum --help | grep verbose &> /dev/null && yum_options="$yum_options --verbose"
466     yum_options="$yum_options -y"
467     yum_options="$yum_options -c $yum_conf"
468     yum_options="$yum_options --installroot=$vroot"
469
470     exclude_arg=""
471     for exclude in $pkgs_excludes; do
472         exclude_arg="$exclude_arg --exclude $exclude"
473     done
474
475     # glibc must be specified explicitly for the correct arch to be
476     # chosen.
477     echo "* Installing glibc"
478     yum $yum_options $exclude_arg install glibc
479
480     # Go, baby, go
481     if [ -n "$pkgs_packages" ] ; then
482         echo "* Installing optional packages" $pkgs_packages
483         yum $yum_options $exclude_arg install $pkgs_packages
484         if ! rpm --root $vroot -q $pkgs_packages >/dev/null ; then
485             echo "* Warning: Missing packages"
486             rpm --root $vroot -q $pkgs_packages | grep "not installed"
487         fi
488     fi
489
490     if [ -n "$pkgs_groups" ] ; then
491        ## call yum sequentially to get finer-grained info on dependencies
492         for grp in $pkgs_groups ; do
493             echo "* Installing optional group $grp" 
494             yum $yum_options $exclude_arg groupinstall "$grp"
495         done
496     fi
497
498     # formerly in bootcd/prep.sh : to optimize footprint
499     if [ -n "$pkgs_junk" ] ; then
500         echo "* Removing unnecessary junk"
501         pushd $vroot
502         # Save precious files
503         [ -n "$pkgs_precious" ] && tar --ignore-failed-read -cpf precious.tar $pkgs_precious
504         # Remove unnecessary junk
505         [ -n "$pkgs_junk" ] && rm -rf $pkgs_junk
506         # Restore precious files
507         [ -n "$pkgs_precious" ] && tar -xpf precious.tar && rm -f precious.tar
508         popd
509     fi
510
511     # Clean yum cache
512     echo "* Cleaning up"
513     yum $yum_options clean all
514
515     # Clean RPM state
516     rm -f $vroot/var/lib/rpm/__db*
517
518     # Set time zone to UTC
519     if [ -f $vroot/usr/share/zoneinfo/UTC -a -f $vroot/etc/localtime ] ; then
520         rm -f $vroot/etc/localtime
521         ln -s /usr/share/zoneinfo/UTC $vroot/etc/localtime
522     fi
523
524     echo "Dumping current list of rpms in /etc/mkfedora-rpms.txt"
525     chroot $vroot rpm -aq | sort > $vroot/etc/mkfedora-rpms.txt
526
527     # remove trap handler, as we are about to call it directly.
528     trap - ERR INT
529
530     # Clean up
531     mkfedora_cleanup
532
533     return 0
534 }
535
536 function pl_root_tune_image () {
537     root=$1; shift
538
539     # Disable all services in reference image
540     chroot $root sh -c "/sbin/chkconfig --list | awk '{ print \$1 }' | xargs -i /sbin/chkconfig {} off"
541
542     # FC2 minilogd starts up during shutdown and makes unmounting
543     # impossible. Just get rid of it.
544     rm -f $root/sbin/minilogd
545     ln -nsf /bin/true $root/sbin/minilogd
546
547     # This tells the Boot Manager that it is okay to update
548     # /etc/resolv.conf and /etc/hosts whenever the network configuration
549     # changes. Users are free to delete this file.
550     touch $root/etc/AUTO_UPDATE_NET_FILES
551 }
552
553 # Move specified directories out of a src tree into a dst tree, and
554 # then for each moved directory create a symlink in src to dst.
555 function pl_move_dirs() {
556     root=$1
557     data=$2
558     store=$3
559     shift 3
560
561     mkdir -p $root/data
562     for datadir in "$@" ; do
563         mkdir -p ${data}${datadir}
564         if [ -d ${root}/${datadir} -a ! -h ${root}/${datadir} ] ; then
565             (cd ${root} && find ./${datadir} | cpio -p -d -u ../${data}/)
566         fi
567         rm -rf ${root}/${datadir}
568         mkdir -p $(dirname ${root}/${datadir})
569         ln -nsf ${store}/${datadir} ${root}/${datadir}
570     done
571 }
572
573 # Construct an image file from given some directory
574 # XXX in the future maybe use livecdtools?
575 function pl_make_image() {
576     root=$1
577     image=$2
578     extraspace=$3
579
580     # Leave about 100 MB free space and allow for about 20% inode overhead
581     bytes=$((($(du -sb $root | cut -f1) + $extraspace) * 120 / 100))
582     bs=4096
583     blocks=$(($bytes / $bs))
584     dd bs=$bs count=$blocks if=/dev/zero of=$image
585     mkfs.ext3 -b $bs -j -F $image
586
587     # Temporarily mount it
588     tmp=$(mktemp -d tmp.XXXXXX)
589     mount -o loop $image $tmp
590     trap "umount $tmp; rmdir $tmp" ERR INT
591
592     # Move files to it
593     (cd $root && tar cpf - .) | (cd $tmp && tar xpf -)
594
595     # Unmount it
596     umount $tmp
597     rmdir $tmp
598     trap - ERR INT
599 }
600
601 # Fix permissions on tmp directories
602 function pl_fixtmp_permissions() {
603     root=$1
604     chmod 1777 $root/tmp $root/usr/tmp $root/var/tmp
605 }
606
607 function pl_fixdirs() {
608     root=$1
609     datadirs=$2
610     for datadir in datadirs ; do
611         if [ -h ${root}/${datadir} ] ; then
612             rm -f ${root}/${datadir}
613             mkdir -p ${root}/${datadir}
614         fi
615     done
616 }
617
618 ########## .pkgs format
619 # comments start with a # - this is needed only if you use a keyword in a comment
620
621 function pl_getPkgsAttribute () {
622     keyword=$1; shift
623     file=$1; shift
624     # remove any initial white spaces from the result
625     grep -v '^#' $file | grep --regexp="^${keyword}:" | sed -e "s,${keyword}:,," -e "s,^[[:space:]][[:space:]]*,,"
626 }
627
628 # for a given keyword like 'package' :
629 # we support fcdistro-dependant format, for tokens (pkgname) without whitespace
630 # you can e.g. use
631 # package: pkg1 .. pkgn 
632 # package+f8: pkg1 .. pkgn
633 # package-f8: pkg1 .. pkgn
634
635 # values can contain @arch@, @fcdistro@ or @pldistro@ that are replaced with the current values
636 #
637 function pl_parsePkgs () {
638
639     keyword=$1;shift
640     fcdistro=$1; shift
641     pldistro=$1; shift
642     # remaining arguments are paths to the pkgs files
643
644     # grab regular descriptions
645     all=$(grep -v '^#' "$@" | grep --regexp="^${keyword}:" | sed -e "s,${keyword}:,,")
646     # grab additions
647     add=$(grep -v '^#' "$@" | grep --regexp="^${keyword}+${fcdistro}:" | sed -e "s,${keyword}+${fcdistro}:,,")
648     # grab exclusions
649     sub=$(grep -v '^#' "$@" | grep --regexp="^${keyword}-${fcdistro}:" | sed -e "s,${keyword}-${fcdistro}:,,")
650
651     for i in $all $add; do
652         for exclude in $sub; do
653             [ "$i" = "$exclude" ] && continue 2
654         done
655         echo "$i " | sed -e "s,@arch@,$pl_DISTRO_ARCH,g" -e "s,@fcdistro@,$fcdistro,g" -e "s,@pldistro@,$pldistro,g"
656     done
657     return 0
658 }
659
660 function pl_getPackages() { fcdistro=$1; shift ; pldistro=$1; shift ; pl_parsePkgs package $fcdistro $pldistro "$@" ; }
661 function pl_getGroups() { fcdistro=$1; shift ; pldistro=$1; shift ; pl_parsePkgs group $fcdistro $pldistro "$@" ; }
662
663 # locates a pldistro-dependant file
664 # tries first in build/<pldistro>/, then in build/planetlab/
665 function pl_locateDistroFile () {
666     builddir=$1; shift
667     pldistro=$1; shift
668     pkgsfile=$1; shift
669
670     pkgspath=""
671     # locate it
672     paths="$builddir/config.$pldistro/$pkgsfile $builddir/config.planetlab/$pkgsfile"
673     for path in $paths; do
674         if [ -f $path ] ; then
675             pkgspath=$path
676             break
677         fi
678     done
679     if [ -z "$pkgspath" ] ; then
680         echo 1>&2 "pl_locateDistroFile - in $(pwd) : cannot locate $pkgsfile in $builddir"
681         echo 1>&2 "candidates were $paths"
682         echo "not-found-by-pl_locateDistroFile"
683         return 1
684     else
685         echo 1>&2 "pl_locateDistroFile: using $pkgspath"
686         echo $pkgspath
687         return 0
688     fi
689 }
690
691 function yumgroups_from_pkgs () {
692     builddir=$1; shift
693     pldistro=$1; shift
694     fcdistro=$1; shift
695     pkgsnames=$@
696
697     sedargs="-e s,@FCDISTRO@,$fcdistro,g"
698
699    cat <<__header
700 <?xml version="1.0"?>
701 <!DOCTYPE comps PUBLIC "-//Red Hat, Inc.//DTD Comps info//EN" "comps.dtd">
702 <comps>
703 __header
704
705     for pkgsname in $pkgsnames; do
706         pkgsfile=$(pl_locateDistroFile $builddir $pldistro $pkgsname)
707         packages=$(pl_getPackages $fcdistro $pldistro $pkgsfile)
708
709         groupname=$(pl_getPkgsAttribute groupname $pkgsfile | sed $sedargs)
710         groupdesc=$(pl_getPkgsAttribute groupdesc $pkgsfile | sed $sedargs)
711
712         if [ -z "$groupname" -o -z "$groupdesc" ] ; then
713             echo "Cannot find groupname: and groupdesc: in $pkgsfile -- skipped" 1>&2
714             continue
715         fi
716         
717         cat << __group_header
718   <group>
719     <id>$(echo $groupname|tr A-Z a-z)</id>
720     <name>$groupname</name>
721     <description>$groupdesc</description>
722     <uservisible>true</uservisible>
723     <packagelist>
724 __group_header
725         for package in $packages; do 
726             echo "<packagereq type=\"mandatory\">$package</packagereq>"
727         done
728         cat << __group_footer
729     </packagelist>
730   </group>
731 __group_footer
732     done
733 cat <<__footer
734 </comps>
735 __footer
736 }