Skip to content

Instantly share code, notes, and snippets.

View ktat's full-sized avatar

Atsushi Kato ktat

45 followers · 19 following
View GitHub Profile
@ktat
ktat / gist:ee7da7230897b28c677455e48d18d098
Created August 18, 2021 04:50
東京の大規模接種会場用のBookmarklet(東京用)
// 自治体番号と自分の番号と生年月日を埋めて、Bookmarkに登録。フォームが表示された後に実行すればsubmitまでします。
// https://www.vaccine.mrso.jp/
javascript:(function(){document.getElementById("VisitnoAuthName").value="自治体番号"; document.getElementById("VisitnoAuthVisitno").value="個人用の番号";$("#VisitnoAuthYear").val("生年").change();$("#VisitnoAuthMonthMonth").val("月").change();$("#VisitnoAuthDayDay").val("日").change();$("button.auth-btn").click();})()
@ktat
ktat / dbd-mysql-mysql_insertid.pl
Last active June 11, 2016 11:14
DBD::mysql mysql_insertid returns 0
## version
# Perl 5.18.1
# DBI 1.636
# DBD::mysql 4.033
## create table SQL
# create table t(id integer not null auto_increment, primary key (id)) ;
## this can get mysql_insertid
my $dbh = DBI->connect("dbi:mysql:test;user=root");
@ktat
ktat / Install.pm
Last active November 10, 2017 05:26 — forked from ctyo/Install.pm
FreeStyleWiki上でMarkdown記法での記入を可能にするプラグイン
############################################################
#
# FreeStyleWiki上でMarkdown記法での記入を可能にします。
#
############################################################
package plugin::markdown::Install;
use strict;
sub install {
my $wiki = shift;
@ktat
ktat / gist:2ef7f2610576a917c06f
Last active August 29, 2015 14:22 — forked from S2/gist:faed4544940c63aad945
use base qw/Qudo::Worker/;
sub import{
my $class = shift;
if($class->split_process_from_initial_character()){
no strict 'refs';
my $package = $class;
*{"$package\::InitialLowerCase::ISA"} = [$package];
*{"$package\::InitialUpperCase::ISA"} = [$package];
*{"$package\::InitialNumber::ISA"} = [$package];
*{"$package\::get_splited_worker_classname"} = sub {
@ktat
ktat / gist:5e54ae2a9118e05651b1
Last active August 29, 2015 14:22 — forked from S2/gist:bcdc6aafdb831b9d8f44
#!/usr/bin/env perl
use feature 'say';
package Hoge{
sub new {
my $class = shift;
my $args = ref $_[0] ? $_[0] : +{@_};
bless $args, $class;
}
@ktat
ktat / gist:902a9996de10eb9e40b7
Last active August 29, 2015 14:22 — forked from S2/gist:bcdc6aafdb831b9d8f44
#!/usr/bin/env perl
package Hoge{
sub new {
my $class = shift;
my $args = ref $_[0] ? $_[0] : +{@_};
$args->{package} = __PACKAGE__;
bless $args, $class;
}
@ktat
ktat / goto_test.pl
Created May 20, 2015 08:08
#!/usr/bin/perl
use strict;
use warnings;
package Test;
use Carp;
sub hoge {
@ktat
ktat / gist:9597471
Created March 17, 2014 11:07
use Data::Delay;
my $test = 1;
my $data = Data::Delay->new(\$test);
print $data; # 1
$test = 2;
print $test; # 2
my $plus = Data::Delay->New(sub { $data + 2 });
@ktat
ktat / gist:6176076
Last active December 20, 2015 18:29
patch for backlogs plugin v0.9.26 add start date, due date, progress when creating task. change progress to 100% and due_date is current date if empty when task is finished. start_date is null when task is created. start_date is set as current date when task's start date is null and task is moved to in progress.
diff --git a/app/models/rb_task.rb b/app/models/rb_task.rb
index fae445f..f64a748 100644
--- a/app/models/rb_task.rb
+++ b/app/models/rb_task.rb
@@ -36,7 +36,9 @@ class RbTask < Issue
task = new(attribs)
if params['parent_issue_id']
parent = Issue.find(params['parent_issue_id'])
- task.start_date = parent.start_date
+ if ! task.start_date
@ktat
ktat / gist:3871366
Created October 11, 2012 10:01
diff --git a/lib/Router/Simple/Route.pm b/lib/Router/Simple/Route.pm
index 6c5ba4a..2e664f1 100644
--- a/lib/Router/Simple/Route.pm
+++ b/lib/Router/Simple/Route.pm
@@ -33,7 +33,7 @@ sub new {
}
$row->{pattern} = $pattern;
-
+ my $pattern_re_capture = $pattern;