| … | |
… | |
| 905 | for 0 .. $#col; |
905 | for 0 .. $#col; |
| 906 | |
906 | |
| 907 | my @align = qw(1 0 1 1 -1); |
907 | my @align = qw(1 0 1 1 -1); |
| 908 | |
908 | |
| 909 | my $y = 0; |
909 | my $y = 0; |
| 910 | for my $m ( |
|
|
| 911 | sort { |
|
|
| 912 | $b->{version} <=> $a->{version} |
|
|
| 913 | or $b->{users} <=> $a->{users} |
|
|
| 914 | } |
|
|
| 915 | @{ $msg->{servers} } |
910 | for my $m (@{ $msg->{servers} }) { |
| 916 | ) { |
|
|
| 917 | my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = |
911 | my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) = |
| 918 | @$m{qw(ip age hostname users version description ibytes obytes uptime)}; |
912 | @$m{qw(ip age hostname users version description ibytes obytes uptime highlight)}; |
| 919 | |
913 | |
| 920 | for ($desc) { |
914 | for ($desc) { |
| 921 | s/<br>/\n/gi; |
915 | s/<br>/\n/gi; |
| 922 | s/<li>/\n· /gi; |
916 | s/<li>/\n· /gi; |
| 923 | s/<.*?>//sgi; |
917 | s/<.*?>//sgi; |
| … | |
… | |
| 953 | max_w => $::WIDTH * 0.4, |
947 | max_w => $::WIDTH * 0.4, |
| 954 | ellipsise => 0, |
948 | ellipsise => 0, |
| 955 | align => $align[$_], |
949 | align => $align[$_], |
| 956 | text => $m->[$_], |
950 | text => $m->[$_], |
| 957 | tooltip => $tip[$_], |
951 | tooltip => $tip[$_], |
| 958 | fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]), |
952 | fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]), |
| 959 | can_hover => 1, |
953 | can_hover => 1, |
| 960 | can_events => 1, |
954 | can_events => 1, |
| 961 | fontsize => 0.8) |
955 | fontsize => 0.8) |
| 962 | for 0 .. $#$m; |
956 | for 0 .. $#$m; |
| 963 | } |
957 | } |
