~noskcaj/ubuntu/vivid/dhelp/merge

« back to all changes in this revision

Viewing changes to debian/config

  • Committer: Bazaar Package Importer
  • Author(s): Esteban Manchado Velázquez
  • Date: 2007-10-20 17:35:26 UTC
  • Revision ID: james.westby@ubuntu.com-20071020173526-q1ekqfek5tlctsn1
Tags: 0.5.25
* Maintainer change.
* Rewrite dhelp_parse in Ruby. This fixes some bugs and avoids many problems
  (Closes: #21678, #268487, #62454, #312950, #442943, #444429, #193428).
* This release should be a drop-in replacement for the C version, and still
  uses the same database and internal format.
* It also adds a Ruby library, to allow other developers to write other
  programs that read and/or update the dhelp databases.
* Use "http://localhost" for CGI script URLs (Closes: #114588).
* Removed misleading dot from example (Closes: #381804).
* Uses sensible-browser instead of having its own configuration system
  (Closes: #146002, #162518, #381805, #217162, #430590).
* Clean up the HTML a bit (Closes: #438973, #134567, #115306).
* Remove references to obsolete script dh_dhelp (Closes: #369459).
* Raise title limit from 49 to 100 characters (Closes: #102393).
* Depend on doc-base, to make sure packages have their documentation
  available for dhelp (Closes: #314733, #368035).
* Wait a couple of seconds before exiting, after a fatal error, to make sure
  the user can read the error message (Closes: #35097).
* Make documentation index files world-readable, regardless of current umask
  (Closes: #158792, #430474, #430505).
* Remove obsolete script dhelp2dwww.pl, and references to it
  (Closes: #364245).
* Remove "dangerous" environment variables from dsearch, to avoid taint
  problems (Closes: #389944).
* Strip blanks from .dhelp field values (Closes: #133218).

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#! /usr/bin/perl
2
 
#
3
 
# Copyright 2002,2004 by Stefan Hornburg (Racke) <racke@linuxia.de>
4
 
#
5
 
# This program is free software; you can redistribute it and/or modify
6
 
# it under the terms of the GNU General Public License as published by
7
 
# the Free Software Foundation; either version 2 of the License, or
8
 
# (at your option) any later version.
9
 
#
10
 
# This program is distributed in the hope that it will be useful,
11
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
12
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13
 
# GNU General Public License for more details.
14
 
#
15
 
# You should have received a copy of the GNU General Public
16
 
# License along with this program; if not, write to the Free
17
 
# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
18
 
# MA  02111-1307  USA.
19
 
 
20
 
use strict;
21
 
use warnings;
22
 
 
23
 
# Source debconf library
24
 
use Debconf::Client::ConfModule qw(:all);
25
 
my ($status, $value);
26
 
 
27
 
my @cbrowsers = grep {&available($_)} ('links', 'lynx', 'w3m');
28
 
my @xbrowsers = grep {&available($_)} ('epiphany', 'galeon', 'konqueror', 'mozilla', 'netscape', 'opera');
29
 
 
30
 
# Set selection list and defaults for both display types
31
 
subst('dhelp/www-browser-console', 'CBROWSERS', join(', ', @cbrowsers));
32
 
($status, $value) = get('dhelp/www-browser-console');
33
 
if ($status) {
34
 
        die "Couldn't get debconf value for dhelp/www-browser-console\n";
35
 
}
36
 
unless ($value) {
37
 
        set('dhelp/www-browser-console', 'lynx');
38
 
}
39
 
 
40
 
subst('dhelp/www-browser-x', 'XBROWSERS', join(', ', @xbrowsers));
41
 
($status, $value) = get('dhelp/www-browser-x');
42
 
if ($status) {
43
 
        die "Couldn't get debconf value for dhelp/www-browser-x\n";
44
 
}
45
 
unless ($value) {
46
 
        set('dhelp/www-browser-x', 'mozilla');
47
 
}
48
 
 
49
 
# Get console browser
50
 
input('medium', 'dhelp/www-browser-console');
51
 
go();
52
 
 
53
 
input('medium', 'dhelp/www-browser-x');
54
 
go();
55
 
 
56
 
# Check for executable
57
 
sub available {
58
 
        my $program = shift;
59
 
        
60
 
        for my $path ('/usr/bin','/usr/bin/X11') {
61
 
                return 1 if -X "$path/$program";
62
 
        }
63
 
}