invirt-build-release: clean up some shell and perl

[invirt/packages/invirt-dev.git] / invirt-build-release

diff --git a/invirt-build-release b/invirt-build-release
index 05c9d18..480cf36 100755 (executable)
--- a/invirt-build-release
+++ b/invirt-build-release
@@ -12,20 +12,19 @@ for package; do
     svn export $svnuri/trunk/packages/$package build-release/$package
     cd build-release/$package
     
     svn export $svnuri/trunk/packages/$package build-release/$package
     cd build-release/$package
     

-    eval  `perl '-F:\s+' -lane 'print  $F[0]."=".$F[1] if /^Version|^Source|^Distribution/' \
-        <(dpkg-parsechangelog)`
-    eval $(perl '-F:\s+' -lane 'print $F[0]."=".$F[1] if /^Binary|Architecture/' <"../${Source}_${Version}.dsc")
-
+    eval $(perl -ne 'print if s/^(Version|Source|Distribution): /\1=/' \
+             <(dpkg-parsechangelog))

     dpkg-buildpackage -us -uc -rfakeroot -S
     cd ..
     dpkg-buildpackage -us -uc -rfakeroot -S
     cd ..

+    eval $(perl -ne 'print if s/^(Architecture): /\1=/' ${Source}_${Version}.dsc)

     case $Architecture in
       all)
     case $Architecture in
       all)

-        sbuild -A -d hardy "${Source}_${Version}.dsc";;
+        sbuild -A -d hardy ${Source}_${Version}.dsc;;

       any)
       any)

-        sbuild -d hardy-amd64 "${Source}_${Version}.dsc"
-        sbuild -d hardy-i386  "${Source}_${Version}.dsc";;
+        sbuild -d hardy-amd64 ${Source}_${Version}.dsc
+        sbuild -d hardy-i386  ${Source}_${Version}.dsc;;

       *)
       *)

-        echo "invirt-build-release: architecture '$Architecture' not 'all' or 'any'" >&2
+        echo "invirt-build-release: arch '$Architecture' unimplemented" >&2

         exit 1
     esac
 
         exit 1
     esac
 

@@ -41,15 +40,14 @@ for package; do
     fi
     
     [ $Distribution = 'unstable' ] \
     fi
     
     [ $Distribution = 'unstable' ] \

-        || echo "$(basename $0): warning: Distribution is ${Distribution}, script expects unstable"
+        || echo "$(basename $0): warning: Distribution is $Distribution, script expects unstable"

     changesfile=`pwd`/${Source}_*${Version}*.changes
     for i in $changesfile; do
         reprepro-env include unstable $i
     changesfile=`pwd`/${Source}_*${Version}*.changes
     for i in $changesfile; do
         reprepro-env include unstable $i

-        reprepro-env copy stable unstable \
-           $(perl '-F:\s+' -lane 'print $F[1]." " if /^Binary/' <$i)
+        reprepro-env copy stable unstable $(sed -ne 's/^Binary: //p' $i)

     done
     done

-    reprepro-env copy stable unstable ${Source}
+    reprepro-env copy stable unstable $Source

     
     cd ..
     
     cd ..

-    rm -rf build-release
+    rm -rf build-release/$package

 done
 done