home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.history < prev    next >
Encoding:
Text File  |  2000-04-19  |  2.4 KB  |  86 lines
  1. G4C
  2. ; $VER: func.history Rev.005 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG 0 0 640 15 ""
  4. WinType 00001000
  5. WinBackground IMAGE IBBG 0
  6. ;Winout "NIL:"
  7.  
  8. xOnLoad
  9.     SetGad #This 101 HIDE
  10.     GuiOpen #This
  11.  
  12. xOnOpen
  13.     Update #This 1 "Aktuelle Site: $*SITENAME"
  14.  
  15. xOnClose
  16.     GuiQuit #This
  17.  
  18. xListview 0 0 500 10 "" int FILE 0 SHOW
  19.     GadID 101
  20.  
  21. Text 0 0 350 15 "Keine Aktivität ..." 100 BOX
  22.     GadFont "xHelvetica.font" "11" 000
  23.     GadID 1
  24.  
  25. xButton 350 0 70 15 "Überprüfen"
  26.     GadFont "xHelvetica.font" "11" 000
  27.     lvuse HTMLEXT 1
  28.     EXTRACT %SiteHistFile CLEAN hfile
  29.     EXTRACT %SiteFTPOL CLEAN ftpdir
  30.     SetVar olhfile $hfile
  31.     RepVar olhfile $*SITEDIR $ftpdir CI
  32.     INFO FILE $olhfile
  33.     SetVar olsize $$FILE.LENGTH
  34.     INFO FILE $hfile
  35.     SetVar lsize $$FILE.LENGTH
  36.     if $olsize == $lsize
  37.         EZREQ "History wurde nicht geändert!" "Weiter" NIL
  38.     elseif $olsize > $lsize
  39.         EZREQ "Die online History wurde verändert soll sie runtergeladen werden?" "Ja|Nein" abfr1
  40.         if $abfr1 = 1
  41.             cli 'copy $olhfile TO $hfile NOREQ'
  42.         endif
  43.     elseif $olsize < $lsize
  44.         EZREQ "Die lokale History wurde verändert soll sie runtergeladen werden?" "Ja|Nein" abfr2
  45.         if $abfr2 = 1
  46.             cli 'copy $hfile TO $olhfile NOREQ'
  47.         endif
  48.     endif
  49.  
  50. xButton 420 0 70 15 "Bearbeiten"
  51.     GadFont "xHelvetica.font" "11" 000
  52.     lvuse HTMLEXT 1
  53.     EXTRACT %SiteHistFile CLEAN hfile
  54.     cli 'rx $*EDITOR OPENNEW $hfile'
  55.     CLI 'rx $*BROWSER OPEN $hfile'
  56.     SetVar .htmlext $*BROWSERWIN
  57.     CLI 'rx $*BROWSER WINSET'
  58.  
  59. xButton 490 0 70 15 "Versenden"
  60.     GadFont "xHelvetica.font" "11" 000
  61.     lvuse #This 101
  62.     lvchange "htmlext:settings/users.prefs"
  63.     lvsearch  $*USER ci first
  64.     if $$lv.line != ""
  65.         lvgo #$$lv.line
  66.         EXTRACT %UserMail CLEAN .htmlext.from
  67.         EXTRACT %UserName CLEAN username
  68.         cli 'echo "$*SITENAME Update" >t:htmlext/mail.txt'
  69.         cli 'echo "Durchgeführt durch: $username" >>t:htmlext/mail.txt'
  70.         lvuse HTMLEXT 1
  71.         EXTRACT %SiteMail CLEAN .htmlext.emad
  72.         EXTRACT %SiteSubj CLEAN .htmlext.subj
  73.         EXTRACT %SiteHistFile CLEAN sfile
  74.         SetVar .htmlext.Site $*SITENAME
  75.         cli 'rx $*MAILER WRITEHIST $sfile'
  76.     else
  77.         EZREQ "Ihr Benutzereintrag wurde nicht komplett eingegeben!" "Werde dies nachholen" NIL
  78.         guiload "htmlext:gui/func.users"
  79.     endif
  80.  
  81. xButton 560 0 80 15 "[_X] Schliessen"
  82.     GadFont "xHelvetica.font" "11" 000
  83.     GadKey "x"
  84.     GuiQuit #This
  85.  
  86.