source: subversion/sites/other/trapi/cleardb @ 31161

Last change on this file since 31161 was 13053, checked in by blarson, 12 years ago

Redo how relations are stored.
Move confiuration to trapi.pm
Extra options to map
Rewrite cleardb in perl

File size: 460 bytes
Line 
1#!/usr/bin/perl
2# Copyright 2008 Blars Blarson.  Distributed under GPL version 2, see GPL-2
3
4use strict;
5use warnings;
6
7use File::Path;
8
9use constant VERBOSE => 5;
10use trapi;
11
12chdir TRAPIDIR or die "Could not chdir TRAPIDIR: $!";
13
14foreach my $z (0, MINZOOM .. MAXZOOM) {
15    rmtree("z$z", {}) if (-d "z$z");
16}
17
18foreach my $file ('nodes', 'ways', 'relations', 'zooms') {
19    open F, ">", DBDIR.$file.".db" or die "Could not create $file.db: $!";
20    close F;
21}
Note: See TracBrowser for help on using the repository browser.