lib/Manual_refs.pm

   1 # Copyright (C) 1998 Christian Schwarz
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, you can find it on the World Wide
  15 # Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
  16 # Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  17 # MA 02111-1307, USA.
  18
  19 use strict;
  20
  21 # define hash for manuals
  22 my %manual = (
  23            'policy' => 'Policy Manual',
  24            'devref' => 'Developers Reference',
  25            'fhs' => 'FHS',
  26            );
  27
  28 my %url;
  29 open(REFS, "$ENV{'LINTIAN_ROOT'}/lib/manual_refs") or
  30     die("Could not open manual_refs: $!");
  31 while(<REFS>) {
  32     chomp;
  33     next if (m/^\s*\#/);
  34
  35     my ($key, $data) = split;
  36     $url{$key} = $data;
  37 }
  38 close(REFS);
  39
  40 1;