TraceyC/shell-scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Reorganize directory

Browse source
This commit is contained in:
Tracey Clark 2023-09-11 20:01:15 -05:00
commit 10e3e1f745
26 changed files with 371 additions and 477 deletions
Download patch file Download diff file Expand all files Collapse all files

4
05_fuse
View file

@ -1,4 +0,0 @@
#!/bin/sh
#Copy this to /etc/pm/sleep.d
#Unmount all sshfs mounts before system goes to sleep so tasks do not refuse to sleep
mount -l -t fuse.sshfs | awk -F " " '{print "fusermount -u " $3}' | bash

5
file_processing/README.md Normal file
View file

@ -0,0 +1,5 @@
# archive_statements.pl and archive_taxes.pl
## Requirements
cpanm -S File::Find::Rule File::Copy::Recursive File::DirCompare Time::Piece Test2::V0 Test2::Plugin::NoWarnings Modern::Perl

0
file_processing/lib/FinancialFileArchiver.pm Normal file
View file

125
file_processing/lib/ProcessDirectories.pm Normal file
View file

@ -0,0 +1,125 @@
package ProcessDirectories;
use Modern::Perl;
# VERSION
# AUTHORITY
# ABSTRACT: Get current subdirectories in current year directory and copy to archive directory
use Carp qw( croak );
use File::Basename;
use File::Find::Rule;
use File::Copy::Recursive qw(dircopy);
use File::DirCompare;
use Pod::Usage;
# use Time::Piece qw/localtime/;
sub create_archive_dirs {
my ( $source_dir, $dest_dir ) = @_;
unless ( -d $source_dir ) {
die "Source directory '$source_dir' does not exist, please create it";
}
print("Copying current directories to archive folder\n");
print("From: $source_dir\n");
print("To: $dest_dir\n");
dircopy( $source_dir, $dest_dir )
or croak "Could not copy directories $!";
return;
}
sub compare_dirs {
my ( $dir1, $dir2 ) = @_;
my $same = 1;
print("Making sure all directories and files match between source and destination\n");
File::DirCompare->compare(
$dir1, $dir2,
sub {
my ( $a, $b ) = @_;
if ( !$b ) {
printf "Only in %s: %s\n", dirname($a), basename($a);
$same = 0;
}
elsif ( !$a ) {
printf "Only in %s: %s\n", dirname($b), basename($b);
$same = 0;
}
else {
print "Files $a and $b differ\n";
$same = 0;
}
}
);
return $same;
}
sub clean_dirs {
my ( $new_dir, $old_dir, $curr_year, $last_year ) = @_;
my @this_year_files =
File::Find::Rule->file()->name("*$curr_year*")->in($old_dir);
my @last_year_files =
File::Find::Rule->file()->name("*$last_year*")->in($new_dir);
unlink @this_year_files;
print("Deleted all files for $curr_year from the folder for $last_year\n");
unlink @last_year_files;
print("Deleted all files for $last_year from the folder for $curr_year\n");
return;
}
1;
=pod
=head1 NAME
ProcessDirectories
=head1 DESCRIPTION
Methods for copying and processing a directory of files for the past year and this year
=head1 SYNOPSIS
use ProcessDirectories
create_archive_dirs ( $source_dir, $dest_dir );
compare_dirs( $source_dir, $dest_dir );
clean_dirs( $source_dir, $dest_dir, $year, $lastyear );
=head1 METHODS
=head2
C<create_archive_dirs>: Copies the directory structure and contents of a source file to the archive / destination directory.
=head3
Usage:
create_archive_dirs( $source_dir, $destination_dir );
=head2
C<compare_dirs>: Compares the content of two specified directories. Provides feedback on the results. Returns 1 if the source and destination match, 0 otherwise.
=head3
Usage:
compare_dirs( $source_dir, $destination_dir );
=head2
C<clean_dirs>: This method accepts the following parameters:
=over 4
=item source_dir
=item destination_dir
=item this_year
=item last_year
=back
=head3
Usage:
clean_dirs( $source_dir, $destination_dir, 2023, 2022 );
=cut

14
file_processing/t/00-load.t Normal file
View file

@ -0,0 +1,14 @@
use Test2::V0;
use Test2::Plugin::Times;
use Test2::Plugin::ExitSummary;
use Test2::Plugin::NoWarnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
plan(1);
BEGIN {
use ProcessDirectories;
pass('Module loads correctly.');
}

79
file_processing/t/01-subroutines.t Normal file
View file

@ -0,0 +1,79 @@
use Test2::V0;
use Test2::Plugin::Times;
use Test2::Plugin::ExitSummary;
use Test2::Plugin::NoWarnings;
use FindBin qw($Bin);
use File::Path::Tiny;
use Time::Piece qw/localtime/;
use lib "$Bin/../lib";
use ProcessDirectories;
plan(2);
# Preconditions
my $now = localtime;
my $year = $now->year;
my $lastyear = $now->add_years(-1)->year;
diag("Current year: $year Last year: $lastyear\n");
## Define and create test source folder
my $current_year_dir = 't/current_year/';
my $archive_folder = 't/1_archives/';
my $prev_year_dir = $archive_folder . $lastyear . '_Archives';
diag("Source test dir $current_year_dir Dest test dir $prev_year_dir");
if(!File::Path::Tiny::mk($current_year_dir)) {
die "Could not create test source directory: '$current_year_dir': $!";
}
my @test_files = qw( 2003_file-1 2003_file-2 2002_file-1 2002_file-2 2002_file-3 );
for my $file (@test_files) {
create_file($current_year_dir . '/' . $file);
}
# Begin testing
ProcessDirectories::create_archive_dirs( $current_year_dir, $prev_year_dir );
ok( ( -d $prev_year_dir ), "Previous year archive directory was created" );
ok( ProcessDirectories::compare_dirs( $current_year_dir, $prev_year_dir ), "Previous year archive directory contents matches current directory contents" );
# clean_dirs
# End Testing
# Cleanup
# if(!File::Path::Tiny::rm($current_year_dir)) {
# die "Could not remove test source directory: '$current_year_dir': $!";
# }
# if(!File::Path::Tiny::rm($archive_folder)) {
# die "Could not remove test archive directory: '$archive_folder': $!";
# }
sub create_file {
my $filepath = shift;
open (my $fh, ">", $filepath) or die "Can't open file '$filepath' for writing: $!";
# you can control the range of characters here
my $minimum = 4;
my $range = 16;
my $num_bytes = '100';
for (my $bytes = 0; $bytes < $num_bytes; $bytes += 4) {
my $rand = int(rand($range ** 4));
my $string = '';
for (1..4) {
$string .= chr($rand % $range + $minimum);
$rand = int($rand / $range);
}
print $fh $string;
}
close($fh) or warn "Can't close file '$filepath': $!";
return;
}

19
file_processing/t/02-archive-files.t Normal file
View file

@ -0,0 +1,19 @@
use Modern::Perl;
use Carp qw/carp croak/;
use Test2::V0;
use Test2::Tools::Subtest qw/subtest_streamed/;
use Test2::Plugin::ExitSummary;
# use Test2::Tools::Exception qw/dies lives/;
use Test2::Plugin::NoWarnings;
# use Cwd qw(cwd);
use File::Path qw(remove_tree make_path);
use Time::Piece qw/localtime/;
# Order is important
use FindBin qw($Bin);
use lib "$Bin/../lib";
use ProcessDirectories;
use File::Temp qw/ tempfile tempdir /;

7
file_processing/t/1_archives/2022_Archives/2002_file-1 Normal file
View file

@ -0,0 +1,7 @@
 
   
     


   
      

5
file_processing/t/1_archives/2022_Archives/2002_file-2 Normal file
View file

@ -0,0 +1,5 @@
   
  
    
  
  

9
file_processing/t/1_archives/2022_Archives/2002_file-3 Normal file
View file

@ -0,0 +1,9 @@
  
   
  
   

 
   
 

7
file_processing/t/1_archives/2022_Archives/2003_file-1 Normal file
View file

@ -0,0 +1,7 @@
    
 
       

      

8
file_processing/t/1_archives/2022_Archives/2003_file-2 Normal file
View file

@ -0,0 +1,8 @@
   
   
 
  

  
     

7
file_processing/t/current_year/2002_file-1 Normal file
View file

@ -0,0 +1,7 @@
 
   
     


   
      

5
file_processing/t/current_year/2002_file-2 Normal file
View file

@ -0,0 +1,5 @@
   
  
    
  
  

9
file_processing/t/current_year/2002_file-3 Normal file
View file

@ -0,0 +1,9 @@
  
   
  
   

 
   
 

7
file_processing/t/current_year/2003_file-1 Normal file
View file

@ -0,0 +1,7 @@
    
 
       

      

8
file_processing/t/current_year/2003_file-2 Normal file
View file

@ -0,0 +1,8 @@
   
   
 
  

  
     

13
gitea/.gitignore vendored
View file

@ -1,13 +0,0 @@
**/.vscode
.vscode/*
!.vscode/settings.json
!.vscode/tasks.json
!.vscode/launch.json
!.vscode/extensions.json
!.vscode/*.code-snippets
# Local History for Visual Studio Code
.history/
# Built Visual Studio Code Extensions
*.vsix

44
gitea/backup-gitea-bin.pl
View file

@ -1,44 +0,0 @@
#!/usr/bin/perl
# backup_gitea_bin.pl
# Author: Tracey Clark
# Created: 2019-06-20
# You must have a mail transport agent installed to run this script
use strict;
use warnings;
### TEST CODE ###
my $gitea_bin='/home/tracey/tmp/testbin';
my $gitea_current_version='1';
my %binary_file = (
input => $gitea_bin,
version => $gitea_current_version,
);
my ( %opts ) = %binary_file;
my $input = $opts{input};
my $version = $opts{version};
my $gitea_bin_backup = '/home/tracey/tmp/testbin.' . $gitea_current_version . '.bz2';
### TEST CODE ###
# my ( %opts ) = %{shift()};
# my $input = $opts{input};
# my $version = $opts{version};
printf("Backing up the current binary\n");
printf("Input in backup_bin script is $input\n and version is $version\n");
# my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
printf("Gitea bin backup will be $gitea_bin_backup\n");
# Do this with a system call to make a compressed copy of the current binary
# bzip2 -k file.txt
# my $status = system("vi", "fred.txt");
# if (($status >>=8) != 0) {
# die "Failed to run vi";
# }
# HEREHERE how to specify output file??
my $bzip_status = system("/bin/bzip2 -k $input");
if (($bzip_status >>=8) != 0) {
die "Failed to run bzip2";
}

416
gitea/update-gitea.pl
View file

@ -1,416 +0,0 @@
#!/usr/bin/perl
# Update gitea based on version provided
# Author: Tracey Clark
# Created: 2019-03-04
# You must have a mail transport agent installed to run this script
# Note: Daily backups are also being run from cron
# /home/gitea/gitea_backup.sh
# Re-write to use this dir according to gitea docs
# https://docs.gitea.io/en-us/install-from-binary/
# Get binary from system rather than hard code
# Stop gitea with systemctl before file copy
# Set right mod & perms?
use strict;
use warnings;
use LWP::UserAgent;
use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error);
use File::Basename;
use JSON;
use Sort::Versions;
use Getopt::Long qw(GetOptions);
use Term::ANSIColor qw(:constants);
use feature qw(say);
use MIME::Lite;
use utf8;
use open ':std', ':encoding(UTF-8)';
use Encode qw(encode encode_utf8 );
# use Net::SSH qw(sshopen2);
use Capture::Tiny qw(capture);
my ( $verbose, $info );
GetOptions(
'info!' => \$info,
'verbose!' => \$verbose,
);
##########################################
### The user must set these variables ###
my $email = 'gitea-update@tlcnet.info';
my $filetype = '-linux-amd64';
my $download_dir = '/home/gitea/bin/';
##########################################
my $update_needed = 0;
###################################
# Get version currently installed #
###################################
# https://api.github.com/repos/go-gitea/gitea/releases/latest
# This URL will only have one version listed
my $gitea_bin_dir = '/usr/local/bin/';
my $gitea_bin = $gitea_bin_dir . '/gitea';
my $gitea_current_version_string = `$gitea_bin --version`;
my $alphanum_ver = 0;
chomp $gitea_current_version_string;
unless ( defined $gitea_current_version_string ) {
my $status = "❌ [DIE]: Unable to get the version of the gitea binary on the system: $!";
notification('failed ❌', $status);
die RED "$status", RESET;
}
my %binary_file = get_current_binary($gitea_current_version_string);
my $gitea_current_version = $binary_file{'version'};
######################################
# Check upstream version and get tag #
######################################
my $baseURL = q{https://github.com/go-gitea/gitea/};
my $latestURL = q{https://api.github.com/repos/go-gitea/gitea/releases/latest};
# https://hubpages.com/technology/Use-Perl-to-access-REST-API
# Spin up the browser object
my $ua = LWP::UserAgent->new(
cookie_jar => {}, # keep cookies in RAM but not persistent between sessions
);
my $resp = $ua->get($latestURL);
my $latest_release_hash = decode_json( $resp->content )
or die "[DIE]: Unable to parse the version data! Output is:\n $resp";
my $orig_tag = $latest_release_hash->{tag_name};
print "[TLC DEBUG]: ORIG TAG is $orig_tag\n" if defined $verbose;
my $tag = $orig_tag;
substr( $tag, 0, 1, '' );
my $release_id = $latest_release_hash->{id}; # Works
################
# Set filename #
################
my $unz_filename = 'gitea-' . $tag . $filetype;
#ex: gitea-1.7.6-linux-amd64
my $download_filename = $unz_filename . '.xz';
if ( defined $verbose ) {
printf( YELLOW
"[INFO] Latest upstream version: $tag\n Release ID $release_id\n", RESET);
printf( YELLOW
"[INFO]\nRelease id: $release_id\nUncompressed filename: $unz_filename\nDownload file target: $download_filename\n", RESET
);
}
#############################################
# Check if upstream is newer than installed #
#############################################
if ( versioncmp( $gitea_current_version, $tag ) == -1 ) {
$update_needed = 1;
printf(
"[INFO] Version tag is greater than the system version, proceeding with update\n"
);
backup_bin( \%binary_file );
my $download_url = get_download_url( $download_filename, $release_id );
print("Downloading the compressed binary\n");
print("[INFO] Download URL we got from the sub is $download_url\n");
`wget -P $download_dir $download_url`;
my $xz_file = $download_dir . $download_filename;
if ( defined $info ) {
print YELLOW "[INFO] xz file is $xz_file\n", RESET;
}
install_bin($download_filename);
}
##################################
# Get service status and version #
##################################
my ($gitea_status, $gitea_proc_status, $gitea_ssh_status) = check_gitea_status();
$gitea_current_version_string = `$gitea_bin --version`;
chomp $gitea_current_version_string;
%binary_file = get_current_binary($gitea_current_version_string);
$gitea_current_version = $binary_file{'version'};
if ( $gitea_status ) {
print( GREEN "[INFO] ✅ Gitea service is active\n", RESET );
}
else {
print( RED "[ERROR] ❌ Gitea service is NOT active\nProcess: $gitea_proc_status\nSSH: $gitea_ssh_status\n", RESET );
}
########################
# Notify appropriately #
########################
if ( !$update_needed && $gitea_status ) {
my $status = '✅ Version tag upstream matches the system version, no update needed. Service is running.';
print( YELLOW "[INFO] $status\nInstalled version: $gitea_current_version\nUpstream version: $tag\n", RESET );
notification('not needed ✅', $status, $gitea_current_version, $tag);
exit 1;
}
elsif ( $update_needed && versioncmp( $gitea_current_version, $tag ) == -1 ) {
my $status = '❌ Upstream version tag is STILL greater than the current system version after attempting to update, something went wrong';
notification('failed ❌', $status, $gitea_current_version, $tag);
print( RED $status, RESET );
}
elsif ( $update_needed && $gitea_status ) {
my $status = '✅ [INFO] Gitea successfuly updated. Installed version is current and service is running';
print( GREEN "[INFO] $status\n", RESET );
say "Removing the downloaded xz file and uncompressed file";
system("rm -vf " . $download_dir . $unz_filename);
system("rm -vf " . $download_dir . $download_filename);
notification('succeeded ✅', $status, $gitea_current_version, $tag);
# Intentionally *not* removing the 'gitea' binary in case something goes wrong running the current binary.
}
elsif ( !$gitea_status ) {
my $status = q{❌ [DIE] The gitea service is no good!<br><br>
<b>Process:</b> } . $gitea_proc_status . q{<br><br>
<b>SSH Output:</b><br>} . $gitea_ssh_status . q{<br>};
notification('failed ❌', $status, $gitea_current_version, $tag);
die '❌ [DIE] The gitea service is no good!';
}
else {
my $status = '❌ [DIE] Unknown update status!';
print( RED $status, RESET );
notification('failed ❌', $status, $gitea_current_version, $tag);
die $status;
}
# ##### Subroutines #####
# sub check_deps {
# # Check to make sure dependencies installed on system - unit test??
# # bzip2 perl mods
# }
sub get_current_binary {
my $current_version_string = shift;
my $current_version;
if ( $current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s+b/ ) {
$current_version = $1;
printf("Version number of the installed gitea binary: $1\n") if defined $verbose;
}
elsif ( $current_version_string =~ m/ion\ (\d+\d+\w*)\s/ ) {
$current_version = $1;
printf("Current version number the installed gitea binary: $1\n");
$alphanum_ver = 1;
}
my %binary_file = (
input => $gitea_bin,
version => $current_version,
);
unless ( defined $current_version ) {
die RED
"[DIE]: Unable to get the current gitea version! Value is $current_version",
RESET;
}
return %binary_file;
}
sub get_binary_file {
my $version = shift;
}
sub backup_bin {
# Ghetto to get it working for now
my (%opts) = %{ shift() };
my $input = $opts{input};
my $version = $opts{version};
print GREEN "Backing up the current binary\n", RESET;
if ( defined $info ) {
print YELLOW
"[INFO] Input in backup_bin sub is:\n Directory $input\n Version $version\n",
RESET;
}
my $gitea_bin_backup =
'/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
print GREEN "Gitea bin backup will be $gitea_bin_backup\n", RESET;
system("cp $input $input.bak");
# TODO
# # Do this with a system call to make a compressed copy of the current binary
# # bzip2 -k file.txt
# # my $status = system("vi", "fred.txt");
# # if (($status >>=8) != 0) {
# # die "[DIE] Failed to run vi";
# # }
# my $bzip_status = system("bzip2 -k", "$input");
# if (($status >>=8) != 0) {
# die "[DIE] Failed to run bzip2";
# }
return;
}
sub get_download_url {
my ( $dl_filename, $rel_id ) = @_;
my $dl_url;
# Get the download_url from the array
my $assetsURL =
'https://api.github.com/repos/go-gitea/gitea/releases/'
. $release_id
. '/assets';
if ( defined $info ) {
print YELLOW "[INFO] Assets URL\n";
print "$assetsURL\n", RESET;
}
my $asset_resp = $ua->get($assetsURL);
my $asset_resp_array_ref = decode_json( $asset_resp->content );
if ( defined $verbose ) {
printf( RED
"[DEBUG] Array of hashes of the json response for the assets:\n"
);
printf Dumper($asset_resp_array_ref), RESET;
}
foreach my $asset_ref ( @{$asset_resp_array_ref} ) {
if ( defined $verbose ) {
print( RED
"[DEBUG] The asset ref in get_download_url is $asset_ref\n" );
print(
"The asset ref name in get_download_url is $asset_ref->{name}\n",
RESET
);
}
if ( $asset_ref->{name} eq $dl_filename ) {
print("Yay we have a match for our desired file :D and it is \n");
print $asset_ref->{name} . "\n";
$dl_url = $asset_ref->{browser_download_url};
if ( defined $info ) {
print YELLOW
"[INFO] The download url from the response array is $dl_url\n",
RESET;
}
return $dl_url;
}
}
unless ( defined $dl_url ) {
print( RED
"ONOES we have no download URL from the github API! Trying to build one manually\n",
RESET
);
my $dl_url = build_download_url( $orig_tag, $download_filename );
return $dl_url;
}
return 0;
}
sub build_download_url {
my ( $url_tag, $url_file ) = @_;
print "Building the URL based on the version\n";
# If getting the download URL fails through the API, use this to build it manually
# URL is in the form of
# https://github.com/go-gitea/gitea/releases/download/v1.15.2/gitea-1.15.2-linux-amd64.xz
my $built_url =
'https://github.com/go-gitea/gitea/releases/download/'
. $url_tag . '/'
. $url_file;
if ( defined $info ) {
print YELLOW "The URL built for the download is $built_url\n", RESET;
}
return $built_url;
}
sub install_bin {
my $filename = shift;
print("Unpacking the downloaded file \"$download_dir$filename\", setting owner and permissions\n");
my $unpacked_filename = basename($filename, ".xz");
print "Unpacked filename is $unpacked_filename\n";
# Copy the downloaded binary to gitea and chmod it 750
# Doing this with a filthy system call because the perl library
# for xz manipulation is a memory hog and buggy besides
system("xz -d --keep $download_dir" . "/" . "$filename");
system("systemctl stop gitea");
system("cp $download_dir$unpacked_filename $gitea_bin");
system("chown gitea.gitea $gitea_bin");
system("chmod 750 $gitea_bin");
# Restart service
print("[INFO] Restarting the gitea service\n");
return system("systemctl restart gitea");
}
sub check_gitea_status {
my $gitea_status;
my $gitea_proc_status = `systemctl is-active gitea`;
sleep 1; # Otherwise the SSH regex doesnt work;
my $command = 'ssh -i /home/tracey/.ssh/id_tlc_gitea gitea';
# DEBUG - induce failure
# my $command = 'ssh -i /home/tracey/.ssh/blerg gitea';
my ($out, $err, $exit) = capture { system $command };
# print "\n---- STDERR: --------------\n";
# print $err;
# print "\n---- STDOUT: --------------\n";
# print $out;
# print "\n---- EXIT CODE: -----------\n";
# print $exit / 256;
# print "\n---------------------------\n";
my $gitea_ssh_status = $err;
if ($gitea_ssh_status =~ /(successful)/gm) {
print "Gitea SSH connection attempt: $1\n";
}
unless ( ($gitea_proc_status =~ /active/) && ($gitea_ssh_status =~ /successfully/gm) ) {
$gitea_status = 0;
}
if ( ($gitea_proc_status =~ /active/) && ($gitea_ssh_status =~ /successfully/gm) ) {
$gitea_status = 1;
}
return $gitea_status, $gitea_proc_status, $gitea_ssh_status;
}
sub notification {
my ($result, $body, $running_version, $upstream_version) = @_;
my $subject = "Gitea update check: update " . $result;
my $from = 'system@host.tlcnet.info';
my $ver_body;
print "[TLC DEBUG] Body received is\n$body\n" if defined $verbose;
if ( defined $running_version ) {
$ver_body = q{
<table>
<tbody>
<tr>
<td>Running version:</td>
<td>} . $running_version . q{</td>
</tr>
<tr>
<td>Upstream version:</td>
<td>} . $upstream_version . q{</td>
</tr>
</tbody>
</table>}
}
my $msg = MIME::Lite->new(
Subject => encode( 'MIME-Header', $subject ),
From => $from,
To => $email,
Type => 'text/html',
Data => encode_utf8(
'<body>
<H1>Gitea update result</H1>
<p>' . $body . '</p>' . $ver_body .
'<br>
<p>&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;&#9135;</p>
<p>Sincerely, <br>Your Linode VM</p>
</body>'
)
);
$msg->send();
return 1;
}

13
perl_scratch.pl Executable file
View file

@ -0,0 +1,13 @@
#!/usr/bin/env perl
use Modern::Perl;
use DateTime;
say "Date Time formatting tests";
my $dt_now = DateTime->now( time_zone => 'local' );
say "Datetime now is $dt_now";
my $date = $dt_now->ymd('');
# yymmdd_hhmmss
my $dt = $date . '_' . $dt_now->hms('');
say "Datetime is $dt";

0
bright_up.sh → utility/bright_up.sh
View file

0
checkPPAs.sh → utility/checkPPAs.sh
View file

0
check_os.sh → utility/check_os.sh
View file

29
utility/reset_kde.fish Executable file
View file

@ -0,0 +1,29 @@
#!/usr/bin/fish
# Initial folder list from https://tuxtrix.com/reset-kde5-user-config-default/
if string length -q $HOME
echo "Backup up $HOME/.config"
cp -a $HOME/.config $HOME/.config.bak
cd $HOME/.config
echo "Deleting KDE config files"
set fileList Trolltech.conf akregatorrc baloofilerc bluedevilglobalrc kactivitymanagerd-statsrc
set -a fileList kactivitymanagerdrc kactivitymanagerd-pluginsrc kateschemarc kcmfonts kcminputrc kconf_updaterc kded5rc
set -a fileList kdeglobals kfontinstuirc kglobalshortcutsrc khotkeysrc kmixctrlrc kmixrc
set -a fileList kscreenlockerrc ksmserverrc ksplashrc ktimezonedrc kwinrc kwinrulesrc plasma-localerc
set -a fileList plasma-nm plasma-org.kde.plasma.desktop-appletsrc plasmarc plasmashellrc
set -a fileList powermanagementprofilesrc startupconfig startupconfigfiles startupconfigkeys
set -a fileList krunnerrc touchpadxlibinputrc systemsettingsrc kxkbrc PlasmaUserFeedback
set -a fileList kde.org/* kiorc klipperrc knfsshare kuriikwsfilterrc kwalletmanager5rc kwalletrc
set -a fileList plasma.emojierrc plasmanotifyrc PlasmaUserFeedback powerdevilrc kgammarc
set -a fileList kded_device_automounterrc device_automounter_kcmrc klaunchrc
set -a fileList trashrc kactivitymanagerd-switcher gtkrc-2.0 gtkrc baloofileinformationrc
set -a fileList plasmaparc plasmawindowed-appletsrc plasmawindowedrc
set -a fileList breezerc
rm $fileList
else
echo "HOME variable not defined"
exit
end

15
utility/tx_session.sh Executable file
View file

@ -0,0 +1,15 @@
#!/bin/bash
go() {
session="$1"
sessions_dir="$HOME/tilix_profiles"
tilix_opts=''
for session in "$sessions_dir/$session/"*; do
tilix_opts="$tilix_opts -s $session"
done
tilix $tilix_opts
}
go $@