Opened by popcorn5 at 2005-10-19 12:29
User since
2003-09-24
60 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-24
60 Artikel
BenutzerIn
@kristian: ist zwar gut, das hilft mir leider auch nicht weiter :(
@sesth: Das Problem ist das ich mit so einen sch*** uralt proggie kommunizieren muss. bs ist dabei "VENIX" von 1982 !? Ich habe nichts gefunden wo ich irgendwelche einstellungen bezüglich handschake ändern könnte. Zum Testen verwende ich bereits ein vollverdrahtetes Kabel, bringt aber leider nix.
@fritz: schön das ich dir helfen konnte :)
@all: ich fange mit Perl normalerweise auch was anderes an (CGI und DB...) das mit rs232 ist mal ne ausnahme. Aber das ist für meinen Brötchengeber und ich will mir da nicht die blösse geben ;)
ich hab gesagt "jo, kein thema" und dann mache ich das auch so.
falls es jemanden interessiert, ich habe jetzt eine lösung (ok nicht sehr schön und eher ein beispiel für "so macht man es normalerweise NICHT". das ist mir jetzt auch völlig egal, hauptsache es geht ;)
Vielleicht gibts ja jemanden, der das noch etwas verschönern kann oder will.
Mfg
Matze
@sesth: Das Problem ist das ich mit so einen sch*** uralt proggie kommunizieren muss. bs ist dabei "VENIX" von 1982 !? Ich habe nichts gefunden wo ich irgendwelche einstellungen bezüglich handschake ändern könnte. Zum Testen verwende ich bereits ein vollverdrahtetes Kabel, bringt aber leider nix.
@fritz: schön das ich dir helfen konnte :)
@all: ich fange mit Perl normalerweise auch was anderes an (CGI und DB...) das mit rs232 ist mal ne ausnahme. Aber das ist für meinen Brötchengeber und ich will mir da nicht die blösse geben ;)
ich hab gesagt "jo, kein thema" und dann mache ich das auch so.
falls es jemanden interessiert, ich habe jetzt eine lösung (ok nicht sehr schön und eher ein beispiel für "so macht man es normalerweise NICHT". das ist mir jetzt auch völlig egal, hauptsache es geht ;)
Code: (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
27
28
29
30
31
32
33
while($complete eq "")
{
$rx=$ob->input;
$received=$received.$rx;
$receivedlength=$receivedlength+length($rx);
if($i == 0)
{
print "Warte auf Daten...\n\n";
}
if($i == 1 and $receivedlength > 0)
{
print "Empfange Daten...\n\n";
}
if($rx =~ "\/")
{
$checksum=$ob->status;
$complete=1;
$msg="ok";
}
if($rx =~ "not found")
{
$complete=1;
$msg="Datei wurde nicht gefunden.\nPruefen Sie Ihre Eingaben.";
}
if($i > $timeout and $receivedlength == 0)
{
$complete=1;
$msg="Timeout !\nDer PC antwortet nicht. Pruefen Sie die Verbindung.";
}
sleep 1;
$i++;
}
Vielleicht gibts ja jemanden, der das noch etwas verschönern kann oder will.
Mfg
Matze