antonlindstrom/users2html.pl

## users2html.pl
#!/usr/bin/perl -w
#
# Print out users in system to a html file.
#
# Opens files passwd and group, checks group for users in staff
# and assigns others in another array. Users names are assigned
# to a hash and then printed out as names in html list. Mail is
# username@universitetet.se, hashes are sorted on users names
# before printout.

# Open file.
sub openfile {
  ($file) = @_;
  open(FILE, $file) || die("Could not open $file!\n$!\n");
  @filecontents = <FILE>;
  close(FILE);
  return @filecontents;
}

# Use subroutine openfile and assign to array.
@passwd = &openfile("passwd");
@group  = &openfile("group");

# Determine which group a user is part of.
foreach $row(@group) {
  # Split and chomp @gpost.
  @gpost = split(/:/, $row);
  @gmember = split(/:/, $row);
  chomp(@gpost, @gmember);

  # Set staff to $staff and others to $others.
  if ($gpost[0] eq "staff") {
    push(@staff, $gpost[3]);
  } else {
    push(@others, $gpost[3]);
  }
}

# Go through passwd file, checks if user is in group and adds full name to hash.
foreach $prow(@passwd) {
  # Split and chomp.
  @user = split(/:/, $prow);
  chomp(@user);
  $username = $user[0];

  # Conditions if user is member of staff or other group.
  $memberofstaff = grep (/$username/, @staff);
  $memberofother = grep (/$username/, @others);

  # Skip if member is not in group file.
  next if not ( $memberofstaff || $memberofother );

  # Only name, not numbers.
  $user[4] =~ m/([a-zåäöÅÄÖ\ ]+)/i;
  $fullname = $1;

  # Username as key in hash and all text in comment field.
  if($memberofstaff) {
    $infstaff{$username} = $fullname;
  } else {
    $infother{$username} = $fullname;
  }
}

# Sort hash %infstaff and assign to stafflink.
foreach $val(sort {$infstaff{$a} cmp $infstaff{$b} } keys %infstaff) {
  $stafflink .= '<li><a href="mailto:'.$val.'@universitet.se">'.$infstaff{$val}.'</a></li>';
}

# Sort hash %infother and assign to otherlink.
foreach $val2(sort {$infother{$a} cmp $infother{$b} } keys %infother) {
  $otherlink .= '<li><a href="mailto:'.$val2.'@universitet.se">'.$infother{$val2}.'</a></li>';
}

# Create template for HTML.
$htmldoc = "<html>\n <head><title>Users</title</head>
<body>\n <h1>Users</h1>
<h2>Staff</h2>\n <ul>$stafflink</ul>\n <h2>Others</h2>\n <ul>$otherlink</ul>
</body>
</html>";

# Open users.html and print template ($htmldoc) to it.
open (OUTPUTF, "> users.html") or die ("File users.html could not be opened. $!");
print OUTPUTF $htmldoc;
close (OUTPUTF);
	#!/usr/bin/perl -w
	#
	# Print out users in system to a html file.
	#
	# Opens files passwd and group, checks group for users in staff
	# and assigns others in another array. Users names are assigned
	# to a hash and then printed out as names in html list. Mail is
	# username@universitetet.se, hashes are sorted on users names
	# before printout.

	# Open file.
	sub openfile {
	($file) = @_;
	open(FILE, $file) \|\| die("Could not open $file!\n$!\n");
	@filecontents = <FILE>;
	close(FILE);
	return @filecontents;
	}

	# Use subroutine openfile and assign to array.
	@passwd = &openfile("passwd");
	@group = &openfile("group");

	# Determine which group a user is part of.
	foreach $row(@group) {
	# Split and chomp @gpost.
	@gpost = split(/:/, $row);
	@gmember = split(/:/, $row);
	chomp(@gpost, @gmember);

	# Set staff to $staff and others to $others.
	if ($gpost[0] eq "staff") {
	push(@staff, $gpost[3]);
	} else {
	push(@others, $gpost[3]);
	}
	}

	# Go through passwd file, checks if user is in group and adds full name to hash.
	foreach $prow(@passwd) {
	# Split and chomp.
	@user = split(/:/, $prow);
	chomp(@user);
	$username = $user[0];

	# Conditions if user is member of staff or other group.
	$memberofstaff = grep (/$username/, @staff);
	$memberofother = grep (/$username/, @others);

	# Skip if member is not in group file.
	next if not ( $memberofstaff \|\| $memberofother );

	# Only name, not numbers.
	$user[4] =~ m/([a-zåäöÅÄÖ\ ]+)/i;
	$fullname = $1;

	# Username as key in hash and all text in comment field.
	if($memberofstaff) {
	$infstaff{$username} = $fullname;
	} else {
	$infother{$username} = $fullname;
	}
	}

	# Sort hash %infstaff and assign to stafflink.
	foreach $val(sort {$infstaff{$a} cmp $infstaff{$b} } keys %infstaff) {
	$stafflink .= '<li><a href="mailto:'.$val.'@universitet.se">'.$infstaff{$val}.'</a></li>';
	}

	# Sort hash %infother and assign to otherlink.
	foreach $val2(sort {$infother{$a} cmp $infother{$b} } keys %infother) {
	$otherlink .= '<li><a href="mailto:'.$val2.'@universitet.se">'.$infother{$val2}.'</a></li>';
	}

	# Create template for HTML.
	$htmldoc = "<html>\n <head><title>Users</title</head>
	<body>\n <h1>Users</h1>
	<h2>Staff</h2>\n <ul>$stafflink</ul>\n <h2>Others</h2>\n <ul>$otherlink</ul>
	</body>
	</html>";

	# Open users.html and print template ($htmldoc) to it.
	open (OUTPUTF, "> users.html") or die ("File users.html could not be opened. $!");
	print OUTPUTF $htmldoc;
	close (OUTPUTF);