nobuhito

// ==UserScript==
// @author         SATO Nobuhito
// @version        1.0
// @name           Gwitter
// @namespace      nobuhito.sato@gmail.com
// @description    google search with post to twitter
// @include        http://google.*/search*
// @include        http://www.google.*/search*
// ==/UserScript==
(function() {

nobuhito

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use Template;
use HTML::Prototype;
use utf8;

my $query = CGI->new;

nobuhito

#!/opt/local/bin/perl

use strict;
use warnings;

use Net::Growl;
use Net::IMAP::Simple;
use Email::MIME;
use YAML;
use File::HomeDir;

nobuhito

--- linum.el	2009-01-24 15:51:56.000000000 +0900
+++ linum.el.org	2008-08-29 16:52:14.000000000 +0900
@@ -138,7 +138,7 @@
                    ((eq linum-format 'dynamic)
                     (let ((w (length (number-to-string
                                       (count-lines (point-min) (point-max))))))
-                      (concat " %" (number-to-string w) "d ")))))
+                      (concat "%" (number-to-string w) "d")))))
         (width 0))
     (run-hooks 'linum-before-numbering-hook)

nobuhito

#!/opt/local/bin/perl

use strict;
use warnings;
use Web::Scraper;
use URI;
use YAML;
use Net::Growl;
use File::HomeDir;
use Storable qw/nstore retrieve/;

nobuhito

;; GNU Emacs 23.4.1 (i386-mingw-nt6.1.7600) of 2012-02-19 on GNUPACK
(when (eq window-system 'w32)
  (set-face-attribute 'default nil
                      :family "Inconsolata"
                      :height 120)
  (set-fontset-font nil 'japanese-jisx0208 (font-spec :family "Meiryo"))
  (set-fontset-font nil 'katakana-jisx0201 (font-spec :family "Meiryo"))
  (set-fontset-font nil 'japanese-jisx0212 (font-spec :family "Meiryo"))
)

nobuhito

function myFunction() {

  var auth_user = Session.getActiveUser().getEmail();
  var oauth = UrlFetchApp.addOAuthService('calendar');
  oauth.setConsumerKey("XXXXXXXXXXXXXXXXXXX");
  oauth.setConsumerSecret("XXXXXXXXXXXXXXXXXXXXXXX");
  oauth.setRequestTokenUrl("https://www.google.com/accounts/OAuthGetRequestToken?scope=https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fcalendar");
  oauth.setAuthorizationUrl("https://www.google.com/accounts/OAuthAuthorizeToken");
  oauth.setAccessTokenUrl("https://www.google.com/accounts/OAuthGetAccessToken");
  

nobuhito

#coding: UTF-8
# https://developers.google.com/google-apps/email-settings/?hl=ja#manage_filters
import gdata.apps.emailsettings.client

client = gdata.apps.emailsettings.client.EmailSettingsClient(domain='XXXXX.XXXX')
client.ClientLogin(email='XXXX@XXXX.XXXX', password='XXXXXXX', source='your-apps')
client.CreateFilter(username='XXXXX', subject=u"-招待 -invitation", has_the_word='filename:ics', label=u"カレンダー", archive=True, mark_as_read=True)

nobuhito

use strict;
use warnings;
use DBI;
use FindBin;
use Digest::MD5;
# use Data::Dumper;

my $host   = 'host';    # ホスト名
my $user   = 'user';    # ユーザー名
my $pass   = 'pass';    # パスワード

nobuhito

set SQL=select sysdate from dual;
@echo off
echo %SQL% > sql.sql
echo exit >> sql.sql
sqlplus XXXX/XXXX@XXXX @sql.sql