[limb-svn] r5508 - cli

[svn at limb-project.com]

Author: pachanga
Date: 2007-04-02 18:45:30 +0400 (Mon, 02 Apr 2007)
New Revision: 5508
URL: http://fisheye.limb-project.com/changelog/limb/?cs=5508

Added:
   cli/collect_changelog.php
Log:
-- collect_changelog.php added

Added: cli/collect_changelog.php
===================================================================
--- cli/collect_changelog.php	                        (rev 0)
+++ cli/collect_changelog.php	2007-04-02 14:45:30 UTC (rev 5508)
@@ -0,0 +1,24 @@
+<?php
+set_time_limit(0);
+
+if($argc < 2)
+{
+  echo "Usage: collect_changelog <dir>";
+  exit(1);
+}
+
+$root = $argv[1];
+$dirs = explode("\n", trim(`find $root -maxdepth 1 -mindepth 1 -type d`));
+
+foreach($dirs as $dir)
+{
+  $pkg = basename($dir);
+  if(is_file("$dir/CHANGELOG"))
+  {
+    echo "\n################### Package '$pkg' ###################\n\n";
+    echo trim(file_get_contents("$dir/CHANGELOG")) . "\n";
+  }
+}
+
+
+?>
\ No newline at end of file