T671: remove apparently unused scripts.

5 files changed, 0 insertions, 839 deletions

diff --git a/scripts/system/irq-affinity.pl b/scripts/system/irq-affinity.pl
deleted file mode 100755
index de0c3099..00000000
--- a/scripts/system/irq-affinity.pl
+++ /dev/null
@@ -1,382 +0,0 @@
-#!/usr/bin/perl
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# 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.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2009,2010 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-#
-use warnings;
-use strict;
-use Sys::Syslog qw(:standard :macros);
-
-my $PATH_SYS_SYSTEM = "/sys/devices/system";
-my $PATH_SYS_CPU0   = $PATH_SYS_SYSTEM . "/cpu/cpu0";
-
-die "Usage: $0 ifname {auto | mask} { debug }\n" if ($#ARGV < 1);
-
-my ($ifname, $mask, $debug)  = @ARGV;
-
-die "Error: Interface $ifname does not exist\n"
-    unless -d "/sys/class/net/$ifname";
-
-my $logopt = defined($debug) ? "perror" : "";
-openlog("irq-affinity", $logopt, LOG_LOCAL0);
-
-my ($cpus, undef, $threads) = cpuinfo();
-
-if ($mask eq 'auto') {
-    affinity_auto($ifname);
-} else {
-    affinity_mask($ifname, $mask);
-}
-
-exit 0;
-
-# Get current irq assignments by reading /proc/interrupts
-# returns reference to hash of interrupt infromation for given interface
-# i.e.  {'eth1'} => 22, {'eth1-tx-1'} => 31, ...
-#
-# Code based on parsing in irqbalance program
-#
-# Format of /proc/interrupts is:
-#
-#            CPU0       CPU1       
-#  72:       1637          0   PCI-MSI-edge      eth3
-sub irqinfo {
-    my $ifname = shift;
-    my $irqmap;
-
-    open( my $f, '<', "/proc/interrupts" )
-      or die "Can't read /proc/interrupts";
-
-    # first line is the header we don't need
-    <$f>;
-
-    while (<$f>) {
-        chomp;
-
-	# lines with letters in front are special, like NMI count. 
-	#
-        # First column is IRQ number (and colon)
-	# after that match as many entries with digits
-        last unless /^\s*(\d+):\s/;
-	my $irq = $1;
-
-	my @cols = split;
-
-	# skip the irq number and all counts
-	do {
-	    shift @cols;
-	} while ($cols[0] =~ /^\d+$/);
-
-	foreach my $name ( @cols ) {
-            $name =~ s/,$//;
-
-	    next unless ($name eq $ifname || $name =~ /^$ifname-/ );
-
-	    $irqmap->{$name} = $irq;
-        }
-    }
-    close $f;
-
-    return $irqmap;
-}
-
-# compute number of bits set
-sub hweight {
-    my $bits = shift;
-    my $count = 0;
-
-    for (; $bits > 0; $bits >>= 1) {
-	++$count if ($bits & 1);
-    }
-    return $count;
-}
-
-# count the bits set in a mapping file
-sub path_sibling {
-    my $path = shift;
-    my $result = 0;
-
-    open (my $f, '<', $path)
-	or die "can't open $path : $!";
-
-    my $line = <$f>;
-    close $f;
-    chomp $line;
-
-    for my $mask (split(/,/, $line)) {
-	$result += hweight(hex($mask));
-    }
-
-    return $result;
-}
-
-# Determine number of cpu topology information
-#
-# This algorithm is based on the command lscpu from util-linux
-# it cases like multiple socket, offline cpus, etc
-sub cpuinfo {
-    my $cpu = 0;
-
-    # XXX doesn't handle offline CPU's...
-    while ( -e $PATH_SYS_SYSTEM . '/cpu/cpu' . $cpu ) {
-	++$cpu;
-    }
-
-    my $thread = path_sibling($PATH_SYS_CPU0 . '/topology/thread_siblings');
-    my $core   = path_sibling($PATH_SYS_CPU0 . '/topology/core_siblings') / $thread;
-    my $socket = $cpu / $core / $thread;
-    
-    syslog(LOG_DEBUG, "cpus=%d cores=%d threads=%d sockets=%d\n", 
-	   $cpu, $core, $thread, $socket);
-
-    return ($cpu, $core, $thread);
-}
-
-# Set affinity value for a irq
-sub set_affinity {
-    my ( $ifname, $irq, $mask ) = @_;
-    my $smp_affinity = "/proc/irq/$irq/smp_affinity";
-
-    syslog(LOG_DEBUG, "%s: irq %d affinity set to 0x%x", $ifname, $irq, $mask);
-
-    open( my $f, '>', $smp_affinity )
-      or die "Can't open: $smp_affinity : $!\n";
-    printf {$f} "%x\n", $mask;
-    close $f;
-}
-
-# set Receive Packet Steering mask
-sub set_rps {
-    my ( $ifname, $q, $mask ) = @_;
-
-    # ignore if older kernel without RPS
-    my $rxq = "/sys/class/net/$ifname/queues";
-    return unless ( -d $rxq );
-
-    syslog(LOG_INFO, "%s: receive queue %d cpus set to 0x%x",
-	   $ifname, $q, $mask);
-
-    my $rps_cpus = "$rxq/rx-$q/rps_cpus";
-    open( my $f, '>', $rps_cpus )
-	or die "Can't open: $rps_cpus : $!\n";
-    printf {$f} "%x\n", $mask;
-    close $f;
-}
-
-# Check if the current if this cpu is in the banned mask
-# Uses environment variable VYATTA_IRQAFFINITY_BANNED_CPUS
-#  to mask cpus which irq affinity script should ignore
-sub skip_cpu {
-    my $cpu = shift;
-    my $banned = $ENV{'VYATTA_IRQAFFINITY_BANNED_CPUS'};
-
-    return unless defined($banned);	# false
-
-    return ((1 << $cpu) & hex($banned)) != 0;
-}
-
-# For multi-queue NIC choose next cpu to be on next core
-# XXX doesn't handle offline CPU's...
-sub next_cpu {
-    my $origcpu = shift;
-    my $cpu = $origcpu;
-
-    do {
-	$cpu += $threads;
-	if ( $cpu >= $cpus ) {
-	    # wraparound to next thread on core 0
-	    $cpu = ($cpu + 1) % $threads;
-	}
-    } while ($cpu != $origcpu && skip_cpu($cpu));
-
-    return $cpu;
-}
-
-# Get cpu to assign for the queues for single queue nic
-sub choose_cpu {
-    my $ifname = shift;
-
-    # For single-queue nic choose IRQ based on name
-    #   Ideally should make decision on least loaded CPU
-    my ($ifunit) = ($ifname =~ m/^[a-z]*(\d+)$/);
-    die "can't find number for $ifname\n"
-	unless defined($ifunit);
-
-    # Give the load first to one CPU of each hyperthreaded core, then
-    # if there are enough NICs, give the load to the other CPU of
-    # each core.
-    # XXX doesn't handle offline CPU's...
-    my $ht_wrap = (($ifunit * $threads) / $cpus) % $threads;
-    my $cpu = ((($ifunit * $threads) + $ht_wrap) % $cpus);
-
-    $cpu = next_cpu($cpu) if skip_cpu($cpu);
-    return $cpu;
-}
-
-# Assignment for multi-queue NICs
-sub assign_multiqueue {
-    my $ifname = shift;
-    my $irqmap = shift;
-    my $numq = scalar(@_);
-    my $cpu;
-
-    if ($numq == 1) {
-	# This is a single-queue NIC using the multi-queue naming
-	# format.  In this case, we use the same algorithm to select
-	# the CPU as we use for standard single-queue NICs.  This
-	# algorithm spreads the work of different NICs accross
-	# different CPUs.
-
-	$cpu = choose_cpu($ifname);
-    } else {
-	# For multi-queue nic's always starts with CPU 0
-	#   This is less than ideal when there are more core's available
-	#   than number of queues (probably should barber pole);
-	#   but the Intel IXGBE needs CPU 0 <-> queue 0 
-	#   because of flow director bug.
-
-	$cpu = 0;
-    }
-
-    foreach my $name (sort @_) {
-	my $irq = $irqmap->{$name};
-
-	die "Can't find irq in map for $name\n" unless $irq;
-
-	syslog(LOG_INFO, "%s: assign %s to cpu %d",
-	       $ifname, $name, $cpu );
-
-	# Assign CPU affinity for both IRQs
-	set_affinity( $ifname, $irq, 1 << $cpu );
-
-	# TODO use RPS to steer data if cores > queues?
-	$cpu = next_cpu($cpu);
-    }
-}
-
-# Affinity assignment function for single-queue NICs.  The strategy
-# here is to just spread the interrupts of different NICs evenly
-# across all CPUs.  That is the best we can do without monitoring the
-# load and traffic patterns.  So we just directly map the NIC unit
-# number into a CPU number.
-sub assign_single {
-    my ( $ifname, $irq ) = @_;
-    my $cpu = choose_cpu($ifname);
-
-    syslog(LOG_INFO,"%s: assign irq %d to cpu %d", $ifname, $irq, $cpu );
-
-    set_affinity( $ifname, $irq, 1 << $cpu );
-
-    if ($threads > 1) {
-	# Use both threads on this cpu if hyperthreading
-	my $mask = ((1 << $threads) - 1) << $cpu;
-	set_rps($ifname, 0, $mask);
-    }
-    # MAYBE - Use all cpu's if no HT
-}
-
-# Mask must contain at least one CPU and
-# no bits outside of range of available CPU's
-sub check_mask {
-    my ($ifname, $name, $mask) = @_;
-    my $m = hex($mask);
-
-    die "$ifname: $name mask $mask has no bits set\n"
-	if ($m == 0);
-
-    die "$ifname: $name mask $mask too large for number of CPU's: $cpus\n"
-	if ($m >= 1 << $cpus);
-}
-
-# Set affinity (and RPS) based on mask
-sub affinity_mask {
-    my ($ifname, $mask) = @_;
-
-    # match on <hex> or <hex>,<hex>
-    unless ($mask =~ /^([0-9a-f]+)(|,([0-9a-f]+))$/) {
-	die "$ifname: irq mask $mask is not a valid affinity mask\n"
-    }
-
-    my $irqmsk = $1;
-    my $rpsmsk = $3;
-
-    check_mask($ifname, "irq", $irqmsk);
-    check_mask($ifname, "rps", $rpsmsk) if $rpsmsk;
-
-    my $irqmap = irqinfo($ifname);
-    while (my ($name, $irq) = each (%{$irqmap})) {
-	syslog(LOG_INFO, "%s: assign irq %d mask %s", $name, $irq, $irqmsk);
-	set_affinity($name, $irq, hex($irqmsk));
-    }
-
-    set_rps($ifname, 0, hex($rpsmsk)) if $rpsmsk;
-}
-
-# The auto strategy involves trying to achieve the following goals:
-#
-#  - Spread the receive load among as many CPUs as possible.
-#
-#  - For all multi-queue NICs in the system that provide both tx and
-#    rx queues, keep all of the queues that share the same queue
-#    number on same CPUs.  I.e. tx and rx queue 0 of all such NICs
-#    should interrupt one CPU; tx and rx queue 1 should interrupt a
-#    different CPU, etc.
-#
-#  - If hyperthreading is supported and enabled, avoid assigning
-#    queues to both CPUs of a hyperthreaded pair if there are enough
-#    CPUs available to do that.
-sub affinity_auto {
-    my $ifname   = shift;
-
-    my $irqmap = irqinfo($ifname);
-    my @irqnames = keys %{$irqmap};
-    my $numirq = scalar(@irqnames);
-
-    # Figure out what style of irq naming is being used
-    if ( $numirq == 1 ) {
-	my $irq = $irqmap->{$ifname};
-	assign_single( $ifname, $irq) if $irq;
-    } elsif ($numirq > 1) {
-	# Special case for paired Rx and Tx
-	my @mirq = grep { /^$ifname-rx-/ } @irqnames;
-	my $num_mirq = scalar(@mirq);
-        if ( $num_mirq > 0 ) {
-	    assign_multiqueue( $ifname, $irqmap, @mirq );
-
-	    @mirq = grep { /^$ifname-tx-/ } @irqnames;
-	    assign_multiqueue( $ifname, $irqmap, @mirq );
-	    return;
-	}
-
-	# Normal case for single irq per queue
-	@mirq = grep { /^$ifname-/ } @irqnames;
-	$num_mirq = scalar(@mirq);
-	if ( $num_mirq > 0 ) {
-	    assign_multiqueue( $ifname, $irqmap, @mirq );
-	    return;
-	}
-
-	# Netxen thought up yet another convention
-	@mirq = grep { /^$ifname\[/ } @irqnames;
-	if ( $#mirq > 0 ) {
-	    assign_multiqueue( $ifname, $irqmap, @mirq );
-	    return;
-	}
-
-	syslog(LOG_ERR, "%s: Unknown multiqueue irq naming: %s\n", $ifname,
-	       join(' ', @irqnames));
-    }
-}
diff --git a/scripts/system/vyatta_check_username.pl b/scripts/system/vyatta_check_username.pl
deleted file mode 100755
index 9ecc42db..00000000
--- a/scripts/system/vyatta_check_username.pl
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# 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.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-use strict;
-use warnings;
-
-my $passwdFile = '/etc/passwd';
-
-# Lookup user in password file which may not give same
-# result as getpw* which uses NSS
-sub finduser {
-    my $user = shift;
-    my $uid;
-
-    open( my $f, '<', $passwdFile )
-      or die "Can't open $passwdFile: $!";
-
-    while (<$f>) {
-        chomp;
-        my ( $name, undef, $id ) = split /:/;
-
-        next unless ( $name eq $user );
-	$uid = $id;
-	last;
-    }
-    close $f;
-
-    return $uid;
-}
-
-foreach my $user (@ARGV) {
-    # enforce recommendations from useradd man page
-
-    # Debian, the only constraints are that usernames must neither start
-    #  with a dash (-) nor contain a colon (:) or a whitespace (space: , end
-    #  of line: \n, tabulation: \t, etc.). Note that using a slash (/) may
-    #  break the default algorithm for the definition of the users home
-    #  directory.
-    die "$user : illegal characters in username\n"
-	unless ($user =~ /^\w[^ \t\n\r\v\f:\/]*$/);
-
-    # Usernames may only be up to 32 characters long.
-    die "$user: username may only be up to 32 characters long\n"
-	if (length($user) > 32);
-
-    # It is usually recommended to only use usernames that begin with a 
-    # lower case letter or an underscore followed by lower case letters,
-    # digits, underscores, or dashes. They can end with a dollar sign.
-    # In regular expression terms: [a-z_][a-z0-9_-]*[$]?
-    warn "$user: username contains unusual characters\n"
-	. " should only contain lower case letters, digits, underscores or dashes\n"
-	unless ($user =~ /^[a-z_][a-z0-9_-]*\$?$/);
-
-    # User does not exist in system, its okay
-    my $uid = getpwnam($user);
-    next unless defined($uid) and $uid ne "1001";
-
-    # System accounts should not be listed in vyatta configuration
-    # 1000 is SYS_UID_MIN
-    die "$user : account is already reserved for system use\n"
-	if ($uid > 0 && $uid < 1000);
-
-    my $pwuid = finduser($user);
-    
-    die "$user : account exists but is not local (change on server)\n"
-	unless defined ($pwuid);
-
-    die "$user : exists but has different uid on local versus remote\n"
-	unless ($pwuid eq $uid);
-}
-
-exit 0;
diff --git a/scripts/system/vyatta_update_console.pl b/scripts/system/vyatta_update_console.pl
deleted file mode 100755
index 099a8fc4..00000000
--- a/scripts/system/vyatta_update_console.pl
+++ /dev/null
@@ -1,150 +0,0 @@
-#! /usr/bin/perl
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# 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.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-# Update console configuration in systemd and grub based on Vyatta configuration
-
-use strict;
-use warnings;
-
-use lib "/opt/vyatta/share/perl5";
-use Vyatta::Config;
-use File::Compare;
-use File::Copy;
-use experimental 'smartmatch';
-
-die "$0 expects no arguments\n" if (@ARGV);
-
-# if file is unchanged, do nothing and return false
-# otherwise update to new version
-sub update {
-    my ($old, $new) = @_;
-
-    if (compare($old, $new) != 0) {
-        move($new, $old)
-            or die "Can't move $new to $old";
-        return 1;
-    } else {
-        unlink($new);
-        return;
-    }
-}
-
-sub update_getty{
-  my $directory = "/etc/systemd/system";
-  my $config = new Vyatta::Config;
-  $config->setLevel("system console device");
-  my @ttys;
-
-  foreach my $tty ($config->listNodes()) {
-    push(@ttys, "serial-getty\@$tty.service");
-  }
-
-  opendir DIR, $directory or die "Couldn't open dir '$directory': $!";
-  while (my $file = readdir(DIR)) {
-  next unless ($file =~ /^serial-getty/);
-    if ( not $file ~~ @ttys ) {
-      system("systemctl stop $file");
-      if (-e "$directory/getty.target.wants/$file") {
-        unlink "$directory/getty.target.wants/$file"
-            or die "Failed to remove file $file: $!\n";
-      }
-      if (-e "$directory/$file") {
-      unlink "$directory/$file"
-          or die "Failed to remove file $file: $!\n";
-      }
-      system("systemctl daemon-reload");
-    }
-  }
-  closedir DIR;
-
-  foreach my $tty ($config->listNodes()) {
-    my $SGETTY = "/lib/systemd/system/serial-getty\@.service";
-    my $TMPGETTY  = "/etc/systemd/system/serial-getty\@$tty.service";
-    my $SYMGETTY  = "/etc/systemd/system/getty.target.wants/serial-getty\@$tty.service";
-
-    open(my $sgetty, '<', $SGETTY)
-        or die "Can't open $SGETTY: $!";
-
-    open(my $tmp, '>', $TMPGETTY)
-        or die "Can't open $TMPGETTY: $!";
-
-    my $speed = $config->returnValue("$tty speed");
-    if ($tty =~ /^hvc\d/) {
-        $speed = 38400 unless $speed;
-    } else {
-        $speed = 115200 unless $speed;
-    }
-
-    while (<$sgetty>) {
-       if (/^ExecStart=/) {
-           $_ =~ s/115200,38400,9600/$speed/g;
-       }
-       print {$tmp} $_;
-    }
-    close $sgetty;
-    close $tmp;
-    symlink("$TMPGETTY","$SYMGETTY");
-    system("systemctl daemon-reload");
-    if ( system("systemctl status serial-getty\@$tty.service 2>&1 > /dev/null")) {
-      system("systemctl start serial-getty\@$tty.service");
-    } else {
-      system("/bin/stty -F /dev/$tty $speed cstopb");
-    }
-  }
-}
-
-my $GRUBCFG = "/boot/grub/grub.cfg";
-my $GRUBTMP = "/tmp/grub.cfg.$$";
-
-# For existing serial line change speed (if necessary)
-# Only applys to ttyS0
-sub update_grub {
-    return unless (-f $GRUBCFG);
-
-    my $config = new Vyatta::Config;
-    $config->setLevel("system console device");
-    return unless $config->exists("ttyS0");
-
-    my $speed = $config->returnValue("ttyS0 speed");
-    $speed = "115200" unless defined($speed);
-
-    open(my $grub, '<', $GRUBCFG)
-        or die "Can't open $GRUBCFG: $!";
-
-    open(my $tmp, '>', $GRUBTMP)
-        or die "Can't open $GRUBTMP: $!";
-
-    while (<$grub>) {
-        if (/^serial /) {
-            print {$tmp} "serial --unit=0 --speed=$speed\n";
-        } elsif (/^(.* console=ttyS0),[0-9]+(.*)$/) {
-            print {$tmp} "$1,$speed$2\n";
-        } else {
-            print {$tmp} $_;
-        }
-    }
-    close $grub;
-    close $tmp;
-
-    update($GRUBCFG, $GRUBTMP);
-}
-
-update_getty;
-update_grub;
-
-exit 0;
diff --git a/scripts/system/vyatta_update_logrotate.pl b/scripts/system/vyatta_update_logrotate.pl
deleted file mode 100755
index 8620ede1..00000000
--- a/scripts/system/vyatta_update_logrotate.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/perl
-
-# Exit code:
-#   0 - success
-#   1 - missing parameter
-#   2 - invalid files or size parameters
-#   3 - unable to write logrotate config
-
-use strict;
-
-my $cfg_dir = "/opt/vyatta/etc/logrotate";
-my $file = "global";
-my $log_file = "/var/log/messages";
-my $log_conf = "${cfg_dir}/$file";
-if ($#ARGV == 3) {
-  $file = shift;
-  $log_file = "/var/log/user/$file";
-  $log_conf = "${cfg_dir}/file_$file";
-}
-my $files = shift;
-my $size = shift;
-my $set = shift;
-
-if (!defined($files) || !defined($size) || !defined($set)) {
-  exit 1;
-}
-
-if (!($files =~ m/^\d+$/) || !($size =~ m/^\d+$/)) {
-  exit 2;
-}
-
-# just remove it and make a new one below
-# (the detection mechanism in XORP doesn't work anyway)
-unlink $log_conf;
-
-open my $out, '>', $log_conf
-    or exit 3;
-if ($set == 1) {
-  print $out <<EOF;
-$log_file {
-  missingok
-  notifempty
-  create
-  rotate $files
-  size=${size}k
-}
-EOF
-}
-close $out;
-
-exit 0;
diff --git a/scripts/system/vyatta_update_syslog.pl b/scripts/system/vyatta_update_syslog.pl
deleted file mode 100755
index 37d017e3..00000000
--- a/scripts/system/vyatta_update_syslog.pl
+++ /dev/null
@@ -1,169 +0,0 @@
-#!/usr/bin/perl
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# 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.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2007 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-# Update /etc/rsyslog.d/vyatta-log.conf
-# Exit code: 0 - update
-#            1 - no change or error
-
-use strict;
-use lib "/opt/vyatta/share/perl5";
-use Vyatta::Config;
-use File::Basename;
-use File::Compare;
-use File::Temp qw/ tempfile /;
-
-my $SYSLOG_CONF  = '/etc/rsyslog.d/vyatta-log.conf';
-my $SYSLOG_TMPL  = "/tmp/rsyslog.conf.XXXXXX";
-my $MESSAGES     = '/var/log/messages';
-my $CONSOLE      = '/dev/console';
-my $LOGROTATE_CFG_DIR = '/opt/vyatta/etc/logrotate';
-
-my %entries = ();
-
-die "$0 expects no arguments\n" if (@ARGV);
-
-sub add_target_selector {
-    my ( $selector, $target ) = @_;
-
-    $entries{$target}{selector} = [] unless $entries{$target}{selector};
-    push @{ $entries{$target}{selector} }, $selector;
-}
-
-sub set_target_param {
-    my ( $config, $level, $target, $param ) = @_;
-    my $path = "$level archive $param";
-
-    if (! $config->exists($path)) {
-        my @tmpl = $config->parseTmpl($path);
-        $entries{$target}{$param} = $tmpl[2];
-    } else {
-        $entries{$target}{$param} = $config->returnValue($path);
-    }
-}
-
-sub get_target_param {
-    my ( $target, $param ) = @_;
-    return $entries{$target}{$param};
-}
-
-# This allows overloading local values in CLI
-my %facmap = (
-    'all'       => '*',
-    'protocols' => 'local7',
-);
-
-# This builds a data structure that maps from target
-# to selector list for that target
-sub read_config {
-    my ( $config, $level, $target ) = @_;
-
-    foreach my $facility ( $config->listNodes("$level facility") ) {
-        my $loglevel = $config->returnValue("$level facility $facility level");
-        $facility = $facmap{$facility} if ( $facmap{$facility} );
-        $loglevel = '*' if ( $loglevel eq 'all' );
-
-        $entries{$target} = {} unless $entries{$target};
-        add_target_selector( $facility . '.' . $loglevel, $target );
-    }
-
-    # This is a file target so we set size and files
-    if ($target =~ m:^/var/log/:) {
-        set_target_param($config, $level, $target, 'size');
-        set_target_param($config, $level, $target, 'files');
-    }
-}
-
-sub print_outchannel {
-    my ( $fh, $channel, $target, $size ) = @_;
-    # Force outchannel size to be 1k more than logrotate config to guarantee rotation
-    $size = ($size + 5) * 1024;
-    print $fh "\$outchannel $channel,$target,$size,/usr/sbin/logrotate ${LOGROTATE_CFG_DIR}/$channel\n";
-    print $fh join( ';', @{ $entries{$target}{selector} } ), " :omfile:\$$channel\n";
-}
-
-my $config = new Vyatta::Config;
-$config->setLevel("system syslog");
-
-read_config( $config, 'global', $MESSAGES );
-
-# Default syslog.conf if no global entry
-unless (%entries) {
-    add_target_selector( '*.notice', $MESSAGES );
-    add_target_selector( 'local7.*', $MESSAGES );
-}
-
-read_config( $config, 'console', $CONSOLE );
-
-foreach my $host ( $config->listNodes('host') ) {
-    my $host_protocol;
-    foreach my $facility ( $config->listNodes("host $host facility") ) {
-        my $protocol = $config->returnValue("host $host facility $facility protocol");
-        if ($protocol eq "tcp") {
-            $host_protocol = "@@";
-        } else {
-            $host_protocol = "@";
-        }
-        read_config( $config, "host $host", $host_protocol. $host );
-    }
-}
-
-foreach my $file ( $config->listNodes('file') ) {
-    read_config( $config, "file $file", '/var/log/user/' . $file );
-}
-
-foreach my $user ( $config->listNodes('user') ) {
-    read_config( $config, 'user $user', $user );
-}
-
-my ($out, $tempname) = tempfile($SYSLOG_TMPL, UNLINK => 1)
-  or die "Can't create temp file: $!";
-
-my $files;
-my $size;
-foreach my $target ( keys %entries ) {
-    if ($target eq $MESSAGES) {
-        $size = get_target_param($target, 'size');
-        $files = get_target_param($target, 'files');
-        print_outchannel($out, 'global', $target, $size);
-        system("sudo /opt/vyatta/sbin/vyatta_update_logrotate.pl $files $size 1") == 0
-            or die "Can't genrate global log rotation config: $!";
-    } elsif ($target =~ m:^/var/log/user/:) {
-        my $file = basename($target);
-        $size = get_target_param($target, 'size');
-        $files = get_target_param($target, 'files');
-        print_outchannel($out, 'file_' . $file, $target, $size);
-        system("sudo /opt/vyatta/sbin/vyatta_update_logrotate.pl $file $files $size 1") == 0
-            or die "Can't genrate global log rotation config: $!";
-    } else {
-        print $out join( ';', @{ $entries{$target}{selector} } ), "\t$target\n";
-    }
-}
-close $out
-  or die "Can't output $tempname: $!";
-
-# Don't need to do anything, save time on boot
-if ( -e $SYSLOG_CONF && compare( $SYSLOG_CONF, $tempname ) == 0 ) {
-    unlink($tempname);
-    exit 1;
-}
-
-system("sudo cp $tempname $SYSLOG_CONF") == 0
-  or die "Can't copy $tempname to $SYSLOG_CONF: $!";
-
-unlink($tempname);
-exit 0;