3 # Make a world-writeable directory for saving state.
4 $ww = 'WORLD_WRITABLE';
11 # Decode the sample image.
13 unless (open UU, "<$uu") { warn "Can't open $uu: $!\n"; next }
16 if (/^begin\s+\d+\s+(.+)$/) {
21 unless (open BIN, "> $bin") { warn "Can't create $bin: $!\n"; next }
26 print BIN unpack "u", $_;
32 # Create symlinks from *.txt to *.cgi for documentation purposes.
34 ($target = $_) =~ s/cgi$/txt/i;
35 symlink $_, $target unless -e $target;