Remove unused scripts.

1 files changed, 0 insertions, 73 deletions

diff --git a/scripts/vyatta-strip-migration-comments.pl b/scripts/vyatta-strip-migration-comments.pl
deleted file mode 100755
index 21fcc89..0000000
--- a/scripts/vyatta-strip-migration-comments.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-# Author: Michael Larson <mike@vyatta.com>
-# Date: 2010
-# Description: Perl script for activating/deactivating portions of the configuration
-
-# **** 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) 2006, 2007, 2008, 2009, 2010 Vyatta, Inc.
-# All Rights Reserved.
-# **** End License ****
-
-use strict;
-use warnings;
-use File::Copy;
-
-# Looking for a comment something like this...
-#
-#             /*    --- CONFIGURATION COMMENTED OUT DURING MIGRATION BELOW ---
-#            resp-time 5
-#     --- CONFIGURATION COMMENTED OUT DURING MIGRATION ABOVE ---   */
-#
-#
-#
-
-my $file = $ARGV[0];
-
-if (!defined $file) {
-    $file = "/opt/vyatta/etc/config/config.boot";
-}
-
-my $backup = "$file.boot.strip-migration-comments-bu";
-print "copying original configuration $file to $backup\n";
-cp($file, $backup)
-    or die "Error! Unable to copy $file to $backup: $!";
-
-open(my $inputfile, '<', $file)
-    or die "Error! Unable to open file for input \"$file\". $!";
-
-my $contents = "";
-my $in_mig_com = 0;
-while(<$inputfile>) {
-    if ($_ =~ /CONFIGURATION COMMENTED OUT DURING MIGRATION BELOW/) {
-	$in_mig_com = 1;
-    }
-    elsif ($_ =~ /CONFIGURATION COMMENTED OUT DURING MIGRATION ABOVE/) {
-	$in_mig_com = 0;
-    }
-    elsif ($in_mig_com == 1) {
-	#do nothing here
-    }
-    else {
-	$contents .= $_;
-    }
-}
-close($inputfile);
-
-open(my $outputfile, '>', $file)
-    or die "Error! Unable to open file for output \"$file\". $!";
-
-print $outputfile $contents;
-close($outputfile);
-
-print "done\n";