t/relativity.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Cwd qw(getcwd);
   6 use Errno qw(ENOENT);
   7
   8 BEGIN {
   9         if (!eval q{
  10                 use IPC::Run qw(run);
  11                 1;
  12         }) {
  13                 eval q{use Test::More skip_all => "IPC::Run not available"};
  14         }
  15         else {
  16                 eval q{use Test::More};
  17         }
  18         use_ok("IkiWiki");
  19 }
  20
  21 my $PERL5LIB = 'blib/lib:blib/arch';
  22 my $pwd = getcwd();
  23
  24 # Black-box (ish) test for relative linking between CGI and static content
  25
  26 my $blob;
  27 my ($content, $in, %bits);
  28
  29 sub parse_cgi_content {
  30         my %bits;
  31         if ($content =~ qr{<base href="([^"]+)" */>}) {
  32                 $bits{basehref} = $1;
  33         }
  34         if ($content =~ qr{href="([^"]+/style.css)"}) {
  35                 $bits{stylehref} = $1;
  36         }
  37         if ($content =~ qr{class="parentlinks">\s+<a href="([^"]+)">this is the name of my wiki</a>/}s) {
  38                 $bits{tophref} = $1;
  39         }
  40         if ($content =~ qr{<a[^>]+href="([^"]+)\?do=prefs"}) {
  41                 $bits{cgihref} = $1;
  42         }
  43         return %bits;
  44 }
  45
  46 ok(! system("make -s ikiwiki.out"));
  47 ok(! system("rm -rf t/tmp"));
  48 ok(! system("mkdir t/tmp"));
  49
  50 sub write_old_file {
  51         my $name = shift;
  52         my $content = shift;
  53
  54         writefile($name, "t/tmp/in", $content);
  55         ok(utime(333333333, 333333333, "t/tmp/in/$name"));
  56 }
  57
  58 write_old_file("a.mdwn", "A");
  59 write_old_file("a/b.mdwn", "B");
  60 write_old_file("a/b/c.mdwn",
  61 "* A: [[a]]\n".
  62 "* B: [[b]]\n".
  63 "* E: [[a/d/e]]\n");
  64 write_old_file("a/d.mdwn", "D");
  65 write_old_file("a/d/e.mdwn", "E");
  66
  67 #######################################################################
  68 # site 1: a perfectly ordinary ikiwiki
  69
  70 writefile("test.setup", "t/tmp", <<EOF
  71 # IkiWiki::Setup::Yaml - YAML formatted setup file
  72 wikiname: this is the name of my wiki
  73 srcdir: t/tmp/in
  74 destdir: t/tmp/out
  75 templatedir: templates
  76 url: "http://example.com/wiki/"
  77 cgiurl: "http://example.com/cgi-bin/ikiwiki.cgi"
  78 cgi_wrapper: t/tmp/ikiwiki.cgi
  79 cgi_wrappermode: 0754
  80 # make it easier to test previewing
  81 add_plugins:
  82 - anonok
  83 anonok_pagespec: "*"
  84 ENV: { 'PERL5LIB': '$PERL5LIB' }
  85 EOF
  86 );
  87
  88 ok(unlink("t/tmp/ikiwiki.cgi") || $!{ENOENT});
  89 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
  90
  91 # CGI wrapper should be exactly the requested mode
  92 my (undef, undef, $mode, undef, undef,
  93         undef, undef, undef, undef, undef,
  94         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
  95 is($mode & 07777, 0754);
  96
  97 ok(-e "t/tmp/out/a/b/c/index.html");
  98 $content = readfile("t/tmp/out/a/b/c/index.html");
  99 # no <base> on static HTML
 100 unlike($content, qr{<base\W});
 101 # url and cgiurl are on the same host so the cgiurl is host-relative
 102 like($content, qr{<a[^>]+href="/cgi-bin/ikiwiki.cgi\?do=prefs"});
 103 # cross-links between static pages are relative
 104 like($content, qr{<li>A: <a href="../../">a</a></li>});
 105 like($content, qr{<li>B: <a href="../">b</a></li>});
 106 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 107
 108 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 109         $ENV{REQUEST_METHOD} = 'GET';
 110         $ENV{SERVER_PORT} = '80';
 111         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 112         $ENV{QUERY_STRING} = 'do=prefs';
 113         $ENV{HTTP_HOST} = 'example.com';
 114 });
 115 %bits = parse_cgi_content($content);
 116 is($bits{basehref}, "http://example.com/wiki/");
 117 like($bits{stylehref}, qr{^(?:(?:http:)?//example.com)?/wiki/style.css$});
 118 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 119 like($bits{cgihref}, qr{^(?:(?:http:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 120
 121 # when accessed via HTTPS, links are secure
 122 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 123         $ENV{REQUEST_METHOD} = 'GET';
 124         $ENV{SERVER_PORT} = '443';
 125         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 126         $ENV{QUERY_STRING} = 'do=prefs';
 127         $ENV{HTTP_HOST} = 'example.com';
 128         $ENV{HTTPS} = 'on';
 129 });
 130 %bits = parse_cgi_content($content);
 131 is($bits{basehref}, "https://example.com/wiki/");
 132 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 133 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 134 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 135
 136 # when accessed via a different hostname, links stay on that host
 137 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 138         $ENV{REQUEST_METHOD} = 'GET';
 139         $ENV{SERVER_PORT} = '80';
 140         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 141         $ENV{QUERY_STRING} = 'do=prefs';
 142         $ENV{HTTP_HOST} = 'staging.example.net';
 143 });
 144 %bits = parse_cgi_content($content);
 145 is($bits{basehref}, "http://staging.example.net/wiki/");
 146 like($bits{stylehref}, qr{^(?:(?:http:)?//staging.example.net)?/wiki/style.css$});
 147 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 148 like($bits{cgihref}, qr{^(?:(?:http:)?//staging.example.net)?/cgi-bin/ikiwiki.cgi$});
 149
 150 # previewing a page
 151 $in = 'do=edit&page=a/b/c&Preview';
 152 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 153         $ENV{REQUEST_METHOD} = 'POST';
 154         $ENV{SERVER_PORT} = '80';
 155         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 156         $ENV{HTTP_HOST} = 'example.com';
 157         $ENV{CONTENT_LENGTH} = length $in;
 158 });
 159 %bits = parse_cgi_content($content);
 160 is($bits{basehref}, "http://example.com/wiki/a/b/c/");
 161 like($bits{stylehref}, qr{^(?:(?:http:)?//example.com)?/wiki/style.css$});
 162 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 163 like($bits{cgihref}, qr{^(?:(?:http:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 164
 165 #######################################################################
 166 # site 2: static content and CGI are on different servers
 167
 168 writefile("test.setup", "t/tmp", <<EOF
 169 # IkiWiki::Setup::Yaml - YAML formatted setup file
 170 wikiname: this is the name of my wiki
 171 srcdir: t/tmp/in
 172 destdir: t/tmp/out
 173 templatedir: templates
 174 url: "http://static.example.com/"
 175 cgiurl: "http://cgi.example.com/ikiwiki.cgi"
 176 cgi_wrapper: t/tmp/ikiwiki.cgi
 177 cgi_wrappermode: 0754
 178 # make it easier to test previewing
 179 add_plugins:
 180 - anonok
 181 anonok_pagespec: "*"
 182 ENV: { 'PERL5LIB': '$PERL5LIB' }
 183 EOF
 184 );
 185
 186 ok(unlink("t/tmp/ikiwiki.cgi"));
 187 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 188
 189 # CGI wrapper should be exactly the requested mode
 190 (undef, undef, $mode, undef, undef,
 191         undef, undef, undef, undef, undef,
 192         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 193 is($mode & 07777, 0754);
 194
 195 ok(-e "t/tmp/out/a/b/c/index.html");
 196 $content = readfile("t/tmp/out/a/b/c/index.html");
 197 # no <base> on static HTML
 198 unlike($content, qr{<base\W});
 199 # url and cgiurl are not on the same host so the cgiurl has to be
 200 # protocol-relative or absolute
 201 like($content, qr{<a[^>]+href="(?:http:)?//cgi.example.com/ikiwiki.cgi\?do=prefs"});
 202 # cross-links between static pages are still relative
 203 like($content, qr{<li>A: <a href="../../">a</a></li>});
 204 like($content, qr{<li>B: <a href="../">b</a></li>});
 205 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 206
 207 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 208         $ENV{REQUEST_METHOD} = 'GET';
 209         $ENV{SERVER_PORT} = '80';
 210         $ENV{SCRIPT_NAME} = '/ikiwiki.cgi';
 211         $ENV{QUERY_STRING} = 'do=prefs';
 212         $ENV{HTTP_HOST} = 'cgi.example.com';
 213 });
 214 %bits = parse_cgi_content($content);
 215 like($bits{basehref}, qr{^http://static.example.com/$});
 216 like($bits{stylehref}, qr{^(?:(?:http:)?//static.example.com)?/style.css$});
 217 like($bits{tophref}, qr{^(?:http:)?//static.example.com/$});
 218 like($bits{cgihref}, qr{^(?:(?:http:)?//cgi.example.com)?/ikiwiki.cgi$});
 219
 220 # when accessed via HTTPS, links are secure
 221 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 222         $ENV{REQUEST_METHOD} = 'GET';
 223         $ENV{SERVER_PORT} = '443';
 224         $ENV{SCRIPT_NAME} = '/ikiwiki.cgi';
 225         $ENV{QUERY_STRING} = 'do=prefs';
 226         $ENV{HTTP_HOST} = 'cgi.example.com';
 227         $ENV{HTTPS} = 'on';
 228 });
 229 %bits = parse_cgi_content($content);
 230 like($bits{basehref}, qr{^https://static.example.com/$});
 231 like($bits{stylehref}, qr{^(?:(?:https:)?//static.example.com)?/style.css$});
 232 like($bits{tophref}, qr{^(?:https:)?//static.example.com/$});
 233 like($bits{cgihref}, qr{^(?:(?:https:)?//cgi.example.com)?/ikiwiki.cgi$});
 234
 235 # when accessed via a different hostname, links to the CGI (only) should
 236 # stay on that host?
 237 $in = 'do=edit&page=a/b/c&Preview';
 238 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 239         $ENV{REQUEST_METHOD} = 'POST';
 240         $ENV{SERVER_PORT} = '80';
 241         $ENV{SCRIPT_NAME} = '/ikiwiki.cgi';
 242         $ENV{HTTP_HOST} = 'staging.example.net';
 243         $ENV{CONTENT_LENGTH} = length $in;
 244 });
 245 %bits = parse_cgi_content($content);
 246 like($bits{basehref}, qr{^http://static.example.com/a/b/c/$});
 247 like($bits{stylehref}, qr{^(?:(?:http:)?//static.example.com|\.\./\.\./\.\.)/style.css$});
 248 like($bits{tophref}, qr{^(?:(?:http:)?//static.example.com|\.\./\.\./\.\.)/$});
 249 TODO: {
 250 local $TODO = "use self-referential CGI URL?";
 251 like($bits{cgihref}, qr{^(?:(?:http:)?//staging.example.net)?/ikiwiki.cgi$});
 252 }
 253
 254 #######################################################################
 255 # site 3: we specifically want everything to be secure
 256
 257 writefile("test.setup", "t/tmp", <<EOF
 258 # IkiWiki::Setup::Yaml - YAML formatted setup file
 259 wikiname: this is the name of my wiki
 260 srcdir: t/tmp/in
 261 destdir: t/tmp/out
 262 templatedir: templates
 263 url: "https://example.com/wiki/"
 264 cgiurl: "https://example.com/cgi-bin/ikiwiki.cgi"
 265 cgi_wrapper: t/tmp/ikiwiki.cgi
 266 cgi_wrappermode: 0754
 267 # make it easier to test previewing
 268 add_plugins:
 269 - anonok
 270 anonok_pagespec: "*"
 271 ENV: { 'PERL5LIB': '$PERL5LIB' }
 272 EOF
 273 );
 274
 275 ok(unlink("t/tmp/ikiwiki.cgi"));
 276 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 277
 278 # CGI wrapper should be exactly the requested mode
 279 (undef, undef, $mode, undef, undef,
 280         undef, undef, undef, undef, undef,
 281         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 282 is($mode & 07777, 0754);
 283
 284 ok(-e "t/tmp/out/a/b/c/index.html");
 285 $content = readfile("t/tmp/out/a/b/c/index.html");
 286 # no <base> on static HTML
 287 unlike($content, qr{<base\W});
 288 # url and cgiurl are on the same host so the cgiurl is host-relative
 289 like($content, qr{<a[^>]+href="/cgi-bin/ikiwiki.cgi\?do=prefs"});
 290 # cross-links between static pages are relative
 291 like($content, qr{<li>A: <a href="../../">a</a></li>});
 292 like($content, qr{<li>B: <a href="../">b</a></li>});
 293 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 294
 295 # when accessed via HTTPS, links are secure
 296 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 297         $ENV{REQUEST_METHOD} = 'GET';
 298         $ENV{SERVER_PORT} = '443';
 299         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 300         $ENV{QUERY_STRING} = 'do=prefs';
 301         $ENV{HTTP_HOST} = 'example.com';
 302         $ENV{HTTPS} = 'on';
 303 });
 304 %bits = parse_cgi_content($content);
 305 is($bits{basehref}, "https://example.com/wiki/");
 306 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 307 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 308 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 309
 310 # when not accessed via HTTPS, links should still be secure
 311 # (but if this happens, that's a sign of web server misconfiguration)
 312 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 313         $ENV{REQUEST_METHOD} = 'GET';
 314         $ENV{SERVER_PORT} = '80';
 315         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 316         $ENV{QUERY_STRING} = 'do=prefs';
 317         $ENV{HTTP_HOST} = 'example.com';
 318 });
 319 %bits = parse_cgi_content($content);
 320 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 321 TODO: {
 322 local $TODO = "treat https in configured url, cgiurl as required?";
 323 is($bits{basehref}, "https://example.com/wiki/");
 324 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 325 }
 326 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 327
 328 # when accessed via a different hostname, links stay on that host
 329 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 330         $ENV{REQUEST_METHOD} = 'GET';
 331         $ENV{SERVER_PORT} = '443';
 332         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 333         $ENV{QUERY_STRING} = 'do=prefs';
 334         $ENV{HTTP_HOST} = 'staging.example.net';
 335         $ENV{HTTPS} = 'on';
 336 });
 337 %bits = parse_cgi_content($content);
 338 is($bits{basehref}, "https://staging.example.net/wiki/");
 339 like($bits{stylehref}, qr{^(?:(?:https:)?//staging.example.net)?/wiki/style.css$});
 340 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 341 like($bits{cgihref}, qr{^(?:(?:https:)?//staging.example.net)?/cgi-bin/ikiwiki.cgi$});
 342
 343 # previewing a page
 344 $in = 'do=edit&page=a/b/c&Preview';
 345 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 346         $ENV{REQUEST_METHOD} = 'POST';
 347         $ENV{SERVER_PORT} = '443';
 348         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 349         $ENV{HTTP_HOST} = 'example.com';
 350         $ENV{CONTENT_LENGTH} = length $in;
 351         $ENV{HTTPS} = 'on';
 352 });
 353 %bits = parse_cgi_content($content);
 354 is($bits{basehref}, "https://example.com/wiki/a/b/c/");
 355 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 356 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 357 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 358
 359 #######################################################################
 360 # site 4 (NetBSD wiki): CGI is secure, static content doesn't have to be
 361
 362 writefile("test.setup", "t/tmp", <<EOF
 363 # IkiWiki::Setup::Yaml - YAML formatted setup file
 364 wikiname: this is the name of my wiki
 365 srcdir: t/tmp/in
 366 destdir: t/tmp/out
 367 templatedir: templates
 368 url: "http://example.com/wiki/"
 369 cgiurl: "https://example.com/cgi-bin/ikiwiki.cgi"
 370 cgi_wrapper: t/tmp/ikiwiki.cgi
 371 cgi_wrappermode: 0754
 372 # make it easier to test previewing
 373 add_plugins:
 374 - anonok
 375 anonok_pagespec: "*"
 376 ENV: { 'PERL5LIB': '$PERL5LIB' }
 377 EOF
 378 );
 379
 380 ok(unlink("t/tmp/ikiwiki.cgi"));
 381 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 382
 383 # CGI wrapper should be exactly the requested mode
 384 (undef, undef, $mode, undef, undef,
 385         undef, undef, undef, undef, undef,
 386         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 387 is($mode & 07777, 0754);
 388
 389 ok(-e "t/tmp/out/a/b/c/index.html");
 390 $content = readfile("t/tmp/out/a/b/c/index.html");
 391 # no <base> on static HTML
 392 unlike($content, qr{<base\W});
 393 # url and cgiurl are on the same host but different schemes
 394 like($content, qr{<a[^>]+href="https://example.com/cgi-bin/ikiwiki.cgi\?do=prefs"});
 395 # cross-links between static pages are relative
 396 like($content, qr{<li>A: <a href="../../">a</a></li>});
 397 like($content, qr{<li>B: <a href="../">b</a></li>});
 398 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 399
 400 # when accessed via HTTPS, links are secure (to avoid mixed-content)
 401 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 402         $ENV{REQUEST_METHOD} = 'GET';
 403         $ENV{SERVER_PORT} = '443';
 404         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 405         $ENV{QUERY_STRING} = 'do=prefs';
 406         $ENV{HTTP_HOST} = 'example.com';
 407         $ENV{HTTPS} = 'on';
 408 });
 409 %bits = parse_cgi_content($content);
 410 is($bits{basehref}, "https://example.com/wiki/");
 411 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 412 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 413 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 414
 415 # when not accessed via HTTPS, ???
 416 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 417         $ENV{REQUEST_METHOD} = 'GET';
 418         $ENV{SERVER_PORT} = '80';
 419         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 420         $ENV{QUERY_STRING} = 'do=prefs';
 421         $ENV{HTTP_HOST} = 'example.com';
 422 });
 423 %bits = parse_cgi_content($content);
 424 like($bits{basehref}, qr{^https?://example.com/wiki/$});
 425 like($bits{stylehref}, qr{^(?:(?:https?:)?//example.com)?/wiki/style.css$});
 426 like($bits{tophref}, qr{^(?:(?:https?://example.com)?/wiki|\.)/$});
 427 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 428
 429 # when accessed via a different hostname, links stay on that host
 430 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 431         $ENV{REQUEST_METHOD} = 'GET';
 432         $ENV{SERVER_PORT} = '443';
 433         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 434         $ENV{QUERY_STRING} = 'do=prefs';
 435         $ENV{HTTP_HOST} = 'staging.example.net';
 436         $ENV{HTTPS} = 'on';
 437 });
 438 %bits = parse_cgi_content($content);
 439 # because the static and dynamic stuff is on the same server, we assume that
 440 # both are also on the staging server
 441 like($bits{basehref}, qr{^https://staging.example.net/wiki/$});
 442 like($bits{stylehref}, qr{^(?:(?:https:)?//staging.example.net)?/wiki/style.css$});
 443 like($bits{tophref}, qr{^(?:(?:(?:https:)?//staging.example.net)?/wiki|\.)/$});
 444 TODO: {
 445 local $TODO = "this should really point back to itself but currently points to example.com";
 446 like($bits{cgihref}, qr{^(?:(?:https:)?//staging.example.net)?/cgi-bin/ikiwiki.cgi$});
 447 }
 448
 449 # previewing a page
 450 $in = 'do=edit&page=a/b/c&Preview';
 451 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 452         $ENV{REQUEST_METHOD} = 'POST';
 453         $ENV{SERVER_PORT} = '443';
 454         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 455         $ENV{HTTP_HOST} = 'example.com';
 456         $ENV{CONTENT_LENGTH} = length $in;
 457         $ENV{HTTPS} = 'on';
 458 });
 459 %bits = parse_cgi_content($content);
 460 is($bits{basehref}, "https://example.com/wiki/a/b/c/");
 461 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 462 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 463 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 464
 465 # Deliberately not testing https static content with http cgiurl,
 466 # because that makes remarkably little sense.
 467
 468 #######################################################################
 469 # site 5: w3mmode, as documented in [[w3mmode]]
 470
 471 writefile("test.setup", "t/tmp", <<EOF
 472 # IkiWiki::Setup::Yaml - YAML formatted setup file
 473 wikiname: this is the name of my wiki
 474 srcdir: t/tmp/in
 475 destdir: t/tmp/out
 476 templatedir: templates
 477 cgiurl: ikiwiki.cgi
 478 w3mmode: 1
 479 cgi_wrapper: t/tmp/ikiwiki.cgi
 480 cgi_wrappermode: 0754
 481 add_plugins:
 482 - anonok
 483 anonok_pagespec: "*"
 484 ENV: { 'PERL5LIB': '$PERL5LIB' }
 485 EOF
 486 );
 487
 488 ok(unlink("t/tmp/ikiwiki.cgi"));
 489 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 490
 491 # CGI wrapper should be exactly the requested mode
 492 (undef, undef, $mode, undef, undef,
 493         undef, undef, undef, undef, undef,
 494         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 495 is($mode & 07777, 0754);
 496
 497 ok(-e "t/tmp/out/a/b/c/index.html");
 498 $content = readfile("t/tmp/out/a/b/c/index.html");
 499 # no <base> on static HTML
 500 unlike($content, qr{<base\W});
 501 # FIXME: does /$LIB/ikiwiki-w3m.cgi work under w3m?
 502 like($content, qr{<a[^>]+href="(?:file://)?/\$LIB/ikiwiki-w3m.cgi/ikiwiki.cgi\?do=prefs"});
 503 # cross-links between static pages are still relative
 504 like($content, qr{<li>A: <a href="../../">a</a></li>});
 505 like($content, qr{<li>B: <a href="../">b</a></li>});
 506 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 507
 508 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 509         $ENV{REQUEST_METHOD} = 'GET';
 510         $ENV{PATH_INFO} = '/ikiwiki.cgi';
 511         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki-w3m.cgi';
 512         $ENV{QUERY_STRING} = 'do=prefs';
 513 });
 514 %bits = parse_cgi_content($content);
 515 like($bits{tophref}, qr{^(?:\Q$pwd\E/t/tmp/out|\.)/$});
 516 like($bits{cgihref}, qr{^(?:file://)?/\$LIB/ikiwiki-w3m.cgi/ikiwiki.cgi$});
 517 like($bits{basehref}, qr{^(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out/$});
 518 like($bits{stylehref}, qr{^(?:(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out|\.)/style.css$});
 519
 520 #######################################################################
 521 # site 6: we're behind a reverse-proxy
 522
 523 writefile("test.setup", "t/tmp", <<EOF
 524 # IkiWiki::Setup::Yaml - YAML formatted setup file
 525 wikiname: this is the name of my wiki
 526 srcdir: t/tmp/in
 527 destdir: t/tmp/out
 528 templatedir: templates
 529 url: "https://example.com/wiki/"
 530 cgiurl: "https://example.com/cgi-bin/ikiwiki.cgi"
 531 cgi_wrapper: t/tmp/ikiwiki.cgi
 532 cgi_wrappermode: 0754
 533 # make it easier to test previewing
 534 add_plugins:
 535 - anonok
 536 anonok_pagespec: "*"
 537 reverse_proxy: 1
 538 ENV: { 'PERL5LIB': '$PERL5LIB' }
 539 EOF
 540 );
 541
 542 ok(unlink("t/tmp/ikiwiki.cgi"));
 543 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 544
 545 # CGI wrapper should be exactly the requested mode
 546 (undef, undef, $mode, undef, undef,
 547         undef, undef, undef, undef, undef,
 548         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 549 is($mode & 07777, 0754);
 550
 551 ok(-e "t/tmp/out/a/b/c/index.html");
 552 $content = readfile("t/tmp/out/a/b/c/index.html");
 553 # no <base> on static HTML
 554 unlike($content, qr{<base\W});
 555 # url and cgiurl are on the same host so the cgiurl is host-relative
 556 like($content, qr{<a[^>]+href="/cgi-bin/ikiwiki.cgi\?do=prefs"});
 557 # cross-links between static pages are relative
 558 like($content, qr{<li>A: <a href="../../">a</a></li>});
 559 like($content, qr{<li>B: <a href="../">b</a></li>});
 560 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 561
 562 # because we are behind a reverse-proxy we must assume that
 563 # we're being accessed by the configured cgiurl
 564 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 565         $ENV{REQUEST_METHOD} = 'GET';
 566         $ENV{SERVER_PORT} = '80';
 567         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 568         $ENV{QUERY_STRING} = 'do=prefs';
 569         $ENV{HTTP_HOST} = 'localhost';
 570 });
 571 %bits = parse_cgi_content($content);
 572 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 573 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 574 TODO: {
 575 local $TODO = "reverse-proxy support needed";
 576 is($bits{basehref}, "https://example.com/wiki/");
 577 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 578 }
 579
 580 # previewing a page
 581 $in = 'do=edit&page=a/b/c&Preview';
 582 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 583         $ENV{REQUEST_METHOD} = 'POST';
 584         $ENV{SERVER_PORT} = '80';
 585         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 586         $ENV{HTTP_HOST} = 'localhost';
 587         $ENV{CONTENT_LENGTH} = length $in;
 588 });
 589 %bits = parse_cgi_content($content);
 590 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 591 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 592 TODO: {
 593 local $TODO = "reverse-proxy support needed";
 594 is($bits{basehref}, "https://example.com/wiki/a/b/c/");
 595 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 596 }
 597
 598 done_testing;