Code:

<?php// Includes.include 'pconfig.php';include 'popendb.php';// Static page formatting.$PreString="<p>This lets you view profiles for the IRC channel <a href='irc://irc.sexnet.org/playthings4roughuse'>#playthings4roughuse</a>.</p><p>Please enter a nickname (and hit enter). If nothing appears, either this page is temporarily broken or the nickname doesn't have a profile!</p><form id='name'><input id='input' name='name' type='text' onkeypress='{if (event.keyCode==13)showProfile(input.value);}' />";$FailString="<p>Either you didn't finish typing yet or that nick doesn't have a profile.</p>";// If we have a profile to get, begin to get it.if ($_GET['name'] !=null){// Set the profile name and make it lowercase.$profile = $_GET['name'];$name = strtolower($profile);// Actually get the data.$locdata = mysql_query('SELECT `p_location` FROM `users` WHERE `p_nick`="' . $name . '"');$agedata = mysql_query('SELECT `p_age` FROM `users` WHERE `p_nick`="' . $name . '"');$genderdata = mysql_query('SELECT `p_gender` FROM `users` WHERE `p_nick`="' . $name . '"');$descdata = mysql_query('SELECT `p_description` FROM `users` WHERE `p_nick`="' . $name . '"');$kinkdata = mysql_query('SELECT `p_kinks` FROM `users` WHERE `p_nick`="' . $name . '"');$limdata = mysql_query('SELECT `p_limits` FROM `users` WHERE `p_nick`="' . $name . '"');$posdata = mysql_query('SELECT `p_position` FROM `users` WHERE `p_nick`="' . $name . '"');$oriendata = mysql_query('SELECT `p_orientation` FROM `users` WHERE `p_nick`="' . $name . '"');$webdata = mysql_query('SELECT `p_url` FROM `users` WHERE `p_nick`="' . $name . '"');// Make it human-readable for output.$location = mysql_fetch_row($locdata);$age = mysql_fetch_row($agedata);$gender = mysql_fetch_row($genderdata);$description = mysql_fetch_row($descdata);$kinks = mysql_fetch_row($kinkdata);$limits = mysql_fetch_row($limdata);$position = mysql_fetch_row($posdata);$orientation = mysql_fetch_row($oriendata);$web = mysql_fetch_row($webdata);// Draw and display the page.$DisplayString.="<table>";$DisplayString.="<br /><h2>" . $name . " <br /><br />";$DisplayString.="<tr><td><strong>Location:</strong> " . $location[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Gender:</strong> " . $gender[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Age:</strong> " . $age[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Description:</strong> " . $description[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Kinks:</strong> " . $kinks[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Limits:</strong> " . $limits[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Orientation:</strong> " . $orientation[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Position:</strong> " . $position[0] . "</td></tr>";$DisplayString.="<tr><td><strong>Web Profile:</strong> <a href='" . $web[0] . "' target='_blank'>Here unless no entry.</a> Note that not everyone sets this, so mouseover before you click. :p</td></tr>";$DisplayString.="</table>";echo $PreString;echo $DisplayString;  }else  {echo $PreString;echo $PostString;  }?>

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# if you want to use commands from this script on your chan, type in eggdrop console (via telnet or DCC chat)# .chanset #channel_name +intadd +profile# and later .save# variables and procedures:# with profile_ prefix are from mysql-profile script# with int_ prefix are from interviewer-addon# on-join 'snippet' profile information proc (based only on nick!, if $nick == $profile_name then show short msg)# 0 - disabled, 1 - enabledset profile_on_join 1# bind for view procedure# after this command bot will show the user profileset profile_view_command "!view"# bot for list procedure# after this command bot will show the list of profile namesset profile_list_command "!list"# bind for delete procedure# after this command bot will delete the profile (only for o|o)# user can delete his profile by typing !remove (only when key will be correct)set profile_drop_command "!delete"# bind for help procedure# after this command bot will show the available commandsset profile_help_command "!help"# bind for setup procedure# after this command bot will try to make a new profile and start the interviewset int_bind(setup) "!setup"# bind for update procedure# after this command user will be able to update his profile informationset int_bind(updatee) "!update"# bind for remove procedure# after this command bot will try to remove profileset int_bind(delete) "!remove"# bind for release procedure# after this command bot will try to destroy user's session (something like logout)set int_bind(release) "!release"# bind for sessions procedure# after this command bot will print current sessions list (only for o|o)set int_bind(sessions) "!sessions"# bind for flush procedure# after this command bot will try to destroy all sessions or just one given session (only for o|o)set int_bind(flussh) "!flush"# mysql userset profile_mysql_user "db_user"# mysql passset profile_mysql_pass "db_pass"# mysql hostset profile_mysql_host "localhost"# mysql databaseset profile_mysql_dbase "profiles"# mysql tableset profile_mysql_table "users"# interviewer-addon script pathset interviewer_addon_path "scripts/interviewer-addon-0.1.tcl"# regexp for !setup, !update, !remove, !flush commands (default, only small and BIG letters are allowed)# in this script (mysql-profile-0.*.tcl), all profiles names are in 'lower case', but we have to allow big chars because someone can write !setup MyNiCk or something, otherwise script will make 'mynick' ;)set int_bind_regexp {^[a-zA-Z]+$}# all these five lists must have the same number of elements# headers for !viewset profile_view_headers {"&n location:""&n age:""&n gender:""&n description:""&n kinks:""&n limits:""&n position:""&n orientation:""&n web URL:"}# questions lists, one by oneset int_questions_list {"your location ;>""your age ;>""your gender ;>""your description ;>""your kinks ;>""your limits ;>""your position ;>""your orientation ;>""your web URL ;>"}# uniq key of each question# some short uniq word, without spaces will be betterset int_questions_key {"p_location""p_age""p_gender""p_description""p_kinks""p_limits""p_position""p_orientation""p_url"}# questions regexps, one by one# if you don't know how to build regexp, use {.*}  and pray (.* any chars ;p)set int_questions_regexp {{^.{1,64}$}{^[0-9]{1,2}$}{^(male|female)$}{^.{1,255}.{0,1}$}{^.{1,255}.{0,1}$}{^.{1,255}.{0,1}$}{^.{1,255}.{0,1}$}{^.{1,255}.{0,1}$}{^http:\/\/.{1,249}$}}# questions help messages, one by oneset int_question_help {"max 64 chars here, sorry""only numbers are allowed (0-99)""male or female""max 256 chars here, sorry""max 256 chars here, sorry""max 256 chars here, sorry""max 256 chars here, sorry""max 256 chars here, sorry""max 256 chars here and don't forget about 'http://' at the beginning"}# messagesset profile_help "available commands for every user: !setup, !update, !remove, !release, !view, !list"set int_msg(int_start) "hey! Your profile has been created, get your key and type some info about yourself!"set int_msg(int_key) "here is your key: &k, save it, you will need it later for update or delete your profile"set int_msg(int_end) "thanks for the answers, bye!"set int_msg(update_start) "hi, if you want to update your profile you have to type your profile key now (paste it here and press enter)"set int_msg(update_welcome) "hi, your key is OK, we can update your profile now; I will print the questions list for you, choose one and answer! (type number of question and press enter)"set int_msg(update_question_list) "here are the questions(to stop the interview mode use !release on chan):"set int_msg(update_question_number) "only numbers are allowed here (1 or more)"set int_msg(update_question_number_range) "please choose number from 1 to 6"set int_msg(update_wrong_key) "you typed wrong key, if you want to try again, please use !update <profile_name> again"set int_msg(update_done) "information has been updated"set int_msg(remove_start) "hi, if you want to remove this profile you have to type your profile key now (paste it here and press enter)"set int_msg(remove_end) "profile has been successfully removed"set int_msg(remove_wrong_key) "you typed wrong key, if you want to try again, please use !remove <profile_name> again"set int_msg(just_one_command) "you can use just one command in the same time, !setup, !update or !remove; use !release if you want to use setup, update or remove command again"set int_msg(profile_exists) "profile with that name already exists"set int_msg(profile_not_exists) "profile with that name doesn't exists"set int_msg(setup_already_in_use) "you can't use this command twice in the same time"set int_msg(update_already_in_use) "you can't use this command twice in the same time"set int_msg(remove_already_in_use) "you can't use this command twice in the same time"set int_msg(setup_profile_name_already_in_use) "someone is already making setup with that name"set int_msg(update_profile_name_already_in_use) "someone is already making update with that name"set int_msg(remove_profile_name_already_in_use) "someone is already trying to remove profile with that name"set int_msg(all_sessions_destroyed) "all sessions have been destroyed"set int_msg(session_destroyed) "session has been destroyed"set int_msg(session_n_exists) "session for this user doesn't exists"set int_msg(sessions_list_empty) "sessions list is empty ;)"set int_msg(release_empty) "your session doesn't exists"set int_msg(release_done) "your session has been destroyed, you can use !setup, !update or !remove again"set int_msg(setup_help) "use: !setup <profile_name>"set int_msg(update_help) "use: !update <profile_name>"set int_msg(remove_help) "use: !remove <profile_name>"set int_msg(bind_help) "only small and BIG letters are allowed, sorry"# type of key generator# 0 - use /dev/urandom (good for unix systems)# 1 - use some rand() (use it for windows systems, of course it will work under unix too)set int_random_generator 1# which procedures bot should bind (default all)# s - setup proc# u - update proc# d - remove proc# r - release proc# e - sessions proc# f - flush proc# p - private messages proc# a - part proc# i - sign proc# l - split proc# k - kick proc# n - nick procset int_proc_bind "sudrefpailkn"# autostart of 'questions', without any extra word# 0 - disable, 1 - enableset int_questions_auto_start 1# bind for questions start# after this command bot will start the interview (priv command, after !setup)# works only when $int_questions_auto_start is set to 0# but, even if you set $int_questions_auto_start to 1, please leave here some wordset int_bind(questions_start) "start"################################################################################################################bind pub -|- $profile_view_command profile_view_procbind pub -|- $profile_list_command profile_list_procbind pub -|- $profile_drop_command profile_drop_procbind pub -|- $profile_help_command profile_help_procif {$profile_on_join == 1} {bind join -|- "*" profile_do_on_join}package require mysqltclsetudef flag profileproc profile_mysql_query { result_mode mysql_query } {global profile_mysql_user profile_mysql_pass profile_mysql_host profile_mysql_dbaseset mysql_result ""set mysql_handle [::mysql::connect -host $profile_mysql_host -user $profile_mysql_user -password $profile_mysql_pass]::mysql::use $mysql_handle $profile_mysql_dbaseif {$result_mode == "quiet"} {::mysql::exec $mysql_handle $mysql_query} elseif {$result_mode == "verbose"} {set mysql_result [::mysql::sel $mysql_handle $mysql_query -flatlist]}::mysql::close $mysql_handleif {$result_mode == "verbose"} {return $mysql_result}}proc profile_check_if_profile_exists { profile_name } {global profile_mysql_tableset profile_name [::mysql::escape $profile_name]set query_result [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table WHERE p_name='$profile_name'"]if {$query_result != ""} {return 1} {return 0}}proc profile_delete_proc { profile_name } {global profile_mysql_tableset profile_name [::mysql::escape $profile_name]profile_mysql_query quiet "DELETE from $profile_mysql_table where p_name='$profile_name'"}proc profile_view_proc { nick uhost hand chan arg } {global profile_mysql_table profile_view_headers profile_view_commandif {![channel get $chan profile]} {return}set profile_name [::mysql::escape [string tolower [lindex [split $arg] 0]]]if {$profile_name != ""} {if {[profile_check_if_profile_exists $profile_name]} {set query_result [profile_mysql_query verbose "SELECT p_location, p_age, p_gender, p_description, p_kinks, p_limits, p_position, p_orientation, p_url FROM $profile_mysql_table WHERE p_name='$profile_name'"]set header_idx 0foreach query_row $query_result { set each_header [lindex $profile_view_headers $header_idx]regsub "&n" $each_header "$profile_name\'s" each_headerif {$query_row != ""} {putnq "PRIVMSG $nick :$each_header $query_row"} {putnq "PRIVMSG $nick :$each_header N/A"}incr header_idx 1}} {putnq "PRIVMSG $nick :profile $profile_name doesn't exists"}} {putnq "PRIVMSG $nick :use: $profile_view_command <profile_name>"}}proc profile_list_proc { nick uhost hand chan arg } {global profile_mysql_table profile_list_commandif {![channel get $chan profile]} {return}set list_number [lindex [split $arg] 0]if {$list_number != ""} {switch -- $list_number {"1" {set query_result_a [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table WHERE p_name REGEXP '^\[a-f\]' ORDER BY p_name"]set count_af [llength $query_result_a]set af_list [join $query_result_a ", "]if {$af_list != ""} {putnq "PRIVMSG $nick :list from A to F ($count_af): $af_list"} {putnq "PRIVMSG $nick :list is empty"}}"2" {set query_result_b [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table WHERE p_name REGEXP '^\[g-l\]' ORDER BY p_name"]set count_gl [llength $query_result_b]set gl_list [join $query_result_b ", "]if {$gl_list != ""} {putnq "PRIVMSG $nick :list from G to L ($count_gl): $gl_list"} {putnq "PRIVMSG $nick :list is empty"}}"3" {set query_result_c [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table WHERE p_name REGEXP '^\[m-r\]' ORDER BY p_name"]set count_mr [llength $query_result_c]set mr_list [join $query_result_c ", "]if {$mr_list != ""} {putnq "PRIVMSG $nick :list from M to R ($count_mr): $mr_list"} {putnq "PRIVMSG $nick :list is empty"}}"4" {set query_result_d [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table WHERE p_name REGEXP '^\[s-z\]' ORDER BY p_name"]set count_sz [llength $query_result_d]                                set sz_list [join $query_result_d ", "]if {$sz_list != ""} {putnq "PRIVMSG $nick :list from S to Z ($count_sz): $sz_list"} {putnq "PRIVMSG $nick :list is empty"}}"showall" {set query_result_e [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table ORDER BY p_name"]set whole_list [join $query_result_e ", "]if {$whole_list != ""} {putnq "PRIVMSG $nick :whole list: $whole_list"} {putnq "PRIVMSG $nick :list is empty"}}"count" {set query_result_f [profile_mysql_query verbose "SELECT p_name FROM $profile_mysql_table"]set count_profiles [llength $query_result_f]putnq "PRIVMSG $nick :$count_profiles profile/s in the database"}}} {putnq "PRIVMSG $nick :use: $profile_list_command 1 (A->F) / $profile_list_command 2 (G->L) / $profile_list_command 3 (M->R) / $profile_list_command 4 (S-Z) / $profile_list_command showall / $profile_list_command count"}}proc profile_drop_proc { nick uhost hand chan arg } {        global profile_mysql_table profile_drop_commandif {![channel get $chan profile]} {return}if {[string trim $arg] != ""} {foreach profile_name [split $arg] {set profile_name [::mysql::escape [string tolower $profile_name]]if {$profile_name != ""} {if {[profile_check_if_profile_exists $profile_name]} {profile_delete_proc $profile_nameputnq "PRIVMSG $nick :profile $profile_name has been deleted"} {putnq "PRIVMSG $nick :profile $profile_name doesn't exists"}}}} {putnq "PRIVMSG $nick :use: $profile_drop_command <profile_name> ... <profile_name>"}}proc profile_help_proc { nick uhost hand chan arg } {global profile_helpif {![channel get $chan profile]} {return}putnq "PRIVMSG $nick :$profile_help"}proc int_check_if_profile_exists { nick uhost profile_name chan } {if {[profile_check_if_profile_exists $profile_name] == 1} {return 1} {return 0}}proc int_check_if_key_is_correct { nick uhost profile_name profile_key } {global profile_mysql_tableset profile_name [::mysql::escape $profile_name]        set profile_key [md5 $profile_key]set query_result [profile_mysql_query verbose "SELECT p_key FROM $profile_mysql_table WHERE p_name='$profile_name'"]if {[lindex $query_result 0] == $profile_key} {return 1} {return 0}}proc int_remove_profile_event { nick uhost profile_name action_time } {profile_delete_proc $profile_name}proc int_new_profile_event { nick uhost chan profile_name profile_key action_time} {global profile_mysql_tableset nick [::mysql::escape $nick]set uhost [::mysql::escape $uhost]set profile_name [::mysql::escape $profile_name]set profile_key [md5 $profile_key]profile_mysql_query quiet "INSERT INTO $profile_mysql_table (p_name, p_key, p_nick, p_host, p_crt_date) VALUES('$profile_name', '$profile_key', '$nick', '$uhost', '$action_time')"}proc int_answer_event { nick uhost profile_name arg action_time question_key } {global profile_mysql_tableset profile_name [::mysql::escape $profile_name]set arg [::mysql::escape $arg]set question_key [::mysql::escape $question_key]profile_mysql_query quiet "UPDATE $profile_mysql_table SET $question_key='$arg' WHERE p_name='$profile_name'"}proc int_update_event { nick uhost profile_name arg action_time question_key } {global profile_mysql_table        set profile_name [::mysql::escape $profile_name]set arg [::mysql::escape $arg]set question_key [::mysql::escape $question_key]profile_mysql_query quiet "UPDATE $profile_mysql_table SET $question_key='$arg', p_lupd_date='$action_time' WHERE p_name='$profile_name'"}proc profile_do_on_join { nick uhost hand chan } {global profile_mysql_table profile_view_command botnickif {![channel get $chan profile]} {return}if {$botnick == $nick} {return}set profile_name [::mysql::escape $nick]if {[profile_check_if_profile_exists $profile_name]} {set query_result [profile_mysql_query verbose "SELECT p_age, p_location, p_gender FROM users WHERE p_name='$profile_name'"]set p_age [lindex $query_result 0]set p_location [lindex $query_result 1]set p_gender [lindex $query_result 2]putquick "PRIVMSG $chan :$profile_name has a profile. Age: $p_age\, Location: $p_location\, Gender: $p_gender\. To see $profile_name\'s full profile type $profile_view_command $profile_name"}}source $interviewer_addon_pathputlog "mysql-profile.tcl ver 0.1 by tomekk loaded"

Code:

CREATE TABLE users (id INT(4) AUTO_INCREMENT, p_name VARCHAR(32), p_key VARCHAR(32),p_nick VARCHAR(32),p_host VARCHAR(128),p_crt_date VARCHAR(10),p_lupd_date VARCHAR(10),p_location VARCHAR(64),p_age VARCHAR(2),p_gender VARCHAR(6),p_description VARCHAR(256),p_kinks VARCHAR(256),p_limits VARCHAR(256),p_position VARCHAR(256),p_orientation VARCHAR(256),p_url VARCHAR(256),primary key(id));

Code:

# if you want to use commands from this script on your chan, type in eggdrop console (via telnet or DCC chat)# .chanset #channel_name +intadd# and later .save# interviewer-addon config <cut># autostart of 'questions', without any extra wordset int_questions_auto_start 0# regexp for !setup, !remove commands (default, only small and BIG letters are allowed)set int_bind_regexp {^[a-zA-Z]+$}# uniq key of each questionset int_questions_key {"age""sex""from""fps""map""track"}# questions lists, one by oneset int_questions_list {"1. what is your age?""2. what is your sex?""3. where are you from?""4. what is your fav FPS game?""5. what is your fav map?""6. what is your fav game music track?"}# questions regexps, one by oneset int_questions_regexp {{^([0-9]{1,2})$}{^(male|female|alien)$}{.*}{^(quake(1|2|3|4)|doom(1|2|3)|half life(1|2))$}{.*}{.*}}# questions help messages, one by oneset int_question_help {"only numbers are allowed (99 is max)""male, female or alien...""""quake1,2,3 or doom1,2,3 or half life1,2"""""}# bind for setup procedureset int_bind(setup) "!setup"# bind for remove procedureset int_bind(delete) "!remove"# bind for sessions procedureset int_bind(sessions) "!sessions"# bind for questions startset int_bind(questions_start) "fillme"# messagesset int_msg(int_start) "Hey! Your profile has been created, write: 'fillme' if you want to update your profile information now (3 extra questions about your person)"set int_msg(int_key) "here is your key: &k, save it, you will need it later for update or delete your profile"set int_msg(int_end) "thanks for the answers, bye!"set int_msg(remove_start) "Hi, if you want to remove this profile you have to type your profile key now (paste it and press enter)"set int_msg(remove_end) "profile has been successfully removed"set int_msg(wrong_key) "you typed wrong key, if you want to try again, please use !remove <profile_name> again"set int_msg(just_one_command) "you can use just one command in the same time, !setup or !remove"set int_msg(profile_exists) "profile with that name already exists"set int_msg(profile_not_exists) "profile with that name doesn't exists"set int_msg(setup_already_in_use) "you can't use this command twice in the same time"set int_msg(remove_already_in_use) "you can't use this command twice in the same time"set int_msg(setup_profile_name_already_in_use) "someone is already making setup with that name"set int_msg(remove_profile_name_already_in_use) "someone is already trying to remove profile with that name"set int_msg(setup_help) "use: !setup <profile_name>"set int_msg(remove_help) "use: !remove <profile_name>"set int_msg(bind_help) "only small and BIG letters are allowed, sorry"# interviewer-addon config </cut># procs from interviewer-addon to use in your script# or if you want, you can use this script, but i think,# it will be easier to include these procs in some other script# this proc checks if some nick exists or not (in some DB),# proc should return 0 - if profile doesn't exists, 1 - when profile exists# proc takes 4 arguments, nick/uhost/chan of user and profile name# write here some sql query, check some file - whatever...proc int_check_if_profile_exists { nick uhost profile_name chan } {putquick "PRIVMSG #debug :int_check_if_profile_exists{}: $nick $uhost $profile_name $chan r0"return 0}# this proc checks if key is correct or not# proc should return 1 - if is correct, 0 - if is not# proc takes 4 arguments, nick/uhost of user, profile name and profile key# write here some sql query, check some file - whatever...proc int_check_if_key_is_correct { nick uhost profile_name profile_key } {putquick "PRIVMSG #debug :int_check_if_key_is_correct{}: $nick $uhost $profile_name $profile_key r1"return 1}# this proc is called when a profile needs to be removed# proc takes 4 arguments, nick/uhost of user, profile name and action time# write here some sql query, remove profile from some file - whateverproc int_remove_profile_event { nick uhost profile_name action_time } {putquick "PRIVMSG #debug :int_remove_profile_event{}: $nick $uhost $profile_name $action_time"}# this proc is called when new profile is created# proc takes 6 arguments, nick/uhost/chan of user, profile name, profile key and action time# write this to sql or some file - whatever...proc int_new_profile_event { nick uhost chan profile_name profile_key action_time} {putquick "PRIVMSG #debug :int_new_profile_event{}: $nick $uhost $chan $profile_name $profile_key $action_time"}# this proc is called after every answer# proc takes 6 arguments, nick/uhost/profile name of user, answer, action time and question key# write this to sql or some file - whatever...proc int_answer_event { nick uhost profile_name arg action_time question_key } {putquick "PRIVMSG #debug :int_answer_event{}: $nick $uhost $profile_name $arg $action_time $question_key"}