home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / any.pm next >
Encoding:
Perl POD Document  |  2000-01-12  |  1.0 KB  |  40 lines
  1. package any;
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. use common qw(:system :file);
  10. use commands;
  11. use run_program;
  12.  
  13. sub addKdmUsers {
  14.     my ($prefix, @users) = @_;
  15.     require timezone;
  16.     my @u1 = my @users_male = qw(tie default curly);
  17.     my @u2 = my @users_female = qw(brunette girl woman-blond);
  18.     foreach (@users) {
  19.     my $l = rand() < timezone::sexProb($_) ? \@u2 : \@u1;
  20.     my $u = splice(@$l, rand(@$l), 1); 
  21.     eval { commands::cp "$prefix/usr/share/icons/user-$u-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/$_.xpm" };
  22.     @u1 = @users_male   unless @u1;
  23.     @u2 = @users_female unless @u2;
  24.     }
  25.     eval { commands::cp "-f", "$prefix/usr/share/icons/user-hat-mdk.xpm", "$prefix/usr/share/apps/kdm/pics/users/root.xpm" } unless $::isStandalone;
  26. }
  27.  
  28. sub addUsers {
  29.     my ($prefix, @users) = @_;
  30.     my $msec = "$prefix/etc/security/msec";
  31.     foreach my $u (@users) {
  32.     substInFile { s/^$u\n//; $_ .= "$u\n" if eof } "$msec/user.conf" if -d $msec;
  33.     }
  34.     run_program::rooted($prefix, "/etc/security/msec/init-sh/grpuser.sh --refresh");
  35.  
  36.     addKdmUsers($prefix, @users);
  37. }
  38.  
  39. 1;
  40.