#!/usr/bin/perl

require "/usr/local/woda/en/woda.pl" unless defined &main;



# generated by wb??.pl 2.3r1 at 97/03/13 09:36
# Database definition:
#

$WBB{'dbTitle'} = 'The Aikido Dojo Guide';
$WBB{'about'} = '<P><B><BLOCKQUOTE>This is a small attempt of trying to make a guide to all
aikido dojos around the world.</BLOCKQUOTE></B><P>';
$WBB{'recordTitle'} = 'Dojo';
$WBB{'manager'} = 'Kjartan Clausen';
$WBB{'managerEmail'} = 'kjartan@aikidofaq.com';
$WBB{'dataDir'} = '/llocal/aikidofaq/woda/data/guide';
$WBB{'homeURL'} = 'http://www.aikidofaq.com/guide';
$WBB{'homePage'} = 'index.html';
$WBB{'docsDir'} = '/llocal/aikidofaq/woda/data/guide';
$WBB{'sort;DEFAULT'} = '$rec{DojoName}';
$WBB{'format;DEFAULT'} = '"<A HREF=$rec{URL}><B>$rec{DojoName}</B></A> - $rec{Country} - <A HREF=mailto:$rec{Email}>$rec{Email}</A>"';
$WBB{'cacheExpire'} = '0';
$WBB{'deleteAfter'} = '0';
$WBB{'style'} = '/* */';
$WBB{'pageBody'} = 'BACKGROUND=/bilder/texture3.gif';
$WBB{'pageHead'} = '<IMG SRC=/bilder/guide3.gif><BR CLEAR=all>';
$WBB{'pageFoot'} = '<IMG SRC=/bilder/guide_footer.gif><BR CLEAR=all>';
$WBB{'iconURL'} = '/woda/icons';
$WBB{'groups'} = 'admin .* hjordis';
$WBB{'dfltHits'} = '50';
$WBB{'maxHits'} = '10000';
$WBB{'language'} = 'uk';
$WBB{'intlCharset'} = 'ISO-8859-1';
$WBB{'ascii'} = '0';
$WBB{'detail'} = '"<P>
<table border=1 align=center cellspacing=0 cellpadding=3>
<tr>
<td colspan=4 align=center valign=center bgcolor=#FFCC99>
<FONT size=+2> $rec{DojoName} </FONT>
\&nbsp\;</td>
</tr>
<tr>
<td><b><font>Style of Aikido:</font></b></td>
<td> $rec{Style} \&nbsp\;</td>
<td><b><font>Affiliation:</font></b></td>
<td> $rec{Affiliation} \&nbsp\;</td>
</tr>
<tr> 
<td colspan=2><b><font>The dojo\'s address:</font></b></td>
<td colspan=2> $rec{DojoAddress} \&nbsp\;</td>
</tr>
<tr> 
<td width=130><b><font>Telephone:</font></b></td>
<td width=130> $rec{Telephone} \&nbsp\;</td>
<td width=130><b><font>Country:</font></b></td>
<td width=130> $rec{State} $rec{Country} \&nbsp\;</td>
</tr>
<tr> 
<td><b><font>Homepage:</font></b></td>
<td colspan=3> <A HREF=$rec{URL}> $rec{URL} </A> \&nbsp\;</td>
</tr>
<tr>
<td colspan=4 bgcolor=#FFCC99><b><font size=+1>Contact:</font></b></td>
</tr>
<tr>
<td colspan=4 align=center> $rec{Name} - <A HREF=mailto:$rec{Email}>$rec{Email}</A> \&nbsp\;</td>
</tr>
<tr>
<td><b><font>Address:</font></b></td>
<td colspan=3> $rec{Address} \&nbsp\;</td>
</tr>
<tr>
<td><b><font>Postal code:</font></b></td>
<td colspan=3> $rec{PostalCodes} \&nbsp\;</td>
</tr>
<tr>
<td colspan=4 bgcolor=#FFCC99><b><font>Other Information:</font></b></td>
</tr>
<tr>
<td colspan=4> $rec{OtherInfo} \&nbsp\;</td>
</tr>
</table>"
';

#
# Field definitions:
#

$i=1000;                # counter


$x='br1';    # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'type'} = 'BREAK';
$WBF{$x} = 'about the dojo';

$x='DojoName'; # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = '(1-50 characters)';
#$WBF{$x} = 'm/[A-Za-zæøåÆØÅ\-\.\ ]{1,50}/';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x} = '1;';

$x='URL';       # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'http://www.aikido.dojo.somewhere';
$WBF{$x,'type'} = 'URL';
$WBF{$x} = 'm/^$|^http:.*/';

$x='DojoAddress';      # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Street address of the dojo';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x} = '1;';

$x='State';     # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'if you are american';
$WBF{$x} = '1;';
$WBF{$x,type}='OPTION';
$WBF{$x,options}=join('|',
'',
'AK',
'AL',
'AR',
'AZ',
'CA',
'CO',
'CT',
'DC',
'FL',
'GA',
'IA',
'ID',
'IL',
'IN',
'KS',
'KY',
'LA',
'MA',
'MD',
'ME',
'MI',
'MN',
'MO',
'MS',
'MT',
'NC',
'ND',
'NE',
'NH',
'NJ',
'NM',
'NV',
'NY',
'OH',
'OK',
'OR',
'PA',
'RI',
'SC',
'SD',
'TN',
'TX',
'UT',
'VA',
'VT',
'WA',
'WI',
'WV',
'WY'
);

$x='Country';   # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,type}='OPTION';
$WBF{$x,'p'} = 'If you come from a country not on this list, please send me an email so that I can fix it.';
$WBF{$x,options}=join('|',
'USA',
'Canada',
'Australia',
'Austria',
'Barbados',
'Belgium',
'Bermuda',
'Brazil',
'Bulgaria',
'Chile',
'Colombia',
'Czech Republic',
'Croatia',
'Denmark',
'Equador',
'Finland',
'France',
'Germany',
'Greece',
'Guam',
'Hong Kong',
'Hungary',
'Iceland',
'India',
'Indonesia',
'Ireland',
'Israel',
'Italy',
'Japan',
'Latvia',
'Lebanon',
'Liechtenstein',
'Luxembourg',
'Macao',
'Macedonia',
'Malaysia',
'Malta',
'Martinique',
'Mexico',
'Monaco',
'Morocco',
'Neth. Antilles',
'Netherlands',
'New Zealand',
'Nicaragua',
'Norway',
'Panama',
'Paraguay',
'Peru',
'Philippines',
'Poland',
'Portugal',
'Puerto Rico',
'Romania',
'Russia',
'Scotland',
'Singapore',
'Slovak Republic',
'Slovenia',
'South Africa',
'South Korea',
'Spain',
'Sweden',
'Switzerland',
'Syria',
'Taiwan',
'Thailand',
'Turkey',
'Ukraine',
'United Kingdom',
'Uruguay',
'Venezuela',
'Yugoslavia',
'Other'
);
$WBF{$x} = '1;';

$x='Telephone'; # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'preferably with international prefix';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x} = '1;';

$x='br2'; # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'type'} = 'BREAK';
$WBF{$x} = 'about the contact';

$x='Name';     # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Your dojos contact';
$WBF{$x,'type'} = 'INPUT';
#$WBF{$x} = 'm/[A-Za-zæøåÆØÅ\-\.]{1,40}/';
$WBF{$x,'cond'} = '1-40 letters, dots and dashes!';

$x='Email';     # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Email address of your dojos contact';
$WBF{$x,'type'} = 'EMAIL';
$WBF{$x} = '1;';

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

$x='PostalCodes';    # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Area name, ZIP code etc.';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x} = '1;';

$x='br3'; # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'type'} = 'BREAK';
$WBF{$x} = 'about the aikido';

$x='Style';     # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'If you practice a <I>major</I> style not mentioned here and think that it should have its own entry, please tell me.';
$WBF{$x,type}='OPTION';
$WBF{$x,options}=join('|',
'Aikikai',
'Iwama',
'Ki Society',
'Yoshinkan',
'Tomiki',
'Kokikai',
'Seidokan',
'Jiyushinkai',
'Tendo Ryu',
'Ki Aikido',
'Yoseikan',
'Aiki Jujutsu',
'Other'
);
$WBF{$x} = '1;';

$x='Affiliation';       # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Organizational affiliations if known';
$WBF{$x,'type'} = 'INPUT';
$WBF{$x} = '1;';

$x='OtherInfo';        # ------------------------------ 
$WBF{$x,srt}=$i--;
$WBF{$x,'p'} = 'Training schedule/weapons practice etc.';
$WBF{$x,'type'} = 'TEXTAREA';
$WBF{$x} = '1;';

# 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();