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 TODO: {
 411 local $TODO = "avoid mixed content";
 412 is($bits{basehref}, "https://example.com/wiki/");
 413 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 414 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 415 }
 416 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 417
 418 # when not accessed via HTTPS, ???
 419 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 420         $ENV{REQUEST_METHOD} = 'GET';
 421         $ENV{SERVER_PORT} = '80';
 422         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 423         $ENV{QUERY_STRING} = 'do=prefs';
 424         $ENV{HTTP_HOST} = 'example.com';
 425 });
 426 %bits = parse_cgi_content($content);
 427 like($bits{basehref}, qr{^https?://example.com/wiki/$});
 428 like($bits{stylehref}, qr{^(?:(?:https?:)?//example.com)?/wiki/style.css$});
 429 like($bits{tophref}, qr{^(?:(?:https?://example.com)?/wiki|\.)/$});
 430 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 431
 432 # when accessed via a different hostname, links stay on that host
 433 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 434         $ENV{REQUEST_METHOD} = 'GET';
 435         $ENV{SERVER_PORT} = '443';
 436         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 437         $ENV{QUERY_STRING} = 'do=prefs';
 438         $ENV{HTTP_HOST} = 'staging.example.net';
 439         $ENV{HTTPS} = 'on';
 440 });
 441 %bits = parse_cgi_content($content);
 442 TODO: {
 443 local $TODO = "avoid mixed content";
 444 like($bits{basehref}, qr{^https://example.com/wiki/$});
 445 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 446 like($bits{tophref}, qr{^(?:(?:(?:https:)?//example.com)?/wiki|\.)/$});
 447 like($bits{cgihref}, qr{^(?:(?:https:)?//staging.example.net)?/cgi-bin/ikiwiki.cgi$});
 448 }
 449
 450 # previewing a page
 451 $in = 'do=edit&page=a/b/c&Preview';
 452 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 453         $ENV{REQUEST_METHOD} = 'POST';
 454         $ENV{SERVER_PORT} = '443';
 455         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 456         $ENV{HTTP_HOST} = 'example.com';
 457         $ENV{CONTENT_LENGTH} = length $in;
 458         $ENV{HTTPS} = 'on';
 459 });
 460 %bits = parse_cgi_content($content);
 461 TODO: {
 462 local $TODO = "avoid mixed content";
 463 is($bits{basehref}, "https://example.com/wiki/a/b/c/");
 464 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 465 }
 466 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 467 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 468
 469 # Deliberately not testing https static content with http cgiurl,
 470 # because that makes remarkably little sense.
 471
 472 #######################################################################
 473 # site 5: w3mmode, as documented in [[w3mmode]]
 474
 475 writefile("test.setup", "t/tmp", <<EOF
 476 # IkiWiki::Setup::Yaml - YAML formatted setup file
 477 wikiname: this is the name of my wiki
 478 srcdir: t/tmp/in
 479 destdir: t/tmp/out
 480 templatedir: templates
 481 cgiurl: ikiwiki.cgi
 482 w3mmode: 1
 483 cgi_wrapper: t/tmp/ikiwiki.cgi
 484 cgi_wrappermode: 0754
 485 add_plugins:
 486 - anonok
 487 anonok_pagespec: "*"
 488 ENV: { 'PERL5LIB': '$PERL5LIB' }
 489 EOF
 490 );
 491
 492 ok(unlink("t/tmp/ikiwiki.cgi"));
 493 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 494
 495 # CGI wrapper should be exactly the requested mode
 496 (undef, undef, $mode, undef, undef,
 497         undef, undef, undef, undef, undef,
 498         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 499 is($mode & 07777, 0754);
 500
 501 ok(-e "t/tmp/out/a/b/c/index.html");
 502 $content = readfile("t/tmp/out/a/b/c/index.html");
 503 # no <base> on static HTML
 504 unlike($content, qr{<base\W});
 505 # FIXME: does /$LIB/ikiwiki-w3m.cgi work under w3m?
 506 like($content, qr{<a[^>]+href="(?:file://)?/\$LIB/ikiwiki-w3m.cgi/ikiwiki.cgi\?do=prefs"});
 507 # cross-links between static pages are still relative
 508 like($content, qr{<li>A: <a href="../../">a</a></li>});
 509 like($content, qr{<li>B: <a href="../">b</a></li>});
 510 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 511
 512 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 513         $ENV{REQUEST_METHOD} = 'GET';
 514         $ENV{PATH_INFO} = '/ikiwiki.cgi';
 515         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki-w3m.cgi';
 516         $ENV{QUERY_STRING} = 'do=prefs';
 517 });
 518 %bits = parse_cgi_content($content);
 519 like($bits{tophref}, qr{^(?:\Q$pwd\E/t/tmp/out|\.)/$});
 520 like($bits{cgihref}, qr{^(?:file://)?/\$LIB/ikiwiki-w3m.cgi/ikiwiki.cgi$});
 521 like($bits{basehref}, qr{^(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out/$});
 522 like($bits{stylehref}, qr{^(?:(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out|\.)/style.css$});
 523
 524 #######################################################################
 525 # site 6: we're behind a reverse-proxy
 526
 527 writefile("test.setup", "t/tmp", <<EOF
 528 # IkiWiki::Setup::Yaml - YAML formatted setup file
 529 wikiname: this is the name of my wiki
 530 srcdir: t/tmp/in
 531 destdir: t/tmp/out
 532 templatedir: templates
 533 url: "https://example.com/wiki/"
 534 cgiurl: "https://example.com/cgi-bin/ikiwiki.cgi"
 535 cgi_wrapper: t/tmp/ikiwiki.cgi
 536 cgi_wrappermode: 0754
 537 # make it easier to test previewing
 538 add_plugins:
 539 - anonok
 540 anonok_pagespec: "*"
 541 reverse_proxy: 1
 542 ENV: { 'PERL5LIB': '$PERL5LIB' }
 543 EOF
 544 );
 545
 546 ok(unlink("t/tmp/ikiwiki.cgi"));
 547 ok(! system("./ikiwiki.out --setup t/tmp/test.setup --rebuild --wrappers"));
 548
 549 # CGI wrapper should be exactly the requested mode
 550 (undef, undef, $mode, undef, undef,
 551         undef, undef, undef, undef, undef,
 552         undef, undef, undef) = stat("t/tmp/ikiwiki.cgi");
 553 is($mode & 07777, 0754);
 554
 555 ok(-e "t/tmp/out/a/b/c/index.html");
 556 $content = readfile("t/tmp/out/a/b/c/index.html");
 557 # no <base> on static HTML
 558 unlike($content, qr{<base\W});
 559 # url and cgiurl are on the same host so the cgiurl is host-relative
 560 like($content, qr{<a[^>]+href="/cgi-bin/ikiwiki.cgi\?do=prefs"});
 561 # cross-links between static pages are relative
 562 like($content, qr{<li>A: <a href="../../">a</a></li>});
 563 like($content, qr{<li>B: <a href="../">b</a></li>});
 564 like($content, qr{<li>E: <a href="../../d/e/">e</a></li>});
 565
 566 # because we are behind a reverse-proxy we must assume that
 567 # we're being accessed by the configured cgiurl
 568 run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 569         $ENV{REQUEST_METHOD} = 'GET';
 570         $ENV{SERVER_PORT} = '80';
 571         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 572         $ENV{QUERY_STRING} = 'do=prefs';
 573         $ENV{HTTP_HOST} = 'localhost';
 574 });
 575 %bits = parse_cgi_content($content);
 576 like($bits{tophref}, qr{^(?:/wiki|\.)/$});
 577 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 578 TODO: {
 579 local $TODO = "reverse-proxy support needed";
 580 is($bits{basehref}, "https://example.com/wiki/");
 581 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 582 }
 583
 584 # previewing a page
 585 $in = 'do=edit&page=a/b/c&Preview';
 586 run(["./t/tmp/ikiwiki.cgi"], \$in, \$content, init => sub {
 587         $ENV{REQUEST_METHOD} = 'POST';
 588         $ENV{SERVER_PORT} = '80';
 589         $ENV{SCRIPT_NAME} = '/cgi-bin/ikiwiki.cgi';
 590         $ENV{HTTP_HOST} = 'localhost';
 591         $ENV{CONTENT_LENGTH} = length $in;
 592 });
 593 %bits = parse_cgi_content($content);
 594 like($bits{tophref}, qr{^(?:/wiki|\.\./\.\./\.\.)/$});
 595 like($bits{cgihref}, qr{^(?:(?:https:)?//example.com)?/cgi-bin/ikiwiki.cgi$});
 596 TODO: {
 597 local $TODO = "reverse-proxy support needed";
 598 is($bits{basehref}, "https://example.com/wiki/a/b/c/");
 599 like($bits{stylehref}, qr{^(?:(?:https:)?//example.com)?/wiki/style.css$});
 600 }
 601
 602 done_testing;