From 2003b322c99fbf16eeee45890b977f4743d0b060 Mon Sep 17 00:00:00 2001 From: Michal Svamberg <svamberg@civ.zcu.cz> Date: Mon, 9 Oct 2023 21:44:54 +0200 Subject: [PATCH] Remove old_perl/ directory --- old_perl/bin/scp_meta | 76 ----------------------------------------- old_perl/lib/MetaScp.pm | 42 ----------------------- 2 files changed, 118 deletions(-) delete mode 100755 old_perl/bin/scp_meta delete mode 100644 old_perl/lib/MetaScp.pm diff --git a/old_perl/bin/scp_meta b/old_perl/bin/scp_meta deleted file mode 100755 index 6374ed8..0000000 --- a/old_perl/bin/scp_meta +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use FindBin; -use lib "$FindBin::RealBin/../lib"; - -use File::Basename qw(basename); -use Getopt::Long (); -use Readonly; -use Log::TraceMessages qw(t d); - -use MetaScp::Path; - -Readonly my $SCP_META_VERSION => qw(0.0.1); -Readonly my $EXE => basename($0); - -my @getoptions = qw( - 3 - 4 - 6 - A - B - C - p - q - r - T - v+ - c=s - F=s - i=s - J=s - l=s - o=s - P=i - S=s - h|help - meta_debug - meta_print -); - -my %opt; -Getopt::Long::GetOptions(\%opt, @getoptions) - or die "error parsing options\n"; - -$Log::TraceMessages::On = 1 if $opt{meta_debug}; # enabling debug if you need - -my $dst=pop or do { print STDERR "ERROR: Missing source or target option\n"; show_help(); }; -my @src=@ARGV or do { print STDERR "ERROR: Missing source or target option\n"; show_help(); }; - -#t "src=@src\ndst=$dst\nargv=@ARGV" . d(\@src); - - - - -sub show_help { - - print "scp_meta v$SCP_META_VERSION\n"; - - print <<"EOT-EOT-EOT"; -Syntax: scp_meta [-346ABCpqrTv] [-c cipher] [-F ssh_config] [-i identity_file] [-J destination] [-l limit] [-o ssh_option] [-P port] [-S program] source ... target - -This program accept all scp parameters (see 'man scp') and these additional options: - -h --help print this help - --meta_debug enable debug mode for this program (not for scp/cp) - --meta_print do not run command, only print it to the STDOUT - -EOT-EOT-EOT - - exit 0; -} - -exit 0 - diff --git a/old_perl/lib/MetaScp.pm b/old_perl/lib/MetaScp.pm deleted file mode 100644 index 8634412..0000000 --- a/old_perl/lib/MetaScp.pm +++ /dev/null @@ -1,42 +0,0 @@ -#!/usr/bin/perl - -Package Metascp; - - - -Package MetaScp::Path; - -sub new { - my $self = bless {}, shift; - $self->{path_user} = shift; - $self->{user} = ""; - $self->{server} = ""; - $self->{port} = ""; - $self->{path} = $self->_expand_path(); - return $self; - - -} - -sub _decouple_path { - $self->{path_user} =~ //; - - -} - -sub _expand_path { - # je tedy relativni => pridat pracovni adresar - my $new_path = $self->_normalize_path($self->{path_user}); - - - return 1; -} - -sub _normalize_path { - # kontrola, zda cesta neni relativni, jinak pridat pracovni adresar - my $path = shift; - - # cesta muze byt zadana ve formatu [user@]server:<cesta> - -} - -- GitLab