|
@@ -2,25 +2,20 @@
|
|
|
|
|
|
use strict;
|
|
|
use warnings;
|
|
|
-use YAML qw(LoadFile DumpFile);
|
|
|
+# use YAML qw(LoadFile DumpFile);
|
|
|
+use YAML::Tiny;
|
|
|
|
|
|
my $configFile = "$ENV{HOME}/.sshfs-helper";
|
|
|
-
|
|
|
+my $yaml
|
|
|
my $configData;
|
|
|
|
|
|
if ((not -e $configFile)) {
|
|
|
- $configData = {};
|
|
|
- DumpFile($configFile, $configData);
|
|
|
+ YAML::Tiny->new({})->write($configFile);
|
|
|
+ print "Create Config file, exiting."
|
|
|
+ exit 1;
|
|
|
} else {
|
|
|
- $configData = LoadFile($configFile);
|
|
|
-}
|
|
|
-
|
|
|
-sub addConfig {
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-sub changeConfig {
|
|
|
-
|
|
|
+ $yaml = YAML::Tiny->read($configFile);
|
|
|
+ $configData = $yaml->[0];
|
|
|
}
|
|
|
|
|
|
sub mount {
|
|
@@ -38,7 +33,7 @@ sub list {
|
|
|
}
|
|
|
|
|
|
sub usage {
|
|
|
- print "sshfs-helper [ add | list | edit name | mount name | unmount name | help ]\n";
|
|
|
+ print "sshfs-helper [ list | mount name | unmount name | help ]\n";
|
|
|
}
|
|
|
|
|
|
sub help {
|
|
@@ -56,17 +51,19 @@ if (@ARGV == 0) {
|
|
|
my $command = shift @ARGV;
|
|
|
my @arguments = @ARGV;
|
|
|
|
|
|
-if ($command eq "add") {
|
|
|
- addConfig(@arguments);
|
|
|
-} elsif ($command eq "list") {
|
|
|
- list();
|
|
|
-} elsif ($command eq "edit") {
|
|
|
+if ($command eq "list") {
|
|
|
+ list;
|
|
|
} elsif ($command eq "mount") {
|
|
|
+ mount shift @arguments;
|
|
|
} elsif ($command eq "unmount") {
|
|
|
+ unmount shift @arguments;
|
|
|
} elsif ($command eq "help") {
|
|
|
+ help;
|
|
|
+ exit 1;
|
|
|
} else {
|
|
|
usage();
|
|
|
exit 1;
|
|
|
}
|
|
|
|
|
|
-DumpFile($configFile, $configData);
|
|
|
+$yaml->write($configFile);
|
|
|
+# DumpFile($configFile, $configData);
|