init III

Perl Ubiquiti mpower steuerung/device control/control.pl

@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+use feature "switch";
+
+$USER="andre";
+$PASS="mesh-assort2";
+$HOST="power.andregeissler.de";
+$DEVICE="Test";
+$DEVICEIP="192.168.100.7";
+$DEVICEUSER="admin";
+$DEVICEPASS="admin";
+
+$cmd="curl -s http://$USER:$PASS\@$HOST/$DEVICE/timer > /scripts/mFi/timer";
+`$cmd`;
+$cmd="dos2unix /scripts/mFi/timer";
+`$cmd`;
+
+open CTRL, "</scripts/mFi/timer";
+@TIMER=<CTRL>;
+close CTRL;
+
+my $startfound=0;
+my $endefound=0;
+
+foreach (@TIMER) {
+   $startfound=1 if (/###START/);
+   $endefound=1  if (/###ENDE/);
+}
+exit if ($startfound == 0 || $endefound == 0);
+
+@ports=();
+@comms=();
+$str="";
+
+my $time=`date +"%H:%M"`;
+chomp $time;
+print "\ntime ($time)\n";
+
+$cmd="curl -s http://$USER:$PASS\@$HOST/$DEVICE/api.php?action=getstatus";
+print "get state via ($cmd)\n";
+$result=`$cmd`;
+chomp $result;
+print "result ($result)\n";
+next if ( $result eq "" ); 
+@ports=split /;/, $result;
+foreach $port (@ports) {
+   ($dev, $state) = $port =~ /^([0-9]+):'(.*)'$/;
+   $ch="";
+   print "Check $dev\n";
+   $f=0;
+   foreach (@TIMER) {
+      chomp;
+      print ".";
+      if      ($_ =~ /^$dev,off,$time$/) {
+         $f=1;
+         print "$dev off at $time\n";
+         $comm ="echo 0 > /dev/output$dev";
+      } elsif ($_ =~ /^$dev,on,$time$/) {
+         $f=1;
+         print "$dev on at $time\n";
+         $comm ="echo 1 > /dev/output$dev";
+         $ch="on";
+      } elsif ($_ =~ /^$dev,off,always$/) {
+         $f=1;
+         print "$dev always off\n";
+         $comm ="echo 0 > /dev/output$dev";
+      } elsif ($_ =~ /^$dev,on,always$/) {
+         $f=1;
+         print "$dev always on\n";
+         $comm ="echo 1 > /dev/output$dev";
+         $ch="on";
+      }
+   }
+   if ($f == 0) {
+      if ($state eq "checked") {
+         print "$dev on\n";
+         $comm="echo 1 > /dev/output$dev";
+         $ch="on";
+      } else {
+         print "$dev off\n";
+         $comm="echo 0 > /dev/output$dev";
+      }
+   }
+   $str .= "&oos$dev=$ch";
+   push(@comms, $comm);
+}
+$com=join(";", @comms);
+
+$cmd="curl -s 'http://$USER:$PASS\@$HOST/$DEVICE/api.php?action=setstatus$str'";
+print "set state via ($cmd)\n";
+`$cmd`;
+
+$cmd="expect /scripts/mFi/port.exp $DEVICEUSER $DEVICEIP $DEVICEPASS '$com'";
+print "send commands to device\n";
+`$cmd`;
+