From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 14 Jul 2018 08:18:57 +0000 (-0700)
Subject: add email and url access objects
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=289a8188c43f308c748bf58567e78186b7a4f29a

add email and url access objects
---

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 4af9b73..411e9ba 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -682,11 +682,45 @@ sub matches {
     return 0;
 }
 
+sub email {
+    my $self = shift;
+    return $self->id.'@'.$config{email_domain};
+}
+
+sub subscribe_email {
+    my $self = shift;
+    return $self->id.'-subscribe@'.$config{email_domain};
+}
+
 sub url {
     my $self = shift;
     return $config{web_domain}.'/'.$self->id;
 }
 
+sub mbox_url {
+    my $self = shift;
+    return $config{web_domain}.'/mbox:'.$self->id;
+}
+
+sub mbox_status_url {
+    my $self = shift;
+    return $self->mbox_url.'?mboxstatus=yes';
+}
+
+sub mbox_maint_url {
+    my $self = shift;
+    $self->mbox_url.'?mboxmaint=yes';
+}
+
+sub version_url {
+    my $self = shift;
+    return version_url(package => $self->package,
+                       found => [$self->found->members],
+                       fixed => [$self->fixed->members],
+                       @_,
+                      );
+}
+
 sub related_packages_and_versions {
     my $self = shift;
     my @packages;