D410.id1000.diff
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

D410.id1000.diff
View Options

	diff --git a/Daeghrefn/Wikimedia.tcl b/Daeghrefn/Wikimedia.tcl
	--- a/Daeghrefn/Wikimedia.tcl
	+++ b/Daeghrefn/Wikimedia.tcl
	@@ -47,7 +47,10 @@
	# Handles .+givenname command
	proc pub:givenname {nick uhost handle chan arg} {
	set params [split $arg]
	- if {[llength $params] > 1} {
	+ if {[llength $params] == 0} {
	+ putdcc $idx "Quel prénom ajouter ? e.g. .+prenom Aude F"
	+ return 0
	+ } elseif {[llength $params] > 1} {
	set title [lindex $params 0]
	set genre [string toupper [lindex $params 1]]
	switch -- $genre {
	@@ -55,8 +58,9 @@
	F {}
	D {}
	U {}
	+ E {set genre U}
	default {
	- puthelp "PRIVMSG $chan :Attendu : F (féminin), M (masculin), U (unisexe)"
	+ puthelp "PRIVMSG $chan :Attendu : F (féminin), M (masculin), U (épicène) — e.g. .+prenom Aude F"
	return 0
	}
	}
	@@ -76,7 +80,10 @@
	# Handles .+givenname command
	proc dcc:givenname {handle idx arg} {
	set params [split $arg]
	- if {[llength $params] > 1} {
	+ if {[llength $params] == 0} {
	+ putdcc $idx "Quel prénom ajouter ? e.g. .+prenom Aude F"
	+ return 0
	+ } elseif {[llength $params] > 1} {
	set title [lindex $params 0]
	set genre [string toupper [lindex $params 1]]
	switch -- $genre {
	@@ -84,8 +91,9 @@
	F {}
	D {}
	U {}
	+ E {set genre U}
	default {
	- putdcc $idx "Attendu : F (féminin), M (masculin), U (unisexe)"
	+ putdcc $idx "Attendu : F (féminin), M (masculin), U (épicène) — e.g. .+prenom Aude F"
	return 0
	}
	}