#!perl

use warnings; use strict;


# the host names, directory names, usernames below are changed
our $maindir = "/home/cmuna/a/hnwfb";
our $dldir = "/home/cmuna/export/hnwfb";
if ("jfhep" eq getpwuid($<)) {
	$maindir = "/home/jfhep/a/hnwfb";
	$dldir = "dl";
}
our $vardir = "var";
our $baseurl = "http://vphwec.example.com:780/hnwfb/";
our $http_netloc = "vphwec.example.com:780";
our $http_realm = "hnwfbmaster";
our $http_user = "hnwfb";
our $http_passfile = "secret/hnwfbhtpass";
our $maxcount_dir = 1024;
our $maxcount_file = 16*1024;
our $maxtotalsize = 1024*1024*1024;


use BSD::Resource ();
use 5.010;
use Fcntl ();
use IO::Handle ();
use LWP ();
use Date::Manip::Date ();
use Sys::Hostname ();