פח הזבל של ערן ורד

חיפשתי אפליקציה שרצה על מחשב מקומי ובודקת אוטומטית מתי דומיין משנה סטטוס/פוקע ומתריעה על כך.

לא מצאתי אז החלטתי לפתח אחת.

את השאילתה מול השרת אני מבצע עם אפלט ג'אווה שמצאתי ברשת:
http://croftsoft.com/portfolio/whois

את האפליקציה כתבתי בשפת Basic(!) גירסת GWBasic
http://oldfiles.org.uk/powerload/download/gwbasic.exe

אשמח להערות / הארות ואם יש לכם פתרון פחות פרימיטיבי- בכלל טוב!

X
10 ' Check domains modifications / expire.
20 ' (CC) 2009 by Eran@EranVered.com
30 ON ERROR GOTO 140
40 PRINT "Submitting WhoIs request…"
50 SHELL "java -jar whois.jar -h whois.isoc.org.il domain.co.il >OUTPUT.TXT"
60 IF CH=0 THEN PRINT "This is the first run so Duplicating OUTPUT.TXT":SHELL "copy output.txt outold.txt"
70 PRINT "Openning files to compare…"
80 OPEN "outold.txt" FOR INPUT AS #1
90 OPEN "output.txt" FOR INPUT AS #2
100 PRINT "Checking for Domain Modifications…"
110 INPUT #1,A$
120 INPUT #2,B$
130 IF A$=B$ THEN 110 ELSE PRINT "DOMAIN MODIFIED!!"; CHR$(7); CHR$(7); CHR$(7):PRINT A$:PRINT B$:FOR I=1 TO 300000!:NEXT:GOTO 130
140 PRINT "No Modifications found."
150 PRINT "Waiting 3 hours for next check.."
160 ' Wait for 3 hours b4 rechck
170 T$=MID$(TIME$,1,2)
180 X$=MID$(TIME$,1,2):IF X$<>T$ AND VAL(X$)/3 = INT(VAL(X$)/3) THEN CLEAR:CH=1: GOTO 30
190 Z=Z+1:IF Z=3000 THEN PRINT ".";:Z=0
200 GOTO 180

הפוסט הזה נכתב בתאריך יום שלישי, 16 ביוני, 2009 בשעה 13:31 תחת הקטגוריות אינטרנט / מחשבים / טכנולוגיה, כללי. אפשר לעקוב אחר התגובות לפוסט הזה באמצעות פיד RSS לתגובות. אפשר לכתוב כאן תגובה, או לכתוב בבלוג שלך פוסט כתגובה ולשלוח טראקבאק.