ryu22e

use strict;
use warnings;
use LWP::UserAgent;

# TODO Input your user id.
use constant WS_LOGIN_ID => '';
# TODO Input your password.
use constant WS_PASSWORD    => '';
use constant WS_API_URL  => 'http://api.wassr.jp/statuses/update.json';
use constant WS_API_NAME => 'test';

ryu22e

145c145,151
<     my $res = $self->{ua}->post( $self->{apiurl} . $api, content => $args, );
---
>     my $res;
>     if ($args->{image}) {
>         $res = $self->{ua}->post( $self->{apiurl} . $api, Content_Type => 'multipart/form-data', content => $args, );
>     }
>     else {
>         $res = $self->{ua}->post( $self->{apiurl} . $api, content => $args, );
>     }

ryu22e

// ==UserScript==
// @name Hide Twitter recommended users
// @namespace hide_twitter_recommended_users
// @description Twitterのおすすめユーザーを非表示にする。
// @include https://twitter.com/
// @include http://twitter.com/
// @require http://ajax.googleapis.com/ajax/libs/jquery/1.3.1/jquery.min.js
// @version 1.0
// ==/UserScript==
// Copyright (c) 2010 Ryuji Tsutsui <ryu22e@gmail.com>.

ryu22e

	private static Map<String, Object> type2PrimitiveValue;
	{
		type2PrimitiveValue = new HashMap<String, Object>();
		type2PrimitiveValue.put("boolean", true);
		type2PrimitiveValue.put("byte", (byte) 123);
		type2PrimitiveValue.put("short", (short) 123);
		type2PrimitiveValue.put("int", 123);
		type2PrimitiveValue.put("long", 123l);
		type2PrimitiveValue.put("float", 123f);
		type2PrimitiveValue.put("double", 123d);

ryu22e

	/**
	 * ここにテスト対象クラスの完全修飾名を入れる。
	 */
	private static String CLASS_NAME = "Sample";
	
	@Test
	public void testSample() throws Exception {
		try {
			Class<?> sampleClass = Class.forName(CLASS_NAME);
			Constructor<?>[] sample = sampleClass.getDeclaredConstructors();

ryu22e

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use File::Spec;
use FindBin;
use LWP::Simple;
use XML::RSS;
use DateTime::Format::DateParse;
use DateTime;

ryu22e

74a75,81
>           my $handler_eval = $this->config->handler;
>           if ($handler_eval) {
>               my $handler = eval $handler_eval;
>               if ($handler) {
>                   push(@data, handler => $handler); 
>               }
>           }

ryu22e

#!/bin/sh
CHANNEL_NAME=$1
if [ -z $CHANNEL_NAME ];
then
    echo "Channel name is empty." > /dev/fd/2
    exit 1
fi
TIARRA_PATH=/home/ryu22e/tiarra
FILE_NAME=`date '+%Y.%m.%d.txt'`
LOG_PATH=$TIARRA_PATH/log/$CHANNEL_NAME/$FILE_NAME

ryu22e

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use HTTP::Request::Common;
use LWP::UserAgent;

# TODO ここにログインIDを入れる
use constant LOGIN_ID => '';
# TODO ここにパスワードを入れる

ryu22e

do shell script "/opt/local/bin/synergys --daemon"