#!/usr/bin/perl -w
#
-# $Id: registerd,v 1.7 2000-03-03 06:36:49 ivan Exp $
+# $Id: registerd,v 1.8 2000-03-03 12:27:54 ivan Exp $
use strict;
use vars qw(
system "cp -p ${freeside_conf}counters.DBI:mysql:demo_template/* ".
"${freeside_conf}counters.DBI:mysql:demo_$username";
chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
- "${freeside_conf}counters.demo_$username";
+ "${freeside_conf}counters.DBI:mysql:demo_$username";
system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
"${freeside_conf}dbdef.DBI:mysql:demo_$username";