4 use vars qw(%part_svc %domain_part_svc);
7 use Term::Query qw(query);
8 use FS::UID qw(adminsuidsetup); #datasrc
9 use FS::Record qw(qsearch qsearchs);
14 my $user = shift or die &usage;
17 #push @FS::svc_acct::shells, qw(/bin/sync /sbin/shutdown /bin/halt /sbin/halt); #others?
19 $FS::svc_Common::noexport_hack = 1;
23 %part_svc=map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_acct'});
25 die "No services with svcdb svc_acct!\n" unless %part_svc;
27 print "\n\n", &menu_svc, "\n", <<END;
28 Enter part number to import.
30 my $sqlradius_svcpart = &getpart;
32 %domain_part_svc = map { $_->svcpart, $_ }
33 qsearch('part_svc', { 'svcdb' => 'svc_domain'} );
35 die "No services with svcdb svc_domain!\n" unless %domain_part_svc;
37 print "\n\n", &menu_domain_svc, "\n", <<END;
38 Enter part number for domains.
40 my $domain_svcpart = &getdomainpart;
42 my $datasrc = &getvalue("\n\nEnter the DBI datasource:");
43 my $db_user = &getvalue("\n\nEnter the database user:");
44 my $db_pass = &getvalue("\n\nEnter the database password:");
47 ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %part_svc ). "\n";
50 ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %domain_part_svc ). "\n";
53 $^W=0; # Term::Query isn't -w-safe
54 my $return = query "Enter part number:", 'irk', [ keys %part_svc ];
59 $^W=0; # Term::Query isn't -w-safe
60 my $return = query "Enter part number:", 'irk', [ keys %domain_part_svc ];
66 $^W=0; # Term::Query isn't -w-safe
67 my $return = query $prompt, '';
76 my $dbh = DBI->connect( $datasrc, $db_user, $db_pass )
79 my $sth = $dbh->prepare('SELECT DISTINCT UserName, Realm FROM radcheck')
81 $sth->execute or die $sth->errstr;
84 while ( $row = $sth->fetchrow_arrayref ) {
85 my( $r_username, $realm ) = @$row;
87 my( $username, $domain );
88 if ( $r_username =~ s/([^@]+)\@([^@]+)$// ) {
92 $username = $r_username;
95 my %svc_domain = ( 'svcpart' => $domain_svcpart,
96 'domain' => $domain, );
97 my $svc_domain = qsearchs('svc_domain', \%svc_domain )
98 || new FS::svc_domain \%svc_domain;
99 unless ( $svc_domain->domsvc ) {
100 my $error = $svc_domain->insert;
102 die "can't insert domain $domain: $error\n";
106 my( $password, $finger, $group ) = ( '', '', '' );
108 my $rc_sth = $dbh->prepare(
109 'SELECT Attribute, Value, Name, GroupName'.
111 ' WHERE UserName = ? and Realm = ?'
112 ) or die $dbh->errstr;
113 $rc_sth->execute($r_username, $realm) or die $rc_sth->errstr;
115 foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
116 my($attribute, $value, $name, $groupname) = @$row;
117 if ( $attribute =~ /^(Crypt-)?Password$/ ) {
122 #handle other params!
126 my $svc_acct = new FS::svc_acct (
127 'svcpart' => $sqlradius_svcpart,
128 'username' => $username,
129 'domsvc' => $svc_domain->domsvc,
130 '_password' => $password,
135 #$error = $svc_acct->insert;
136 $error = $svc_acct->check;
138 if ( $error =~ /duplicate/i ) {
139 warn "$r_username: $error";
141 die "$r_username: $error";
148 die "Usage:\n\n sqlradius.import user\n";