3 # $Id: update.pl,v 1.1 2006-06-05 16:33:42 mike Exp $
9 my $options = new ZOOM::Options();
10 $options->option(user => "admin");
11 $options->option(password => "fish");
12 my $conn = create ZOOM::Connection($options);
13 $conn->connect("test.indexdata.com:2118");
16 my $dbname = "mike$$";
17 $conn->option(databaseName => $dbname);
19 send_package($conn, "create", databaseName => $dbname);
20 print "$0: created database '$dbname'\n";
22 my $rs = $conn->search_pqf("mineral");
23 my $n = $rs->size($rs);
24 print "$0: found $n records\n";
26 send_package($conn, "update", action => "specialUpdate",
27 recordIdOpaque => 1, record => join("", <DATA>));
28 print "$0: added record\n";
30 $rs = $conn->search_pqf("mineral");
32 print "$0: found $n records\n";
34 send_package($conn, "drop", databaseName => $dbname);
35 print "$0: deleted database\n";
38 $rs = $conn->search_pqf("mineral");
41 } elsif ($@->isa("ZOOM::Exception")) {
42 print "$0: database no longer there\n";
49 my($conn, $op, %options) = @_;
51 my $p = $conn->package();
52 foreach my $key (keys %options) {
53 $p->option($key, $options{$key});
63 UTAH EARTHQUAKE EPICENTERS
64 <Acronym>UUCCSEIS</Acronym>
66 <Originator>UTAH GEOLOGICAL AND MINERAL SURVEY</Originator>
68 APPALACHIAN VALLEY; EARTHQUAKE; EPICENTER; SEISMOLOGY; UTAH
69 </Local-Subject-Index>
71 Five files of epicenter data arranged by date comprise this data
72 set. These files are searchable by magnitude and
73 longitude/latitude. Hardcopy of listing and plot of requested
74 area available. Epicenter location and date, magnitude, and focal
76 <Format>DIGITAL DATA SETS</Format>
77 <Data-Category>TERRESTRIAL</Data-Category>
79 Data are supplied by the University of Utah Seismograph
80 Station. The Utah Geologcial and Mineral Survey (UGMS) is merely
81 a clearinghouse of the data.
85 <Geographic-Coverage>US STATE</Geographic-Coverage>
86 <Coverage-Description>UTAH</Coverage-Description>
87 <Bounding-Coordinates>
88 <West-Bounding-Coordinate>-114</West-Bounding-Coordinate>
89 <East-Bounding-Coordinate>-109</East-Bounding-Coordinate>
90 <North-Bounding-Coordinate>42</North-Bounding-Coordinate>
91 <South-Bounding-Coordinate>37</South-Bounding-Coordinate>
92 </Bounding-Coordinates>
95 <Time-Period-Textual>-PRESENT</Time-Period-Textual>
99 <Organization>UTAH GEOLOGICAL AND MINERAL SURVEY</Organization>
100 <Street-Address>606 BLACK HAWK WAY</Street-Address>
101 <City>SALT LAKE CITY</City>
103 <Zip-Code>84108</Zip-Code>
104 <Country>USA</Country>
105 <Telephone>(801) 581-6831</Telephone>
107 <Resource-Description>UTAH EARTHQUAKE EPICENTERS</Resource-Description>
108 <Technical-Prerequisites>
109 <Data-Set-Type>AUTOMATED</Data-Set-Type>
110 <Access-Method>BATCH</Access-Method>
111 <Number-of-Records>8,700</Number-of-Records>
112 <Computer-Type>PC NETWORK</Computer-Type>
113 <Computer-Location>SALT LAKE CITY, UT</Computer-Location>
114 </Technical-Prerequisites>
117 <Documentation>NONE</Documentation>
118 </Access-Constraints>
120 <Status>OPERATIONAL</Status>
123 <Name>BILL CASE</Name>
124 <Organization>UTAH GEOLOGICAL AND MINERAL SURVEY</Organization>
125 <Street-Address>606 BLACK HAWK WAY</Street-Address>
126 <City>SALT LAKE CITY</City>
128 <Zip-Code>84108</Zip-Code>
129 <Country>USA</Country>
130 <Telephone>(801) 581-6831</Telephone>
132 <Control-Identifier>ESDD0006</Control-Identifier>
133 <Record-Source>UTAH GEOLOGICAL AND MINERAL SURVEY</Record-Source>
134 <Date-of-Last-Modification>198903</Date-of-Last-Modification>