Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

247 lines (239 sloc) 4.253 kb
#!/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;
Jump to Line
Something went wrong with that request. Please try again.