otsune

#!/usr/bin/perl
use strict;
use warnings;

use Web::Scraper;
use URI;

#my $stage = shift || ''; 

my $uri = URI->new( "http://www.jp.playstation.com/psworld/movie/" );

otsune

From 84cb172c78a37447fed916d1846be8d65692709d Mon Sep 17 00:00:00 2001
From: Masafumi Otsune <[email protected]>
Date: Fri, 16 Jan 2009 09:32:08 +0900
Subject: [PATCH] Add scraper for egashira

---
 root/plugins/tfmplus.com/scraper-ppp.pl |   19 +++++++++++++++++++
 1 files changed, 19 insertions(+), 0 deletions(-)
 create mode 100644 root/plugins/tfmplus.com/scraper-ppp.pl

otsune

From a6b034b034056fdc02585e9d3e85fa85f64f4c72 Mon Sep 17 00:00:00 2001
From: Masafumi Otsune <[email protected]>
Date: Fri, 16 Jan 2009 14:23:00 +0900
Subject: [PATCH] add date filter

---
 root/plugins/animate.tv/scraper-webradio.pl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/root/plugins/animate.tv/scraper-webradio.pl b/root/plugins/animate.tv/scraper-webradio.pl

otsune

From d88c2b2cc0004587fcf04f485d6cf5a8b61240f4 Mon Sep 17 00:00:00 2001
From: Masafumi Otsune <[email protected]>
Date: Wed, 21 Jan 2009 03:51:36 +0900
Subject: [PATCH] Add scraper for Macross Frontier Web Radio

---
 root/plugins/macrossf.com/scraper.pl |   27 +++++++++++++++++++++++++++
 1 files changed, 27 insertions(+), 0 deletions(-)
 create mode 100644 root/plugins/macrossf.com/scraper.pl

otsune

#!/usr/local/bin/perl
#
# $Id: perleval.pl,v 0.3 2009/03/10 12:53:50 dankogai Exp dankogai $
#
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Safe;
use JSON::XS;

otsune

// ==UserScript==
// @name           use Perl Journal: Add title with journal title
// @namespace      http://www.otsune.com/
// @include        http://use.perl.org/~*/journal/*
// @require        http://gist.github.com/3242.txt
// ==/UserScript==

(function() {
  var journaltitle = $X('id("journalslashdot")/div[@class="title"]/h3')[0].textContent;
    document.title = journaltitle + ' - ' + document.title;

otsune

#!/usr/bin/perl 
use strict;
use warnings;

use WebService::Simple;
use Data::Dumper;

my $nlwnew_version = "0.9.2";

my $nlwnew = WebService::Simple->new(

otsune

{
  "name": "Chrome Keyconfig", 
  "version": "1.5.3", 
  "normal_actions": {
    "j": {
      "name": "scroll down", 
      "args": []
    }, 
    "k": {
      "name": "scroll up", 

otsune

// ==UserScript==
// @name           PDF/PPT viewer with Google docs
// @namespace      http://www.otsune.com/
// @include        http://*
// @include        https://*
// @exclude        http://docs.google.com/*
// @version        0.3
// ==/UserScript==
// Based on http://d.hatena.ne.jp/blooo/20100118/1263818555
// http://coderepos.org/share/browser/lang/javascript/userscripts/pdfppt_viewer_with_google.user.js?

otsune

// Copyright (C) 2005, temp_h.
// Released under the GPL license
// http://www.gnu.org/copyleft/gpl.html
//
// ==UserScript==
// @name           Disable HATENA keyword
// @namespace      http://www.pandora.nu/tempo-depot/js
// @description    Disable HATENA keyword ancher. Ancher nodes will be replaced with span nodes.
// @author         temp_h <[email protected]>
// @include        http://d.hatena.ne.jp/*