#!/usr/local/bin/perl

push(@INC,"/var/local/www/src","/var/local/www/local");

require "site.pl";
require "ctime.pl";
require "mime.pl";
require "dir.pl";

$plexus{'autoindex'} = 1;
&retrieve("people/sorokin");

### parts of the server and random crocks

sub set_timeout {}

sub error {
    $type = shift;
    die "ERROR($type): @_\n";
}

sub printable {
    local($_) = @_;
    s/([\000-\040+\177-\377])/sprintf('%%%02x',ord($1))/eg;
    $_;
}

sub splitquery {
    local($query) = @_;
    grep((s/%([\da-f]{1,2})/pack(C,hex($1))/eig, 1), split(/\+/, $query));
}

sub globpat {
    local($_) = @_;
    s/\\([\*\?\[\]])/\377$1/g;			# escapes
    s/([^A-Za-z0-9\-\*\?\[\]\377])/\\$1/g;	# protect
    $_ = join('', '^', $_, '$');		# ^ required below
    s/([^\377])\*/$1.*/g;			# *
    s/([^\377])\?/$1./g;			# ?
    s/\[\\\^/[^/g;				# [^...]
    s/\377/\\/g;
    $_;
}