yseto

#!/usr/bin/env perl
use DBIx::Simple;
use strict;
use warnings;
use utf8;

#
#C:\Users\Username\AppData\Roaming\Skype\Skype Account Name\main.db
#
my $html = <<HTML;

yseto

#!/usr/bin/env perl

#
# Copyright 2013 yseto
# Released under the MIT License - Please reuse change and share
#

use strict;
use warnings;
use utf8;

yseto

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use DBIx::Custom;
use DBIx::Connector;
use Encode;

my $connector =

yseto

#!/usr/bin/env perl
use strict;
use warnings;
use 5.12.1;
use utf8;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Data::Recursive::Encode;
use Encode;

yseto

#!/bin/bash

if [ -f $1 ]; then
rm tmp.aac
OUTPUT=`basename $1 .mid`
timidity -Ow -o - $1 | avconv -i - -acodec aac -strict experimental -ab 128k tmp.aac
MP4Box -add tmp.aac $OUTPUT.m4a
rm tmp.aac
ls -l $OUTPUT.m4a
fi

yseto

diff --git CMakeLists.txt CMakeLists.txt
index 2f76264..7e6d920 100644
--- CMakeLists.txt
+++ CMakeLists.txt
@@ -346,6 +346,7 @@ IF (WITH_MRUBY)
     TARGET_LINK_LIBRARIES(h2o
         "${CMAKE_BINARY_DIR}/mruby/host/lib/libmruby.a"
         "${CMAKE_BINARY_DIR}/mruby/host/mrbgems/mruby-onig-regexp/Onigmo-Onigmo-5.15.0/.libs/libonig.a"
+        "GeoIP"
         "m")

yseto

class CountryDeniedViaGeoIP
  @@geoip = nil
  def call(env)
    if @@geoip == nil
      @@geoip = GeoIP.new("/usr/share/GeoIP/GeoIPCity.dat")
    end
    @@geoip.record_by_addr env["REMOTE_ADDR"]
    ret = [399, {}, []]
    if @@geoip.country_code != "JP"
      ret = [403, {'content-type' => 'text/plain'}, [ "forbidden" ]]

yseto

#!/bin/bash

USER=
SERVERNAME=
SSHPORT=
HOST=$USER@$SERVERNAME
TUNNELPORT=

IDENTIFY=