mirror of
https://github.com/RetroShare/RetroShare.git
synced 2024-10-01 02:35:48 -04:00
added installer script with killprocess feature
git-svn-id: http://svn.code.sf.net/p/retroshare/code/trunk@1000 b45a01b8-16f6-495d-af2f-9b41ad6348cc
This commit is contained in:
defnax
parent
e04ea44bbc
commit
6900af124a
471
retroshare-gui/src/retroshare-process.nsi
Normal file
471
retroshare-gui/src/retroshare-process.nsi
Normal file
@ -0,0 +1,471 @@
|
||||
; Script generated with the Venis Install Wizard & modified by defnax
|
||||
; This script need the http://nsis.sourceforge.net/Processes_plug-in
|
||||
; This script need the http://nsis.sourceforge.net/KillProcDLL_plug-in
|
||||
|
||||
; Define your application name
|
||||
!define APPNAME "RetroShare"
|
||||
!define VERSION "0.4.12a"
|
||||
!define APPNAMEANDVERSION "${APPNAME} ${VERSION}"
|
||||
|
||||
|
||||
; Main Install settings
|
||||
Name "${APPNAMEANDVERSION}"
|
||||
InstallDir "$PROGRAMFILES\RetroShare"
|
||||
InstallDirRegKey HKLM "Software\${APPNAME}" ""
|
||||
OutFile "RetroShare_${VERSION}_setup.exe"
|
||||
BrandingText "${APPNAMEANDVERSION}"
|
||||
; Use compression
|
||||
SetCompressor LZMA
|
||||
|
||||
VAR KILLEXENAME
|
||||
|
||||
|
||||
; Modern interface settings
|
||||
!include Sections.nsh
|
||||
!include "MUI.nsh"
|
||||
|
||||
;Interface Settings
|
||||
!define MUI_ABORTWARNING
|
||||
;!define MUI_HEADERIMAGE
|
||||
;!define MUI_HEADERIMAGE_BITMAP "retroshare.bmp" ; optional
|
||||
|
||||
# MUI defines
|
||||
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\orange-install.ico"
|
||||
!define MUI_FINISHPAGE_NOAUTOCLOSE
|
||||
!define MUI_LICENSEPAGE_RADIOBUTTONS
|
||||
!define MUI_COMPONENTSPAGE_SMALLDESC
|
||||
!define MUI_FINISHPAGE_LINK "Visit the RetroShare forum for the latest news and support"
|
||||
!define MUI_FINISHPAGE_LINK_LOCATION "http://sourceforge.net/forum/forum.php?forum_id=618174"
|
||||
!define MUI_FINISHPAGE_RUN "$INSTDIR\RetroShare.exe"
|
||||
!define MUI_FINISHPAGE_SHOWREADME $INSTDIR\changelog.txt
|
||||
!define MUI_FINISHPAGE_SHOWREADME_TEXT changelog.txt
|
||||
!define MUI_FINISHPAGE_SHOWREADME_NOTCHECKED
|
||||
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\orange-uninstall.ico"
|
||||
!define MUI_UNFINISHPAGE_NOAUTOCLOSE
|
||||
!define MUI_LANGDLL_REGISTRY_ROOT HKLM
|
||||
!define MUI_LANGDLL_REGISTRY_KEY ${REGKEY}
|
||||
!define MUI_LANGDLL_REGISTRY_VALUENAME InstallerLanguage
|
||||
|
||||
; !define MUI_WELCOMEPAGE_TEXT "This wizard will guide you through the installation of RetroShare. \r\n\r\nIt is recommended that you close all other applications before starting Setup. This will make it possible to update relevant system files without havinf to reboot your computer. \r\n\r\nIMPORTANT: Ensure that RetroShare is NOT RUNNING before continuing (you can exit from the taskbar menu), otherwise the installer cannot update the executables, and the installation will fail. \r\n\r\nClick Next to continue. "
|
||||
|
||||
!define MUI_WELCOMEPAGE_TEXT "This wizard will guide you through the installation of RetroShare. \r\n\r\nIMPORTANT: Ensure that RetroShare is NOT RUNNING before continuing (you can exit from the taskbar menu), otherwise the installer cannot update the executables, and the installation will fail. \r\n\r\nClick Next to continue. "
|
||||
|
||||
|
||||
; Defines the un-/installer logo of RetroShare
|
||||
!insertmacro MUI_DEFAULT MUI_WELCOMEFINISHPAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Wizard\orange.bmp"
|
||||
!insertmacro MUI_DEFAULT MUI_UNWELCOMEFINISHPAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Wizard\orange-uninstall.bmp"
|
||||
|
||||
; Set languages (first is default language)
|
||||
!insertmacro MUI_RESERVEFILE_LANGDLL
|
||||
ReserveFile "${NSISDIR}\Plugins\AdvSplash.dll"
|
||||
|
||||
;--------------------------------
|
||||
;Configuration
|
||||
|
||||
|
||||
;!insertmacro MUI_RESERVEFILE_SPECIALBITMAP
|
||||
|
||||
LicenseLangString myLicenseData 1033 "license\license.txt"
|
||||
LicenseLangString myLicenseData 1031 "license\license-GER.txt"
|
||||
LicenseLangString myLicenseData 1055 "license\license-TR.txt"
|
||||
|
||||
LicenseData $(myLicenseData)
|
||||
|
||||
# Installer pages
|
||||
!insertmacro MUI_PAGE_WELCOME
|
||||
!insertmacro MUI_PAGE_LICENSE "$(myLicenseData)"
|
||||
!insertmacro MUI_PAGE_COMPONENTS
|
||||
!insertmacro MUI_PAGE_DIRECTORY
|
||||
!insertmacro MUI_PAGE_INSTFILES
|
||||
!insertmacro MUI_PAGE_FINISH
|
||||
!insertmacro MUI_UNPAGE_CONFIRM
|
||||
!insertmacro MUI_UNPAGE_INSTFILES
|
||||
|
||||
# Installer languages
|
||||
!insertmacro MUI_LANGUAGE English
|
||||
!insertmacro MUI_LANGUAGE German
|
||||
!insertmacro MUI_LANGUAGE Turkish
|
||||
|
||||
;Component-selection page
|
||||
;Titles
|
||||
|
||||
LangString sec_main ${LANG_ENGLISH} "Program Files"
|
||||
LangString sec_data ${LANG_ENGLISH} "Program Skins"
|
||||
LangString sec_mplayer ${LANG_ENGLISH} "MPlayer Engine"
|
||||
LangString sec_shortcuts ${LANG_ENGLISH} "Shortcuts"
|
||||
LangString sec_link ${LANG_ENGLISH} "File Association"
|
||||
LangString sec_autostart ${LANG_ENGLISH} "Auto Startup"
|
||||
LangString DESC_sec_main ${LANG_ENGLISH} "Installs the RetroShare program files."
|
||||
LangString DESC_sec_data ${LANG_ENGLISH} "Installs RetroShare Skins"
|
||||
LangString DESC_sec_mplayer ${LANG_ENGLISH} "Insalls MPlayer required for ReroShare's SMPlayer"
|
||||
LangString DESC_sec_shortcuts ${LANG_ENGLISH} "Create RetroShare shortcut icons."
|
||||
LangString DESC_sec_link ${LANG_ENGLISH} "Associate RetroShare with .pqi file extension"
|
||||
LangString DESC_sec_autostart ${LANG_ENGLISH} "Auto-Run and Login at Startup"
|
||||
LangString LANGUAGEID ${LANG_ENGLISH} "1033"
|
||||
|
||||
|
||||
LangString sec_main ${LANG_GERMAN} "Programmdateien"
|
||||
LangString sec_data ${LANG_GERMAN} "Skins f<>r das Programm"
|
||||
LangString sec_mplayer ${LANG_GERMAN} "MPlayer "
|
||||
LangString sec_shortcuts ${LANG_GERMAN} "Shortcuts"
|
||||
LangString sec_link ${LANG_GERMAN} "Dateiverkn<6B>pfungen"
|
||||
LangString sec_autostart ${LANG_GERMAN} "Auto Startup"
|
||||
LangString DESC_sec_main ${LANG_GERMAN} "Installiert die erforderlichen Programmdateien."
|
||||
LangString DESC_sec_data ${LANG_GERMAN} "Installiert RetroShare Skins"
|
||||
LangString DESC_sec_mplayer ${LANG_GERMAN} "Installiert MPlayer das f<>r SMPlayer erforderlich ist"
|
||||
LangString DESC_sec_shortcuts ${LANG_GERMAN} "Erstellt eine RetroShare Verkn<6B>pfung im Startmen<65>, Desktop oder im Schnellstarter."
|
||||
LangString DESC_sec_link ${LANG_GERMAN} "RetroShare mit .pqi Dateien verkn<6B>pfen"
|
||||
LangString DESC_sec_autostart ${LANG_GERMAN} "Beim Neustart automatisch RetroShare starten und sich anmelden"
|
||||
LangString LANGUAGEID ${LANG_GERMAN} "1031"
|
||||
|
||||
|
||||
LangString sec_main ${LANG_TURKISH} "Program Dosyalar<61>"
|
||||
LangString sec_data ${LANG_TURKISH} "Program Skinleri"
|
||||
LangString sec_mplayer ${LANG_TURKISH} "MPlayer "
|
||||
LangString sec_shortcuts ${LANG_TURKISH} "Shortcut'lar"
|
||||
LangString sec_link ${LANG_TURKISH} ".pqi Dosya Kaydet"
|
||||
LangString sec_autostart ${LANG_TURKISH} "Otomatik calistir ve baglan"
|
||||
LangString DESC_sec_main ${LANG_TURKISH} "Program dosyalar<61>n<EFBFBD> kurar."
|
||||
LangString DESC_sec_data ${LANG_TURKISH} "RetroShare Skin'leri kurar"
|
||||
LangString DESC_sec_mplayer ${LANG_TURKISH} "Mplayer SMPlayer icin gereklidir"
|
||||
LangString DESC_sec_shortcuts ${TURKISH} "Shortcut yap Start menu , Desktop veya Quicklaunchbar icin."
|
||||
LangString DESC_sec_link ${LANG_TURKISH} "RetroShare .pqi almas<61> i<>in kaydettirir"
|
||||
LangString DESC_sec_autostart ${LANG_TURKISH} "Isletim sistemi acildiginda Otomatik olarak calistir ve baglan"
|
||||
LangString LANGUAGEID ${LANG_TURKISH} "1055"
|
||||
|
||||
|
||||
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
|
||||
|
||||
; CloseRetroShare: this will in a loop send the RetroShare window the WM_CLOSE
|
||||
; message until it does not find a valid RetroShare window
|
||||
;
|
||||
|
||||
!macro CloseRetroShare UN
|
||||
Function ${UN}CloseRetroShare
|
||||
Push $0
|
||||
|
||||
IntFmt $R4 "%u" 0
|
||||
|
||||
goto skip
|
||||
killloop:
|
||||
DetailPrint "Killing RetroShare"
|
||||
KillProcDLL::KillProc "RetroShare.exe"
|
||||
loop:
|
||||
Sleep 1000
|
||||
IntOp $R4 $R4 + 1
|
||||
IntCmp $R4 5 done
|
||||
skip:
|
||||
DetailPrint "Looking for running copies of RetroShare"
|
||||
|
||||
;Push "wxWindowClassNR" # the wcn
|
||||
;Push "RetroShare" # the known part of the wt
|
||||
;Call ${UN}EnhancedFindWindow
|
||||
;Pop $0 # will contain the window's handle
|
||||
;Pop $1 # will containg the full wcn
|
||||
# both will containg "failed", if no matching wcn was found
|
||||
|
||||
;StrCmp $0 "failed" done
|
||||
;StrCmp $0 "0" done
|
||||
;DetailPrint "Stopping RetroShare"
|
||||
;SendMessage $0 16 0 0 # WM_CLOSE == 16
|
||||
Goto loop
|
||||
done:
|
||||
|
||||
IntFmt $R4 "%u" 0
|
||||
Processes::FindProcess "RetroShare.exe"
|
||||
StrCmp $R0 "1" killloop reallydone
|
||||
|
||||
reallydone:
|
||||
Pop $0
|
||||
FunctionEnd
|
||||
!macroend
|
||||
|
||||
|
||||
!macro CheckForIt UN
|
||||
Function ${UN}CheckForIt
|
||||
|
||||
Processes::FindProcess $KILLEXENAME
|
||||
StrCmp $R0 "1" foundit didntfindit
|
||||
|
||||
foundit:
|
||||
MessageBox MB_OKCANCEL "You must quit ${APPNAME} ($KILLEXENAME) \
|
||||
before installing this version.$\r$\nPlease quit it and press \
|
||||
OK to continue." IDOK tryagain
|
||||
Abort
|
||||
|
||||
tryagain:
|
||||
|
||||
Sleep 2000
|
||||
Processes::FindProcess $KILLEXENAME
|
||||
StrCmp $R0 "1" stillthere didntfindit
|
||||
|
||||
stillthere:
|
||||
MessageBox MB_OKCANCEL "There is still a copy of ${APPNAME} \
|
||||
($KILLEXENAME) running.$\r$\nPress OK to force-quit the application, \
|
||||
or Cancel to exit." IDOK killit
|
||||
Abort
|
||||
|
||||
killit:
|
||||
KillProcDLL::KillProc $KILLEXENAME
|
||||
Sleep 1000
|
||||
|
||||
didntfindit:
|
||||
|
||||
FunctionEnd
|
||||
!macroend
|
||||
|
||||
!macro QuitIt UN
|
||||
Function ${UN}QuitIt
|
||||
|
||||
# try nicely first
|
||||
Call ${UN}CloseRetroShare
|
||||
|
||||
# kill all the old ones
|
||||
StrCpy $KILLEXENAME "RetroShare.exe"
|
||||
Call ${UN}CheckForIt
|
||||
StrCpy $KILLEXENAME ""
|
||||
FunctionEnd
|
||||
!macroend
|
||||
|
||||
|
||||
; This function automatically uninstalls older versions.
|
||||
; It is largely copied from:
|
||||
; http://nsis.sourceforge.net/archive/viewpage.php?pageid=326
|
||||
Function .onInit
|
||||
|
||||
InitPluginsDir
|
||||
Push $R1
|
||||
File /oname=$PLUGINSDIR\spltmp.bmp "gui\images\splash.bmp"
|
||||
advsplash::show 1200 1000 1000 -1 $PLUGINSDIR\spltmp
|
||||
Pop $R1
|
||||
Pop $R1
|
||||
!insertmacro MUI_LANGDLL_DISPLAY
|
||||
|
||||
|
||||
FunctionEnd
|
||||
|
||||
Section $(sec_main) sec_main
|
||||
|
||||
;Set Section required
|
||||
SectionIn RO
|
||||
|
||||
; Set Section properties
|
||||
SetOverwrite on
|
||||
|
||||
; Clears previous error logs
|
||||
Delete "$INSTDIR\*.log"
|
||||
|
||||
; Set Section Files and Shortcuts
|
||||
SetOutPath "$INSTDIR\"
|
||||
File /r "release\RetroShare.exe"
|
||||
File /r "mingwm10.dll"
|
||||
File /r "changelog.txt"
|
||||
|
||||
|
||||
|
||||
SectionEnd
|
||||
|
||||
Section $(sec_data) sec_data
|
||||
|
||||
; Set Section properties
|
||||
SetOverwrite on
|
||||
|
||||
; Set Section Files and Shortcuts
|
||||
SetOutPath "$APPDATA\RetroShare\"
|
||||
;File /r "data\*"
|
||||
|
||||
; We're not ready for external skins...
|
||||
; Set Section qss need to remove svn path
|
||||
SetOutPath "$INSTDIR\qss\"
|
||||
File /r qss\*.*
|
||||
|
||||
; Set Section skin
|
||||
; SetOutPath "$INSTDIR\skin\"
|
||||
; File /r release\skin\*.*
|
||||
|
||||
; Add emoticons
|
||||
SetOutPath "$INSTDIR\emoticons\"
|
||||
File /r emoticons\*.*
|
||||
|
||||
; Add Chat Style
|
||||
SetOutPath "$INSTDIR\style\"
|
||||
File /r style\*.*
|
||||
|
||||
SectionEnd
|
||||
|
||||
Section $(sec_mplayer) sec_mplayer
|
||||
|
||||
;Set Section required
|
||||
;SectionIn RO
|
||||
|
||||
; Set Section properties
|
||||
SetOverwrite on
|
||||
|
||||
; Set Section Files and Shortcuts
|
||||
SetOutPath "$INSTDIR\mplayer"
|
||||
File /r "mplayer\*.*"
|
||||
|
||||
|
||||
SectionEnd
|
||||
|
||||
Section $(sec_link) sec_link
|
||||
; Delete any existing keys
|
||||
|
||||
|
||||
; Write the file association
|
||||
WriteRegStr HKCR .pqi "" retroshare
|
||||
WriteRegStr HKCR retroshare "" "PQI File"
|
||||
WriteRegBin HKCR retroshare EditFlags 00000100
|
||||
WriteRegStr HKCR "retroshare\shell" "" open
|
||||
WriteRegStr HKCR "retroshare\shell\open\command" "" `"$INSTDIR\RetroShare.exe" "%1"`
|
||||
|
||||
SectionEnd
|
||||
|
||||
SectionGroup $(sec_shortcuts) sec_shortcuts
|
||||
Section StartMenu SEC0001
|
||||
|
||||
SetOutPath "$INSTDIR"
|
||||
CreateDirectory "$SMPROGRAMS\${APPNAME}"
|
||||
CreateShortCut "$SMPROGRAMS\${APPNAME}\$(^UninstallLink).lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0
|
||||
CreateShortCut "$SMPROGRAMS\${APPNAME}\${APPNAME}.lnk" "$INSTDIR\RetroShare.exe" "" "$INSTDIR\RetroShare.exe" 0
|
||||
|
||||
SectionEnd
|
||||
|
||||
Section Desktop SEC0002
|
||||
|
||||
|
||||
CreateShortCut "$DESKTOP\${APPNAME}.lnk" "$INSTDIR\RetroShare.exe" "" "$INSTDIR\RetroShare.exe" 0
|
||||
|
||||
SectionEnd
|
||||
|
||||
Section Quicklaunchbar SEC0003
|
||||
|
||||
|
||||
CreateShortCut "$QUICKLAUNCH\${APPNAME}.lnk" "$INSTDIR\RetroShare.exe" "" "$INSTDIR\RetroShare.exe" 0
|
||||
|
||||
SectionEnd
|
||||
SectionGroupEnd
|
||||
|
||||
;Section $(sec_autostart) sec_autostart
|
||||
|
||||
; WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Run" "RetroRun" "$INSTDIR\${APPNAME}.exe -a"
|
||||
|
||||
;SectionEnd
|
||||
|
||||
Section $(sec_autostart) sec_autostart
|
||||
|
||||
CreateShortCut "$SMSTARTUP\${APPNAME}.lnk" "$INSTDIR\RetroShare.exe" "" "$INSTDIR\RetroShare.exe" 0
|
||||
SectionEnd
|
||||
|
||||
|
||||
Section -FinishSection
|
||||
|
||||
WriteRegStr HKLM "Software\${APPNAME}" "" "$INSTDIR"
|
||||
WriteRegStr HKLM "Software\${APPNAME}" "Version" "${VERSION}"
|
||||
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "DisplayName" "${APPNAME}"
|
||||
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "UninstallString" "$INSTDIR\uninstall.exe"
|
||||
WriteUninstaller "$INSTDIR\uninstall.exe"
|
||||
|
||||
SectionEnd
|
||||
|
||||
|
||||
|
||||
;--------------------------------
|
||||
;Descriptions
|
||||
|
||||
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_main} $(DESC_sec_main)
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_data} $(DESC_sec_data)
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_mplayer} $(DESC_sec_mplayer)
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_shortcuts} $(DESC_sec_shortcuts)
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_link} $(DESC_sec_link)
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${sec_autostart} $(DESC_sec_autostart)
|
||||
!insertmacro MUI_FUNCTION_DESCRIPTION_END
|
||||
|
||||
|
||||
;!insertmacro EnhancedFindWindow ""
|
||||
;!insertmacro EnhancedFindWindow "un."
|
||||
|
||||
!insertmacro CloseRetroShare ""
|
||||
!insertmacro CloseRetroShare "un."
|
||||
|
||||
!insertmacro CheckForIt ""
|
||||
!insertmacro CheckForIt "un."
|
||||
|
||||
!insertmacro QuitIt ""
|
||||
!insertmacro QuitIt "un."
|
||||
|
||||
;Uninstall section
|
||||
Section "Uninstall"
|
||||
|
||||
Call un.QuitIt
|
||||
|
||||
; Remove file association registry keys
|
||||
DeleteRegKey HKCR .pqi
|
||||
DeleteRegKey HKCR retroshare
|
||||
|
||||
; Remove program/uninstall regsitry keys
|
||||
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}"
|
||||
DeleteRegKey HKLM SOFTWARE\${APPNAME}
|
||||
|
||||
DeleteRegValue HKCU "Software\Microsoft\Windows\CurrentVersion\Run" "RetroRun"
|
||||
|
||||
; Remove files and uninstaller
|
||||
Delete $INSTDIR\RetroShare.exe
|
||||
Delete $INSTDIR\*.dll
|
||||
Delete $INSTDIR\*.dat
|
||||
Delete $INSTDIR\*.txt
|
||||
Delete $INSTDIR\*.ini
|
||||
Delete $INSTDIR\*.log
|
||||
|
||||
Delete $INSTDIR\uninstall.exe
|
||||
|
||||
; Remove the kadc.ini file.
|
||||
; Don't remove the directory, otherwise
|
||||
; we lose the XPGP keys.
|
||||
; Should make this an option though...
|
||||
Delete $APPDATA\RetroShare\kadc.ini
|
||||
|
||||
; Remove shortcuts, if any
|
||||
Delete "$SMPROGRAMS\${APPNAME}\*.*"
|
||||
|
||||
; Remove desktop shortcut
|
||||
Delete "$DESKTOP\${APPNAME}.lnk"
|
||||
|
||||
; Remove Quicklaunch shortcut
|
||||
Delete "$QUICKLAUNCH\${APPNAME}.lnk"
|
||||
|
||||
; Remove directories used
|
||||
RMDir "$SMPROGRAMS\${APPNAME}"
|
||||
RMDir "$INSTDIR"
|
||||
RMDir "$INSTDIR\mplayer"
|
||||
RMDir "$INSTDIR\smplayer"
|
||||
RMDir "$INSTDIR\qss"
|
||||
|
||||
SectionEnd
|
||||
|
||||
#Function .onInit
|
||||
|
||||
# InitPluginsDir
|
||||
# Push $R1
|
||||
# File /oname=$PLUGINSDIR\spltmp.bmp "gui\images\splash.bmp"
|
||||
# advsplash::show 1200 1000 1000 -1 $PLUGINSDIR\spltmp
|
||||
# Pop $R1
|
||||
# Pop $R1
|
||||
# !insertmacro MUI_LANGDLL_DISPLAY
|
||||
|
||||
#FunctionEnd
|
||||
|
||||
|
||||
# Installer Language Strings
|
||||
# TODO Update the Language Strings with the appropriate translations.
|
||||
|
||||
LangString ^UninstallLink ${LANG_ENGLISH} "Uninstall"
|
||||
LangString ^UninstallLink ${LANG_GERMAN} "Deinstallieren"
|
||||
LangString ^UninstallLink ${LANG_TURKISH} "Kald<6C>r"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; eof
|
||||
Loading…
Reference in New Issue
Block a user