← Back to branch summary

~ubuntu-branches/ubuntu/edgy/awstats/edgy

« back to all changes in this revision

Viewing changes to tools/awstats_configure.pl

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Smedegaard, Jonas Smedegaard, Charles Fry
  • Date: 2006-01-15 22:35:07 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060115223507-jtn0gtvack1n8qj2
Tags: 6.5-1
http://bugs.debian.org/306130
http://bugs.debian.org/317310
[ Jonas Smedegaard ]
* New upstream release.
  + Recognizes GNUTLS from lynx User-Agent header. Closes: #306130
    (thanks to Dmitry Baryshkov <mitya@school.ioffe.ru>).
  + Geoip shows countries for resolved hostnames. Closes: #317310
    (thanks to Administrator <azhrarn@underhanded.org>).
* Simplify watch file to better work with parser used at qa.d.o.
* Improve cdbs rules:
  + Use quilt (rather than cdbs-internal patch system).
  + Add and enable new local snippets copyright-check and auto-update.
  + Update local snippet buildinfo (fixing its namespace).
* Auto-update debian/control:
  + Tightened build-dependency on cdbs.
  + Added build-dependencies on patchutils and quilt.
* Package is now team-maintained:
  + New maintainer: Debian AWStats Team
    <pkg-awstats-devel@lists.alioth.debian.org>.
  + Add myself as uploader.

[ Charles Fry ]
* Use qa.debian.org SF redirector in watch file.
* Use Homepage instead of Website in debian/control, per DDR 6.2.4.
* Removed patches integrated upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/awstats_configure.pl
8
8
# - Create AWStats config file
9
9
# See COPYING.TXT file about AWStats GNU General Public License.
10
10
#-------------------------------------------------------
11
 
# $Revision: 1.4 $ - $Author: eldy $ - $Date: 2005/01/15 22:42:58 $
 
11
# $Revision: 1.6 $ - $Author: eldy $ - $Date: 2005/04/22 17:34:05 $
12
12
require 5.005;
13
13
 
14
14
use strict;
46
46
eval('use Win32::TieRegistry ( Delimiter=>"/", TiedRef=>\$reg )');
47
47
 
48
48
use vars qw/ $REVISION $VERSION /;
49
 
$REVISION='$Revision: 1.4 $'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
 
49
$REVISION='$Revision: 1.6 $'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
50
50
$VERSION="1.0 (build $REVISION)";
51
51
 
52
52
use vars qw/
98
98
        my $level = $_[1] || 1;
99
99
        if ($Debug >= $level) { 
100
100
                my $debugstring = $_[0];
101
 
                if ($ENV{"GATEWAY_INTERFACE"}) { $debugstring =~ s/^ /&nbsp&nbsp /; $debugstring .= "<br>"; }
 
101
                if ($ENV{"GATEWAY_INTERFACE"}) { $debugstring =~ s/^ /&nbsp&nbsp /; $debugstring .= "<br />"; }
102
102
                print "DEBUG $level - ".time." : $debugstring\n";
103
103
                }
104
104
        0;
292
292
# Detect OS type
293
293
# --------------
294
294
if ("$^O" =~ /linux/i || (-d "/etc" && -d "/var" && "$^O" !~ /cygwin/i)) { $OS='linux'; $CR=''; }
295
 
elsif (-d "/etc" && -d "/Users") { $OS='macosx'; $CR=''; }
296
 
elsif ("$^O" =~ /cygwin/i || "$^O" =~ /win32/i) { $OS='windows'; $CR="\r"; }
 
295
if ("$^O" !~ /linux/i && -d "/etc" && -d "/Users") { $OS='macosx'; $CR=''; }
 
296
if ("$^O" =~ /cygwin/i || "$^O" =~ /win32/i) { $OS='windows'; $CR="\r"; }
297
297
if (! $OS) {
298
298
    print "configure.pl was not able to detect your OS. You must configure AWStats\n";
299
299
        print "manually following the setup documentation (docs/index.html).\n";
602
602
        # Define config file path
603
603
        # -----------------------
604
604
        if ($OS eq 'linux')             {
605
 
                print "\n-----> Define config file path\n";
606
 
                print "In which directory do you plan to store your config file(s) ?\n";
607
 
                print "Default: /etc/awstats\n";
608
 
                my $bidon='';
609
 
                print "Directory path to store config file(s) (Enter for default):\n> ";
610
 
                $bidon=<STDIN>; chomp $bidon;
 
605
                print "\n-----> Define config file path\n";
 
606
                print "In which directory do you plan to store your config file(s) ?\n";
 
607
                print "Default: /etc/awstats\n";
 
608
                my $bidon='';
 
609
                print "Directory path to store config file(s) (Enter for default):\n> ";
 
610
                $bidon=<STDIN>; chomp $bidon;
611
611
                if (! $bidon) { $bidon = "/etc/awstats"; }
612
 
                my $configdir=$bidon;
 
612
                my $configdir=$bidon;
613
613
                if (! -d $configdir) {
614
614
                        # Create the directory for config files
615
615
                        my $mkdirok=mkdir "$configdir", 0755;