[request-tracker-maintainers] Bug#700717: request-tracker4: Server path display issue in /usr/bin/rt

[Sjors Gielen]

Package: request-tracker4
Version: 4.0.7-4
Severity: minor

When Request Tracker is installed under a path, such as
https://rt.example.org/rt, the /usr/bin/rt tool does not display the path
correctly. This makes debugging connection issues harder, for example.

To reproduce, run: RTSERVER="https://rt.example.org/rt" rt edit ticket/6

This gives as output "Password will be sent to rt.example.orgrt over SSL",
instead of "rt.example.org/rt". This is caused by line 1016 in /usr/bin/rt:

    (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)\/?/$1/;

This regular expression removes everything before the first two slashes, then
takes everything before the next slash, and removes the next slash too. If the
idea here is to take only the hostname, a .*$ should be added to the match part
of the regular expression; if the idea is to include the path it should either
be inside the parantheses or be within its own parantheses and $2 should be
added to the replace option. So either of the following three lines fix this
problem:

    (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)\/?.*$/$1/;
    (my $server = $config{server}) =~ s/^.*\/\/([^\/]+\/?)/$1/;
    (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)(\/)?/$1$2/;

Filing as minor because $server is only used for cosmetic purposes.

-- Package-specific info:
Changed files:

-- System Information:
Debian Release: 7.0
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 2.6.32-5-amd64 (SMP w/2 CPU cores)
Locale: LANG=nl_NL.UTF-8, LC_CTYPE=nl_NL.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages request-tracker4 depends on:
ii  dbconfig-common                      1.8.47+nmu1
ii  debconf [debconf-2.0]                1.5.49
ii  fonts-droid [ttf-droid]              20111207+git-1
ii  libapache-session-perl               1.89-1
ii  libcache-simple-timedexpiry-perl     0.27-2
ii  libcgi-emulate-psgi-perl             0.14-1
ii  libcgi-psgi-perl                     0.15-1
ii  libclass-accessor-perl               0.34-1
ii  libclass-returnvalue-perl            0.55-1
ii  libconvert-color-perl                0.08-1
ii  libcss-squish-perl                   0.09-1
ii  libdata-ical-perl                    0.18+dfsg-1
ii  libdatetime-locale-perl              1:0.45-1
ii  libdatetime-perl                     2:0.7500-1
ii  libdbi-perl                          1.622-1
ii  libdbix-searchbuilder-perl           1.62-1
ii  libdevel-globaldestruction-perl      0.06-1
ii  libdevel-stacktrace-perl             1.2700-1
ii  libemail-address-perl                1.895-1
ii  libfcgi-procmanager-perl             0.24-1
ii  libfile-sharedir-perl                1.00-0.1
ii  libgd-graph-perl                     1.44-6
ii  libgd-text-perl                      0.86-8
ii  libgnupg-interface-perl              0.45-1
ii  libgraphviz-perl                     2.10-1
ii  libhtml-format-perl                  2.10-1
ii  libhtml-mason-perl                   1:1.48-1
ii  libhtml-mason-psgihandler-perl       0.52-1
ii  libhtml-quoted-perl                  0.03-1
ii  libhtml-rewriteattributes-perl       0.04-1
ii  libhtml-scrubber-perl                0.09-1
ii  libhtml-tree-perl                    5.02-1
ii  libipc-run-perl                      0.92-1
ii  libipc-run3-perl                     0.045-1
ii  libjson-perl                         2.53-1
ii  liblist-moreutils-perl               0.33-1+b1
ii  liblocale-maketext-fuzzy-perl        0.11-1
ii  liblocale-maketext-lexicon-perl      0.91-1
ii  liblog-dispatch-perl                 2.32-1
ii  libmailtools-perl                    2.09-1
ii  libmime-tools-perl [libmime-perl]    5.503-1
ii  libmime-types-perl                   1.35-1
ii  libmodule-versions-report-perl       1.06-1
ii  libnet-cidr-perl                     0.15-1
ii  libperlio-eol-perl                   0.14-1+b3
ii  libplack-perl                        0.9989-1
ii  libregexp-common-net-cidr-perl       0.02-1
ii  libregexp-common-perl                2011121001-1
ii  libregexp-ipv6-perl                  0.03-1
ii  libtext-autoformat-perl              1.669002-1
ii  libtext-password-pronounceable-perl  0.30-1
ii  libtext-quoted-perl                  2.06-1
ii  libtext-template-perl                1.45-2
ii  libtext-wikiformat-perl              0.79-1
ii  libtext-wrapper-perl                 1.04-1
ii  libtime-modules-perl                 2011.0517-1
ii  libtimedate-perl                     1.2000-1
ii  libtree-simple-perl                  1.18-1
ii  libuniversal-require-perl            0.13-1
ii  liburi-perl                          1.60-1
ii  libxml-rss-perl                      1.49-1
ii  libxml-simple-perl                   2.20-1
ii  perl [libencode-perl]                5.14.2-16
ii  perl-modules [libfile-temp-perl]     5.14.2-16
ii  postfix [mail-transport-agent]       2.9.3-2.1
ii  rsyslog [system-log-daemon]          5.8.11-2
ii  rt4-apache2                          4.0.7-4
ii  rt4-clients                          4.0.7-4
ii  rt4-db-sqlite                        4.0.7-4
ii  ucf                                  3.0025+nmu3

Versions of packages request-tracker4 recommends:
ii  cron [cron-daemon]  3.0pl1-124

request-tracker4 suggests no packages.

-- debconf information excluded