From 0781812f4cd2fd3af12ce7beaa2fd11266cd4829 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@vyos.io>
Date: Mon, 4 Jan 2021 20:20:23 +0200
Subject: Remove unused scripts.

---
 scripts/helpstring.pl | 78 ---------------------------------------------------
 1 file changed, 78 deletions(-)
 delete mode 100755 scripts/helpstring.pl

(limited to 'scripts/helpstring.pl')

diff --git a/scripts/helpstring.pl b/scripts/helpstring.pl
deleted file mode 100755
index 6d50308..0000000
--- a/scripts/helpstring.pl
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl
-
-# Author: Arthur Xiong
-# Date: 06/21/2010
-# Description: Script to generate Vyatta command help strings from 
-#              template files
-
-# **** 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-2010 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-use strict;
-use warnings;
-use File::Find;
-
-my @command_line;
-my $cfgdir;
-my $feature_name="";
-
-#
-sub get_parameter {
-    open my $nd, '<', $_  or die "$_ can't be opened";
-    my $help_string = "";
-
-    while (<$nd>) {
-        next unless /^help:\s*(\S.*)$/;
-        $help_string .= "\|$1" if /^help:\s*(\S.*)$/;
-        last;
-    }
-    close $nd;
-    return $help_string;
-}
-
-#
-# Generate command with parameter
-# 
-sub wanted {
-    return unless ( $_ eq 'node.def' );
-    my $parameter = get_parameter($File::Find::name);
-
-    my $dir = $File::Find::dir;
-    return if $dir =~ /^.*\/\.\S(|-)\S*\/?.*$/;
-    if ( $feature_name ne "" ) {
-        return unless $dir =~ /^.*\/$feature_name(|\/.*)$/;
-    }
-
-    $dir =~ s/^.*\/(|\S*\-)(templates)(|\-(cfg|op))\///;
-#    $dir =~ s/\// /g;
-    $dir .= "  " . $parameter . "\n";
-    
-    push @command_line, $dir;
-    return 1;
-}
-
-# main program
-
-die "Usage: helpstring.pl <path-to-template> [<feature-name>]"
- unless $#ARGV == 0 or $#ARGV == 1;
-$cfgdir = $ARGV[0];
-$feature_name = $ARGV[1] if $#ARGV == 1;
-die "$cfgdir does not exist!" unless -d $cfgdir;
-
-# walk template file tree
-find( \&wanted, $cfgdir );
-
-print @command_line; 
-- 
cgit v1.2.3