glenn/tts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial import.

Browse source
This commit is contained in:
Felicity Tarnell 2014-01-06 09:52:34 +00:00
commit aea9191844
12 changed files with 9243 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

113
bling_import.pl Executable file
View file

@ -0,0 +1,113 @@
#! /usr/bin/env perl
# RT/TTS - track your time.
# Copyright (c) 2012 River Tarnell.
#
# Permission is granted to anyone to use this software for any purpose,
# including commercial applications, and to alter it and redistribute it
# freely. This software is provided 'as-is', without any express or implied
# warranty.
#
# $Header: /cvsroot/rttts/bling_import.pl,v 1.4 2012/11/09 12:51:56 river Exp $
#
# ---
#
# This script will import entries from TTS into Bling, the Torchbox internal
# billing system. It is provided here as an example of processing the TTS
# state file with Perl.
#
# All uninvoiced entries will be imported into the specified project. You
# will need to manually move these to the correct client project in the
# Bling web interface. After being imported, entries will be marked as
# invoiced.
use warnings;
use strict;
use LWP::UserAgent;
use URI::Escape qw/uri_escape/;
use POSIX qw/strftime/;
use Term::ReadKey;
use JSON;
my $base_url = "https://bling.torchbox.com";
my $project_id = 1333; # Torchbox: Billing Agent default project
my $type_id = 10; # System Administration
# 8 = Web development.
# 3 = Project management.
my $inf = $ENV{'HOME'} . "/.rttts";
my $tmpf = $inf . ".tmp";
open INF, "<$inf" or die "Can't open $inf: $!";
open TMPF, ">$tmpf" or die "Can't open $tmpf: $!";
print "WARNING: Make sure TTS is *NOT* running!\n\n";
print "Bling username: ";
my $username = <STDIN>;
ReadMode 'noecho';
print "Bling password: ";
my $password = ReadLine 0;
ReadMode 'normal';
print "\n";
chomp($username);
chomp($password);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
$ua->agent("TTS-bling-importer/1.0");
while (<INF>) {
if (/^#/) {
print TMPF $_;
next;
}
chomp($_);
# Entry format is:
# starttime secs flags Entry description...
my ($start, $secs, $flags, $desc) = split /\s+/, $_, 4;
if ($flags =~ /i/) {
print TMPF "$_\n";
next;
}
my $blingtime = strftime("%Y/%m/%d", localtime($start));
my $req = HTTP::Request->new(POST => $base_url . "/api/bling/add/");
$req->content_type('application/x-www-form-urlencoded');
$req->content('username=' . uri_escape($username) .
'&password=' . uri_escape($password) .
'&project_id=' . uri_escape($project_id) .
'&task_id=' .
'&type_id=' . uri_escape($type_id) .
'&date=' . uri_escape($blingtime) .
'&time=' . uri_escape(int($secs / 60)) .
'&time_client=' . uri_escape(int($secs / 60)) .
'&details=' . uri_escape($desc));
my $res = $ua->request($req);
if ($res->is_success) {
my $resp = decode_json($res->content);
if (defined($resp->{description})) {
print "Failed to Bling [$desc]: " . $resp->description . "\n";
} else {
if ($flags eq "-") {
$flags = "i";
} else {
$flags .= 'i';
}
print "Blinged: $desc\n";
}
} else {
print "Failed to Bling [$desc]: " . $res->status_line . "\n";
}
print TMPF "$start $secs $flags $desc\n";
}
close INF;
close TMPF;
rename ($tmpf, $inf) or die "Can't rename $inf to $tmpf: $!";