Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: [Free Nodelet Hack] Highlight monk names accordingly their XP level

by ig (Vicar)
on May 23, 2009 at 04:17 UTC ( #765794=note: print w/ replies, xml ) Need Help??


in reply to [Free Nodelet Hack] Highlight monk names accordingly their XP level

Since monks keep getting promoted, here is a script to regenerate the javascript from the current Saints in our Book:

use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; my $ua = LWP::UserAgent->new(); $ua->agent("MyApp/0.1"); my $req = HTTP::Request->new(GET => 'http://perlmonks.org/?node=Saints +%20in%20our%20Book'); my $res = $ua->request($req); unless($res->is_success) { die $res->status_line; } my $tree = HTML::TreeBuilder->new(); $tree->parse($res->content); $tree->eof(); print <<'EOF' ; <style type="text/css"> .Pope { font-weight: bold; color: #FF3010 !important; } .Apostle { font-weight: bold; color: #F84020 !important; } .Saint { font-weight: bold; color: #F44030 !important; } .Sage { font-weight: bold; color: #F04040 !important; } .Cardinal { font-weight: bold; color: #E04050 !important; } .Archbishop { font-weight: bold; color: #D04060 !important; } .Bishop { font-weight: bold; color: #C03070 !important; } .Chancellor { font-weight: bold; color: #B03080 !important; } .Canon { font-weight: bold; color: #A03090 !important; } .Abbot { font-weight: bold; color: #9030A0 !important; } .Monsignor { font-weight: bold; color: #8020B0 !important; } .Prior { font-weight: bold; color: #7020C0 !important; } .Parson { font-weight: bold; color: #6020D0 !important; } .Vicar { font-weight: bold; color: #5020E0 !important; } .Priest { font-weight: bold; color: #4010F0 !important; } .Curate { font-weight: bold; color: #3010FF !important; } .HighPriority { font-weight: bold; background-color: #FFFF00 !importan +t; } </style> <script type="text/javascript"> <!-- // "When a society has no colored pants to differentiate class... // ...it's a society without purpose" -- Wef // http://en.wikipedia.org/wiki/Kin-dza-dza! var SaintsBook = new Object(); EOF dump_saints($tree); print <<'EOF' ; function Colorize() { var links = document.links; for( var i=links.length-1; i>=0 ; --i ) if ( /\?node_id=(\d+)$/.test(links[i].href) && SaintsBook[RegE +xp.$1] ) links[i].className = SaintsBook[RegExp.$1]; } setTimeout('Colorize()', 600); // --> </script> EOF sub dump_saints { my $element = shift; if($element->tag() eq 'table') { my @contents = $element->content_list; if(@contents > 10) { # The saints table has lots of rows my %saints; shift(@contents); # The first row is headers foreach my $row (@contents) { my ($id) = (((($row->content_list())[1]->content_list( +))[0]->content_list())[0]->attr('href') =~ m/=(.*)/); my ($level) = ((($row->content_list())[3]->content_lis +t())[0] =~ m/([^ ]*)/); push(@{$saints{$level}}, $id); } foreach my $level (keys %saints) { print "var $level = [" . join(',',@{$saints{$level}}) +. "];\nfor( var i=$level.length-1; i>=0; i--) SaintsBook[$level\[i]] += '$level';\n\n"; } } } foreach my $e ($element->content_list()) { if(ref($e) and $e->isa('HTML::Element')) { dump_saints($e); } } }


Comment on Re: [Free Nodelet Hack] Highlight monk names accordingly their XP level
Download Code
Re^2: [Free Nodelet Hack] Highlight monk names accordingly their XP level
by ccn (Vicar) on May 25, 2009 at 21:27 UTC
    Thank you ig. Here is my stuff: I'd like to make a cgi version of that script but I have no suitable public site to publish it.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://765794]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2014-10-22 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (112 votes), past polls