| |
|
Line 74
|
Parallel
|
Line 74
|
Parallel
|
| 74 |
$vars->{'projects_enabled'} = Codestriker->projects_disabled() ? 0 : 1; |
74 |
$vars->{'projects_enabled'} = Codestriker->projects_disabled() ? 0 : 1; |
| 75 |
|
75 |
|
| 76 |
# Indicate if bug db integration is enabled. |
76 |
# Indicate if bug db integration is enabled. |
| 77 |
$vars->{'bugdb_enabled'} = ($Codestriker::bug_db ne "") ? 1 : 0; |
77 |
$vars->{'bugdb_enabled'} = |
|
|
|
(defined $Codestriker::bug_db && $Codestriker::bug_db ne "") ? 1 : 0; |
| 78 |
|
79 |
|
| 79 |
# Indicate if antispam_email is enabled. |
80 |
# Indicate if antispam_email is enabled. |
| 80 |
$vars->{'antispam_email'} = $Codestriker::antispam_email; |
81 |
$vars->{'antispam_email'} = $Codestriker::antispam_email; |
| |
| |
|
Line 22
|
Parallel
|
Line 22
|
Parallel
|
| 22 |
my $self = {}; |
22 |
my $self = {}; |
| 23 |
$self->{query} = $query; |
23 |
$self->{query} = $query; |
| 24 |
|
24 |
|
| 25 |
# Determine what prefix is required wgen using relative URLs. |
25 |
# Determine what prefix is required when using relative URLs. |
| 26 |
# Unfortunately, Netcsape 4.x does things differently to everyone |
26 |
# Unfortunately, Netcsape 4.x does things differently to everyone |
| 27 |
# else. |
27 |
# else. |
| 28 |
my $browser = $ENV{'HTTP_USER_AGENT'}; |
28 |
my $browser = $ENV{'HTTP_USER_AGENT'}; |
| 29 |
$self->{url_prefix} = ($browser =~ m%^Mozilla/(\d)% && $1 <= 4) ? |
29 |
$self->{url_prefix} = ""; |
| 30 |
$query->url(-relative=>1) : ""; |
30 |
if (defined $browser && $browser =~ m%^Mozilla/(\d)% && $1 <= 4) { |
|
|
31 |
$self->{url_prefix} = $query->url(-relative=>1); |
|
|
32 |
} |
| 31 |
|
33 |
|
| 32 |
# Check if the HTML files are accessible vi another URL (required for |
34 |
# Check if the HTML files are accessible vi another URL (required for |
| 33 |
# sourceforge deployment). Check $Codestriker::codestriker_css. |
35 |
# sourceforge deployment). Check $Codestriker::codestriker_css. |
| 34 |
my $htmlurl; |
36 |
my $htmlurl; |
| 35 |
if ($Codestriker::codestriker_css ne "") { |
37 |
if (defined $Codestriker::codestriker_css && |
|
|
38 |
$Codestriker::codestriker_css ne "") { |
| 36 |
$htmlurl = $Codestriker::codestriker_css; |
39 |
$htmlurl = $Codestriker::codestriker_css; |
| 37 |
$htmlurl =~ s/\/codestriker\.css//; |
40 |
$htmlurl =~ s/\/codestriker\.css//; |
| 38 |
} |
41 |
} |
| |