/****************************************************************************
Aaru Data Preservation Suite
-----------------------------------------------------------------------------

    Author(s)      : Natalia Portillo

--[ License ] ---------------------------------------------------------------
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as
     published by the Free Software Foundation, either version 3 of the
     License, or (at your option) any later version.

     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <http://www.gnu.org/licenses/>.

-----------------------------------------------------------------------------
Copyright (C) 2011-2021 Natalia Portillo
*****************************************************************************/

#include <errno.h>
#include <eti.h>
#include <mint/cookie.h>
#include <mint/mintbind.h>
#include <mint/osbind.h>
#include <mint/sysvars.h>
#include <stdio.h>

#include "perms.h"

#include "../include/defs.h"
#include "../log.h"

void FilePermissions(const char* path)
{
    long** cookieJar = _p_cookies;
    long   cookie;
    int    rc, cRc, i;
    FILE*  file;
    char   driveNo = path[0] - '@';

    // Check for a cookie jar
    if(*cookieJar == 0) return;

    // Check if MiNT or MagiC
    rc = (Getcookie(C_MiNT, &cookie) == E_OK) || (Getcookie(C_MagX, &cookie) == E_OK) ||
         (Getcookie(C_MgMc, &cookie) == E_OK) || (Getcookie(C_MgMx, &cookie) == E_OK) ||
         (Getcookie(C_MgPC, &cookie) == E_OK);

    if(rc == 0) return;

    if(driveNo > 32) driveNo -= 32;

    Dsetdrv(driveNo);
    Dsetpath("\\");

    rc = Dcreate("PERMS");

    if(rc != E_OK)
    {
        log_write("Error %d creating working directory.\n", rc);
        return;
    }

    rc = Dsetpath("PERMS");

    if(rc != E_OK)
    {
        log_write("Error %d changing to working directory.\n", rc);
        return;
    }

    log_write("Creating permission files.\n");

    for(i = 0; i < KNOWN_ATARI_PERMS; i++)
    {
        file = fopen(atari_perms[i].filename, "w+");
        rc   = 0;
        cRc  = 0;

        if(!file) rc = errno;
        else
        {
            fprintf(file, "%s.\n", atari_perms[i].description);
            fclose(file);
            cRc = Fchmod(atari_perms[i].filename, atari_perms[i].mode);
        }

        log_write(
            "\t%s: name = \"%s\", rc = %d, cRc = %d\n", atari_perms[i].description, atari_perms[i].filename, rc, cRc);
    }
}