#!/usr/bin/perl
package fnct;
use Socket;
use SDBM_File;
use strict;
$fnct::ver = "";
$fnct::sd_dir = "./sdata"; ## The script data directory
$fnct::md_dir = "./members"; ## The member data directory
$fnct::tp_dir = "./templates"; ## The templates directory
my(%tmpl, %mem,