http://bc-bd.org http://bc-bd.org/blog this is not a blog Fri, 26 Apr 2013 11:50:18 +0000 en hourly 1 http://wordpress.org/?v=3.3.2 Mojolicious and sprintf loggin http://bc-bd.org/blog/mojolicious/mojolicious-and-sprintf-loggin/ http://bc-bd.org/blog/mojolicious/mojolicious-and-sprintf-loggin/#comments Wed, 27 Feb 2013 16:33:16 +0000 bd http://bc-bd.org/blog/?p=327 Don’t want to write things like

app->log->debug("foo $config->{foo} versus ".stat->mtime." seconds");

but rather

app->log->debug("foo %s versus %d seconds", $config->{foo}, stat->mtime);

but Mojo::Log does not support that directly. You could use this:

app->log->debug(sprintf("foo %s  versus %d seconds", $config->{foo}, stat->mtime));

with the downside that sprintf() is called even if the message would not be logged due to your app’s log level being higher than that of the call.

Alternatively you could base your own logger class on Mojo::Log:

#!/usr/bin/perl

package My::Log;
use base Mojo::Log;

sub format {
        my ($self, $level, $format, @parameters) = @_;

        return $self->SUPER::format($level, sprintf($format, @parameters));
};

package main;

use Mojolicious::Lite;

app->log->error("this string %s printf %s", 'uses', 'stuff');
app->log->warn('decimal: %d hex: %x', 16, 16);
app->log->info('pi: %.2f', 3.14159265359);

And it’s output:

[Wed Feb 27 17:24:34 2013] [error] this string uses printf stuff
[Wed Feb 27 17:24:34 2013] [warn] decimal: 16 hex: 10
[Wed Feb 27 17:24:34 2013] [info] pi: 3.14
]]> http://bc-bd.org/blog/mojolicious/mojolicious-and-sprintf-loggin/feed/ 0 Mojolicious behind Apache with mod_proxy http://bc-bd.org/blog/mojolicious/mojolicious-behind-apache/ http://bc-bd.org/blog/mojolicious/mojolicious-behind-apache/#comments Wed, 27 Feb 2013 16:21:35 +0000 bd http://bc-bd.org/blog/?p=323 This is the only way I got an Mojolicious application to work behind an apache2 web server using mod_proxy.

Setting the base will make sure that your routes match the incoming URLs and that the right URL is used in redirects:

my $base = 'http://localhost:3000/app1';

hook 'before_dispatch' => sub {
        shift->req->url->base(Mojo::URL->new($base));
};

When using the style sheet or JavaScript helper a leading slash is important, else the path will be wrong:

%= stylesheet '/css/foo.css'

And this is the apache config snippet:

ProxyPass /app1 http://localhost:3000
ProxyPassReverse /app1 http://localhost:3000/app1

Note the missing /app1 at the end of the ProxyPass line.

The complete Mojolicious code:

#!/usr/bin/env perl
use Mojolicious::Lite;

use Time::HiRes qw/gettimeofday/;

my $base = 'http://localhost:3000/app1';

hook 'before_dispatch' => sub {
        shift->req->url->base(Mojo::URL->new($base));
};

under sub {
        shift->stash(now => join('.', gettimeofday()));
};

get '/' => sub {
        my $self = shift;
        $self->render('index');
} => 'index';

get '/foo' => sub {
        my $self = shift;
        $self->render('foo');
};

get '/redirect' => sub {
        my $self = shift;
        $self->redirect_to('foo');
};
 app->start;

__DATA__

@@ foo.html.ep
% layout 'default';
% title 'Foo';

@@ index.html.ep
% layout 'default';
% title 'index';

@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
  <head>
    %= stylesheet '/css/foo.css'
    <title><%= title %></title>
  </head>
  <body>
    <h1>Welcome to <%= title %></h1>
    <p>Now: <%= stash('now') %></p>
    <%= content %>
    <hr/>
    <ul>
     <li><%= link_to 'Index' => 'index' %></li>
     <li><%= link_to 'Foo' => 'foo' %></li>
     <li><%= link_to 'Redirect' => 'redirect' %>: Will redirect to foo</li>
    </ul>
  </body>
</html>

 

]]> http://bc-bd.org/blog/mojolicious/mojolicious-behind-apache/feed/ 0 Mojolicious and Linux::Inotify2 http://bc-bd.org/blog/mojolicious/mojolicious-and-linuxinotify2/ http://bc-bd.org/blog/mojolicious/mojolicious-and-linuxinotify2/#comments Tue, 26 Feb 2013 20:51:43 +0000 bd http://bc-bd.org/blog/?p=308 This is a tiny example on how to use Linux::Inotify2 from within a Mojolicious application to watch a file for modification. Note: this will not work with morbo.

You will need these modules:

  • Linux::Inotify2 - scalable directory/file change notification
  • EV – perl interface to libev, a high performance full-featured event loop
  • AnyEvent – the DBI of event loop programming
  • And of course Mojolicious

Steps to see the magic happen:

  1. Save the code below to /tmp/i.pl
  2. Create file to be watched: touch /tmp/foo
  3. Run your app (again, morbo will not work): /tmp/i.pl daemon
  4. In another shell, update the watched file: touch /tmp/foo

This is what Mojolicious should log:

[Tue Feb 26 21:22:09 2013] [info] Listening at “http://*:3000″.
Server available at http://127.0.0.1:3000.
[Tue Feb 26 21:22:13 2013] [debug] file changed
[Tue Feb 26 21:22:13 2013] [debug] file changed
[Tue Feb 26 21:22:13 2013] [debug] file changed

Code:

#!/usr/bin/perl

use Mojolicious::Lite;

use Linux::Inotify2;
use EV;
use AnyEvent;

sub file_changed {
        app->log->debug("file changed");
}

sub setup_notify {
        my $inotify = new Linux::Inotify2;
        $inotify->watch('/tmp/foo', IN_ALL_EVENTS, \
                \&file_changed);

        my $io = AnyEvent->io(
                fh => $inotify->{fd},
                poll => 'r',
                cb => sub { $inotify->poll }
        );

        return $io;
}

get '/' => sub { shift->render_text('index') };

my $io = setup_notify();

app->start();
]]> http://bc-bd.org/blog/mojolicious/mojolicious-and-linuxinotify2/feed/ 0 Hover 0.7.2 available http://bc-bd.org/blog/wordpress/hover-0-7-2-available/ http://bc-bd.org/blog/wordpress/hover-0-7-2-available/#comments Sat, 08 Oct 2011 14:59:11 +0000 bd http://bc-bd.org/blog/?p=254 This release fixes an interoperability issue with the Events Manager plugin. Thanks to Marcus Sykes for helping me narrow down the problem.

]]> http://bc-bd.org/blog/wordpress/hover-0-7-2-available/feed/ 0 Hover 0.7.1 available http://bc-bd.org/blog/foo/hover-0-7-1-available/ http://bc-bd.org/blog/foo/hover-0-7-1-available/#comments Thu, 15 Sep 2011 12:04:27 +0000 bd http://bc-bd.org/blog/?p=249 This release fixes undefined constant/variable warnings, an error during checks triggerd by a missing table, the has_cap deprecation warning and a bug where the activation hook may not be run.

Also Maintenance options have been added.

]]> http://bc-bd.org/blog/foo/hover-0-7-1-available/feed/ 0 Hover 0.7.0 available http://bc-bd.org/blog/wordpress/hover-0-7-0-available/ http://bc-bd.org/blog/wordpress/hover-0-7-0-available/#comments Fri, 09 Sep 2011 12:51:56 +0000 bd http://bc-bd.org/blog/?p=243 This release fixes the hidden screen options problem, updates the included xajax
to the latest stable version and disables websnapr support.

Also the script has been split up in smaller pieces, so that only what is needed
is loaded.

]]> http://bc-bd.org/blog/wordpress/hover-0-7-0-available/feed/ 0 hostapd, ath9k (AR9287) and Could not set interface mon.wlan0 flags: Unknown error 132 http://bc-bd.org/blog/debian/hostapd-ath9k-ar9287-and-could-not-set-interface-mon-wlan0-flags-unknown-error-132/ http://bc-bd.org/blog/debian/hostapd-ath9k-ar9287-and-could-not-set-interface-mon-wlan0-flags-unknown-error-132/#comments Sat, 20 Aug 2011 13:45:32 +0000 bd http://bc-bd.org/blog/?p=238 Turns out this error message meant, wireless radio is hard blocked by BIOS. So after enabling wireless radio in the BIOS, I now have a working access point.

]]> http://bc-bd.org/blog/debian/hostapd-ath9k-ar9287-and-could-not-set-interface-mon-wlan0-flags-unknown-error-132/feed/ 0 Hover 0.6.13 available http://bc-bd.org/blog/wordpress/hover-0-6-1-available/ http://bc-bd.org/blog/wordpress/hover-0-6-1-available/#comments Fri, 17 Sep 2010 09:22:36 +0000 bd http://bc-bd.org/blog/?p=227 Hover 0.6.13 adds support for predefined image popups and fixes a couple of bugs.

Image Popups

In the past hover could generate popups for all HTML tags (including <img>) from their title attribute. To have the same popup for an image you had to enter the same text every time you inserted that image. While this worked, it was tedious, error prone and hard to change later on.

Hover 0.6.13 now let’s you define a popup for an image once and every time you use that image, it will get the same popup. Popups are assigned to Images by their absolut URL.

Bugs fixed

  • cleanup and fixed plugin activation error detection, table creation and database checks
  • correctly set database schema version on first time install
  • HTML encode aposthrophe in popups, fixing possible javascript error
]]> http://bc-bd.org/blog/wordpress/hover-0-6-1-available/feed/ 0 Hover and Images in Tag Popups http://bc-bd.org/blog/wordpress/hover-and-images-in-tag-popups/ http://bc-bd.org/blog/wordpress/hover-and-images-in-tag-popups/#comments Fri, 25 Jun 2010 14:04:46 +0000 bd http://bc-bd.org/blog/?p=218 It is possible to add images to popups generated for tags, e.g. for links. Just hover over the “wordpress” category listed on the right.

What you need to do is to partially HTML encode your, well, HTML.

In order to display the image as shown in the category, enter this in the category’s description.

&lt;img src=\"images/powered/wordpress\" /&gt;

Be sure to amend the image path to your setup/image.

]]> http://bc-bd.org/blog/wordpress/hover-and-images-in-tag-popups/feed/ 0 Hover 0.6.12 available http://bc-bd.org/blog/wordpress/hover-0-6-12-available/ http://bc-bd.org/blog/wordpress/hover-0-6-12-available/#comments Wed, 23 Jun 2010 12:57:41 +0000 bd http://bc-bd.org/blog/?p=212 This release adds support for opening links in new windows.

]]> http://bc-bd.org/blog/wordpress/hover-0-6-12-available/feed/ 0