<cfscript>
    run();
    function run() {
        NL = Chr(10);
        tab = "    ";
        userdata = DirectoryList("c:\inetpub\wwwroot\TerrisTranscode\userdata", false, "query");
        usernameList = "";
        ecoList = "";

        // Extraction
        for(var i = 1; i <= userdata.recordcount; i = i + 1) {
            ecoAt = -1;
            filedata = FileRead("c:\inetpub\wwwroot\TerrisTranscode\userdata\" & userdata.name[i]);
            if(filedata != "") {
                linedata = ListToArray(filedata, NL);
                for(j = 1; j <= ArrayLen(linedata); j = j + 1) {
                    ecodata = ListToArray(linedata[j], ":");
                    if(ecodata[1] == "money"){
                        ecoAt = j;
                    }
                }
                if(ecoAt != -1) {
                    ecodata = ListToArray(linedata[ecoAt], ":");
                    ecovalue = ecodata[2];
                    ecovalue = Trim(ecovalue);
                    if(ecovalue >= 0.01 && (ecovalue < 28.5 || ecovalue > 31.5)) {  // filter out players
                        usernameList = ListAppend(usernameList, ListToArray(userdata.name[i], ".")[1]); // get username from filename
                        ecoList = ListAppend(ecoList, ecovalue);
                    }
                }
            }
        }

        // Transcode
        username = ListToArray(usernameList);
        eco = ListToArray(ecoList);

        // Sythesis
        outfile = FileOpen("c:\inetpub\wwwroot\TerrisTranscode\accounts.txt", "write");
        for(var i = 1; i <= ArrayLen(username); i = i + 1) {
            FileWriteLine(outfile, username[i] & " {");
            FileWriteLine(outfile, tab & "type player");
            FileWriteLine(outfile, tab & "money " & eco[i]);
            FileWriteLine(outfile, "}");
            FileWriteLine(outfile, "");
        }

        // Output
        writeOutput("All players");
        //writeDump(userdata);
        writeOutput("Transcoded players");
        //writeDump(username);
    }
</cfscript>