Topic Text   Topic Comments (1)   Topic Properties   Topic Information sits@use...
Topic title: CVS commit: Guard against configs which comment out varia... Tuesday January 24, 2006 15:53:07

Download topic text | View in monospace font | Tab width set to 8 (change to 4)

Files in topic:  
[Jump to] codestriker/lib/Codestriker/Http/Template.pm  1.14   {+2,-1}
[Jump to] codestriker/lib/Codestriker/Http/UrlBuilder.pm  1.27   {+7,-4}

[Add General Comment] to topic.

File codestriker/lib/Codestriker/Http/Template.pm (Revision 1.14) [Add File Comment] [Top] [>>]
 
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'} =
78 (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;
 
File codestriker/lib/Codestriker/Http/UrlBuilder.pm (Revision 1.27) [Add File Comment] [<<] [Top]
 
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 }
 
  
Legend:
Removed 
Changed
 Added

[Add General Comment] to topic.