fuba

// ==UserScript==
// @name           Motsu Tabetai
// @namespace      http://ikenie.com/
// @include        *
// @require        http://gist.github.com/raw/3242/1a7950e033a207efcfc233ae8d9939b676bdbf46
// @require        http://gist.github.com/raw/34615/04333b7e307eb029462680e4f4cf961f72f4324c
// ==/UserScript==

(function() {
  var DATABASE_URL = 'http://wedata.net/databases/Motsu/items.json';

fuba

// ==UserScript==
// @name           Motsu Tabetai
// @namespace      http://ikenie.com/
// @include        *
// @require        http://gist.github.com/raw/3242/1a7950e033a207efcfc233ae8d9939b676bdbf46
// @require        http://gist.github.com/raw/34615/04333b7e307eb029462680e4f4cf961f72f4324c
// ==/UserScript==

(function() {
  var DATABASE_URL = 'http://wedata.net/databases/Motsu/items.json';

fuba

  - module: Filter::EntryFullText::LDRFullFeed
    config:
      force_upgrade: 1
      alternative_siteinfo: http://utatane.appjet.net/databases/LDRFullFeed/items.json
      force_alternative_siteinfo: 1

fuba

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

use Encode;
use Getopt::Long;

use URI;
use LWP::UserAgent;
use HTTP::Cookies::Guess;

fuba

plugins:
  - module: Subscription::Config
    config:
      feed:
        - url: http://twitter.com/fuba
          meta:
            follow_xpath: //span[contains(@class, 'entry-content')]/a
  
  - module: CustomFeed::Simple

fuba

sub capture_thumbnails {
    my %opt = @_;
    my $file = $opt{file} or die;

    my $offset = $opt{offset} || 0;

    my @stats = stat($file);
    my $deflength = 60 * ($stats[7]/120000000);

    my $un_reset = $opt{un_reset};

fuba

541             my $reqtype = ( ( $method_def->{post} ) || ( (defined $args) && $args->{post} ) ) ? "POST" : "GET";

fuba

sub text_boxing {
    my %opt = @_;
    my $m = $opt{message};
    my $ngwords = $opt{ngwords};
    
    return if (grep {my $ngword = $_; $m =~ /$ngword/} @$ngwords);

    $m =~ s/(\@[^\s]+\s+)+//;
    my @arms = qw/= ≡ - - - - -=≡ ≡=- 〜/;
    push @arms, '';

fuba

sub is_my_reply {
    my $text = shift;
    
    for my $nickname (@nicknames) {
        if ($text =~ s/\@$nickname//) {
            return $text;
        }
    }
    
    return;

fuba

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

use URI::Escape qw(uri_escape_utf8 uri_unescape);
use File::Slurp;
use Encode;

use constant DIR => '/Volumes/sanjou530/friio/'; # edit here