schema.pl

#!/usr/bin/perl
use strict;

package schema;

our %rules = (
	
	# RTF Info Fields
	"Author"                   			 => { "mandatory" => 0,	"type"	=> "text",														},
	"Operator"                 			 => { "mandatory" => 0,	"type"	=> "text",														},
	"RTF Create Time"          			 => { "mandatory" => 0,	"type"	=> "date",														},
	"RTF Revision Time"        			 => { "mandatory" => 0,	"type"	=> "date",														},
	"Version" 			       			 => { "mandatory" => 0,	"type"	=> "text",														},
	"Editing Time In Minutes"  			 => { "mandatory" => 0,	"type"	=> "int",														},
	"Number of Pages"          			 => { "mandatory" => 0,	"type"	=> "int",														},
	"Number of Words"          			 => { "mandatory" => 0,	"type"	=> "int",														},
	"Number of Characters"     			 => { "mandatory" => 0,	"type"	=> "int",														},
	"Number of Characters With Spaces"   => { "mandatory" => 0,	"type"	=> "int",														},
	"RTF Version Number" 				 => { "mandatory" => 0,	"type"	=> "int",														},
	
	# Single Value Fields
	
	"Title"                     => { "mandatory" => 1,	"type"	=> "text",														},
	"Publisher"                 => { "mandatory" => 1,	"type"	=> "text",	"default"	=> "My Company"							},
	"Category"                  => { "mandatory" => 0,	"type"	=> "text",	"default"	=> "Document"							},
	"CreationDate"              => { "mandatory" => 1,	"type"	=> "date",														},
	"ModifiedDate"              => { "mandatory" => 0,	"type"	=> "date",														},
	"ValidFromDate"             => { "mandatory" => 0,	"type"	=> "date",														},
	"ValidToDate"               => { "mandatory" => 0,	"type"	=> "date",														},
	"Identifier"                => { "mandatory" => 1,	"type"	=> "text",									"maxlength"	=>	255	},
	"Description"               => { "mandatory" => 1,	"type"	=> "text",														},
	"ISBN"                      => { "mandatory" => 1,	"type"	=> "int",									"maxlength"	=>	10	},
	
	# Creator
	"Creator" => {
		"mandatory"	=> 1,
		"type"		=> "text",
		"default"	=> "John Smith",
		"values"	=> [
			"John Smith",
			"Jane Doe",
			"Bill Citizen"
		]
	},
	
	# Language
	"Language" => {
		"mandatory"	=> 0,
		"type"		=> "multi",
		"default"	=> "en-AU",
		"values"	=> [
			"aa",
			"ab",
			"ae",
			"af",
			"ak",
			"am",
			"an",
			"ar",
			"as",
			"av",
			"ay",
			"az",
			"ba",
			"be",
			"bg",
			"bh",
			"bi",
			"bm",
			"bn",
			"bo",
			"br",
			"bs",
			"ca",
			"ce",
			"ch",
			"co",
			"cr",
			"cs",
			"cu",
			"cv",
			"cy",
			"da",
			"de",
			"dv",
			"dz",
			"ee",
			"el",
			"en-AU",
			"en-GB",
			"en-US",
			"eo",
			"es",
			"et",
			"eu",
			"fa",
			"ff",
			"fi",
			"fj",
			"fo",
			"fr",
			"fy",
			"ga",
			"gd",
			"gl",
			"gn",
			"gu",
			"gv",
			"ha",
			"he",
			"hi",
			"ho",
			"hr",
			"ht",
			"hu",
			"hy",
			"hz",
			"ia",
			"id",
			"ie",
			"ig",
			"ii",
			"ik",
			"io",
			"is",
			"it",
			"iu",
			"ja",
			"jv",
			"ka",
			"kg",
			"ki",
			"kj",
			"kk",
			"kl",
			"km",
			"kn",
			"ko",
			"kr",
			"ks",
			"ku",
			"kv",
			"kw",
			"ky",
			"ky",
			"la",
			"lb",
			"lg",
			"li",
			"ln",
			"lo",
			"lt",
			"lu",
			"lv",
			"mg",
			"mh",
			"mi",
			"mk",
			"ml",
			"mn",
			"mr",
			"ms",
			"mt",
			"my",
			"na",
			"nb",
			"nd",
			"ne",
			"ng",
			"nl",
			"nn",
			"no",
			"nr",
			"nv",
			"ny",
			"oc",
			"oj",
			"om",
			"or",
			"os",
			"pa",
			"pi",
			"pl",
			"ps",
			"pt",
			"qu",
			"rm",
			"rn",
			"ro",
			"ru",
			"rw",
			"sa",
			"sc",
			"sd",
			"se",
			"sg",
			"si",
			"sk",
			"sl",
			"sm",
			"sn",
			"so",
			"sq",
			"sr",
			"ss",
			"st",
			"su",
			"sv",
			"sw",
			"ta",
			"te",
			"tg",
			"th",
			"ti",
			"tk",
			"tl",
			"tn",
			"to",
			"tr",
			"ts",
			"tt",
			"tw",
			"ty",
			"ug",
			"uk",
			"ur",
			"uz",
			"ve",
			"vi",
			"vo",
			"wa",
			"wo",
			"xh",
			"yi",
			"yo",
			"za",
			"zh",
			"zu"
		]
	}
);

# $schema::keyformat = "spaced"; # Specifies whether key names should have spaces in them or not
$schema::keyformat = "camel"; # Options are 'spaced' and 'camel'
$schema::delimiter = ";"; # Specifies text delimiter for multi-select values
$schema::rules = \%rules;
1;