Net :: Chat :: Daemon

Netz :: Chat :: Daemon ist ein Perl-Modul, um einen Daemon auszuführen, der über Instant Messaging gesteuert wird.
Jetzt downloaden

Net :: Chat :: Daemon Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Steve Fink
  • Website des Verlags:
  • http://search.cpan.org/~sfink/IPC-Run-Simple-1.3/lib/IPC/Run/Simple.pm

Net :: Chat :: Daemon Stichworte


Net :: Chat :: Daemon Beschreibung

NET :: Chat :: Daemon ist ein Perl-Modul, um einen Daemon auszuführen, der über Instant Messaging gesteuert wird. Net :: chat :: Daemon ist ein Perl-Modul, um einen Daemon auszuführen, der über Instant Messaging-Messaging gesteuert wird. , ohne den Umgang mit den Komplexitäten oder Implementierungsdetails, um tatsächlich die Botschaften von Ort zu Ort zu erhalten (Es verwendet direkt die Nachrichtenobjekte und Dinge, die Jabber zurückgibt.) Beachten Sie, dass dieses Paket nicht hilft, einen Instant Messaging-Server zu implementieren. Dieses Paket dient zum Schreiben von Servern, die mit anderen Unternehmen über Instant-Nachrichten kommunizieren - Server, die mit diesem Paket geschrieben wurden, sind Instant Messaging * Clients * .synopsis-Paket MY :: Server; Verwenden Sie Basis 'net :: chat :: daemon'; Sub-Lenker {Return "Hallo auch für Sie zurück"; } SUB-HandleRegree {My ($ Dateiname, $ Datei) = @_; Rückgabe "verweigert", es sei denn, $ Dateiname = ~ / ^[.w +$/; Öffnen (mein $ FH, "> / var / repository / $ Dateiname") oder zurück "Fehlgeschlagen: $!"; Drucken $ FH $ -Datei-Datei; Schließen $ FH oder Return "Failed: $!"; Zurück "OK"; } Sub Somemethod {My ($ self, @args) = @_; . . . } Sub New {My ($ class, $ user,% Optionen) = @_; Rücksendung $ class-> super :: new (% Optionen, Befehle => {'callmethod' => 'Somemethod', 'Speichern' => HandleRegree}; } Package Main; mein $ server = my :: server-> neu ('myuserid@jabber.org '); $ Server-> Prozess (); # oder um alles in einem Schritt zu tun, und wiederholen Sie die Verbindungen für 5 Minuten # (300 Sekunden), bevor Sie aufgrund von Problemen des Servers nicht erreicht werden: MY :: server-> run ('myuserid@jabber.org ', Retry => 300 ); Wenn Sie dies ausführen, sollten Sie in der Lage sein, eine Nachricht an userid@jabber.org zu senden "Befehl, Sie müssen einen Befehlszeilenclient verwenden, der Anhänge in dem von diesem Server erwarteten Format senden kann (es verwendete derzeit keine Standard-Datei-Sendungsformate). Der mit diesem Modul verpackte Jabber-Befehl kann dies über das übertragen werden Die Option -A-Befehlszeile Der Code wurde nicht vollständig umstrukturiert, um diesen Anweisungen zu entfernen. Aquirements: · Perl Anforderungen: · Perl.


Net :: Chat :: Daemon Zugehörige Software