#!/usr/bin/perl -wT
use strict;
use lib '/home/ianh/bin/perl/lib/'; # for JSON
use LWP::UserAgent;
use JSON;
use CGI;

die "non-POST request" if $ENV{REQUEST_METHOD} ne 'POST';

my $query = new CGI();
my $text = $query->param('text') || '';

open(CONFIG, '<', '.config') or die;
my $settings = {};
foreach (<CONFIG>) {
    chomp;
    m/^(.+?): ?(.*)$/ or next;
    $settings->{$1} = $2;
}
close CONFIG;

my $ua = LWP::UserAgent->new;
$ua->protocols_allowed(['http', 'https']);

my $response = $ua->post("https://trello.com/1/cards", {
    'name' => $text,
    'key' => $settings->{key},
    'token' => $settings->{token},
    'idList' => $settings->{list},
});


print "Content-Type: text/plain\r\n\r\n";