#!/usr/bin/perl -Tw
-# $Id: passwd.import,v 1.6 2003-06-12 13:57:08 ivan Exp $
+# $Id: passwd.import,v 1.5.4.3 2003-06-12 14:08:02 ivan Exp $
use strict;
use vars qw(%part_svc);
my $user = shift or die &usage;
adminsuidsetup $user;
-push @FS::svc_acct::shells, qw(/bin/sync /sbin/shuddown /bin/halt); #others?
+push @FS::svc_acct::shells, qw(/bin/sync /sbin/shutdown /bin/halt /sbin/halt); #others?
my($spooldir)="/usr/local/etc/freeside/export.". datasrc;