Übertragung der Messwerte mit FTP
Die mit der MessPC Software erzeugten Grafiken (siehe HTTP) lassen sich mit einem einfachen Script auf einen externen Server übertragen. Damit ist die Veröffentlichung z.B. im Internet möglich, ohne dass der MessPC Rechner von aussen erreichbar sein muss.
Der Perl Script kann auf einem beliebigen Rechner im internen Netz installiert sein und wird regelmässig über Crontab oder den Windows Scheduler gestartet, ruft die Grafik über HTTP vom MessPC System ab und übertragt sie per FTP z.B. zum externen Webserver.
Der Port 9999 wird standardmässig vom eingebauten Webserver des MessPC Systems verwendet und sollte bei Änderungen der MessPC Konfiguration entsprechend angepasst werden.
Der Perl Script kann auf einem beliebigen Rechner im internen Netz installiert sein und wird regelmässig über Crontab oder den Windows Scheduler gestartet, ruft die Grafik über HTTP vom MessPC System ab und übertragt sie per FTP z.B. zum externen Webserver.
Der Port 9999 wird standardmässig vom eingebauten Webserver des MessPC Systems verwendet und sollte bei Änderungen der MessPC Konfiguration entsprechend angepasst werden.
#! /usr/bin/perl -w
#
# http2ftp.pl
#
# Beschreibung:
# Der Script holt eine mit der MessPC Software erzeugte Grafik
# und uebertraegt sie auf einen externen FTP-Server.
#
# (c) Roberto Ziera, ziera@cubus.de
#
# 04.10.2004 - v1.0
#
use strict;
use LWP::Simple;
use Net::FTP;
###############################################################
# Einstellungen
###############################################################
my $url = "http://192.168.10.11:9999/pcmeasure.jpg";
my $file = "/tmp/pcmeasure.jpg";
my $ftphost = "your.ftp.host";
my $username = "yourusername";
my $password = "yourpassword";
my $dirname = "yourdirectory/subdirectory";
###############################################################
# Datei vom MessPC System holen
###############################################################
my $cc = getstore($url,$file);
if ($cc == "200") {
###############################################################
# ... und auf den FTP-Server uebertragen
###############################################################
my $ftp = Net::FTP->new($ftphost) or die "Verbindung fehlgeschlagen: $@\n";
$ftp->login($username, $password) or die "Anmeldung fehlgeschlagen.\n";
$ftp->cwd($dirname) or die "Verzeichniswechsel nicht moeglich.\n";
$ftp->type("I") or die "Wechsel in Binaermodus nicht moeglich.\n";
$ftp->put($file) or die "Datei konnte nicht uebertragen werden.\n";
$ftp->quit or warn "Verbindung konnte nicht beendet werden.\n";
} else {
print "Fehler beim Abholen: $cc\n";
#
# http2ftp.pl
#
# Beschreibung:
# Der Script holt eine mit der MessPC Software erzeugte Grafik
# und uebertraegt sie auf einen externen FTP-Server.
#
# (c) Roberto Ziera, ziera@cubus.de
#
# 04.10.2004 - v1.0
#
use strict;
use LWP::Simple;
use Net::FTP;
###############################################################
# Einstellungen
###############################################################
my $url = "http://192.168.10.11:9999/pcmeasure.jpg";
my $file = "/tmp/pcmeasure.jpg";
my $ftphost = "your.ftp.host";
my $username = "yourusername";
my $password = "yourpassword";
my $dirname = "yourdirectory/subdirectory";
###############################################################
# Datei vom MessPC System holen
###############################################################
my $cc = getstore($url,$file);
if ($cc == "200") {
###############################################################
# ... und auf den FTP-Server uebertragen
###############################################################
my $ftp = Net::FTP->new($ftphost) or die "Verbindung fehlgeschlagen: $@\n";
$ftp->login($username, $password) or die "Anmeldung fehlgeschlagen.\n";
$ftp->cwd($dirname) or die "Verzeichniswechsel nicht moeglich.\n";
$ftp->type("I") or die "Wechsel in Binaermodus nicht moeglich.\n";
$ftp->put($file) or die "Datei konnte nicht uebertragen werden.\n";
$ftp->quit or warn "Verbindung konnte nicht beendet werden.\n";
} else {
print "Fehler beim Abholen: $cc\n";
Die Datei pcmeasure.jpg ist natürlich nur ein Beispiel. Alle von der MessPC Software bereitgestellten Grafiken können verwendet werden.
