root.dir <- "//WDSENTINEL/share/CorpCDOs"
source(file.path(root.dir, "code", "R", "intex_deal_functions.R"))
source(file.path(root.dir, "code", "R", "index_definitions.R"))
source(file.path(root.dir, "code", "R", "etdb.R"))

getdealdata <- function(dealnames){
    sqlstring <- sprintf("select * from latest_clo_universe where dealname in ('%s')",
                         paste(dealnames, collapse="','"))
    return( dbGetQuery(dbCon, sqlstring) )
}

workdate <- "2013-01-22"

files <- list.files(path=file.path(root.dir, "Scenarios", paste("Portfolios", workdate, sep="_")), pattern="*.RData")

for(file in files){
    load(file.path(root.dir, "Scenarios", paste("Portfolios", workdate, sep="_"), file))
    currdealnames <- dbGetQuery(dbCon, "select dealname from et_deal_model_numbers")$dealname
    dealname <- strsplit(file, "\\.")[[1]][1]
    if(dealname %in% currdealnames){
        sqlstring <- sprintf(paste0("UPDATE et_deal_model_numbers SET dealspread = %s, cdopercentage = %s,",
                                    "stalepercentage= %s WHERE dealname= '%s'"),
                             deal.spread,
                             deal.portfolio$cdopercentage,
                             deal.portfolio$stale,
                             dealname)
        dbGetQuery(dbCon, sqlstring)
    }else{
        sqlstring <- sprintf(paste0("INSERT INTO et_deal_model_numbers ",
                                    "VALUES('%s', %s, %s, %s)"),
                             dealname,
                             deal.portfolio$cdopercentage,
                             deal.portfolio$stale,
                             deal.spread)
        dbGetQuery(dbCon, sqlstring)
        currdealnames <- c(currdealnames, dealname)
    }
}