Planet Perlchina

SSL pfx and SOAP

2013-08-22T16:00:00+00:00

Sometimes you got a pfx file (with password pharse) that you can import it into Firefox certificates to view the website.

in Perl, it’s a bit different, you first need use openssl to convert it into cert pem files.

openssl pkcs12 -in test.pfx -out mycert.pem -nodes
openssl rsa -in mycert.pem -out mycertkey.pem

with that, you got two files. then with LWP::UserAgent or any other modules based on it:

my $ua = LWP::UserAgent->new(
    ssl_opts => {
        SSL_use_cert => 1,
        verify_hostname => 0,
        SSL_cert_file => "$Bin/mycert.pem",
        SSL_key_file => "$Bin/mycertkey.pem",
    }
)
my $res = $ua->get("https://blabla.com/");

you can always use below to debug SSL:

use IO::Socket::SSL qw(debug4);

and if the pfx is for SOAP::Lite, you can use something like below:

$soap->transport->ssl_opts(
    SSL_use_cert => 1,
    verify_hostname => 0,
    SSL_cert_file => "$Bin/mycert.pem",
    SSL_key_file => "$Bin/mycertkey.pem",
);

basically transport is LWP::UserAgent based on http(s) SOAP url.

Have fun.

set mp3 meta lyrics/artwork

2013-06-24T16:00:00+00:00

example code to set mp3 Lyrics and Artwork

use MP3::Tag;

open(my $fh, '<', 'artwork.png');
my $image_data = do { local $/; <$fh>; };
close($fh);

my $mp3 = MP3::Tag->new('test.mp3');

my $id3v2;
$id3v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};
$id3v2 ||= $mp3->new_tag("ID3v2");

$id3v2->title('test');
$id3v2->add_frame('TALB', 'Album title TEST'); # Album/Movie/Show title
$id3v2->add_frame('TPE1', 'Artist name TEST'); # Lead performer(s)/Soloist(s)
$id3v2->add_frame('TPE2', 'BLBALA Artist name'); # Band/orchestra/accompaniment

$id3v2->add_frame('USLT', 0, 'eng', '', "test blabla\naaa CCCa DDD");
$id3v2->add_frame('APIC', 0, 'image/png', chr(0), '', $image_data);

$id3v2->write_tag();

some code borrowed from

申命记 11

2013-05-08T02:39:21+00:00

历史的教训

1“所以你要爱耶和华你的　神，常常遵守他的吩咐、律例、典章和诫命。2今日你们要知道，我并不是与你们的儿女说话，因为他们不知道，也没有见过耶和华你们的　神的管教、伟大有力的手和伸出来的膀臂，3以及他在埃及向埃及王法老和法老的全国所行的神迹和作为；4他们也没有见过他怎样对待埃及的军队、马匹和车辆；他们追赶你们的时候，耶和华怎样使红海的水淹没了他们，把他们灭绝，这事一直传到今日；5并且耶和华在旷野怎样待你们，直到你们来到了这个地方；6也没有见过他怎样对待流本的子孙以利押的儿子大坍、亚比兰；大地怎样在全体以色列人中间裂开了，把他们和他们的家人、帐棚，以及与他们在一起一切有生命之物都吞下去；7只有你们亲眼看见了耶和华所作的一切伟大的作为。

应许与警告

8“所以你们要遵守我今日吩咐你的一切诫命，使你们坚强起来，可以进去得着你们将要过去得的那地，9又使你们在耶和华向你们的列祖起誓应许赐给他们和他们后裔的地上，就是流奶与蜜的地，可以长久居住。10因为你要进去得的那地，并不像你出来的埃及地；在那里你撒了种，还要用脚灌溉，像菜园一样。11但你们要过去得为业的地，却是一个有山有谷的地，有天上雨水滋润的地，12就是耶和华你的　神眷顾的地；从岁首到年终，耶和华你的　神的眼目常常眷顾这地。

13“如果你们留心听我今日吩咐你们的诫命，爱耶和华你们的　神，一心一意事奉他，14他必按时降雨在你们的地上，就是降秋雨和春雨，使你们可以丰收五谷、新酒和新油。15他也必使田野为你的牲畜长出青草来，你也可以吃得饱足。16你们要谨慎，免得你们的心受迷惑，你们就偏离了我，去事奉别的神，并且敬拜它们；17叫耶和华的怒气向你发作，就把天封闭，不降下雨水，地也不生出土产，使你们从耶和华赐给你们的美地上，快快地灭亡。

要谨记耶和华的话

18“所以你们要把我这些话放在心里，存在意念中；要系在手上作记号，戴在额上作头带。19你们也要把这些话教训你们的儿女，无论你是坐在家里，行在路上，躺下，或是起来，都要讲论。20你要把这些话写在你房屋的门柱上和城门上，21为要叫你们和你们的子孙的日子，在耶和华向你们列祖起誓应许给他们的地上，可以增多，像天覆地的年日那样多。22如果你们殷勤谨守遵行我吩咐你们的这一切诫命，爱耶和华你们的　神，行他的一切道路，又紧紧地依靠他，23耶和华就必从你们面前把这些国民都赶出去，你们就必占领比你们大比你们强的国民的地。24你们脚掌所踏的地，都必属于你们；从旷野到黎巴嫩，从幼发拉底河直到西海，都要作你们的境界。25必没有一人能在你们面前站立得住；耶和华你们的　神，必照着他对你们所说的，使害怕和惊惧你们的心临到你们将要踏足之地的居民。

26“看哪，我今日把祝福和咒诅都摆在你们面前。27如果你们听从耶和华你们的　神的诫命，就是我今日吩咐你们的，你们就必蒙赐福；28如果你们不听从耶和华你们的　神的诫命，偏离了我今日吩咐你们要走的道路，去随从你们素来不认识的别神，你们就必受咒诅。29耶和华你的　神领你进入你要占领为业之地以后，你就要把祝福摆在基利心山上，把咒诅摆在以巴路山上。30这两座山不是在约旦河西、日落的地方，在住亚拉巴的迦南人之地，与吉甲相对，靠近摩利橡树那里吗？31现在你们快要过约旦河，进去得耶和华你们的　神要赐给你们为业之地；你们取得了那地，就住在那里。32你们要谨守遵行我今日在你们的面前颁布的一切律例和典章。”

mojo tt2 defaults layout patch

2013-04-26T16:00:00+00:00

You wrote code with open source like CPAN. You meet problems with them. You investigate, write tests then provide patches. Your patches are accepeted.

I really enjoy the way it moves.

Here is another patch for Mojolicious::Plugin::TtRenderer.

the issue is that $self->defaults(layout => 'wrapper'); is always dropping the [% content %] without reason. and with debug I see the content is really in $c->stash->{'mojo.content'}. so a simple patch is that just $c->stash->{content} ||= $c->stash->{'mojo.content'}->{content};

recently I’m writing another new app with bitcoin <-> litecoin and other virtual coins exchange. and I have a wrapper.html.tt for the whole site. but I do not want to use it in the email TT2 render.

if I put WRAPPER => 'layouts/wrapper.html.tt', in the TT2 options, it will also apply to the mail render. a better approach is to use defaults layout. then in email render, set the layout as empty or actually we need use partial => 1.

MainApp.pm

$self->plugin('tt_renderer');
$self->defaults(layout => 'wrapper');
$self->renderer->default_handler( 'tt' );

OtherController.pm

my $body = $c->render(
    template => 'emails/forgot_pass', format => 'mail',
    other_stash => $var,
    partial => 1
);

partial => 1 will set layout as null. so it will give us what we want.

Have fun!

Mojolicious TT2 patch

2013-04-11T16:00:00+00:00

I am kindy busy with adding new features to my job site

but it’s very boring to restart the app on template updates. TT2 should be able to pick up the changes automatically. it works under Dancer or Catalyst, but not Mojolicious.

I thought I should spend some time on investigating why before writing more stuff. and after a while, I have a patch for Mojolicious::Plugin::TtRenderer.

it dues to the Provider in TtRender always return 1 instead of mtime on _template_modified.

plicease accepts it quite fast with slight changes but I’m waiting for a CPAN release. :-)

here is few changes on http://findmjob.com/ recently.

tag view is splitted with job and freelance.
Location link is added like: San Francisco, CA

Happy hacking!

Dancer to Mojolicious

2013-04-09T16:00:00+00:00

The progress went smoothly because all of them are just Perl code.

old Dancer code: FindmJob::WWW

new Mojolicious code: FindmJob::WWW, FindmJob::WWW::Root and others

Few notes

hooks

from before_template_render to before_render

Dancer `forward` VS Mojolicious `before_dispatch`

we can modify the req->url->path in before_dispatch with assigning stash.

# feed.(rss|atom) and /p.2/
$self->hook( before_dispatch => sub {
    my $self = shift;

    my $p = $self->req->url->path;
    if ($p =~ s{/feed\.(rss|atom)$}{}) {
        $self->stash('is_feed' => $1);
    }
    if ($p =~ s{/p\.(\d+)(/|$)}{$2}) {
        $self->stash('page' => $1);
    }
    $self->req->url->path($p);
});

supervise

Dancer:

plackup -E production -s Starman --workers=3 -l /tmp/findmjob.sock -a /findmjob.com/www/bin/app.pl

Mojolicious:

hypnotoad -f /findmjob.com/bin/www.pl

Note -f is important here, or supervise will keep restarting the script.

above plackup using sock and hypnotoad use port. so we need update the ngnix config a bit.

and it looks like hypnotoad is working better than plackup Starman

Template name conversation

there is no rule in Dancer for the Template name. but in Mojolicious, we have to do it with $name.$format.$handler

in this case we have to rename index.tt2 to index.html.tt

Conclusion

well, I’m not saying that Dancer is worse than Mojolicous or any other words. both of them are great.

but Dancer is a bit messy with Dancer and Dancer2. actually I love Moo a lot, but I don’t want to spend time on upgrading Dancer to Dancer2 (there seems some more difference than expected.)

in the other hand, Mojolicious looks amazing, sri improves it every week and I admire/trust his professional knowledge.

Have fun.

Two new CPAN modules

2013-03-29T16:00:00+00:00

I got two new CPAN modules uploaded today.

WWW::SpinnerChief

I wrote this based on the Python code

it’s pretty good that you know how to read the Python.

Business::PayPoint

aka tips to write SOAP module in Perl.

the PHP SOAP lib is pretty good while the Perl one is a little suck.

so usually if I can’t write it at the first try in Perl, I would use PHP to find the sending request/response

$client = new SoapClient('https://www.example.com/Test?wsdl', array(
    'trace' => 1,
) );
$client->__call('TestAction', $params);
echo "RESPONSE:\n" . $client->__getLastResponse() . "\n";
echo "REQUEST HEADER:\n" . $client->__getLastRequestHeaders() . "\n";
echo "REQUEST:\n" . $client->__getLastRequest() . "\n";

After I got the correct sample request, I’ll try to use Perl library to send the same XML with trace on.

use SOAP::Lite +trace => 'all';

well, you even can’t write correct one sometimes (maybe I am a little stupid).

but I have a final trick for it. use XML::Write to genereate the request XML. then use

my $som = $soap->call($method, SOAP::Data->type('xml' => $xml));

you won’t be wrong in this case. :)

Have fun.

Net::Telnet with bitflu

2013-03-17T16:00:00+00:00

Even Net::Telnet is quite old, it’s still very powerful and simple to use.

use strict;
use warnings;
use Net::Telnet ();
use Data::Dumper;

my $host = '0';
my $port = 4001;

my $telnet = Net::Telnet->new();
unless ($telnet->open( Host => $host, Port => $port, Timeout => 30 )) {
    die "Can't connect to $host:$port\n";
}

$telnet->waitfor('/bitflu> /');

my @messages = map { chomp; $_ } $telnet->cmd(String => 'ls');
pop @messages if $messages[-1] eq 'bitflu';
print Dumper(\@messages);

$telnet->close();

there are some tips:

remove ANSI color

foreach my $msg (@messages) {
    # if you do not remove this, your regex with /^\[/ may break
    $msg =~ s/\e\[[\d;]*[a-zA-Z]//g;
}

Change Window Size

if you use term to do bitflu> ls, you’ll see full torrent name. but with the code above, you can only see few chars. here is the note to change the Window Size:

my $telnet = Net::Telnet->new();

$telnet->option_callback( sub { return; } );
$telnet->option_accept(Do => 31);

unless ($telnet->open( Host => $host, Port => $port, Timeout => 60 )) {
    die "Can't connect to $host:$port\n";
}
$telnet->waitfor('/bitflu> /');

## copied from http://blog.webdir.bg/perl-apache-realtime-output-from-script/
## Many Thanks!
$telnet->telnetmode(0);
$telnet->put(pack("C9",
                  255,                  # TELNET_IAC
                  250,                  # TELNET_SB
                  31, 0, 200, 0, 0,     # TELOPT_NAWS
                  255,                  # TELNET_IAC
                  240));                # TELNET_SE
$telnet->telnetmode(1);

Jesus video via YouVersion Web

2013-03-11T20:37:07+00:00

Planet Perlchina

SSL pfx and SOAP

set mp3 meta lyrics/artwork

申命记 11

mojo tt2 defaults layout patch

Mojolicious TT2 patch

Dancer to Mojolicious

Few notes

hooks

Dancer forward VS Mojolicious before_dispatch

supervise

Template name conversation

Conclusion

Two new CPAN modules

WWW::SpinnerChief

Business::PayPoint

Net::Telnet with bitflu

remove ANSI color

Change Window Size

Jesus video via YouVersion Web

Learn Python Note 1

argparse

init.py and as

BeautifulSoup is another HTML::TreeBuilder

something I do like in Python

something I do not like in Python

Disclaim

add alert note for old posts in Jekyll

add alert note for old posts

20 items in rss/atom

paginate

Blogger local file > Jekyll migrator

MT > Jekyll perl migrator

拆毁所有为抵挡神的知识而树立起来的高墙；又虏获各样的心意，达到属基督的顺从； 哥林多后书 10:5

2 Corinthians 10:5

2 Corinthians 8:2

Romans 16:23

哥尼流定睛看他，惊怕说：主啊，什么事呢？天使说：你的祷告和你的周济达到 神面前，已蒙记念了。 Acts 10:4

因为，穷乏人呼求的时候，他要搭救； 没有人帮助的困苦人，他也要搭救。 Psalm 72:12

Exodus 23:11

人若不看顾亲属，就是背了真道，比不信的人还不好，不看顾自己家里的人，更是如此 ... 1 Timothy 5:8

善人给子孙遗留产业； 罪人为义人积存资财。 Proverbs 13:22

门徒出去，到处宣传福音。主和他们同工，用神迹随着，证实所传的道。阿们！ (Mark 16:20)

经上记着说：“我信，所以我说话。”我们既然有同样的信心，也就信，所以也说话 ... (哥林多后书 4:13 CNVS)

因他使心里渴慕的人得以知足，使心里饥饿的人得饱美物。 (Psalm 107:9)

"基督耶穌降世，為要拯救罪人。"這話是可信的，是值得完全接納的。在罪人中我是個罪魁。 (提摩太前書 1:15)

尘土仍归于地，灵仍归于赐灵的神。 (传道书 12:7)

自从造天地以来，神的永能和神性是明明可知的，虽是眼不能见，但借着所造之物就可以晓得，叫人无可推诿。 (罗马书 1:20)

你们获得重生，不是借着会腐烂的种子，而是借着不会腐烂的种子――上帝活泼永存的道。 彼得前书 1:23

哥林多后书 4:6

耶稣又对众人说：我是世界的光。跟从我的，就不在黑暗里走，必要得着生命的光。 John 8:12

Cakes

Psalm 17:14-15

Check out this verse on YouVersion.com

他们与羔羊争战，羔羊必胜过他们，因为羔羊是万主之主、万王之王。同着羔羊的，就是蒙召、被选、有忠心的，也必得胜。 (启示录 17:14)

Isaiah 53:7

Net-Amazon-DynamoDB

Care each other

诗篇 118:14-16

http://bible.us/Ps69.12.CCB

http://bible.us/Ps60.4-5.CCB

Romans 3:23-24

?? 52:8-9 CCB

诗篇 55:6-8, 16, 22 CCB

BJ Rental price as a chart

reCaptcha and lightbox and ajaxPost

MacOSx homebrew postgresql issue note

Proverbs 21:23-24

John 18:36

真理必叫你们得到自由

真理必叫你们得到自由

Untitled

MongoDB and Perl

api and android app

sphinx search with varchar primary key

Wildlife park, Beijing

cidr2regexp.pl

DBIx::Class with Moose has

findmjob.com

better pagination url design in Dancer

Dancer `forward` VS Mojolicious `before_dispatch`

拆毁所有为抵挡神的知识而树立起来的高墙；又虏获各样的心意，达到属基督的顺从；哥林多后书 10:5

哥尼流定睛看他，惊怕说：主啊，什么事呢？天使说：你的祷告和你的周济达到　神面前，已蒙记念了。 Acts 10:4

因为，穷乏人呼求的时候，他要搭救；没有人帮助的困苦人，他也要搭救。 Psalm 72:12

善人给子孙遗留产业；罪人为义人积存资财。 Proverbs 13:22

你们获得重生，不是借着会腐烂的种子，而是借着不会腐烂的种子――上帝活泼永存的道。彼得前书 1:23