my @references;
my $pseudodesc = getpseudodesc();
if ($package and defined($pseudodesc) and exists($pseudodesc->{$package})) {
- push @references, "to the <a href=\"http://$config{web_domain}/pseudo-packages$config{html_suffix}\">".
+ push @references, "to the <a href=\"$config{web_domain}/pseudo-packages$config{html_suffix}\">".
"list of other pseudo-packages</a>";
}
elsif (not defined $maint and not @{$param{bugs}}) {
else {
if ($package and defined $config{package_pages} and length $config{package_pages}) {
push @references, sprintf "to the <a href=\"%s\">%s package page</a>",
- html_escape("http://$config{package_pages}/$package"), html_escape("$package");
+ html_escape("$config{package_pages}/$package"), html_escape("$package");
}
if (defined $config{subscription_domain} and
length $config{subscription_domain}) {
my $ptslink = $param{binary} ? $srcforpkg : $package;
# the pts only wants the source, and doesn't care about src: (#566089)
$ptslink =~ s/^src://;
- push @references, q(to the <a href="http://).html_escape("$config{subscription_domain}/$ptslink").q(">Package Tracking System</a>);
+ push @references, q(to the <a href=").html_escape("$config{package_tracking_domain}/$ptslink").q(">Package Tracking System</a>);
}
# Only output this if the source listing is non-trivial.
if ($param{binary} and $srcforpkg) {
if (defined $maint) {
print {$output} "<p>If you find a bug not listed here, please\n";
printf {$output} "<a href=\"%s\">report it</a>.</p>\n",
- html_escape("http://$config{web_domain}/Reporting$config{html_suffix}");
+ html_escape("$config{web_domain}/Reporting$config{html_suffix}");
}
return decode_utf8($output_scalar);
}
=item web_domain $gWebDomain
-Full path of the web domain where bugs are kept, defaults to the
-concatenation of L</web_host> and L</web_host_bug_dir>
+Full path of the web domain where bugs are kept including the protocol (http://
+or https://). Defaults to the concatenation of 'http://', L</web_host> and
+L</web_host_bug_dir>
=cut
-set_default(\%config,'web_domain',$config{web_host}.($config{web_host}=~m{/$}?'':'/').$config{web_host_bug_dir});
+set_default(\%config,'web_domain','http://'.$config{web_host}.($config{web_host}=~m{/$}?'':'/').$config{web_host_bug_dir});
=item html_suffix $gHTMLSuffix
=item cgi_domain $gCGIDomain
Full path of the web domain where cgi scripts are kept. Defaults to
-the concatentation of L</web_host> and cgi.
+the concatentation of L</web_domain> and cgi.
=cut
=cut
-set_default(\%config,'libravatar_uri','http://'.$config{cgi_domain}.'/libravatar.cgi?email=');
+set_default(\%config,'libravatar_uri',$config{cgi_domain}.'/libravatar.cgi?email=');
=item libravatar_uri_options $gLibravatarUriOptions
SUBSTITUTE_DTIME
<!--timestamp-->
<P>
- <A HREF=\"http://$config{web_domain}/\">Debian $config{bug} tracking system</A><BR>
+ <A HREF=\"$config{web_domain}/\">Debian $config{bug} tracking system</A><BR>
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.
$extra_var ||={};
my $hole_var = {'&bugurl' =>
sub{"$_[0]: ".
- 'http://'.$config{cgi_domain}.'/'.
+ $config{cgi_domain}.'/'.
Debbugs::CGI::bug_links(bug => $_[0],
links_only => 1,
);
<p>Find a bug by <strong>number</strong>:
<br>
- <form method="get" action="http://$gCGIDomain/bugreport.cgi">
+ <form method="get" action="$gCGIDomain/bugreport.cgi">
<input type="text" size="9" name="bug" value="">
<input type="submit" value="Find">
<input type="checkbox" name="mbox" value="yes"> as mbox
</form>
-<form method="get" action="http://$gCGIDomain/pkgreport.cgi">
+<form method="get" action="$gCGIDomain/pkgreport.cgi">
<p>Find bugs by:
<input type="radio" name="which" value="pkg" checked><strong>package</strong>
<input type="radio" name="which" value="src"><strong>source package</strong>
<p>The following bug report indices are available:
<ul>
<li>Packages with
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=pkg">active</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=pkg">active</a>
and
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=pkg&archived=yes">archived</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=pkg&archived=yes">archived</a>
bug reports.
<li>Source packages with
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=src">active</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=src">active</a>
and
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=src&archived=yes">archived</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=src&archived=yes">archived</a>
bug reports.
<li>Maintainers of packages with
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=maint">active</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=maint">active</a>
and
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=maint&archived=yes">archived</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=maint&archived=yes">archived</a>
bug reports.
<li>Submitters of
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=submitter">active</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=submitter">active</a>
and
- <a href="http://$gCGIDomain/pkgindex.cgi?indexon=submitter&archived=yes">archived</a>
+ <a href="$gCGIDomain/pkgindex.cgi?indexon=submitter&archived=yes">archived</a>
bug reports.
</ul>
<p>In case you are reading this as a plain text file or via email: an
HTML version is available via the $gBug system main contents page
-<code>http://$gWebDomain/</code>.
+<code>$gWebDomain/</code>.
<hr>
$gEmailDomain = "bugs.top.domain"; #bugs.debian.org
$gListDomain = "lists.top.domain"; #lists.debian.org
$gWebHostBugDir = "";
-$gWebDomain = "www.top.domain"; #www.debian.org/Bugs
+$gWebDomain = "https://www.top.domain"; #www.debian.org/Bugs
$gCGIDomain = "cgi.top.domain"; #cgi.debian.org
#Identification
Please see the documentation for more information about how to
use the $gBug tracking system. It is available on the WWW at
-<A HREF=\"http://$gWebDomain/txt/\">$gWebDomain/txt</A>
+<A HREF=\"$gWebDomain/txt/\">$gWebDomain/txt</A>
END
close(D);
};
my $hole_var = {'&bugurl' =>
sub{"$_[0]: ".
- 'http://'.$config{cgi_domain}.'/'.
+ $config{cgi_domain}.'/'.
Debbugs::CGI::bug_links(bug=>$_[0],
links_only => 1,
);
$gBadEmailPrefix (all \@$gEmailDomain.)
$gBadEmailPrefix
$gBadEmailPrefix For instructions via the WWW see:
-$gBadEmailPrefix http://$gWebDomain/
-$gBadEmailPrefix http://$gWebDomain/Reporting$gHTMLSuffix
-$gBadEmailPrefix http://$gWebDomain/Developer$gHTMLSuffix
-$gBadEmailPrefix http://$gWebDomain/Access$gHTMLSuffix
+$gBadEmailPrefix $gWebDomain/
+$gBadEmailPrefix $gWebDomain/Reporting$gHTMLSuffix
+$gBadEmailPrefix $gWebDomain/Developer$gHTMLSuffix
+$gBadEmailPrefix $gWebDomain/Access$gHTMLSuffix
$gTextInstructions
$gBadEmailPrefix For details of how to access $gBug report logs by email:
$gBadEmailPrefix send \`request\@$gEmailDomain' the word \`help'
} elsif (m/^subscribe/i) {
print {$transcript} <<END;
There is no $gProject $gBug mailing list. If you wish to review bug reports
-please do so via http://$gWebDomain/ or ask this mail server
+please do so via $gWebDomain or ask this mail server
to send them to you.
soon: MAILINGLISTS_TEXT
END
};
my $hole_var = {'&bugurl' =>
sub{"$_[0]: ".
- 'http://'.$config{cgi_domain}.'/'.
+ $config{cgi_domain}.'/'.
Debbugs::CGI::bug_links(bug=>$_[0],
links_only => 1,
);
sub sendlynxdocraw {
my ($relpath,$description) = @_;
$doc='';
- open(L,"lynx -nolist -dump http://$gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
+ open(L,"lynx -nolist -dump $gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
while(<L>) { $doc.=$_; }
$!=0; close(L);
if ($? == 255 && $doc =~ m/^\n*lynx: Can\'t access start file/) {
<!--timestamp-->
<P>
- <A HREF=\"http://$gWebDomain/\">Debian $gBug tracking system</A><BR>
+ <A HREF=\"$gWebDomain/\">Debian $gBug tracking system</A><BR>
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.
}
{$log}
<hr>
-<p class="msgreceived">Send a report that <a href="http://{$config{cgi_domain}}/bugspam.cgi?bug={$bug_num}">this bug log contains spam</a>.</p>
+<p class="msgreceived">Send a report that <a href="{$config{cgi_domain}}/bugspam.cgi?bug={$bug_num}">this bug log contains spam</a>.</p>
<hr>
{include(q(html/html_tail))}
</body>
<body>
<h1>{$config{project}} {$config{bug}} report logs - #{$bug_num}</h1>
<p>There is no record of {$config{bug}} #{$bug_num}.
-Try the <a href="http://{$config{web_domain}}/">search page</a> instead.</p>
+Try the <a href="{$config{web_domain}}/">search page</a> instead.</p>
{#include('html/html_tail')}
</body></html>
Machine Name:
<!--machinename-->{$config{machine_name}||'Unknown'}<!--machinename-->
<P>
-<A HREF="http://{$config{web_domain}}/">{$config{project}} {$config{bug}} tracking system</A><BR>
+<A HREF="{$config{web_domain}}/">{$config{project}} {$config{bug}} tracking system</A><BR>
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.
with your problem report. Please _resubmit_ your report to
{$baddress}@{$config{email_domain}} and tell us which package the
report is for. For help, check out
-http://{$config{web_domain}}/Reporting{$config{html_suffix}}.
+{$config{web_domain}}/Reporting{$config{html_suffix}}.
Your message was dated {$date} and had
message-id {$messageid}