silly typo
authorivan <ivan>
Fri, 3 Mar 2000 12:27:54 +0000 (12:27 +0000)
committerivan <ivan>
Fri, 3 Mar 2000 12:27:54 +0000 (12:27 +0000)
fs_webdemo/registerd

index e5315e5..6314d0a 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
 #!/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(
 
 use strict;
 use vars qw(
@@ -98,7 +98,7 @@ while ( 1 ) {
     system "cp -p ${freeside_conf}counters.DBI:mysql:demo_template/* ".
            "${freeside_conf}counters.DBI:mysql:demo_$username";
     chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
     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";
 
     system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
            "${freeside_conf}dbdef.DBI:mysql:demo_$username";