{"id":391,"date":"2011-09-14T14:15:11","date_gmt":"2011-09-14T14:15:11","guid":{"rendered":"http:\/\/psyphi.net\/blog\/?p=391"},"modified":"2011-09-14T14:18:41","modified_gmt":"2011-09-14T14:18:41","slug":"jenkins-dashboard","status":"publish","type":"post","link":"https:\/\/psyphi.net\/blog\/2011\/09\/jenkins-dashboard\/","title":{"rendered":"A Simple Continuous Integration (Jenkins) Dashboard"},"content":{"rendered":"

I had 15 minutes today to produce a wall-mounted-screen-compatible dashboard for showing the latest build statuses from our Jenkins continuous integration manager. It’s written in Perl and uses a few CPAN modules – XML::Simple<\/a>, LWP::Simple<\/a> and Readonly<\/a>.<\/p>\n

This is what it looks like:<\/p>\n

\"\"<\/p>\n

and here’s the code:<\/p>\n

#!\/usr\/local\/bin\/perl -T\r\nuse strict;\r\nuse warnings;\r\nuse XML::Simple;\r\nuse LWP::Simple qw(get);\r\nuse Carp;\r\nuse English qw(-no_match_vars);\r\nuse Readonly;\r\n\r\nReadonly::Scalar our $CI      => q[http:\/\/my.ci.server\/rssLatest];\r\nReadonly::Scalar our $COLUMNS => 6;\r\n\r\nmy $str     = get($CI);\r\nmy $xml     = XMLin($str);\r\nmy @entries = map { $xml->{entry}->{$_} } sort keys %{$xml->{entry}};\r\n\r\nprint <<\"EOT\" or croak qq[Error printing: $ERRNO];\r\nContent-type: text\/html\r\n\r\n<html>\r\n <head>\r\n  <title>Continuous Integration HUD<\/title>\r\n  <meta http-equiv=\"refresh\" content=\"120; url=$ENV{SCRIPT_NAME}\"\/>\r\n  <style type=\"text\/css\">\r\n.stable { background-color: green }\r\n.unstable { background-color: yellow }\r\n.broken { background-color: red }\r\ntable { margin: 0 auto; }\r\na { font-size: bigger; text-decoration: none; color: black; }\r\n  <\/style>\r\n  <script src=\"http:\/\/ajax.googleapis.com\/ajax\/libs\/jquery\/1.6.4\/jquery.min.js\"><\/script>\r\n  <script type=\"text\/javascript\">\r\n\\$(document).ready(redraw);\r\n\\$(window).resize(redraw);\r\n\r\nfunction redraw() {\r\n   \\$('tr').height((\\$(window).height()-60)\/\\$('tr').size());\r\n   \\$('td').width((\\$(window).width()-60)\/\\$('tr').first().find('td').size());\r\n}\r\n  <\/script>\r\n <\/head>\r\n <body>\r\nEOT\r\n\r\nprint qq[<table>\\n] or croak qq[Error printing: $ERRNO];\r\nwhile(scalar @entries) {\r\n  print qq[ <tr>\\n] or croak qq[Error printing: $ERRNO];\r\n  for my $j (1..$COLUMNS) {\r\n    my $entry = shift @entries;\r\n    if(!$entry) {\r\n      last;\r\n    }\r\n\r\n    my $title = $entry->{title};\r\n    my $class = q[stable];\r\n    $class    = ($title =~ \/unstable\/smx) ? 'unstable' : $class;\r\n    $class    = ($title =~ \/broken\/smx)   ? 'broken'   : $class;\r\n    $title    =~ s{\\s+[(].*?$}{}smx;\r\n\r\n    my $href = $entry->{link}->{href};\r\n    print qq[  <td class=\"$class\"><a href=\"$href\">$title<\/a><\/td>] or croak qq[Error printing: $ERRNO];\r\n  }\r\n  print qq[ <\/tr>\\n] or croak qq[Error printing: $ERRNO];\r\n}\r\nprint qq[<\/table>\\n] or croak qq[Error printing: $ERRNO];\r\n\r\nprint <<'EOT' or croak qq[Error printing: $ERRNO];\r\n <\/body>\r\n<\/html>\r\nEOT<\/pre>\n","protected":false},"excerpt":{"rendered":"
I had 15 minutes today to produce a wall-mounted-screen-compatible dashboard for showing the latest build statuses from our Jenkins continuous integration manager. It’s written in Perl and uses a few CPAN modules – XML::Simple, LWP::Simple and Readonly. This is what it looks like: and here’s the code: #!\/usr\/local\/bin\/perl -T use strict; use warnings; use XML::Simple; … Continue reading “A Simple Continuous Integration (Jenkins) Dashboard”<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[11,17],"tags":[424,664],"class_list":["post-391","post","type-post","status-publish","format-standard","hentry","category-programming","category-sysadmin","tag-dashboard","tag-jenkins"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t