login/logout script

[Carnage69]

hello i am making a login logout script the login command i think works havent tested it yet the .ops command works just the logout command i need it to remove the nick from the file and it is not working can someone please help me thanks!

Code: Select all

bind pub - .login proc_login 
proc proc_login {nick uhost handle channel arg} { 
  set file ops
  if {![file exists $file]} {close [open $file w]} 
  set io [open $file a+] 
  puts $io $nick 
  close $io 
  putserv "NOTICE $nick :You Are Now LOGED IN" 
} 

bind pub - .logout proc_logout 
proc proc_logout {nick uhost handle channel arg} { 
  set file ops
  if {![file exists $file]} {close [open $file w]} 
  set io [open $file r+] 
  puts $io $nick 
  close $io 
  putserv "NOTICE $nick :You Are Now LOGED OUT" 
} 


bind pub - .ops proc_ops
proc proc_ops {nick uhost handle channel arg} { 
  set file ops 
  if {![file exists $file]} {close [open $file w]} 
  set io [open $file r] 
  set list "" 
  while {![eof $io]} { 
    gets $io line 
    if {[string trim $line] == ""} {continue} 
    lappend list $line 
  } 
  close $io 
  set message "\0002Available Ops\002 :" 
  putserv "PRIVMSG $channel :$message" 
  foreach line $list { 
    putquick "PRIVMSG $channel :$line" 
  } 
}

[Xpert]

Code: Select all

Try this:
bind pub - .logout proc_logout 
proc proc_logout {nick uhost handle channel arg} { 
  set file ops 
  if {![file exists $file]} {close [open $file w]} 
  set in [open $file "r"]
  set out [open ${file}.tmp "w+"] 
  while {![eof $in]} { 
    set line [gets $in] 
    if {![string equal -nocase "$line" "$nick"} { 
      puts $out $line 
    } 
  } 
  close $in 
  close $out 
  exec "rm $file" 
  exec "cp ${file}.tmp $file" 
  exec "rm ${file}.tmp"
  putserv "NOTICE $nick :You Are Now LOGED OUT" 
}

Should work, not tested

[dollar]

Code: Select all

Try this:
bind pub - .logout proc_logout 
proc proc_logout {nick uhost handle channel arg} { 
  set file ops 
  if {![file exists $file]} {close [open $file w]} 
  set in [open $file "r"]
  set out [open ${file}.tmp "w+"] 
  while {![eof $in]} { 
    set line [gets $in] 
    if {![string equal -nocase "$line" "$nick"} { 
      puts $out $line 
    } 
  } 
  close $in 
  close $out 
  exec "rm $file" 
  exec "cp ${file}.tmp $file" 
  exec "rm ${file}.tmp"
  putserv "NOTICE $nick :You Are Now LOGED OUT" 
}

Should work, not tested

Why not use TCL's "file" functions?

[Carnage69]

i get this error
[12:26] Tcl error [proc_logout]: missing close-bracket
and i cant find were it is missing

[Xpert]

Oh, my mistake.
Change this:

Code: Select all

if {![string equal -nocase "$line" "$nick"} {

to:

Code: Select all

if {![string equal -nocase "$line" "$nick"]} {

[Carnage69]

now i get this
[14:41] Tcl error [proc_logout]: couldn't execute "rm ops": no such file or directory

[GodOfSuicide]

now i get this
[14:41] Tcl error [proc_logout]: couldn't execute "rm ops": no such file or directory

dont use exec's, tcl's "file" command provides such a feature
file delete ?-force? ?- -? pathname ?pathname ... ?

[user]

...also, use 'file rename' instead of 'exec cp'+'exec rm'. But why use a file to store those nicks? Storing them in an array would make things alot easier.

[Ofloo]

not sur if this is what u looking for but from what i can see i gues u are