Skip to content

Instantly share code, notes, and snippets.

View andrewalker's full-sized avatar

André Walker andrewalker

57 followers · 26 following
View GitHub Profile
@andrewalker
andrewalker / MyMooseExported.pm
Last active November 21, 2017 14:06
init_meta weirdness
package MyMooseExported;
use Moose ();
use Moose::Exporter;
use Log::Contextual::SimpleLogger;
use Log::Contextual qw( :log ),
-logger => Log::Contextual::SimpleLogger->new({ levels => [qw( debug )] });
Moose::Exporter->setup_import_methods(
with_meta => ['my_has'],
as_is => ['some_method'],
@andrewalker
andrewalker / dedup.pl
Created November 27, 2015 13:27
Deduplicating my mailbox
#!/usr/bin/env perl
# Playing with mbsync, I ended up duplicating a few hundred messages when tweaking config
# This is the fix :)
use utf8;
use warnings;
use strict;
use Mail::Box::Manager;
use List::Util qw/sum0/;
my $mgr = Mail::Box::Manager->new(access => 'rw');
@andrewalker
andrewalker / jetlag.pl
Last active October 2, 2015 13:45 — forked from creaktive/jetlag.pl
#!/usr/bin/env perl
use strict;
use warnings qw(all);
use DateTime;
my $year = $ARGV[0] || DateTime->now->year;
my $previous;
for (
@andrewalker
andrewalker / test-cv.hs
Created August 2, 2015 21:25
Draft code used to convert CV from md to pdf
import Hakyll
import Text.Pandoc
import Text.Pandoc.PDF (makePDF)
import qualified Data.ByteString.Lazy as B
import qualified Text.Pandoc.UTF8 as UTF8
main = do
-- -- check for latex program
-- mbLatex <- findExecutable "pdflatex"
-- when (mbLatex == Nothing) $
@andrewalker
andrewalker / gist:6111e53fc42dabb2e62b
Created February 16, 2015 17:20
ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCu4RFtuPQH0ynSDm7w7VrarNQHTjn4hvJkcCLajTDjz3EkoD+miMDcuZLqJb0y+DOSNEI4Y+8CrOS/hrw4mPohF250oOKkN5B3X9BpG2AAsKb3pfLYac64aJYDrEw78sRiIq+QzS1zC3w1gbN5anW/Z98CX2boT9f8XBiIZftqxKCJqXhWBXRca/0Yclawd3QVw22mBBxws924rOuRCQbmtjb0t8vngA3xhmrk9OAnfYEt0ROYsPGaHPo6XYW4CX2qH3ORjsqp/ikULU5i4DPVFfK2lw9I+Oe7UzX0+93N4BleTgx3TW0r9mcxlARxlSyLGXqyBIuNKLmBHQS1+csX andre@andrewalker
@andrewalker
andrewalker / gist:c0b6d820ed620fa798a9
Created February 16, 2015 13:18
keybase.md
### Keybase proof
I hereby claim:
* I am andrewalker on github.
* I am andrewalker (https://keybase.io/andrewalker) on keybase.
* I have a public key whose fingerprint is 3013 472E FA53 8AFC 1B37 36D4 6158 780D 27C0 D33A
To claim this, I am signing this object:
@andrewalker
andrewalker / ideias
Last active December 29, 2015 15:39
RFC Business::CPI::{Base|Role}::Receiver
Comecei a implementar a solução do problema que descrevo abaixo aqui:
https://github.com/andrewalker/p5-business-cpi/blob/master/lib/Business/CPI/Role/Receiver.pm
=============
Atualmente:
my $cpi = Business::CPI->new(
gateway => 'PayPal',
@andrewalker
andrewalker / gist:7454059
Created November 13, 2013 18:39
Request de pesquisa da CAPES
This file has been truncated, but you can view the full file.
$ telnet capesdw.capes.gov.br 80
Trying 200.130.18.154...
Connected to capesdw.capes.gov.br.
Escape character is '^]'.
POST /gsa/search; HTTP/1.1
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Host: capesdw.capes.gov.br
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:25.0) Gecko/20100101 Firefox/25.0
Cookie: symfony=1o3nca5dm5lpnqmel1dkaaq1b4
@andrewalker
andrewalker / db
Last active December 17, 2015 07:49
Meu projeto inicial do DB
user
name
email
login
password
user_role
user
role
@andrewalker
andrewalker / Briefing Hackaton.pod
Last active December 13, 2015 17:28
Briefing Hackaton

Hackaton Business::CPI

O que é?

Business::CPI (Common Payment Interface) é um módulo em Perl que define uma interface padrão para comunicação entre programas feitos em Perl e intermediários financeiros (que chamamos no CPI de gateways).