#!/usr/bin/env perl

use 5.008003;
use strict;
use warnings;

### after: use lib qw(@RT_LIB_PATH@);
use lib qw(/opt/rt4/local/lib /opt/rt4/lib);

use RT;
RT::LoadConfig();
RT::Init();

my $aid = shift or die "Usage: $0 <attachment id>";

my $dbh = $RT::Handle->dbh;
my ($filename, $content) = $dbh->selectrow_array(
    "SELECT Filename, Content FROM Attachments WHERE id = ?", undef, $aid
);
unless ( defined $content && length $content ) {
    die "Couldn't find attachment #$aid";
}

my ($extension) = (($filename||'') =~ /\.(.*)/);
$extension ||= 'bin';

{
    open my $fh, '>:raw', 'attachment-'. $aid .'.'. $extension
        or die "couldn't open file";
    print $fh $content;
    close $fh;
}