#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;

use Opals::Context;
my $cgi = CGI->new;
my $input = $cgi->Vars();
my $db_name = Opals::Context->config('db_name');
my $imex    = Opals::Context->config('imex');
my $dir="$imex/uploadDoc";

if(!-d $dir){
    system `mkdir $dir`;
}

$dir="$imex/uploadDoc/$db_name";

if(!-d $dir){
    system `mkdir $dir`;
}

my $fileId    =$input->{'fileId'} ;
my $uploadFileName="file" || "";
my $fileData        ='';

my $ext='';
my $status=0;
if($uploadFileName ne ''){

    if(!defined $fileId || $fileId eq ''){
        $ext = $input->{$uploadFileName};
        $ext =~ s/.*\.([\w\-]+)$/$1/;
        $ext = lc($ext);
        $fileId =_genGUID() .".$ext";
    }

    my $fileName=$fileId;
    open FILE_UPLOAD, ">$dir/$fileName";
    my $fileHandle = $cgi->upload($uploadFileName);
        $fileData = '';
        while (<$fileHandle>) {
            print FILE_UPLOAD $_;
        }
   $status=1;     
}
  
print "Content-type: text/plain\n\n";
my $rs={status=>$status,path=>"/doc/$fileId"};
print   to_json($rs);



#################################################################
#
sub _genGUID{
    my $guid=`uuidgen`;
    chomp $guid;
    return $guid;
}