Bug#377520: debbugs: New SOAP infrastructure with first function for usertags

[Raphael Hertzog <hertzog@debian.org>]

On Tue, 11 Jul 2006, Raphael Hertzog wrote:
> > +use Debbugs::SOAP::Usertag;
> > +
> > +SOAP::Transport::HTTP::CGI
> > +    -> dispatch_to('Debbugs::SOAP::Usertag', 'Debbugs::SOAP::Hello')
> > +    -> handle;
> > +

Obviously the "Debbugs::SOAP::Hello" was only a test of mine. It should be
removed (updated patch attached).

Another remark about this script. The first version used "Dynamic loading"
of modules from a given directory... it avoided to harcode the list of
SOAP modules in this script.

However it required the addition of $gSoapDir. Since the number of SOAP
modules is going to be very limited, it doesn't hurt to list them all
here. That's why $gSoapDir disappeared.

Cheers,
-- 
Raphaël Hertzog

Premier livre français sur Debian GNU/Linux :
http://www.ouaza.com/livre/admin-debian/

=== added directory 'Debbugs/SOAP'
=== added file 'Debbugs/SOAP/Usertag.pm'
--- /dev/null	
+++ Debbugs/SOAP/Usertag.pm	
@@ -0,0 +1,18 @@
+package Debbugs::SOAP::Usertag;
+
+use Debbugs::User;
+
+sub get_usertag {
+    my ($class, $email, $tag) = @_;
+    my %ut = ();
+    Debbugs::User::read_usertags(\%ut, $email);
+    if (defined($tag) and $tag ne "") {
+	# Remove unwanted tags
+	foreach (keys %ut) {
+	    delete $ut{$_} unless $_ eq $tag;
+	}
+    }
+    return \%ut;
+}
+
+1;

=== added file 'cgi/soap.cgi'
--- /dev/null	
+++ cgi/soap.cgi	
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -wT
+
+package debbugs;
+
+use SOAP::Transport::HTTP;
+
+BEGIN {
+    # Needed so that other modules have access to the variables
+    # when included with use
+    require '/etc/debbugs/config';
+}
+
+use Debbugs::SOAP::Usertag;
+
+SOAP::Transport::HTTP::CGI
+    -> dispatch_to('Debbugs::SOAP::Usertag')
+    -> handle;
+

=== modified file 'Debbugs/User.pm'
--- Debbugs/User.pm	
+++ Debbugs/User.pm	
@@ -53,7 +53,10 @@
     $EXPORT_TAGS{all} = [@EXPORT_OK];
 }
 
-my $gSpoolPath = "/org/bugs.debian.org/spool";
+my $gSpoolDir = "/org/bugs.debian.org/spool";
+if (defined($debbugs::gSpoolDir)) {
+    $gSpoolDir = $debbugs::gSpoolDir;
+}
 
 # Obsolete compatability functions
 
@@ -83,7 +86,7 @@
 sub filefromemail {
     my $e = shift;
     my $l = length($e) % 7;
-    return "$gSpoolPath/user/$l/" . join("", 
+    return "$gSpoolDir/user/$l/" . join("", 
         map { m/^[0-9a-zA-Z_+.-]$/ ? $_ : sprintf("%%%02X", ord($_)) }
             split //, $e);
 }

=== modified file 'cgi/bugreport.cgi'
--- cgi/bugreport.cgi	
+++ cgi/bugreport.cgi	
@@ -9,11 +9,15 @@
 use IO::Scalar;
 use IO::File;
 
+BEGIN {
+    # Needed so that other modules have access to the variables
+    # when included with use
+    require '/etc/debbugs/config';
+    require '/etc/debbugs/text';
+}
+
 #require '/usr/lib/debbugs/errorlib';
 require './common.pl';
-
-require '/etc/debbugs/config';
-require '/etc/debbugs/text';
 
 use vars(qw($gEmailDomain $gHTMLTail $gSpoolDir $gWebDomain));
 

=== modified file 'cgi/pkgindex.cgi'
--- cgi/pkgindex.cgi	
+++ cgi/pkgindex.cgi	
@@ -5,11 +5,15 @@
 use strict;
 use POSIX qw(strftime tzset nice);
 
+BEGIN {
+    # Needed so that other modules have access to the variables
+    # when included with use
+    require '/etc/debbugs/config';
+    require '/etc/debbugs/text';
+}
+
 #require '/usr/lib/debbugs/errorlib';
 require './common.pl';
-
-require '/etc/debbugs/config';
-require '/etc/debbugs/text';
 
 nice(5);
 

=== modified file 'cgi/pkgreport.cgi'
--- cgi/pkgreport.cgi	
+++ cgi/pkgreport.cgi	
@@ -5,11 +5,15 @@
 use strict;
 use POSIX qw(strftime tzset nice);
 
+BEGIN {
+    # Needed so that other modules have access to the variables
+    # when included with use
+    require '/etc/debbugs/config';
+    require '/etc/debbugs/text';
+}
+
 #require '/usr/lib/debbugs/errorlib';
 require './common.pl';
-
-require '/etc/debbugs/config';
-require '/etc/debbugs/text';
 
 use Debbugs::User;
 

=== modified file 'debian/control'
--- debian/control	
+++ debian/control	
@@ -8,7 +8,7 @@
 
 Package: debbugs
 Architecture: all
-Depends: perl5 | perl, exim4 | mail-transport-agent, libmailtools-perl, ed, libmime-perl, libio-stringy-perl, libmldbm-perl, liburi-perl
+Depends: perl5 | perl, exim4 | mail-transport-agent, libmailtools-perl, ed, libmime-perl, libio-stringy-perl, libmldbm-perl, liburi-perl, libsoap-lite-perl
 Recommends: httpd, links | lynx
 Suggests: spamassassin (>= 3.0)
 Description: The bug tracking system based on the active Debian BTS

=== modified file 'scripts/config.debian'
--- scripts/config.debian	
+++ scripts/config.debian	
@@ -4,6 +4,7 @@
 # Domains
 $gEmailDomain = "bugs.debian.org";
 $gListDomain = "lists.debian.org";
+$gWebHostBugDir = "";
 $gWebDomain = "www.debian.org/Bugs";
 $gHTMLSuffix = "";
 $gPackagePages = "packages.debian.org";

=== modified file 'scripts/config.in.default'
--- scripts/config.in.default	
+++ scripts/config.in.default	
@@ -2,6 +2,7 @@
 #domains
 $gEmailDomain = "bugs.top.domain";		#bugs.debian.org
 $gListDomain = "lists.top.domain";		#lists.debian.org
+$gWebHostBugDir = "";
 $gWebDomain = "www.top.domain";			#www.debian.org/Bugs
 $gCGIDomain = "cgi.top.domain";			#cgi.debian.org