anazawa

# Daemonize
vi /usr/local/etc/jetty/jetty
echo jetty_enable="YES" >> /etc/rc.conf
service jetty start

anazawa

#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw/rename/;
use Archive::Zip qw/AZ_OK/;
use Getopt::Long qw/GetOptions/;
use HTTP::Tiny;
use Path::Class qw/tempdir/;
use Pod::Usage qw/pod2usage/;
use Time::HiRes qw/sleep/;

anazawa

Basic Structure

SGF's Node is JSON's object

A node is an object whose keys are property names and whose values are the corresponding values. The value types are defined later.

SGF:

anazawa

package Goban;
use strict;
use warnings;
use parent 'Games::Go::SimpleBoard';
use Games::Go::SimpleBoard;
use Goban::Image;

sub new {
    my $class = shift;
    my $size  = shift || 19;

anazawa

#!/usr/bin/env perl
use 5.014_004;
use strict;
use warnings;
use List::Util qw/first/;
use Time::Piece;
use Time::Seconds;

our $VERSION = '0.03';

anazawa

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

our $VERSION = '0.02';

my $file_system     = shift || '/';
#my $backupdir  = '/backup/esprimo';

anazawa

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

our $VERSION = '0.01';

my $device     = '/dev/ada0p2';
#my $backupdir  = '/backup/esprimo';

anazawa

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

our $VERSION = '0.01';

my $device     = '/dev/ada0p2';
#my $backupdir  = '/backup/esprimo';

anazawa

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $filesystem = shift || '/dev/ada0p2';
my %alias = ( '/dev/ada0p2' => 'root' );
my $backupdir = '/backup';

anazawa

package Blosxom::Header;
use strict;
use warnings;
use parent 'CGI::Header::Props';

our $INSTANCE;

sub new {
    require Carp;
    Carp::croak "Private method 'new' called for $_[0]";