/* writes changed config settings to a file */
writedwkcnf(fname)
{
        local cnf, str;

        if (argc < 1)
        {
                fname = "dwkconfig.txt";
        }

        if (fopen(fname, "w") != TRUE)
        {
                error(sprintf("writedwkcnf - cannot open %s", fname));
        }

        /* gets changed configuration table as string */
        cnf = reserved(1001, 1);
        fputs(cnf, fname);
        fclose(fname);

        return(TRUE);
}


/* executes if we have an error */
writedwkcnf_error(errnum)
{
        /* close open files */
        fcloseall();
}