Net::Fritz Beispiel reboot (gelöst) (Fragen zu Perl-Modulen)

[thread]20667[/thread]

Net::Fritz Beispiel reboot [gelöst]

Tags: perl5 AVM FRITZ!Box reboot Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+5 replies
bianca

2019-09-25 11:33

User since
2009-09-13
6976 Artikel
BenutzerIn

Hi!

Habe geschafft, das Modul Net::Fritz zu installieren und eine Verbindung zur Box herzustellen.

Mein Ziel: die Box per TR-064 rebooten.
Im Dokument AVM TR-064 – First Steps finde ich auf Seite 12 auch das reboot.Aber wie geht das jetzt? Ich begreife nicht, wie ich da jetzt das reboot zur Box sende und bitte um Hilfe anhand dieses Beispiels.
Danke
10 print "Hallo"
20 goto 10
- +2 replies
- Daxim
  
  2019-09-25 13:30
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  Ungetestet:
  
  Code (perl): (dl )
  
  $device->find_service('DeviceConfig')->call('Reboot')
  - bianca
    
    2019-09-26 12:02
    
    User since
    2009-09-13
    6976 Artikel
    BenutzerIn
    
    Kommando scheint abgesetzt worden zu sein aber es passiert nichts. Keine Ausgabe, kein Ereignis in der Box, kein Fehler und es bootet nicht.
    Ich finde auch in der Ausgabe von $fritz->discover() die Stichworte DeviceConfig und Reboot nicht. Hat das damit zu tun?
    10 print "Hallo"
    20 goto 10
- +2 replies
- Linuxer
  
  2019-09-28 17:21
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  
  IMHO: Die Fritzbox *muss* hierfür richtige Benutzer eingerichtet haben; die einfache Anmeldung mit nur einem Passwort reicht hier nicht mehr.
  
  Auf meiner Fritzbox gibt es beispielsweise einen Admin-Benutzer, einen FTP-Benutzer, und einen Benutzer, der für Skripting benutzt wird.
  
  Der Admin-Benutzer darf alles, und wird nur zur manuellen Konfiguration benutzt.
  Der FTP-Benutzer darf nur auf die Dateifreigabe via FTP zugreifen.
  Der Skripting-Benutzer muss berechtigt sein, Einstellungen der Fritzbox zu verändern.
  
  Und die Fritzbox muss den Zugriff für Anwendungen via TR-064 ebenfalls erlauben (wie MarkusH in msg #190560 schon anmerkte).
  
  Wahrscheinlich muss in der Fritzbox-Oberfläche auf die Expertenansicht umgeschaltet werden, um alle Bedingungen wie benötigt zu setzen.
  
  Und hier nun die zusammenkopierten Teile aus meinem Skript:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  
  #! /usr/bin/perl use strict; use warnings; use Net::Fritz::Box; my $username = "username"; # Username for scripting at FritzBox my $password = "password"; # Username's password at FritzBox my $fritz = Net::Fritz::Box->new( username => $username, password => $password, ); die $fritz->error if $fritz->error; # only one FB in the network; use the one you find my $device = $fritz->discover(); $device->errorcheck; my $service = $device->find_service('DeviceConfig:1'); $service->errorcheck; my $response = $service->call('Reboot'); $response->errorcheck;
  
  Mehr brauchte es eigentlich nicht.
  Bei mir funktionierte das mit einer Fritzbox 7390.
  
  Hilfreich beim Entwickeln war/ist es, sich mal den Config-Baum aus der FB zu holen und auszugeben.
  Dafür habe ich aber momentan kein Skript mehr parat.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - bianca
    
    2019-09-29 08:40
    
    User since
    2009-09-13
    6976 Artikel
    BenutzerIn
    
    Der geht! Der geht!
    
    Danke dir!
    10 print "Hallo"
    20 goto 10

View all threads created 2019-09-25 11:33.