save_result ($obj,$form,$outfileformat,$name);

sub save_result {
        my ($result,$form,$ext,$name) = @_;
        my $today = strftime "%Y_%m_%d", localtime;
        my $now = strftime "%H_%M_%S", localtime;
        # get path information
        chdir '/tmp/';
        scandir();
        my $folder='results';
        check_folder($folder,\@$dirlist);
        chdir './results/';
        scan_dir();
        # check if today user's folder already exists
        $folder=''.$name.'_'.$today.'';
        check_folder($folder,$dirlist);
        # write result into a file, $form, $name, $now
        chdir(''.$name.'_'.$today.'');
        my $filename = 'result_'.$form.'_'.$name.'_'.$now.'.'.$ext.'';
        open (FILENAME, ">$filename");
        write (FILENAME, $result);
        close(FILENAME);
        }

sub scandir {
        my $dir ='.'; # actual dir
        opendir(DIR, $dir) || die "can't opendir $dir: $!";
        my @list = readdir (DIR);
       
        foreach $item (@list){
                push @dirlist, $item if -d "$dir/$item" && $item ne '.' && $item ne '..';
                push @filelist, $item if -f "$dir/$item";
        }
        $dirlist = \@dirlist;
        $filelist = \@filelist;
        return($dirlist, $filelist);
}

sub check_folder {
        my ($folder, $dirlist) = @_;
        my $i=0;
        my $found='FALSE';
        $dir_size = @dirlist;
        while($found eq 'FALSE' && $i<=$dir_size){
                if ($dirlist[$i] eq $folder){
                        $found='TRUE';
                }
        $i++;
        }
        if ($found eq 'FALSE') {
                mkdir $folder;
        }
}

do './perl_functions.pl';

do '../perl_functions.pl';