157868

1#------variables----------------------------------------------------------------#
2set mysql(host)		"xxx"
3set mysql(port)		"3306"
4set mysql(user)		"xxx"
5set mysql(pass)		"xxx"
6set mysql(db)		"predb"
7set mysql(table)		"users"
8
9set table(id)		"id"
10set table(user)		"user"
11set table(pass)		"pass"
12
13set blah(1) "1.0"
14set blah(2) "AdamG"
15set blah(3) "#somechan"
16
17#------load-package-------------------------------------------------------------#
18if {[catch {package require mysqltcl} ret]} { 
19  putlog "mysqltcl not loaded: $ret" ; return
20} else {putlog "mysqltcl v$ret loaded"}
21
22#------connect2db---------------------------------------------------------------#
23proc connect2db {} {
24  global mysql table
25  if {[catch {set mysql(conn) [mysqlconnect -host $mysql(host) -port $mysql(port) -user $mysql(user) -password $mysql(pass)]} ret]} { 
26    putlog "cant conect to db: $ret" ; set ::working 0
27  } else {
28    putlog "connected to mysql: $mysql(db)" ; set ::working 1
29    set mysql(conn) [mysqlconnect -host $mysql(host) -port $mysql(port) -user $mysql(user) -password $mysql(pass)]
30    mysqluse $mysql(conn) $mysql(db)
31    mysqlexec $nomysql(conn) "CREATE TABLE IF NOT EXISTS `$mysql(table)` ( `$table(id)` int(2) NOT NULL auto_increment, `$table(user)` text NOT NULL, `$table(pass)` text NOT NULL, PRIMARY KEY  (`$table(id)`) ) AUTO_INCREMENT=1"
32    mysqlexec $nomysql(conn) "INSERT INTO `$mysql(table)` * VALUES ('-1','blabla','wtf')"
33    mysqlexec $nomysql(conn) "DELETE FROM `$mysql(table)` WHERE $table(id)='-1'"
34  }
35}
36connect2db
37
38#------binds--------------------------------------------------------------------#
39bind msg - !invite login
40#------login function-----------------------------------------------------------#
41proc login { n u h a } {
42 global mysql table blah
43 set user [lindex $a 0]
44 set pass [lindex $a 1]
45 if {$user==""} {
46  putserv "PRIVMSG $u :Syntax: !invite user pass"
47  return 0
48 }
49 if {$pass==""} {
50  putserv "PRIVMSG $u :Syntax: !invite user pass"
51  return 0
52 }
53 mysqluse $mysql(conn) $mysql(db)
54 set checkuser [lindex [mysqlsel $mysql(conn) "SELECT `$table(user)` FROM `$mysql(table)` WHERE `$table(user)` = '$user';" -list] 0]
55 if {$checkuser!=""} {
56  set checkpass [lindex [mysqlsel $mysql(conn) "SELECT `$table(pass)` FROM `$mysql(table)` WHERE `$table(user)` = '$user';" -list] 0]
57   if {$checkpass==$pass} {
58    putserv "INVITE $u $blah(3)
59    putserv "PRIVMSG $blah(3) :\002\0034LOGIN\003 $user\002 invited themself as \002$u"
60   } else {
61    putserv "PRIVMSG $blah(3) :\002\0034BAD LOGIN\003 $user\002 tried to invite themself as \002$u\002 but entered an incorrect password"
62   }
63 } else {
64  putserv "PRIVMSG $blah(3) :\002\0034BAD LOGIN\003 $u\002 tried to login with the user \002$user\002 but the user does not exist in the database"
65  return 0
66 }
67}
68
69putlog "\002mysql-invite.tcl\002 by \002$blah2 $blah1\002 loaded"