nicomen

#!/usr/bin/perl

my @tests = (
    "redo meetv-backend",
    "redo meetv-backend on jessie",
    "redo meetv-backend MTW-320 on jessie",
    "redo meetv-backend develop",
    "redo",
);

nicomen

127.0.0.1 "-" abcnyheter.no www.abcnyheter.no - [30/Jan/2014:13:42:23 +0100] "HEAD / HTTP/1.1" 200 - 1 "-" "-"
127.0.0.1 "192.168.30.138, 77.40.177.15" abcnyheter.no dev.abcnyheter.no - [30/Jan/2014:13:42:30 +0100] "GET / HTTP/1.1" 200 18551 0 "-" "Desktop"
127.0.0.1 "192.168.30.138, 77.40.177.15" abcnyheter.no dev.abcnyheter.no - [30/Jan/2014:13:42:30 +0100] "GET /logginn HTTP/1.1" 302 20 0 "http://dev.abcnyheter.no/" "Desktop"
127.0.0.1 "192.168.30.138" abcnyheter.no dev.abcnyheter.no - [30/Jan/2014:13:42:31 +0100] "GET /typekey/return?referer=http://dev.abcnyheter.no/&givenName=TestFirstName&sn=TestLastName&name=2d930ccc-1d431033-81a26513-b106483d&nick=TestFirstName%20TestLastName&email=news-team%40startsiden.no&ts=1391085751&sig=balSwqnqDUYn8nn3aCV%2FN%2FaZM1s%3D%3AD3yLWJ5auDPZhRR8egjU%2FpISJoM%3D HTTP/1.1" 302 20 1 "http://dev.abcnyheter.no/logginn" "Desktop"
127.0.0.1 "192.168.30.138" abcnyheter.no dev.abcnyheter.no - [30/Jan/2014:13:42:32 +0100] "GET /typekey/register/confirm?referer=http%3A%2F%2Fdev.a

nicomen

package Invoke::IfObject;
use strict;
use warnings FATAL => 'all';
use Scalar::Util qw(blessed);
#use Exporter 5.57 qw(import);
our @EXPORT = qw($then);
sub AUTOLOAD {
    return;
}
our $then = sub { return blessed($_[0]) ? $_[0] : bless {} };

nicomen

#!/usr/bin/perl
package Invoke::IfObject;
use strict;
use warnings FATAL => 'all';
use Scalar::Util qw(blessed);
#use Exporter 5.57 qw(import);
our @EXPORT = qw($then);
sub AUTOLOAD {
    return;
}

nicomen

#!/usr/bin/perl
package Invoke::IfObject;
use strict;
use warnings FATAL => 'all';
use Scalar::Util qw(blessed);
#use Exporter 5.57 qw(import);
our @EXPORT = qw($then);
sub AUTOLOAD {
    return;
}

nicomen

#!/usr/bin/perl
package Invoke::IfObject;
use strict;
use warnings FATAL => 'all';
use Scalar::Util qw(blessed);
our @EXPORT = qw($then);
sub AUTOLOAD {
    return;
}
our $then = sub { return blessed($_[0]) ? $_[0] : bless {} };

nicomen

Call for papers / Call for speakers - Mojoconf 2014

TLDR; 
 * CfP Mojoconf 2012
 * Date: 2014-03-24
 * Deadline: 2014-03-15
 * Submit 20min/40min talks: http://www.mojoconf.org/mojo2014/newtalk

As previously announced the first Mojolicious related conference ever, Mojoconf 2014, will be hosted by Oslo.pm in Oslo, Norway during the weekend of May 23rd to 25th.
 

nicomen

Call for papers / Call for speakers - Mojoconf 2014

TL;DR
 * CfP Mojoconf 2012
 * Date: 2014-03-24
 * Deadline: 2014-03-15
 * Submit 20min/40min talks: http://www.mojoconf.org/mojo2014/newtalk

As previously announced the first Mojolicious related conference ever, Mojoconf 2014, will be hosted by Oslo.pm in Oslo, Norway during the weekend of May 23rd to 25th.
 

nicomen

$routes->get('/:category/:year/:month/:day/:seo_title' => [ year => qr/\d{4}/, month => qr/\d{2}/, day => qr/\d{2}/ ] )
       ->to( cb => sub {
            my ($self) = shift;
            my $id = _lookup_id_by_title($self->stash->{seo_title});
            $self->redirect_to('article', { id => $id });
        });

nicomen

# 404 på nye siten

nicolasm@cantona:~$ sudo grep 404 /var/log/nginx/startsiden_fotball.access.log | tail -n 1000 | cut -f7 -d" " | grep -v ^/sites | sort | uniq -c | sort -n -r | head
      7 /apple-touch-icon-precomposed.png
      5 /misc/drupal.js?p
      4 /static/components/emediate-loader/undefined
      4 /nyheter/
      4 /apple-touch-icon.png
      3 /static/js/polyfills/placeholder.js?v=308c34
      3 /partner/spill/abcnyheter.no