egghelp/eggheads community

login/logout script

2004-04-08T16:56:35-04:00

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

Statistics: Posted by Ofloo — Thu Apr 08, 2004 4:56 pm

login/logout script

2004-04-05T08:37:32-04:00

...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.

Statistics: Posted by user — Mon Apr 05, 2004 8:37 am

Re: dont work

2004-04-05T08:25:59-04:00

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 ... ?

Statistics: Posted by GodOfSuicide — Mon Apr 05, 2004 8:25 am

dont work

2004-04-04T15:42:38-04:00

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

Statistics: Posted by Carnage69 — Sun Apr 04, 2004 3:42 pm

login/logout script

2004-04-04T13:31:29-04:00

Oh, my mistake.
Change this:

Code:

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

to:

Code:

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

Statistics: Posted by Xpert — Sun Apr 04, 2004 1:31 pm

doesent work

2004-04-04T13:28:48-04:00

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

Statistics: Posted by Carnage69 — Sun Apr 04, 2004 1:28 pm

login/logout script

2004-04-04T04:55:04-04:00

Code:

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?

Statistics: Posted by dollar — Sun Apr 04, 2004 4:55 am

login/logout script

2004-04-04T04:47:02-04:00

Code:

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

Statistics: Posted by Xpert — Sun Apr 04, 2004 4:47 am

login/logout script

2004-04-03T20:11:47-04:00

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:

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_opsproc 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"   } }

Statistics: Posted by Carnage69 — Sat Apr 03, 2004 8:11 pm