[Mud-builder-commits] r323 - trunk/lib/MUD

[gcobb at garage.maemo.org]

Author: gcobb
Date: 2009-09-26 22:44:25 +0300 (Sat, 26 Sep 2009)
New Revision: 323

Modified:
   trunk/lib/MUD/Build.pm
   trunk/lib/MUD/Package.pm
Log:
Implement <bugtracker>

Modified: trunk/lib/MUD/Build.pm
===================================================================
--- trunk/lib/MUD/Build.pm	2009-09-26 19:42:41 UTC (rev 322)
+++ trunk/lib/MUD/Build.pm	2009-09-26 19:44:25 UTC (rev 323)
@@ -556,6 +556,10 @@
     #
     MUD::Package::setField($control, "XB-Maemo-Display-Name", $self->{data}->displayName);
 
+    # -- Bugtracker...
+    #
+    MUD::Package::setField($control, "Xsbc-Bugtracker", $self->{data}->bugTracker);
+
     # -- Other control fields...
     #
     while (my ($k, $v) = each %{ $self->{data}->controlFields }) {

Modified: trunk/lib/MUD/Package.pm
===================================================================
--- trunk/lib/MUD/Package.pm	2009-09-26 19:42:41 UTC (rev 322)
+++ trunk/lib/MUD/Package.pm	2009-09-26 19:44:25 UTC (rev 323)
@@ -14,6 +14,7 @@
     my $description   = $pkg->description;
     my $upgradeDesc   = $pkg->upgradeDescription;
     my $displayName   = $pkg->displayName;
+    my $bugTracker    = $pkg->bugTracker;
     my @patchFiles    = $pkg->patches;
     my $controlFields = $pkg->controlFields;
     my $section       = $pkg->section;
@@ -273,7 +274,20 @@
   return $self->{data}->{deb}->{'display-name'};
 }
 
+=item bugTracker
 
+Return the URL of the bug tracker.
+
+=cut
+
+sub bugTracker {
+  my $self = shift;
+  
+  return $self->{data}->{deb}->{'bugtracker'};
+}
+
+
+
 =item patches
 
 Return an array of patch files which should be applied against
@@ -510,7 +524,7 @@
   $wrapped =~ s/\n(\s*).?\s*\n/\n$1.\n/g;
   
   # Put the field in the correct paragraph
-  my $paragraph = $field =~ /^(Uploaders|Build-Depends)$/ ? 'Source' : 'Package';
+  my $paragraph = $field =~ /^(Uploaders|Build-Depends|Xsbc-Bugtracker)$/ ? 'Source' : 'Package';
   
   if ($data =~ /^$field:/im) {
     $data =~ s/^$field:\s.*\n([ \t]+\S.*\n)*/$wrapped\n/img or croak "Failed to change field [$field] to [$value] in [$data]";