#!/usr/bin/perl

use strict;
use warnings;

use Tripletail q(upload.ini);

$TL->startCgi(
	      -main => \&main,
	     );


sub main {
  my $t = $TL->newTemplate('upload.html');

  # データは通常のフォームと同様に入ってきますが，
  # 文字コードの自動変換は行われません．
  # ファイル名は，->getFilename メソッドで取得できます．
  
  if($CGI->getFileName('file')) {
    my $fh = $CGI->getFile('file');
    $t->node('file')
      ->add(FILENAME => $CGI->getFileName('file'),
	    FILEDATA => join('', <$fh>),
	   );
  }
  
  $t->flush;

}