diff options
author | danieldg <danieldg@e03df62e-2008-0410-955e-edbf42e46eb7> | 2010-02-06 04:29:02 +0000 |
---|---|---|
committer | danieldg <danieldg@e03df62e-2008-0410-955e-edbf42e46eb7> | 2010-02-06 04:29:02 +0000 |
commit | 1d17a9d23e533e0a5e9a0cdec17fd40adf0f0821 (patch) | |
tree | 908108707eb200c641234eb7c1fc48860b30f9be /make/install-extras.pl | |
parent | e071bd88391e00e4d3b0104ada985e08a9eb3210 (diff) |
Move configuration examples to docs, remove automatic overwrite on make install
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@12383 e03df62e-2008-0410-955e-edbf42e46eb7
Diffstat (limited to 'make/install-extras.pl')
-rwxr-xr-x | make/install-extras.pl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/make/install-extras.pl b/make/install-extras.pl deleted file mode 100755 index ce77178e9..000000000 --- a/make/install-extras.pl +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -my $mode = shift; -my %installed; - -for my $dir (qw(src src/modules)) { - opendir(DIRHANDLE, $dir); - for my $file (sort readdir(DIRHANDLE)) { - next unless $file =~ /\.cpp$/; - open CPP, '<', "$dir/$file" or die "Can't open $dir/$file to scan it: $!"; - while (<CPP>) { - if (/\/\* \$CopyInstall: (\S+) (\S+) (.*) \*\//i) { - my($ifile, $idir, $args) = ($1,$2,$3); - next if exists $installed{$1.' '.$2}; - $installed{$1.' '.$2}++; - $idir =~ s/\$\(([^)]+)\)/$ENV{$1}/eg; - if ($mode eq 'install') { - system "install $args $ifile $idir"; - } else { - $ifile =~ s/.*\///g; - system "rm $idir/$ifile"; - } - } - } - } - closedir(DIRHANDLE); -} |