initial checkin of module files for proper perl installation
[freeside.git] / bin / svc_acct.import
1 #!/usr/bin/perl -Tw
2 #
3 # $Id: svc_acct.import,v 1.7 1999-07-08 02:32:26 ivan Exp $
4 #
5 # ivan@sisd.com 98-mar-9
6 #
7 # changed 'password' field to '_password' because PgSQL 6.3 reserves this word
8 #       bmccane@maxbaud.net  98-Apr-3
9 #
10 # generalized svcparts (still needs radius import) ivan@sisd.com 98-mar-23
11 #
12 # radius import, now an interactive script.  still needs erpcd import?
13 # ivan@sisd.com 98-jun-24
14 #
15 # arbitrary radius attributes ivan@sisd.com 98-aug-9
16 #
17 # don't import /var/spool/freeside/conf/shells!  ivan@sisd.com 98-aug-13
18 #
19 # $Log: svc_acct.import,v $
20 # Revision 1.7  1999-07-08 02:32:26  ivan
21 # import fix, noticed by Ben Leibig and Joel Griffiths
22 #
23 # Revision 1.6  1999/07/08 01:49:00  ivan
24 # updates to avoid -w warnings from Joel Griffiths <griff@aver-computer.com>
25 #
26 # Revision 1.5  1999/03/25 08:42:19  ivan
27 # import stuff uses Term::Query and spits out (some kinds of) nonsensical input
28 #
29 # Revision 1.4  1999/03/24 00:43:38  ivan
30 # die if no relevant services
31 #
32 # Revision 1.3  1998/12/10 07:23:16  ivan
33 # use FS::Conf, need user (for datasrc)
34 #
35 # Revision 1.2  1998/10/13 12:07:51  ivan
36 # Assigns password from the shadow file for RADIUS password "UNIX"
37 #
38
39 use strict;
40 use vars qw(%part_svc);
41 use Date::Parse;
42 use Term::Query qw(query);
43 use FS::SSH qw(iscp);
44 use FS::UID qw(adminsuidsetup datasrc);
45 use FS::Record qw(qsearch);
46 use FS::svc_acct;
47 use FS::part_svc;
48
49 my $user = shift or die &usage;
50 adminsuidsetup $user;
51
52 my($spooldir)="/usr/local/etc/freeside/export.". datasrc;
53
54 $FS::svc_acct::nossh_hack = 1;
55
56 ###
57
58 %part_svc=map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_acct'});
59
60 die "No services with svcdb svc_acct!\n" unless %part_svc;
61
62 print "\n\n", &menu_svc, "\n", <<END;
63 Most accounts probably have entries in passwd and users (with Port-Limit
64 nonexistant or 1).
65 END
66 my($ppp_svcpart)=&getpart;
67
68 print "\n\n", &menu_svc, "\n", <<END;
69 Some accounts have entries in passwd and users, but with Port-Limit 2 (or
70 more).
71 END
72 my($isdn_svcpart)=&getpart;
73
74 print "\n\n", &menu_svc, "\n", <<END;
75 Some accounts might have entries in users only (Port-Limit 1)
76 END
77 my($oppp_svcpart)=&getpart;
78
79 print "\n\n", &menu_svc, "\n", <<END;
80 Some accounts might have entries in users only (Port-Limit >= 2)
81 END
82 my($oisdn_svcpart)=&getpart;
83
84 print "\n\n", &menu_svc, "\n", <<END;
85 POP mail accounts have entries in passwd only, and have a particular shell.
86 END
87 my($pop_shell)=&getvalue("Enter that shell:");
88 my($popmail_svcpart)=&getpart;
89
90 print "\n\n", &menu_svc, "\n", <<END;
91 Everything else in passwd is a shell account.
92 END
93 my($shell_svcpart)=&getpart;
94
95 print "\n\n", <<END;
96 Enter the location and name of your _user_ passwd file, for example
97 "mail.isp.com:/etc/passwd" or "nis.isp.com:/etc/global/passwd"
98 END
99 my($loc_passwd)=&getvalue(":");
100 iscp("root\@$loc_passwd", "$spooldir/passwd.import");
101
102 print "\n\n", <<END;
103 Enter the location and name of your _user_ shadow file, for example
104 "mail.isp.com:/etc/shadow" or "bsd.isp.com:/etc/master.passwd"
105 END
106 my($loc_shadow)=&getvalue(":");
107 iscp("root\@$loc_shadow", "$spooldir/shadow.import");
108
109 print "\n\n", <<END;
110 Enter the location and name of your radius "users" file, for example
111 "radius.isp.com:/etc/raddb/users"
112 END
113 my($loc_users)=&getvalue(":");
114 iscp("root\@$loc_users", "$spooldir/users.import");
115
116 sub menu_svc {
117   ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %part_svc ). "\n";
118 }
119 sub getpart {
120   $^W=0; # Term::Query isn't -w-safe
121   my $return = query "Enter part number:", 'irk', [ keys %part_svc ];
122   $^W=1;
123   $return;
124 }
125 sub getvalue {
126   my $prompt = shift;
127   $^W=0; # Term::Query isn't -w-safe
128   my $return = query $prompt, '';
129   $^W=1;
130   $return;
131 }
132
133 print "\n\n";
134
135 ###
136
137 open(PASSWD,"<$spooldir/passwd.import");
138 open(SHADOW,"<$spooldir/shadow.import");
139 open(USERS,"<$spooldir/users.import");
140
141 my(%upassword,%ip,%allparam);
142 my(%param,$username);
143 while (<USERS>) {
144   chop;
145   next if /^$/;
146   if ( /^\S/ ) {
147     /^(\w+)\s+Password\s+=\s+"([^"]+)"(,\s+Expiration\s+=\s+"([^"]*")\s*)?$/
148       or die "1Unexpected line in users.import: $_";
149     my($password,$expiration);
150     ($username,$password,$expiration)=(lc($1),$2,$4);
151     $password = '' if $password eq 'UNIX';
152     $upassword{$username}=$password;
153     undef %param;
154   } else {
155     die "2Unexpected line in users.import: $_";
156   }
157   while (<USERS>) {
158     chop;
159     if ( /^\s*$/ ) {
160       if ( defined $param{'radius_Framed_IP_Address'} ) {
161         $ip{$username} = $param{'radius_Framed_IP_Address'};
162         delete $param{'radius_Framed_IP_Address'};
163       } else {
164         $ip{$username} = '0e0';
165       }
166       $allparam{$username}={ %param };
167       last;
168     } elsif ( /^\s+([\w\-]+)\s=\s"?([\w\.\-\s]+)"?,?\s*$/ ) {
169       my($attribute,$value)=($1,$2);
170       $attribute =~ s/\-/_/g;
171       $param{'radius_'.$attribute}=$value;
172     } else {
173       die "3Unexpected line in users.import: $_";
174     }
175   }
176 }
177 #? incase there isn't a terminating blank line ?
178 if ( defined $param{'radius_Framed_IP_Address'} ) {
179   $ip{$username} = $param{'radius_Framed_IP_Address'};
180   delete $param{'radius_Framed_IP_Address'};
181 } else {
182   $ip{$username} = '0e0';
183 }
184 $allparam{$username}={ %param };
185
186 my(%password);
187 while (<SHADOW>) {
188   chop;
189   my($username,$password)=split(/:/);
190   $password{$username}=$password;
191 }
192
193 while (<PASSWD>) {
194   chop;
195   my($username,$x,$uid,$gid,$finger,$dir,$shell)=split(/:/);
196   my($password)=$upassword{$username} || $password{$username};
197
198   my($maxb)=${$allparam{$username}}{'radius_Port_Limit'};
199   my($svcpart);
200   if ( exists $upassword{$username} ) {
201     if ( $maxb >= 2 ) {
202       $svcpart = $isdn_svcpart
203     } elsif ( ! $maxb || $maxb == 1 ) {
204       $svcpart = $ppp_svcpart
205     } else {
206       die "Illegal Port-Limit in users ($username)!\n";
207     }
208   } elsif ( $shell eq $pop_shell ) {
209     $svcpart = $popmail_svcpart;
210   } else {
211     $svcpart = $shell_svcpart;
212   }
213
214   my($svc_acct) = new FS::svc_acct ({
215     'svcpart'  => $svcpart,
216     'username' => $username,
217     'password' => $password,
218     'uid'      => $uid,
219     'gid'      => $gid,
220     'finger'   => $finger,
221     'dir'      => $dir,
222     'shell'    => $shell,
223     'slipip'   => $ip{$username},
224     %{$allparam{$username}},
225   });
226   my($error);
227   $error=$svc_acct->insert;
228   die $error if $error;
229
230   delete $allparam{$username};
231   delete $upassword{$username};
232 }
233
234 #my($username);
235 foreach $username ( keys %upassword ) {
236   my($password)=$upassword{$username};
237
238   my($maxb)=${$allparam{$username}}{'radius_Port_Limit'} || 0;
239   my($svcpart);
240   if ( $maxb == 2 ) {
241     $svcpart = $oisdn_svcpart
242   } elsif ( ! $maxb || $maxb == 1 ) {
243     $svcpart = $oppp_svcpart
244   } else {
245     die "Illegal Port-Limit in users!\n";
246   }
247
248   my($svc_acct) = new FS::svc_acct ({
249     'svcpart'  => $svcpart,
250     'username' => $username,
251     'password' => $password,
252     'slipip'   => $ip{$username},
253     %{$allparam{$username}},
254   });
255   my($error);
256   $error=$svc_acct->insert;
257   die $error, if $error;
258
259   delete $allparam{$username};
260   delete $upassword{$username};
261 }
262
263 #
264
265 sub usage {
266   die "Usage:\n\n  svc_acct.export user\n";
267 }
268