# # $Id: //depot/isms/skulker/cbd/1.1/lib/cbd-lib.pl#2 $ # # file: cbd-lib.pl # desc: general CBD processing support # # limit scope package CBD::lib; # some globals # # CBD data root directory $CBD::lib::cbd_root = "/data/cbd"; # currency abbreviations %CBD::lib::currency = ( 'AUD' => 'Australian Dollars', 'ATS' => 'Austrian Schillings', 'BEF' => 'Belgian Francs', 'CAD' => 'Canadian Dollars', 'CNY' => 'Chinese Renmimbi', 'DKK' => 'Danish Kroner', 'EUR' => 'Euro', 'FIM' => 'Finnish Markka', 'FRF' => 'French Francs', 'DEM' => 'German Marks', 'GBP' => 'British Pounds', 'GRD' => 'Greek Drachmas', 'HKD' => 'Hong Kong Dollars', 'INR' => 'Indian Rupees', 'ITL' => 'Italian Lira', 'JPY' => 'Japanese Yen', 'MXP' => 'Mexican New Pesos', 'NLG' => 'Dutch Guilders', 'NOK' => 'Norwegian Kroner', 'PTE' => 'Portugese Escudo', 'RUR' => 'Russian Rubles', 'SGD' => 'Singapore Dollars', 'ESP' => 'Spanish Pesetas', 'SEK' => 'Swedish Krona', 'CHF' => 'Swiss Francs', 'USD' => 'US Dollars', ); # # CBD SGML tags from bulk feed files # %CBD::lib::cbd_tags = ( 'AAAA' => '', 'ABBREV' => '', 'AWARD' => '/AWARD', 'BUSNEWS' => '/BUSNEWS', 'CBD' => '', 'CLASS' => '', 'CLCODES' => '', 'CONTENTS' => '', 'CONTRACT' => '', 'CONTRAWD' => '', 'ENDPGFIT' => 'EMPTY', 'EMAIL' => '', 'EXAMPLE' => '', 'FOGOVSTD' => '', 'FSTD' => '/FSTD', 'GALLEY' => '', 'ITEM' => '', 'LINK' => '', 'MAILER1' => '', 'MAILER2' => '', 'MANRESP' => '', 'MOD' => '/MOD', 'NOTICES' => '', 'NUMNOTES' => '', 'PAGES' => '', 'PRESOL' => '/PRESOL', 'PUBDATE' => '', 'RDRSGDE' => '', 'RGNOTE' => '/RGNOTE', 'SAMPLE' => '', 'SERVICES' => '', 'SNOTE' => '/SNOTE', 'SPECNOTE' => '', 'SRCSGT' => '/SRCSGT', 'SSALE' => '/SSALE', 'STRPGFIT' => 'EMPTY', 'SUBINFO' => '', 'SUPPETC' => '', 'SUPPLIES' => '', 'SURPSALE' => '', 'TITLE' => '', 'PURPOSE' => '', 'ISSNBR' => '', 'INFO' => '', 'RHEVEN' => '', 'RHODD' => '', 'PUBINFO' => '', 'PRICE' => '', 'ORDER' => '', 'PROBLEM' => '', 'EXPIRE' => '', 'CHANGE' => '', 'NOTE' => '', 'DAY' => '', 'DATE' => '', 'PAGE' => '', 'YEAR' => '', 'CBAC' => '', 'ZIP' => '', 'CLASSCOD' => '', 'OFFADD' => '', 'SUBJECT' => '', 'SOLNBR' => '', 'RESPDATE' => '', 'AWDNBR' => '', 'AWDAMT' => '', 'LINENBR' => '', 'PASSWORD' => '', 'AWDDATE' => '', 'AWARDEE' => '', 'CONTACT' => '', 'DESC' => '', 'URL' => '', 'ADDRESS' => '', 'RECD' => '', 'EXP' => '', 'P' => '', 'P1' => '', 'P2' => '', 'AB' => '', 'DEF' => '', 'SERVCOD' => '', 'SERVTLE' => '', 'SCODE' => '', 'STITLE' => '', 'EX' => '', 'SUPCOD' => '', 'SUPDESC' => '', 'CODE' => '', 'NNOTE' => '', 'NBR' => '', 'ITM' => '', 'EXPLAN' => '', 'MAILDATE' => '', 'AC' => 'EMPTY', 'E'=> '/E', 'FNP' => 'EMPTY', 'FR' => '/FR', 'PRTPAGE' => 'EMPTY', 'Q' => 'EMPTY', 'SU' => '/SU', 'Z' => '/Z' ); # keep require happy -- DO NOT REMOVE 1;