library(shiny)
library(magrittr)
library(ggplot2)
library(plotly)
library(DT)

source("connection_module.R",encoding="utf-8")

loginUI <- function(id) {
  ns <- NS(id)
  fluidPage(
    useShinyjs(),
    tags$head(
      tags$script(src="js.cookie.js"),
      tags$style(HTML("
      @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
      @import url('//fonts.googleapis.com/css2?family=Fjalla+One');

      
                    "))),
    
    theme = "style.css",
    
    # App title ----
    
    fluidRow(column(12,
                    wellPanel(
                      textInput("login", label = strong("Login")),
                      passwordInput("pass", label = strong("Haslo")),
                      uiOutput("loginErr"),
                      actionButton('loginBtn',"Zaloguj")
                      
                    ))%>% tagAppendAttributes(id = 'column-login')
    ) %>% tagAppendAttributes(id = 'row-login'),
    
    
    
    fluidRow(
      column(12,
             tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
      
    )%>% tagAppendAttributes(id = 'row-footer')
    
    
  )
}
loginServer <- function(input, output,session) {
  
  isCorrect <- eventReactive(input$loginBtn, {
    tmp<-data.frame(login=input$login,pass=input$pass)
    number<-login(tmp)
    print(number)
    if(number!=0){
      shinyjs::runjs( 'Cookies.set(\'token\', \'loggedIn\', { expires: 7 });
                     
                      var cookie = Cookies.get(\'token\');
                      Shiny.onInputChange("token", cookie);
                       window.location.replace(\'/#!/profil\');')
      
      TRUE
      
      
      
    }else{
      FALSE
    }
    
    
    })
  
  
  output$loginErr<-renderUI({
    if (isCorrect()==TRUE){
      p("OK",style="color:white;text-align:center;")
    }else{
      p("Uzytkownik nie istnieje lub wprowadzono bledne dane",style="color:yellow;text-align:center;")
    }
    
  })
  
  # observeEvent(input$loginBtn,{
  #   tmp<-data.frame(login=input$login,pass=input$pass)
  #   number<-login(tmp)
  #   print(number)
  #   if(number!=0){
  #     shinyjs::runjs( 'Cookies.set(\'token\', \'loggedIn\', { expires: 7 });
  #                    
  #                     var cookie = Cookies.get(\'token\');
  #                     Shiny.onInputChange("token", cookie);
  #                      window.location.replace(\'/#!/profil\');')
  #     
  # 
  #     
  #   }else{
  #     
  #   }
  #   
  #   
  # })
  
  observe({
    if(((session$clientData)$url_hash=="#!/login") & (!is.null(input$token) & length(input$token)>0 )){
      
      print("dziala")
      shinyjs::runjs('window.location.replace(\'/#!/home\');')
    }
  })
  

  
  
  
}