fritz tweaks

1 files changed, 9 insertions, 4 deletions

diff --git a/fritz b/fritz
index c0fd7fb..88c5d36 100755
--- a/fritz
+++ b/fritz
@@ -143,17 +143,22 @@ login();
 get_devlist();
 
 # print device list
-if (!defined($mode) || $mode eq "devlist") {
+if (!defined($mode) || $mode eq "devlist" || $mode eq "list") {
 	print_devlist();
 	exit;
 }
-if ($mode eq "rawlist") {
-	print Dumper($devlist);
+if ($mode eq "rawlist" || $mode eq "raw") {
+	my $dev = shift;
+	if (defined($dev) && defined($devlist->{'device'}->{$dev})) {
+		print Dumper($devlist->{'device'}->{$dev});
+	} else {
+		print Dumper($devlist);
+	}
 	exit;
 }
 
 # operate switch
-if ($mode eq "switch") {
+if ($mode eq "switch" || $mode eq "sw") {
 	my $switch = shift;
 	my $state = shift;
 	die "missing switch args"