ich hab mal wieder ein Problem.
ich versuche gerade für nen Linux VServer nen Programm zu schreiben um nen TeamSpeak zu Überwachen. auf Windows hab ich das schon wunderbar hinbekommen. danach hab ich nen bissl gelesen und gemerkt das ich zum Linux Programm Compilieren auch ein Linux Betriebssystem brauche. hab ich auch ebend schnell istalliert und mir mal die demo für Linux Runter Geladen um das programm zu Compilieren. erstes Problem war das die Demo für linux nicht Version 4.20 ist sondern nur die 3.91
Egal dacht ich mir, schreib halt mit hilfe einer Älteren hilfe das Programm um. hat auch alles wunderbar geklappt. mein Problem ist jetzt das wenn ich Compilieren möchte dieser Fehler auftaucht in der Shell
hier mal der codeusr/bin/ld: ctrl.o: no such file: Datei oder Verzeichniss nicht gefunden
collect2: ld returned 1 exit status
- Freel the ..PuRe.. Power -
sh./purebasic.exe: Datei oder Verzeichnis nicht gefunden
Code: Alles auswählen
OpenConsole()
If InitNetwork() = 0
PrintN("konnte kein netzwerk initialisieren")
End
Else
CreateNetworkServer(6500)
EndIf
uhrb$ = "000000"
datumb$ = "000000"
ergebnis1 = 0000
Repeat
NEvent = NetworkServerEvent()
Select NEvent
Case 1
OpenFile(1, "clients.txt")
FileSeek(Lof())
ClientID = NetworkClientID()
WriteStringN(Str(ClientID))
CloseFile(1)
Case 4
ReadFile(1,"clients.txt")
OpenFile(2,"clients.tmp")
disid$ = Str(ClientID)
While Eof(1) = 0
text$ = ReadString()
If text$ <> disid$
WriteStringN(text$)
EndIf
Wend
CloseFile(1)
CloseFile(2)
DeleteFile("clients.txt")
RenameFile("clients.tmp", "clients.txt")
EndSelect
Ergebnis = FileSize("server.log")
If Ergebnis <> ergebnis1
ergebnis1 = Ergebnis
PrintN(Str(Ergebnis)+" "+Str(ergebnis1))
CopyFile("server.log", "serverlog.txt")
If ReadFile(0, "serverlog.txt") = 0
PrintN("Konnte Datei nicht Öffnen")
Else
While Eof(0) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
text$ = ReadString() ; Zeile für Zeile im Debugger-Fenster anzeigen
Wend
CloseFile(0)
text4$ = StringField(text$,5," ")
PrintN(text4$)
If text4$ = "connected"
ReadFile(1, "clients.txt")
While Eof(1) = 0
id = Val(ReadString())
PrintN("erste if schleife")
PrintN(Str(id))
If id <> 0
SendNetworkString(id, "connected")
PrintN("String Gesendet")
PrintN("")
EndIf
PrintN("")
Wend
CloseFile(1)
ElseIf text4$ = "disconnected."
ReadFile(1, "clients.txt")
While Eof(1) = 0
id = Val(ReadString())
PrintN(Str(id))
PrintN("zweite if schleife")
If id <> 0
SendNetworkString(id, "disconnected")
PrintN("String Gesendet")
PrintN("")
EndIf
PrintN("")
Wend
CloseFile(1)
EndIf
EndIf
EndIf
Delay(1)
ForEver
Input()
mfg FrEeKsTeR