forked from ternence-li/diablo2-1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
LoginHighscore.pl
66 lines (53 loc) · 1.51 KB
/
LoginHighscore.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/perl
# use maximum number of lines to print as first argument
# if you dont, it will print every line
use integer;
my $usersdir = "/home/diablo/var/users";
my %times;
my %diffs;
my $max;
if($ARGV[0]) {
$max = $ARGV[0];
} else {
$max = -1;
}
foreach my $user(<$usersdir/*>) {
next unless(-f $user && -r $user);
open(USERFILE, "$user");
my @data = grep(/^\"BNET\\\\acct\\\\lastlogin_time\"=\"/, <USERFILE>);
close(USERFILE);
foreach(@data) {
chomp();
$username = $user;
$username =~ s|^.*/||g;
m/^\"BNET\\\\acct\\\\lastlogin_time\"=\"(.*)\"$/;
$times{$1} = $username;
}
}
my $i=1;
foreach(sort keys %times) {
printf "%3d ", $i++;
print $times{$_};
print " " x (15 - length($times{$_}));
print " => Last login: ", timeoutput($_), " ";
print " => ", timeago(time - $_), "\n";
last unless(--$max);
}
sub timeoutput {
my $timestamp = shift;
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($timestamp);
$year += 1900;
return sprintf("%4d-%02d-%02d, %02d:%02d:%02d", $year, $mon+1, $mday+1, $hour, $min, $sec);
}
sub timeago {
my $timediff = shift;
my $days, $hours, $minutes, $seconds;
$days = int($timediff / (60*60*24));
$timediff -= $days*60*60*24;
$hours = int($timediff / (60*60));
$timediff -= $hours*60*60;
$minutes = int($timediff / 60);
$timediff -= $minutes*60;
$seconds = $timediff;
return sprintf("%3d days, %2d hours, %2d minutes, %2d seconds ago", $days, $hours, $minutes, $seconds);
}