From 638933570f4f0275af4003622a700ad105a06dca Mon Sep 17 00:00:00 2001 From: JozanLeClerc Date: Wed, 8 Jul 2020 17:20:52 +0200 Subject: Script renames --- src/update/serv.pl | 28 -------------------------- src/update/vps.pl | 28 ++++++++++++++++++++++++++ src/vps-do.pl | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ src/vps.pl | 58 ------------------------------------------------------ 4 files changed, 86 insertions(+), 86 deletions(-) delete mode 100755 src/update/serv.pl create mode 100755 src/update/vps.pl create mode 100755 src/vps-do.pl delete mode 100755 src/vps.pl diff --git a/src/update/serv.pl b/src/update/serv.pl deleted file mode 100755 index 77c64ff..0000000 --- a/src/update/serv.pl +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/local/bin/perl - -use strict; -use warnings; -use Term::ANSIColor; - -sub main { - system( - '/usr/local/bin/dash', - '-c', - 'git -C /usr/local/www/jozan pull >/dev/null 2>&1' - ); - system( - '/usr/local/bin/dash', - '-c', - 'git -C /usr/local/www/git-jozan pull >/dev/null 2>&1' - ); - system( - '/usr/local/bin/dash', - '-c', - 'git -C /root/scripts pull >/dev/null 2>&1' - ); - exit; -} - -main(); - -__END__ diff --git a/src/update/vps.pl b/src/update/vps.pl new file mode 100755 index 0000000..77c64ff --- /dev/null +++ b/src/update/vps.pl @@ -0,0 +1,28 @@ +#!/usr/local/bin/perl + +use strict; +use warnings; +use Term::ANSIColor; + +sub main { + system( + '/usr/local/bin/dash', + '-c', + 'git -C /usr/local/www/jozan pull >/dev/null 2>&1' + ); + system( + '/usr/local/bin/dash', + '-c', + 'git -C /usr/local/www/git-jozan pull >/dev/null 2>&1' + ); + system( + '/usr/local/bin/dash', + '-c', + 'git -C /root/scripts pull >/dev/null 2>&1' + ); + exit; +} + +main(); + +__END__ diff --git a/src/vps-do.pl b/src/vps-do.pl new file mode 100755 index 0000000..b88720c --- /dev/null +++ b/src/vps-do.pl @@ -0,0 +1,58 @@ +#!/usr/local/bin/perl + +use strict; +use warnings; +use Term::ANSIColor; + +sub main { + my $argc = $#ARGV + 1; + if ($argc < 1) { + print colored("Failed!\n", 'bold red') + . 'Missing argument, at least 2 needed ' + . colored("[script-invoke - (argument(s))]\n", 'bold'); + exit 1; + } + my $scripts_dir = '/root/scripts/src/'; + my $called_script = ''; + my $word = ''; + if ( + $ARGV[0] eq 'addsshkey' || + $ARGV[0] eq 'chdesc' || + $ARGV[0] eq 'chowner' || + $ARGV[0] eq 'newrepo' || + $ARGV[0] eq 'newuser' || + $ARGV[0] eq 'rmrepo' || + $ARGV[0] eq 'rmuser' + ) { + $called_script = $scripts_dir . 'gitjoe/' . $ARGV[0] . '.pl'; + } + elsif ( + $ARGV[0] eq "update-gitjoe" || + $ARGV[0] eq "update-serv" + ) { + $word = $ARGV[0]; + $word =~ s/update-//; + $called_script = $scripts_dir . 'update/' . $word . '.pl'; + } + else { + print colored("Failed!\n", 'bold red') + . colored($ARGV[0], 'bold yellow') + . ": unknown script. Known scripts are:\n" + . colored("addsshkey\n", 'bold green') + . colored("chdesc\n", 'bold green') + . colored("chowner\n", 'bold green') + . colored("newrepo\n", 'bold green') + . colored("newuser\n", 'bold green') + . colored("rmrepo\n", 'bold green') + . colored("rmuser\n", 'bold green') + . colored("update-gitjoe\n", 'bold green') + . colored("update-serv\n", 'bold green'); + exit 2; + } + print "Calling " . colored($called_script, 'bold green') . "...\n"; + exit; +} + +main(); + +__END__ diff --git a/src/vps.pl b/src/vps.pl deleted file mode 100755 index b88720c..0000000 --- a/src/vps.pl +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/local/bin/perl - -use strict; -use warnings; -use Term::ANSIColor; - -sub main { - my $argc = $#ARGV + 1; - if ($argc < 1) { - print colored("Failed!\n", 'bold red') - . 'Missing argument, at least 2 needed ' - . colored("[script-invoke - (argument(s))]\n", 'bold'); - exit 1; - } - my $scripts_dir = '/root/scripts/src/'; - my $called_script = ''; - my $word = ''; - if ( - $ARGV[0] eq 'addsshkey' || - $ARGV[0] eq 'chdesc' || - $ARGV[0] eq 'chowner' || - $ARGV[0] eq 'newrepo' || - $ARGV[0] eq 'newuser' || - $ARGV[0] eq 'rmrepo' || - $ARGV[0] eq 'rmuser' - ) { - $called_script = $scripts_dir . 'gitjoe/' . $ARGV[0] . '.pl'; - } - elsif ( - $ARGV[0] eq "update-gitjoe" || - $ARGV[0] eq "update-serv" - ) { - $word = $ARGV[0]; - $word =~ s/update-//; - $called_script = $scripts_dir . 'update/' . $word . '.pl'; - } - else { - print colored("Failed!\n", 'bold red') - . colored($ARGV[0], 'bold yellow') - . ": unknown script. Known scripts are:\n" - . colored("addsshkey\n", 'bold green') - . colored("chdesc\n", 'bold green') - . colored("chowner\n", 'bold green') - . colored("newrepo\n", 'bold green') - . colored("newuser\n", 'bold green') - . colored("rmrepo\n", 'bold green') - . colored("rmuser\n", 'bold green') - . colored("update-gitjoe\n", 'bold green') - . colored("update-serv\n", 'bold green'); - exit 2; - } - print "Calling " . colored($called_script, 'bold green') . "...\n"; - exit; -} - -main(); - -__END__ -- cgit v1.2.3