[Dehs-devel] r129 - trunk

[atomo64-guest at alioth.debian.org]

Author: atomo64-guest
Date: 2008-04-12 20:45:40 +0000 (Sat, 12 Apr 2008)
New Revision: 129

Modified:
   trunk/dehs_pg.php
Log:
Remove trailing ) that prevented the regexp from working


Modified: trunk/dehs_pg.php
===================================================================
--- trunk/dehs_pg.php	2008-04-12 20:42:37 UTC (rev 128)
+++ trunk/dehs_pg.php	2008-04-12 20:45:40 UTC (rev 129)
@@ -185,7 +185,7 @@
             $filename=$dirs['sources_dir'] . "/$dist/$section/Sources.gz";
             print "\nI'm parsing $dist/$section => Sources.gz\n";
             # 1 Pacchetto - 2 versione - 3 np - 4 Directory - 5 md5
-            $regexp="/Package:\s($initial.*)[^a]Binary:\s(.+)[^a]Version:\s(\d+:)?(.+)[^a]Priority.+Maintainer:.+<([^>]+)>[^a].+Directory:\s(.+)[^a]Files:.+\s(\S{32})\s(\d+)\s" . '\1\S+' . "\.diff\.gz[^a](Uploaders:\s(.+)[^a])?(Dm-Upload-Allowed:\s(.+)[^a])?(Homepage:\s(.+)[^a])?(Vcs-Browser:\s(.+)[^a])?(Vcs-([A-Z][a-z]+)):\s(.+)[^a])?(Checksums-\S+:\s(.+)[^a])?/Ssi";
+            $regexp="/Package:\s($initial.*)[^a]Binary:\s(.+)[^a]Version:\s(\d+:)?(.+)[^a]Priority.+Maintainer:.+<([^>]+)>[^a].+Directory:\s(.+)[^a]Files:.+\s(\S{32})\s(\d+)\s" . '\1\S+' . "\.diff\.gz[^a](Uploaders:\s(.+)[^a])?(Dm-Upload-Allowed:\s(.+)[^a])?(Homepage:\s(.+)[^a])?(Vcs-Browser:\s(.+)[^a])?(Vcs-([A-Z][a-z]+):\s(.+)[^a])?(Checksums-\S+:\s(.+)[^a])?/Ssi";
             $zp = gzopen($filename, "r") or die_status("Could not open $filename");
             $extracted=tempnam("/tmp/", "$dist_$section_Sources");
             exec("gzip -c -d $filename > $extracted");