Skip to content

Instantly share code, notes, and snippets.

View keedi's full-sized avatar

Keedi Kim keedi

93 followers · 119 following
  • Silex
  • Seoul.pm
View GitHub Profile
@keedi
keedi / autogen-win32.sh
Created May 28, 2010 12:32
#!/bin/sh
ROOT_DIR='/storage/workspace/not-vcs/clutter/clutter-cross-win32'
CLUTTER_BUILD_DIR='clutter-win32'
MINGW_TOOL_PREFIX='/usr/bin/i586-mingw32msvc-'
#ROOT_DIR='clutter-cross-win64'
#CLUTTER_BUILD_DIR='clutter-win64'
#MINGW_TOOL_PREFIX=/usr/bin/amd64-mingw32msvc-
@keedi
keedi / flowplayer.html
Created June 9, 2010 09:39
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<link type="text/css" href="jquery-ui-1.8.2.custom.css" rel="stylesheet" />
<script type="text/javascript" src="jquery-1.4.2.min.js"></script>
<script type="text/javascript" src="jquery-ui-1.8.2.custom.min.js"></script>
<script type="text/javascript" src="flowplayer-3.2.2.min.js"></script>
@keedi
keedi / filter.pl
Created July 7, 2010 12:16
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
my $contents = do { local $/; <> };
my $regexp = qr{
<td \s* class="tm">
@keedi
keedi / changeit.pl
Created July 7, 2010 12:38
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use WWW::Mechanize;
my $m = WWW::Mechanize->new( agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624' );
$m->get("file://home/alejandro/enter.php.html");
my $contents = $m->content();
@keedi
keedi / utf8-decode.patch
Created October 5, 2010 08:04
diff --git a/lib/Gitalist/Controller/Fragment/Ref.pm b/lib/Gitalist/Controller/Fragment/Ref.pm
index 718d195..1e3503e 100644
--- a/lib/Gitalist/Controller/Fragment/Ref.pm
+++ b/lib/Gitalist/Controller/Fragment/Ref.pm
@@ -10,6 +10,7 @@ with qw/
use File::Type::WebImages ();
use JSON::XS qw(encode_json);
+use Encode qw(decode_utf8);
@keedi
keedi / exim
Created October 26, 2010 10:13
askdna@workstation-yk:~$ exim -bt [email protected]
R: dnslookup for [email protected]
[email protected]
router = dnslookup, transport = remote_smtp
host gmail-smtp-in.l.google.com [74.125.127.27] MX=5
host alt2.gmail-smtp-in.l.google.com [74.125.65.27] MX=20
host alt3.gmail-smtp-in.l.google.com [74.125.113.27] MX=30
host alt4.gmail-smtp-in.l.google.com [74.125.79.27] MX=40
askdna@workstation-yk:~$ mail -v [email protected]
Subject: 버그질라 테스트
@keedi
keedi / capture.cgi
Created October 29, 2010 08:29
#!/usr/bin/perl -wT
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
#
#
# Contributor(s): Keedi Kim <[email protected]>
###############################################################################
# Script Initialization
###############################################################################
@keedi
keedi / rename.pl
Created November 30, 2010 04:52
rename
#!/usr/bin/perl -w
#
# This script was developed by Robin Barker ([email protected]),
# from Larry Wall's original script eg/rename from the perl source.
#
# This script is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# Larry(?)'s RCS header:
# RCSfile: rename,v Revision: 4.1 Date: 92/08/07 17:20:30
@keedi
keedi / piped_system.pl
Created March 1, 2011 18:53
run external command with pipe
#!/usr/bin/env perl
use 5.010;
use utf8;
use strict;
use warnings;
my @ids = @ARGV;
for my $id ( @ids ) {
@keedi
keedi / gist:968434
Created May 12, 2011 12:52
bug-report-fey-loader-mysql
When executing Fey::ORM based script following error is occurred:
> scro-mc/DCF-Web$ <develop> ./run-psgi.pl
> Watching lib dcf_web.yml script/lib script/dcf_web.psgi for file updates.
> Error while loading script/dcf_web.psgi: Couldn't instantiate component "DCF::Web::Model::API", "Can't locate object method "statistics_info" via package "DBD::mysql::db::SUPER" at /home/askdna/perl5/perlbrew/perls/perl-5.12.1/lib/site_perl/5.12.1/i686-linux-thread-multi/DBD/mysql.pm line 764."Compilation failed in require at script/dcf_web.psgi line 4.
> BEGIN failed--compilation aborted at script/dcf_web.psgi line 4.
> ^C
>
> scro-mc/DCF-Web$ <develop>