Skip to content

Instantly share code, notes, and snippets.

diff --git a/lib/MENTA.pm b/lib/MENTA.pm
index a68fa7a..9fc6d1e 100644
--- a/lib/MENTA.pm
+++ b/lib/MENTA.pm
@@ -272,13 +272,32 @@ sub static_file_path {
# HTTP の入り口んとこで decode させる用
sub decode_input {
- my ($txt, $fb) = @_;
- if (MENTA->context->config->{menta}->{support_mobile}) {
@poppen
poppen / wassr_pt_send.pl
Created September 10, 2009 09:37
Sending Private Timeline on Wassr
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode;
use Getopt::Long;
use Config::Pit;
use WWW::Wassr;
--- tinytinyhttpd-0.0.9.orig/httpd.cxx 2009-10-07 20:57:11.000000000 +0900
+++ tinytinyhttpd-0.0.9/httpd.cxx 2009-11-01 09:30:54.000000000 +0900
@@ -1734,7 +1734,7 @@
#if defined LINUX_SENDFILE_API
sent = sendfile(msgsock, fileno(res_info->read), NULL, total);
#elif defined FREEBSD_SENDFILE_API
- sendfile(msgsock, fileno(res_info->read), total, &sent, NULL, 0);
+ sent = sendfile(msgsock, fileno(res_info->read), NULL, total, NULL, NULL, 0);
#elif defined _WIN32
if (!res_info->process && lpfnTransmitFile && lpfnTransmitFile(
$HTTP["url"] =~ "^/\." {
url.access-deny = ( "" )
}
" gist.vim
if exists('$HOME') && filereadable($HOME . '/.vim/plugin/gist.vim')
let g:github_user='poppen'
let g:github_token=github_token
endif
@poppen
poppen / rakuten_super_point.pl
Created March 13, 2010 13:04
emailing rakuten super point
#!/usr/bin/env perl
use warnings;
use strict;
use Config::Pit;
use WWW::Mechanize;
use Web::Scraper;
use utf8;
@poppen
poppen / tpoint.pl
Created March 13, 2010 14:20
mailing tpoint
#!/usr/bin/env perl
use warnings;
use strict;
use Config::Pit;
use WWW::Mechanize;
use Web::Scraper;
use utf8;
@poppen
poppen / rakuten_super_point.pl
Created March 14, 2010 00:02
emailing rakuten super point
#!/usr/bin/env perl
use warnings;
use strict;
use Config::Pit;
use WWW::Mechanize::Pluggable;
use utf8;
use Email::MIME;
@poppen
poppen / dot.profile
Created March 22, 2010 10:17
.profile
# ~/.profile: executed by the command interpreter for login shells.
# This file is not read by bash(1), if ~/.bash_profile or ~/.bash_login
# exists.
# see /usr/share/doc/bash/examples/startup-files for examples.
# the files are located in the bash-doc package.
# the default umask is set in /etc/profile
#umask 022
# if running bash
@poppen
poppen / dot.mkshrc.diff
Created March 22, 2010 12:14
.mkshrc.diff
--- /tmp/dot.mkshrc 2010-03-22 21:11:22.000000000 +0900
+++ ./dot.mkshrc 2010-03-22 21:05:28.000000000 +0900
@@ -5,6 +5,7 @@
: ${EDITOR:=/bin/ed} ${TERM:=vt100} ${HOSTNAME:=$(ulimit -c 0;hostname -s 2>&-)}
[[ $HOSTNAME = @(localhost|*([ ])) ]] && HOSTNAME=$(ulimit -c 0;hostname 2>&-)
: ${HOSTNAME:=nil}; if (( USER_ID )); then PS1='$'; else PS1='#'; fi
+: ${HISTFILE:=~/.mksh_history}
function precmd {
typeset -i e=$?