… | |
… | |
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 | } |