;*****************************************************************************************
;*                   Voy-View 1.10 (c) 1996 Richter Arno                                 *
;*                                                                                       *
;* Das Script ist in Blöcken (Dateitypen) eingeteilt, wobei jeder Block genau gleich ist.*
;* Die Unterschiede sind der Text bei >requestchoice<, das Anzeigeprogramm               *
;* und die Kennungen (JPG,GIF,...)                                                       *
;*                                                                                       *
;* Die zu ändernden Zeilen habe ich mit >******< gekennzeichnet.                         *
;*                                                                                       *
;* Der MUI-Public Screen heißt bei mir >MUI-Screen.16bit< und läuft unter Cybergfx       *
;* auf der Retina Karte.                                                                 *
;*                                                                                       *
;* Ich bin der Meinung, wenn V schon auf einem 16bit Schirm läuft, muß das               *
;* Anzeigeprogramm nicht auch noch einen eigenen Schirm öffnen. (Schade um den Speicher) *
;*                                                                                       *
;*****************************************************************************************

; Bitte hier die Verzeichnisse angeben !!!!
set VerzA hd2:dfü/download/www ; Verzeichnis, in das V die Dateien speichert ******
set VerzB hd2:dfü/download/www/gfx ; Verzeichnis, in das VoyView die Dateien verschieben soll ******
set Schirm MUI-Screen.16bit ; Hier ist der MUI-Public Schirm anzugeben ******


failat 21
delete > nil: env:ende ; ...falls die Variable versehentlich schon gesetzt ist.
wait 30 ; bis V fertig geladen ist


cd $VerzA

lab start

;*** JPEG ***
set Typ #?jpg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei ;zu bearbeitende Datei(en) wählen

list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern

IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...

  requestchoice VoyView "JPEG-Grafik anzeigen ?" "Ja |Nein " pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
     endif

  requestchoice VoyView "JPEG-Grafik löschen ?" "Ja|Archivieren" Pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei gelöscht werden soll

     IF $ergebnis eq "1"
        delete > nil: $datei ;Datei gemäß Auswahl, löschen
     endif

     IF $ergebnis eq "0"
        rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
     endif

endif


;*** JPEG 2 ***
set Typ #?jpeg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
ECHO $typ len 4 > env:typ2 ; Hier unbedingt '4' da 'jpeg' vier Zeichen lang ist

dir $typ > env:datei ;zu bearbeitende Datei(en) wählen

list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern

IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...

  requestchoice VoyView "JPEG-Grafik anzeigen ?" "Ja |Nein " pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
     endif

  requestchoice VoyView "JPEG-Grafik löschen ?" "Ja|Archivieren" Pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei gelöscht werden soll

     IF $ergebnis eq "1"
        delete > nil: $datei ;Datei gemäß Auswahl, löschen
     endif

     IF $ergebnis eq "0"
        rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
     endif

endif


;*** GIF ***
set Typ #?gif ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei ;zu bearbeitende Datei(en) wählen

list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern

IF $dateityp eq $typ2 ;falls es eine GIF Datei ist...

  requestchoice VoyView "GIF-Grafik anzeigen ?" "Ja |Nein " pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
     endif

  requestchoice VoyView "GIF-Grafik löschen ?" "Ja|Archivieren" Pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei gelöscht werden soll

     IF $ergebnis eq "1"
        delete > nil: $datei ;Datei gemäß Auswahl, löschen
     endif

     IF $ergebnis eq "0"
        rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
     endif

endif

;*** MPEG ***
set Typ #?mpg ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei

list sub $typ2 lformat %e > env:dateityp

IF $dateityp eq $typ2

  requestchoice VoyView "MPEG Animation abspielen ?" "Ja |Nein " pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.

     IF $ergebnis eq "1"
         stack 50000
         setenv x11/usepub $schirm
         hd1:utilities/xanim/xanim +Ae +Ak +Av100 +b +r +R +T1 $datei
         setenv x11/usepub 70Hz.2
     endif

  requestchoice VoyView "MPEG-Animation löschen ?" "Ja|Archivieren" Pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei gelöscht werden soll

     IF $ergebnis eq "1"
        delete > nil: $datei ;Datei gemäß Auswahl, löschen
     endif

     IF $ergebnis eq "0"
        rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
     endif

endif


wait 10

IF exists env:ende ;Wird V beendet, muß $ende irgendeinen Wert annehmen, damit das Script stoppt
  delete env:ende
  delete > nil: env:datei
  delete > nil: env:ergebnis
  delete > nil: env:dateityp
  delete > nil: env:typ2
  delete > nil: env:schirm
  quit
endif


skip start back ; beginnt nach obiger Pause von Neuem.