wakaba

# -*- Makefile -*-
CARTON = local/carton/bin/carton
CARTON_LIB = local/carton/lib/perl5
PERL = perl
CPANM = $(PERL) local/carton/cpanm
CPANM_ = $(CPANM) --notest --verbose -l local/carton --reinstall
CPANM_PATH = local/carton
PERL_PATH = local/dummy/path/to/perl
SSH = ssh

wakaba

    require Parse::Netstat;
 
    my $timer; $timer = AnyEvent->timer(
        interval => 0.6,
        cb => sub {
            my $netstat;
            AnyEvent::Util::run_cmd(
                'LANG=C netstat --inet --inet6 -n -p -l',
                '>' => \$netstat,
                '2>' => \(my $dummy),

wakaba

#!/usr/bin/perl
use strict;
BEGIN {
    my $file_name = __FILE__;
    $file_name =~ s{[^/\\]+$}{};
    $file_name ||= '.';
    $file_name .= '/../config/perl/libs.txt';
    open my $file, '<', $file_name or die "$0: $file_name: $!";
    unshift @INC, split /:/, scalar <$file>;
}

wakaba

NAME

screenlist - List of screens

INSTALL

Add following lines to ~/.bashrc:

perl ~/screenlist/add.pl
alias s="perl ~/screenlist/run.pl"

wakaba

use Test::More tests => 2;
 
push @Class1::ISA, qw(Base1 Base2);
sub Base2::hoge { 0 }
 
{
    local *Base1::hoge = sub { 1 };
    ok +Class1->hoge;
}
 

wakaba

# ------ Configuration files ------

config-all: config-cron

config-cron:
	mkdir -p local/config/cron.d
	cd config/cron.d.src && find -type f | \
            xargs -l1 -i% -- sh -c "cat % | sed 's/@@ROOT@@/$(subst /,\\/,$(abspath .))/g' > ../../local/config/cron.d/%"

# ------ Sync operations ------

wakaba

*~
/deps/
/local/
/perl
/prove
/plackup
/Makefile.setupenv
/cin
/config/perl/libs.txt

wakaba

require 'rubygems'
require 'sinatra'
require 'oauth'
require 'erb'
require 'json'

set :sessions, true
enable :sessions

before do

wakaba

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Mojolicious::Lite;
use OAuth::Lite::Consumer;
use OAuth::Lite::Token;
use JSON;

wakaba

    use AnyEvent::Util;
    return sub {
        return sub {
            my $writer = $_[0]->([200, []]);
            AnyEvent::Util::run_cmd(['ls'], '>' => sub {
                $writer->write($_[0]) if defined $_[0];
                $writer->write("Closed\n") unless defined $_[0];
            })->cb(sub {
                $writer->write('End');