#!/usr/bin/perl

require "/usr/local/bin/woda/woda-uk.pl" unless defined &main;

#
# Database definition:
#

$WBB{'dbTitle'} = 'inscriptions';
$WBB{'recordTitle'} = 'membre';
$WBB{'dataDir'} = '/home/novonet/dheage/data/membres';
$WBB{'homeURL'} = '/cgi-bin/membres';
$WBB{'requireFile'} = '/home/novonet/dheage/HTML/cgi-bin/html';
$WBB{'tables'} = 'html';
$WBB{'userTable'} = 'gestion';

$WBB{'key'} = '$rec{email}';

$WBB{'rights'} = '
allow gestion ^Go|^Show|^Home|^Edit|^Delete|^Add|^AdmMenu|^AdmExpireForm|AdmClean|AdmStatic|AdmAgentProcess|^AdmExport|AdmImportForm|AdmClose|AdmOpen|^Search|^AdmDelPass
deny .* ^Show|^Go|Home|^Edit|^Delete|^Adm|^AdmMenu|^Mail|^DisplayStructure|^Search';

$WBB{'head;Add'} = <<EOM;
"<TABLE BORDER=1 BGCOLOR=CCCCCC>
<TR><TD><SMALL><B>Les inscriptions sont réservées au professionnels de la santé et aux chercheurs.
Nous devons les valider avant de vous donner accès aux parties privées de ce site.
Il est inutile de vous inscrire si vous n'êtes pas concernés.</B></SMALL></TD></TR>
</TABLE>"
EOM

#
# Field definitions:
#

$i=1000;		# counter

$WBF{titre,'head'}='Nom';

$WBF{chapeau,'head'}='Centre d'."'".'int&eacute'.";".'ret';
$WBF{chapeau,'help'} = 'Vous pouvez pr&eacute'.";".'cisez vos centres '."'".'int&eacute'.";".'ret et vous pr&eacute'.";".'senter en quelques lignes. ';

$x='prenom';	# ------------------------------
$WBF{$x,srt}=2001;
$WBF{$x} = 'm/[A-Za-z\-\. ]{1,40}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=35';
$WBF{$x,'head'}='Pr&eacute'.";".'nom';
$WBF{$x,'cond'} = 'limité à 40 caractères';

$x='rub1';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x} = 'ADRESSE';
$WBF{$x,'type'} = 'BREAK';

$x='email';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'EMAIL';
$WBF{$x,'typePar'} = 'SIZE=25';
$WBF{$x,'head'}='E-mail';
$WBF{$x,'help'}='Votre adresse e-mail servira pour vous identifier (Login).';

$x='profession';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=40';

$x='specialisation';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=40';

$x='organisme';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=40';

$x='adresse';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'TEXTAREA';
$WBF{$x,'typePar'} = 'COLS=35 ROWS=3';
$WBF{$x,'head'}='Adresse';

$x='cp1';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'CONTINUE SIZE=2 MAXLENGTH=2';
$WBF{$x,'head'}='Code Postal';

$x='cp2';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=3 MAXLENGTH=3';

$x='ville';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = 'm/[A-Z\-\. ]{1,40}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=30';
$WBF{$x,'head'}='Ville';
$WBF{$x,'cond'} = 'limité à 40 caractères en majuscules';
$WBF{$x,'help'} = 'pr&eacute'.";".'cisez l'."'".'arrondissement';

$x='cedex';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'INPUT';

$x='pays';	# ------------------------------
$WBF{$x,srt}=$i--;
$WBF{$x,'type'} = 'OPTION';
$WBF{$x} = '1;';
$WBF{$x,'head'} = 'Pays';
$WBF{$x,'p'} = 'En france, il faut préciser les Dom-Tom. Les pays sont en anglais.';
$WBF{$x,'help'} = 'S'."'".'il manque des Dom-Tom prévenir jeanb@novonet.co.uk';
$WBF{$x,'d'} = 'France Metropolitaine';
$WBF{$x,'options'} = 'Afghanistan
Albania
Algeria
American Samoa
Andorra
Angola
Anguilla
Antarctica
Antigua and Barbuda
Argentina
Armenia
Aruba
Australia
Austria
Azerbaijan
Bahamas
Bahrain
Bangladesh
Barbados
Belarus
Belgium
Belize
Benin
Bermuda
Bhutan
Bolivia
Bosnia and Herzegovina
Botswana
Bouvet Island
Brazil
British Indian Ocean Territory
Brunei Darussalam
Bulgaria
Burkina Faso
Burundi
Cambodia
Cameroon
Canada
Cape Verde
Cayman Islands
Central African Republic
Chad
Chile
China
Christmas Island
Cocos (Keeling) Islands
Colombia
Comoros
Congo
Cook Islands
Costa Rica
Cote D Ivoire (Ivory Coast)
Croatia (Hrvatska)
Cuba
Cyprus
Czech Republic
Czechoslovakia (former)
Denmark
Djibouti
Dominica
Dominican Republic
East Timor
Ecuador
Egypt
El Salvador
Equatorial Guinea
Eritrea
Estonia
Ethiopia
Falkland Islands (Malvinas)
Faroe Islands
Fiji
Finland
France Metropolitaine
France Martinique
France Guadeloupe
France Reunion
French Guyane
French Polynese
French Southern Territories
Gabon
Gambia
Georgia
Germany
Ghana
Gibraltar
Great Britain (UK)
Greece
Greenland
Grenada
Guam
Guatemala
Guinea
Guinea-Bissau
Guyana
Haiti
Heard and McDonald Islands
Honduras
Hong Kong
Hungary
Iceland
India
Indonesia
Iran
Iraq
Ireland
Israel
Italy
Jamaica
Japan
Jordan
Kazakhstan
Kenya
Kiribati
Korea (North)
Korea (South)
Kuwait
Kyrgyzstan
Laos
Latvia
Lebanon
Lesotho
Liberia
Libya
Liechtenstein
Lithuania
Luxembourg
Macau
Macedonia
Madagascar
Malawi
Malaysia
Maldives
Mali
Malta
Marshall Islands
Mauritania
Mauritius
Mayotte
Mexico
Micronesia
Moldova
Monaco
Mongolia
Montserrat
Morocco
Mozambique
Myanmar
Namibia
Nauru
Nepal
Netherlands
Netherlands Antilles
Neutral Zone
New Caledonia
New Zealand (Aotearoa)
Nicaragua
Niger
Nigeria
Niue
Norfolk Island
Northern Mariana Islands
Norway
Oman
Pakistan
Palau
Panama
Papua New Guinea
Paraguay
Peru
Philippines
Pitcairn
Poland
Portugal
Puerto Rico
Qatar
Romania
Russian Federation
Rwanda
S. Georgia and S. Sandwich Isls.
Saint Kitts and Nevis
Saint Lucia
Saint Vincent and the Grenadines
Samoa
San Marino
Sao Tome and Principe
Saudi Arabia
Senegal
Seychelles
Sierra Leone
Singapore
Slovak Republic
lovenia
Solomon Islands
Somalia
South Africa
Spain
Sri Lanka
St. Helena
St. Pierre and Miquelon
Sudan
Suriname
valbard and Jan Mayen Islands
Swaziland
Sweden
Switzerland
Syria
Taiwan
ajikistan
Tanzania
Thailand
Togo
Tokelau
Tonga
Trinidad and Tobago
Tunisia
Turkey
Turkmenistan
Turks and Caicos Islands
Tuvalu
US Minor Outlying Islands
USSR (former)
Uganda
Ukraine
United Arab Emirates
United Kingdom
United States
Uruguay
Uzbekistan
Vanuatu
Vatican City State (Holy See)
Venezuela
Viet Nam
Virgin Islands (British)
Virgin Islands (U.S.)
Wallis and Futuna Islands
Western Sahara
Yemen
Yugoslavia
Zaire
Zambia
Zimbabwe';

$x='tel';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = 'm/[0-9]{1,15}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=20';
$WBF{$x,'head'}='T&eacute'.";".'l.';
$WBF{$x,'cond'} = 'limité à 15 chiffres';

$x='portable';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = 'm/[0-9]{1,15}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=20';
$WBF{$x,'head'}='Portable';
$WBF{$x,'cond'} = 'limité à 15 chiffres';

$x='fax';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = 'm/[0-9]{1,15}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x,'typePar'} = 'SIZE=20';
$WBF{$x,'cond'} = 'limité à 15 chiffres';


$x='group';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'OPTION';
$WBF{$x,'typePar'} = 'RADIO';
$WBF{$x,'options'} = <<'EOF';
visiteur
membre
EOF
$WBF{$x,'d'} = 'visiteur';
$WBF{$x,'modifies'}='gestion';
$WBF{$x,'sees'}='gestion';

$x='status';	# ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x} = '1;';
$WBF{$x,'type'} = 'OPTION';
$WBF{$x,'typePar'} = 'RADIO';
$WBF{$x,'options'} = <<'EOF';
non
oui
EOF
$WBF{$x,'d'} = 'non';
$WBF{$x,'modifies'}='admin';
$WBF{$x,'sees'}='admin';

# add-in functions are here:
require "$WBB{'requireFile'}" if $WBB{'requireFile'};

# for the compiled version
dump START if $ARGV[0] eq '-dump';
START:

# call the real thing

do main();