##########################################################
#### Script para ajustar o wiki da disciplina R - bie5782 2016
###########################################################
options(help_type="html")
##### Monitores como monitor
###monitor2016:$1$5SNFl2vl$g9SjaI1r7VuvesqcH2zx81:monitor:monitor2016@usp.br:monitor,user
## senha: bie5782mon2016
senha.moon="$1$5SNFl2vl$g9SjaI1r7VuvesqcH2zx81"
monitores<-read.table("/home/aao/Ale2016/AleCursos/RUSP/monitores.txt", sep="<", header=FALSE,as.is=TRUE)[,c(1,2)]
str(monitores)
monitores[,2]<-gsub(">, ", "",  monitores[,2])
monitores[,2]<-gsub(">,", "",  monitores[,2])
monitores[,2]<-gsub(">", "",  monitores[,2])

names(monitores)<-c("nome", "email")
mon.name<-strsplit(monitores$email, "@")
mon.name

monitores$user.name<-unlist(mon.name)[seq(1,length(mon.name)*2, 2)]
monitores

mon.list<-paste(monitores$user.name, senha.moon, monitores$nome, monitores$email, "monitor,user", sep=":")
mon.list<-gsub(" :",":", mon.list) 
write.table(mon.list, file="monlist2016.txt", row.names=FALSE, col.names=FALSE, quote=FALSE)
readLines("monlist2016.txt")
##################################################################
## alunos
## aluno2016:$1$StISVTr1$VisAVUG6IhquherMy0WEX0:Aluno:aluno2016@usp.br:aluno,user
## senha: bie5782alunos2016
senha="$1$StISVTr1$VisAVUG6IhquherMy0WEX0"
alunos<-read.table("/home/aao/Ale2016/AleCursos/RUSP/alunoslista.csv", sep="\t", as.is=TRUE)
## havia um problema com "'": "D'Avlia" o R nao le!
str(alunos)
colnames(alunos)<-c("nome", "email")
ord<-order(alunos$nome)
alunos$nome[ord]
#alunos$email<-gsub(">,", "", alunos$email)
# fiz a modificacao antes da leitura
user.name<-strsplit(alunos$email, "@")
user.name
alunos$user.name<-unlist(user.name)[seq(1,dim(alunos)[1]*2, 2)]
alunos$user.name
write.table(sort(alunos$user.name), file="alunoUser2016.txt", row.names=FALSE, quote=FALSE,col.names=FALSE)

str(alunos)
head(alunos)
tail(alunos)
alunos<-alunos[ord,]
########################################
## exemplo de lista de controle de acesso (tabs nos espaços abaixo)
#bie5782:01_curso_atual:alunos:trabalho_final:alex:*	alexhubbe	8

ACList<-paste("bie5782:01_curso_atual:alunos:trabalho_final:", alunos$user.name, ":*\t", alunos$user.name, "\t8", sep="" )
ACList[1]
write.table(ACList, file="ACList2016.txt", row.names=FALSE, quote=FALSE,col.names=FALSE)
readLines("ACList2016.txt")

#########################################################
### lista de usuários
## 
user.list=paste(alunos$user.name, senha, alunos$nome, alunos$email, "aluno,user", sep=":")
user.list
user.list<-gsub(" :",":", user.list) 
write.table(user.list, file="userlist2016.txt", row.names=FALSE, quote=FALSE)
readLines("userlist2016.txt")

## ##### Monitores como admin
## ###monitor:$1$$pWmiyu1nNC/nvwYmOA5fq.:Fulano de Tal:fulano@usp.br:admin
## senha.moon="$1$$pWmiyu1nNC/nvwYmOA5fq."
## monitores<-read.table("/home/ale/Documents/Ale2010/AleCursos/R2012/monitores.txt", sep="\t", as.is=TRUE)
## colnames(monitores)<-c("nome", "email")
## mon.name<-strsplit(monitores$email, "@")
## monitores$user.name<-unlist(mon.name)[seq(1,26, 2)]
## mon.list<-paste(monitores$user.name, senha.moon, monitores$nome, monitores$email, "admin", sep=":")
## write.table(mon.list, file="monlist.txt", row.names=FALSE, quote=FALSE)
## ##################################################################
## lista de linques na página wiki
## * [[bie5782:01_curso_atual:alunos:fulano|]]
linques<-paste("  *[[bie5782:01_curso_atual:alunos:trabalho_final:", alunos$user.name, ":start|", alunos$nome, "]]", sep="")
linques[1]

write.table(linques, file="linques2016.txt", row.names=FALSE, quote=FALSE,col.names=FALSE)
###########################
## tabela de exercícios
##
###########################
str(alunos)
tabAlunos<-paste("^", alunos$nome, "| |  |  |  |  |  |  |  |  |", sep="")
write.table(tabAlunos, file="tabAlunos2016.txt", row.names=FALSE,col.names=FALSE, quote=FALSE)