source: subversion/sites/other/trapi/rmrel.pl @ 31161

Last change on this file since 31161 was 13944, checked in by blarson, 11 years ago

Add rmrel

  • Property svn:executable set to *
File size: 348 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use constant VERBOSE => 999;
7
8use trapi;
9
10ptdbinit('+<');
11
12my $id = $ARGV[0];
13
14my $ptn = relationptn($id);
15
16my $rf = openptn($ptn, 'relations');
17
18while (my ($r, $off) = readrel($rf)) {
19    last unless (defined $r);
20    next unless ($r == $id);
21    seek $rf, -8, 1;
22    printrel($rf, 0, 0);
23    last;
24}
25
26
Note: See TracBrowser for help on using the repository browser.