diff options
Diffstat (limited to 'bin/sendmail.import')
| -rw-r--r-- | bin/sendmail.import | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/sendmail.import b/bin/sendmail.import index 8a9de9fd3..a55616dc3 100644 --- a/bin/sendmail.import +++ b/bin/sendmail.import @@ -28,7 +28,7 @@ $forward_svcpart = 4; use vars qw($spooldir); $spooldir = "/usr/local/etc/freeside/export.". datasrc. "/sendmail"; -mkdir $spooldir unless -d $spooldir; +mkdir($spooldir, 0755) unless -d $spooldir; print "\n\n", <<END; Enter the location and name of your Sendmail aliases file, for example @@ -39,7 +39,7 @@ my($aliases)=&getvalue(":"); use vars qw($aliases_machine $aliases_prefix); $aliases_machine = (split(/:/, $aliases))[0]; $aliases_prefix = "$spooldir/$aliases_machine"; -mkdir $aliases_prefix unless -d $aliases_prefix; +mkdir($aliases_prefix, 0755) unless -d $aliases_prefix; #iscp("root\@$aliases","$aliases_prefix/aliases.import"); iscp("ivan\@$aliases","$aliases_prefix/aliases.import"); @@ -53,8 +53,8 @@ my($virtusertable)=&getvalue(":"); use vars qw($virtusertable_machine $virtusertable_prefix); $virtusertable_machine = (split(/:/, $virtusertable))[0]; $virtusertable_prefix = "$spooldir/$virtusertable_machine"; -mkdir $virtusertable_prefix unless -d $virtusertable_prefix; -mkdir "$virtusertable_prefix/virtusertable.import" +mkdir($virtusertable_prefix, 0755) unless -d $virtusertable_prefix; +mkdir("$virtusertable_prefix/virtusertable.import", 0755) unless -d "$virtusertable_prefix/virtusertable.import"; #iscp("root\@$virtusertable/*","$aliases_prefix/virtusertable.import/"); |