/[wait]/cvs-head/script/index_ora
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cvs-head/script/index_ora

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 67 by laperla, Thu Jan 24 00:40:43 2002 UTC revision 68 by laperla, Thu Jan 24 01:53:25 2002 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
3  # $Basename$  # $Basename$
4  # $Revision: 1.5 $  # $Revision: 1.6 $
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Mon Dec 31 13:57:11 2001  # Created On      : Mon Dec 31 13:57:11 2001
7  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
# Line 38  GetOptions(\%OPT, Line 38  GetOptions(\%OPT,
38             'table=s',             'table=s',
39            ) || die "Usage: ...\n";            ) || die "Usage: ...\n";
40    
41  my $db;  my @localtime = localtime;
42  unless (-d "$OPT{dir}/$OPT{database}") {  $localtime[5] += 1900;
43    $db = WAIT::Database->create(name       => $OPT{database},  $localtime[4]++;
44                                'directory' => $OPT{dir})  my $jobid = sprintf "%04s-%02s-%02s_%02s:%02s_%d", @localtime[5,4,3,2,1], $$;
45      or die "Could not open database $OPT{database}: $@\n";  my $db = WAIT::Database->create(name      => "$OPT{database}-$jobid",
46  }                                  directory => $OPT{dir})
47  else {      or die "Could not create database $OPT{database}: $@\n";
   $db = WAIT::Database->open(name        => $OPT{database},  
                              'directory' => $OPT{dir})  
     or die "Could not open table $OPT{table}: $@\n";  
 }  
48    
49  my $layout = new WAIT::Parse::Ora;  my $layout = new WAIT::Parse::Ora;
50    
# Line 98  $tb->set(top=>1); Line 94  $tb->set(top=>1);
94  $tb->close();  $tb->close();
95  $db->close();  $db->close();
96    
97    # Now we have a new database with a very long name and we want that
98    # database to be accessible with the $OPT{database} name
99    
100    use File::Spec;
101    my $long_dir   = "$OPT{database}-$jobid";
102    my $want_dir   = File::Spec->catdir($OPT{dir}, $OPT{database});
103    my $prel_slink = File::Spec->catdir($OPT{dir}, "$OPT{database}-$$");
104    unlink $prel_slink; # may fail
105    symlink $long_dir, $prel_slink or die "Could not symlink $long_dir, $prel_slink: $!";
106    rename $prel_slink, $want_dir or die "Could not rename $prel_slink, $want_dir: $!";
107    
108  $WAIT::Config = $WAIT::Config; # make perl -w happy  $WAIT::Config = $WAIT::Config; # make perl -w happy
109    
110    
Legend:
Removed from v.67  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.26