File: lr_db_fetch.in

package info (click to toggle)
lire 20020214-7
  • links: PTS
  • area: main
  • in suites: woody
  • size: 6,180 kB
  • ctags: 1,245
  • sloc: perl: 11,637; xml: 5,725; sh: 3,458; makefile: 1,008
file content (58 lines) | stat: -rw-r--r-- 1,702 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#! /bin/sh -e

# $Id: lr_db_fetch.in,v 1.3 2001/06/03 14:39:41 vanbaal Exp $


#
# Copyright (C) 2000-2001 Stichting LogReport Foundation LogReport@LogReport.org
# 
#     This program is free software; you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation; either version 2 of the License, or
#     (at your option) any later version.
# 
#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
# 
#     You should have received a copy of the GNU General Public License
#     along with this program (see COPYING); if not, check with
#     http://www.gnu.org/copyleft/gpl.html or write to the Free Software 
#     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
#

PROGRAM=lr_db_fetch
tag="all all none $PROGRAM"

if test $# -lt 1
then
    echo >&2 "$tag err usage $PROGRAM tag [key]"
    exit 1
fi

id="$1"; shift

test -d "$LR_DBDIR" || mkdir -p "$LR_DBDIR"
test -f "$LR_DBFILE" || touch "$LR_DBFILE"

if test -n "$1"
then
    key="$1"
    if grep "$id $key" $LR_DBFILE >/dev/null
    then
        grep "$id $key" $LR_DBFILE | while read i k r; do echo $r; done
    else
        echo >&2 "$tag err $id $key not found in $LR_DBFILE, exiting"
        exit 1
    fi
else
    if grep "$id" $LR_DBFILE >/dev/null
    then
        grep "$id" $LR_DBFILE | while read i r; do echo $r; done
    else
        echo >&2 "$tag err $id not found in $LR_DBFILE, exiting"
        exit 1
    fi
fi