#!/usr/bin/perl

#use CGI;
use CGI ':standard';
use Cwd;
use POSIX 'strftime';

my $date = strftime '%Y/%m/%d', localtime;

my $query= new CGI;
print $query->header;


#print "hello people in my head and the like\n";



#print "Hello Workld!";

# a comment

#for $i (param()) {
#    print $i, ": ", param($i), "\n" ;
#}

#print( "CWD: '", getcwd(), "'");

open(my $out, ">",  "/var/www/ingo.nolden-ist.net/qif/output.qif") or die "WTF! Can't open output.qif: $!";
print $out "!Type:Cash", "\n";
print $out "D", $date, "\n";
print $out "T", param("ammount"), "\n";
print $out "M", param("description"), "\n";
print $out "C", param("category"), "\n";
print $out "^", "\n";


print "<b>Expense submitted successfully.</b>";
print '<form action = "../expense.html">';
print '  <input type = "submit" value = "Back" />';
print '</form>';