implemented -create_cvs_list function

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index 14319159cbb4aec7b9d35acb92fcf5d96d7d80d6..c2b1fa114c0247e99aa50144d0b1bc0f39b54728 100644 (file)
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -1,5 +1,6 @@
 *) 2004-07-24
 
+- implemented create-cvs-list function to Helper script
 - updated BUILD file
 - fixed scummvm and lprng package
 - added thunderbird freetype patches (still not working) - removed from targets

diff --git a/scripts/Helper b/scripts/Helper
index ec9705c67167fa4f7c5152944c7206a010b31361..d2c8ea111cd598bbff480cfb47f26d00494ff3a7 100755 (executable)
--- a/scripts/Helper
+++ b/scripts/Helper
@@ -11,3 +11,32 @@
 
 # soon there will be some usefull options available:
 # - create new priorities according to dependencies
+
+ccl=0
+
+while [ "$1" ] ; do
+       case "$1" in
+               -create_cvs_list)       ccl=1;  shift 1 ;;
+               *)
+                       echo
+                       echo "usage:"
+                       echo
+                       echo "$0 -create_cvs_list"
+                       echo
+                       exit 1 ;;
+       esac
+done
+
+
+if [ "$ccl" = "1" ] ; then
+       echo -en "puzzling PKGS files ..."
+       ./scripts/Puzzle > /dev/null 2>&1
+       echo -en " done.\n"
+       for i in download/*/PKGS; do
+               grep 'cvs:' $i | \
+                       while read pkg package foo; do
+                               cat=`echo $i | awk -F/ '{ print $2 }'`
+                               echo "download/$cat/$pkg/$package"
+                       done
+       done
+fi