/[useradm]/otvori_nove+db
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /otvori_nove+db

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by dpavlin, Thu Jul 13 08:04:42 2000 UTC revision 1.9 by dpavlin, Fri Jan 26 07:44:36 2001 UTC
# Line 14  use strict; Line 14  use strict;
14    
15  my $debug=0;  my $debug=0;
16    
17    my $res_uids=60000;     # uids larger than this are for system use
18    
19  if (defined($ARGV[0]) && $ARGV[0] eq "-d") {  if (defined($ARGV[0]) && $ARGV[0] eq "-d") {
20          $debug++;          $debug++;
21          shift @ARGV;          shift @ARGV;
22  }  }
23  my $open_only_id=shift @ARGV if (defined($ARGV[0]));  my $open_only_id=shift @ARGV if (defined($ARGV[0]));
24    
25  warn "DEBUG -- me kreira ništa!" if ($debug);  warn "DEBUG -- ne kreira ništa!" if ($debug);
26    
27  $|++;  $|++;
28    
# Line 45  chomp $db_user; Line 47  chomp $db_user;
47  $db_user=~s/\s.+$//g;  $db_user=~s/\s.+$//g;
48  close(WHO);  close(WHO);
49    
50  xdebug "koristim korinika $db_user\n";  xdebug "koristim korisnika $db_user\n";
51    
52  open(HOSTNAME,"hostname |") || die "hostname: $!";  open(HOSTNAME,"hostname |") || die "hostname: $!";
53  my $hostname=<HOSTNAME>;  my $hostname=<HOSTNAME>;
# Line 72  while(<ALIAS>) { Line 74  while(<ALIAS>) {
74  close(ALIAS);  close(ALIAS);
75    
76  my %etc_passwd;  my %etc_passwd;
77  my $uid;        # current (or max) uid  my $max_uid = 0;        # maximum uid
78    
79  v "/etc/passwd\n";  v "/etc/passwd\n";
80  open(PASSWD,"/etc/passwd") || die "Can't open /etc/passwd !";  open(PASSWD,"/etc/passwd") || die "Can't open /etc/passwd !";
81  open(NPASSWD,">passwd.new") || die "Can't open passwd.new !";  open(NPASSWD,">passwd.new") || die "Can't open passwd.new !";
82  while(<PASSWD>) {  while(<PASSWD>) {
83          chop;          chop;
84          my ($login,$gid,$full_name,$dir,$shell);          my ($login,$uid,$gid,$full_name,$dir,$shell);
85          ($login,undef,$uid,$gid,$full_name,$dir,$shell) = split(/:/,$_,7);          ($login,undef,$uid,$gid,$full_name,$dir,$shell) = split(/:/,$_,7);
86          $etc_passwd{$login}=$full_name;          $etc_passwd{$login}=$full_name;
87          print NPASSWD "$_\n";          print NPASSWD "$_\n";
88  #       xdebug "$login:$full_name\n";  #       xdebug "$login:$full_name\n";
89            $max_uid = $uid if ($max_uid < $uid && $uid < $res_uids);
90  }  }
91  close(PASSWD);  close(PASSWD);
92    
# Line 208  while (my ($osoba_id,$ime,$prezime,$sifr Line 211  while (my ($osoba_id,$ime,$prezime,$sifr
211          my $salt = $saltch[int(rand($#saltch))].$saltch[int(rand($#saltch))];          my $salt = $saltch[int(rand($#saltch))].$saltch[int(rand($#saltch))];
212          my $crypt_passwd = crypt($passwd,$salt);          my $crypt_passwd = crypt($passwd,$salt);
213    
214          $uid++;          $max_uid++;
215          my $loc="";          my $loc="";
216          $loc.=$objekt if (defined($objekt));          $loc.=$objekt if (defined($objekt));
217          $loc.=" $kat" if (defined($kat));          $loc.=" $kat" if (defined($kat));
# Line 226  while (my ($osoba_id,$ime,$prezime,$sifr Line 229  while (my ($osoba_id,$ime,$prezime,$sifr
229          my $dir="/usr/users/$login";          my $dir="/usr/users/$login";
230    
231          die "Nema grupe $group!" if (! defined($group_id{$group}));          die "Nema grupe $group!" if (! defined($group_id{$group}));
232          xdebug "$login:$passwd:$uid:$group_id{$group}:$full_name:$dir:$shell\n";          xdebug "$login:$passwd:$max_uid:$group_id{$group}:$full_name:$dir:$shell\n";
233    
234          print NPASSWD "$login:$crypt_passwd:$uid:$group_id{$group}:$full_name:$dir:$shell\n";          print NPASSWD "$login:$crypt_passwd:$max_uid:$group_id{$group}:$full_name:$dir:$shell\n";
235          $dbh->do("insert into racuni (osoba_id,login,passwd) values ($osoba_id,'$login','$passwd')") if (! $debug);          $dbh->do("insert into racuni (osoba_id,login,passwd) values ($osoba_id,'$login','$passwd')") if (! $debug);
236          $etc_passwd{$login}=$full_name;          $etc_passwd{$login}=$full_name;
237    
# Line 245  while (my ($osoba_id,$ime,$prezime,$sifr Line 248  while (my ($osoba_id,$ime,$prezime,$sifr
248  #---- C2 security  #---- C2 security
249  #       if (!$debug || 1) {  #       if (!$debug || 1) {
250  #               open(AUTH,">> $0.auth");  #               open(AUTH,">> $0.auth");
251  #               print AUTH "$login:u_name=$login:u_id#$uid:u_pwd=$crypt_passwd:u_succhg#",time,":u_lock\@:chkent:\n";  #               print AUTH "$login:u_name=$login:u_id#$max_uid:u_pwd=$crypt_passwd:u_succhg#",time,":u_lock\@:chkent:\n";
252  #               close(AUTH);  #               close(AUTH);
253  #       }  #       }
254    
255          system "mkdir -p $dir ; mkdir $dir/bin ; \          system "mkdir -p $dir ; mkdir $dir/bin ; \
256                  chown -R $uid:$group_id{$group} $dir ; chmod 755 $dir" if (! $debug);                  chown -R $max_uid:$group_id{$group} $dir ; chmod 755 $dir" if (! $debug);
257    
258          $dbh->do("insert into status (osoba_id,kontakt_osoba_id,datum,status_tip_id) values ($osoba_id,$ko_id,'now'::datetime,3)") if (! $debug);          $dbh->do("insert into status (osoba_id,kontakt_osoba_id,datum,status_tip_id) values ($osoba_id,$ko_id,'now'::datetime,3)") if (! $debug);
259    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.26