Redbrick User management tool
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
273 B

  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. open NEWBS,"newbies";
  5. my @newbies = <NEWBS>;
  6. close NEWBS;
  7. foreach(@newbies) {
  8. chomp;
  9. my $altmail_line = `/local/admin/scripts/rrs/useradm show $_ | grep altmail`;
  10. $altmail_line =~ m/altmail:\s(\S*?)\n/igs;
  11. print $1. "\n";
  12. }