masartz

use strict;
use warnings;
use utf8;
use Plack::Request;
use HTTP::Entity::Parser;
use Hash::MultiValue;
use JSON;
use Data::Dumper;

my $parser = HTTP::Entity::Parser->new;

masartz

// Slackの Incoming webhooks の設定を済ませ、webhook URLを発行しておく
// ex: https://hooks.slack.com/services/AAAAA/BBBB/CCCC
const WEB_HOOK_URL = "";

// Slack通知時の設定
const SLACK_USER_NAME = 'bot user name';
const SLACK_ICON = ':hatching_chick:';

// 対象のコンテンツを選択: "document" or "spreadsheets"
const CONTENT_TYPE = "document";

masartz

package main

import (
	"bufio"
	"fmt"
	"os"
	"path/filepath"
	"regexp"
)

masartz

'use strict';

const functions = require('firebase-functions');

const dayNames = [
    '日曜日',
    '月曜日',
    '火曜日',
    '水曜日',
    '木曜日',

masartz

#!/usr/bin/env perl

use strict;
use warnings;

use File::Find;
use File::Slurp;
use Data::Dumper;
use List::MoreUtils;

masartz

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use File::Path;
use File::Slurp;
use JSON;

masartz

#!/usr/bin/env perl
use strict;   
use warnings; 
              
use Encode;   
use Pod::Simple::PullParser;
use File::Slurp qw/ read_dir/;
use Text::Xslate;
use Plack::Response;
              

masartz

require 'sinatra/base'
require 'sinatra/formkeeper'

class MainApp < Sinatra::Base
  register Sinatra::FormKeeper
  post '/input' do
    form do
      filters :strip
      field :username, :present => true, :length => 4..12
      field :old_password, :present => true, :length => 8..16

masartz

#!/usr/bin/perl 

use strict;
use warnings;

use Qudo;
my $qudo = Qudo->new(
    driver_class => 'Skinny',
    databases => [+{
        dsn      => 'dbi:mysql:qudo',

masartz

#!/usr/bin/perl 

use strict;
use warnings;
use Qudo;

my $qudo = Qudo->new(
    driver_class => 'Skinny',
    databases => [+{
        dsn      => 'dbi:mysql:qudo',