1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
$NetBSD: patch-aa,v 1.2 2010/12/25 08:08:06 taca Exp $
- Fix paths for pkgsrc.
- Check samba is running.
--- configure.pl.orig 2010-11-15 14:45:49.000000000 +0000
+++ configure.pl
@@ -30,6 +30,7 @@
use strict;
use File::Basename;
+use FileHandle;
# we need to be root to configure the scripts
if ($< != 0) {
@@ -48,16 +49,19 @@ Before starting, check
print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n";
# we first check if Samba is up and running
-my $test_smb=`pidof smbd`;
-chomp($test_smb);
+my $test_smb;
+$test_smb = read_pidfile('@SAMBA_PIDDIR@/smbd.pid');
+if (not defined $test_smb) {
+ $test_smb =`pidof smbd`;
+ chomp($test_smb);
+}
+
die "\nSamba need to be started first !\n" if ($test_smb eq "" || not defined $test_smb);
print "Looking for configuration files...\n\n";
my $smb_conf="";
-if (-e "/etc/samba/smb.conf") {
- $smb_conf="/etc/samba/smb.conf";
-} elsif (-e "/usr/local/samba/lib/smb.conf") {
- $smb_conf="/usr/local/samba/lib/smb.conf";
+if (-e "@PREFIX@/etc/samba/smb.conf") {
+ $smb_conf="@PREFIX@/etc/samba/smb.conf";
}
print "Samba Configuration File Path [$smb_conf] > ";
chomp(my $config_smb=<STDIN>);
@@ -65,14 +69,7 @@ if ($config_smb ne "") {
$smb_conf=$config_smb;
}
-my $conf_dir;
-if (-d "/etc/opt/IDEALX/smbldap-tools") {
- $conf_dir="/etc/opt/IDEALX/smbldap-tools/";
-} elsif (-d "/etc/smbldap-tools") {
- $conf_dir="/etc/smbldap-tools/";
-} else {
- $conf_dir="/etc/opt/IDEALX/smbldap-tools/";
-}
+my $conf_dir = '@PKG_SYSCONFDIR@';
print "\nThe default directory in which the smbldap configuration files are stored is shown.\n";
print "If you need to change this, enter the full directory path, then press enter to continue.\n";
@@ -303,7 +300,7 @@ my $default_user_gidnumber=read_entry(".
my $default_computer_gidnumber=read_entry(". default computer gidNumber","","515",0);
-my $userLoginShell=read_entry(". default login shell","","/bin/bash",0);
+my $userLoginShell=read_entry(". default login shell","","/bin/csh",0);
my $skeletonDir=read_entry(". default skeleton directory","","/etc/skel",0);
@@ -527,12 +524,12 @@ mailDomain=\"$mailDomain\"
# Allows not to use smbpasswd (if with_smbpasswd="0" in smbldap.conf) but
# prefer Crypt::SmbHash library
with_smbpasswd=\"0\"
-smbpasswd=\"/usr/bin/smbpasswd\"
+smbpasswd=\"@PREFIX@/bin/smbpasswd\"
# Allows not to use slappasswd (if with_slappasswd="0" in smbldap.conf)
# but prefer Crypt:: libraries
with_slappasswd=\"0\"
-slappasswd=\"/usr/sbin/slappasswd\"
+slappasswd=\"@PREFIX@/sbin/slappasswd\"
# comment out the following line to get rid of the default banner
# no_banner=\"1\"
@@ -573,5 +570,15 @@ print " $smbldap_bind_conf done.\n";
$mode=0600;
chmod $mode,"$smbldap_bind_conf","$smbldap_bind_conf.old";
-
-
+sub read_pidfile {
+ my($file) = @_;
+ my($fh, $line);
+
+ $fh = new FileHandle $file;
+ if (defined $fh) {
+ $line = $fh->getline;
+ chomp($line);
+ $fh->close;
+ }
+ return $line;
+}
|
