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.
78 lines
1.5 KiB
78 lines
1.5 KiB
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.10.0;
|
|
|
|
# we'll use this to filter out people who haven't logged in.
|
|
# pretty silly!
|
|
my %whitelist;
|
|
my (@lastlog) = split /\n/, `lastlog | grep -v Never | awk '{ print \$1; }'`;
|
|
foreach my $user (@lastlog) {
|
|
$whitelist{$user} = 1;
|
|
}
|
|
|
|
my $hostname = `hostname`;
|
|
chomp $hostname;
|
|
|
|
opendir(my $dh, '/home/')
|
|
or die "could not open /home/: $!";
|
|
|
|
my %dirs;
|
|
my %titles;
|
|
while (my $dir = readdir $dh) {
|
|
next if $dir =~ /^[.]/;
|
|
next unless $whitelist{$dir};
|
|
|
|
my $index_html_path = "/home/$dir/public_html/index.html";
|
|
|
|
if (-e $index_html_path) {
|
|
$dirs{$dir} = (stat $index_html_path)[9]; # mtime
|
|
$titles{$dir} = get_title_from_file($index_html_path);
|
|
}
|
|
}
|
|
close $dh;
|
|
|
|
sub sort_by_time {
|
|
$dirs{$b} <=> $dirs{$a};
|
|
}
|
|
|
|
my $list = "<table>\n";
|
|
foreach my $key (sort sort_by_time (keys(%dirs))) {
|
|
$list .= ' <tr>'
|
|
. '<td><a href="//' . $hostname . '/~' . $key . '/">~' . $key . '</a></td>'
|
|
. '<td>' . $titles{$key} . '</td>'
|
|
. '<td class=tiny>' . $dirs{$key} . '</td>'
|
|
. "</tr>\n";
|
|
}
|
|
|
|
$list .= "</table>";
|
|
|
|
say $list;
|
|
|
|
sub get_title_from_file {
|
|
my ($filespec) = @_;
|
|
my $html = slurp($filespec);
|
|
|
|
if ($html =~ m{<title>(.*?)</title>}is) {
|
|
return $1;
|
|
}
|
|
return '';
|
|
}
|
|
|
|
sub slurp {
|
|
my ($file) = @_;
|
|
my $everything;
|
|
|
|
open my $fh, '<', $file
|
|
or die "Couldn't open $file: $!\n";
|
|
|
|
# line separator:
|
|
local $/ = undef;
|
|
$everything = <$fh>;
|
|
|
|
close $fh
|
|
or die "Couldn't close $file: $!";
|
|
|
|
return $everything;
|
|
}
|