7 my $options = new ZOOM::Options();
8 $options->option(user => "admin");
9 $options->option(password => "fish");
10 my $conn = create ZOOM::Connection($options);
11 $conn->connect("test.indexdata.com:2118");
14 my $dbname = "mike$$";
15 $conn->option(databaseName => $dbname);
17 send_package($conn, "create", databaseName => $dbname);
18 print "$0: created database '$dbname'\n";
20 my $rs = $conn->search_pqf("mineral");
21 my $n = $rs->size($rs);
22 print "$0: found $n records\n";
24 send_package($conn, "update", action => "specialUpdate",
25 recordIdOpaque => 1, record => join("", <DATA>));
26 print "$0: added record\n";
28 $rs = $conn->search_pqf("mineral");
30 print "$0: found $n records\n";
32 send_package($conn, "drop", databaseName => $dbname);
33 print "$0: deleted database\n";
36 $rs = $conn->search_pqf("mineral");
39 } elsif ($@->isa("ZOOM::Exception")) {
40 print "$0: database no longer there\n";
47 my($conn, $op, %options) = @_;
49 my $p = $conn->package();
50 foreach my $key (keys %options) {
51 $p->option($key, $options{$key});
61 UTAH EARTHQUAKE EPICENTERS
62 <Acronym>UUCCSEIS</Acronym>
64 <Originator>UTAH GEOLOGICAL AND MINERAL SURVEY</Originator>
66 APPALACHIAN VALLEY; EARTHQUAKE; EPICENTER; SEISMOLOGY; UTAH
67 </Local-Subject-Index>
69 Five files of epicenter data arranged by date comprise this data
70 set. These files are searchable by magnitude and
71 longitude/latitude. Hardcopy of listing and plot of requested
72 area available. Epicenter location and date, magnitude, and focal
74 <Format>DIGITAL DATA SETS</Format>
75 <Data-Category>TERRESTRIAL</Data-Category>
77 Data are supplied by the University of Utah Seismograph
78 Station. The Utah Geologcial and Mineral Survey (UGMS) is merely
79 a clearinghouse of the data.
83 <Geographic-Coverage>US STATE</Geographic-Coverage>
84 <Coverage-Description>UTAH</Coverage-Description>
85 <Bounding-Coordinates>
86 <West-Bounding-Coordinate>-114</West-Bounding-Coordinate>
87 <East-Bounding-Coordinate>-109</East-Bounding-Coordinate>
88 <North-Bounding-Coordinate>42</North-Bounding-Coordinate>
89 <South-Bounding-Coordinate>37</South-Bounding-Coordinate>
90 </Bounding-Coordinates>
93 <Time-Period-Textual>-PRESENT</Time-Period-Textual>
97 <Organization>UTAH GEOLOGICAL AND MINERAL SURVEY</Organization>
98 <Street-Address>606 BLACK HAWK WAY</Street-Address>
99 <City>SALT LAKE CITY</City>
101 <Zip-Code>84108</Zip-Code>
102 <Country>USA</Country>
103 <Telephone>(801) 581-6831</Telephone>
105 <Resource-Description>UTAH EARTHQUAKE EPICENTERS</Resource-Description>
106 <Technical-Prerequisites>
107 <Data-Set-Type>AUTOMATED</Data-Set-Type>
108 <Access-Method>BATCH</Access-Method>
109 <Number-of-Records>8,700</Number-of-Records>
110 <Computer-Type>PC NETWORK</Computer-Type>
111 <Computer-Location>SALT LAKE CITY, UT</Computer-Location>
112 </Technical-Prerequisites>
115 <Documentation>NONE</Documentation>
116 </Access-Constraints>
118 <Status>OPERATIONAL</Status>
121 <Name>BILL CASE</Name>
122 <Organization>UTAH GEOLOGICAL AND MINERAL SURVEY</Organization>
123 <Street-Address>606 BLACK HAWK WAY</Street-Address>
124 <City>SALT LAKE CITY</City>
126 <Zip-Code>84108</Zip-Code>
127 <Country>USA</Country>
128 <Telephone>(801) 581-6831</Telephone>
130 <Control-Identifier>ESDD0006</Control-Identifier>
131 <Record-Source>UTAH GEOLOGICAL AND MINERAL SURVEY</Record-Source>
132 <Date-of-Last-Modification>198903</Date-of-Last-Modification>