A PHP Error was encountered
Severity: 8192
Message: Function create_function() is deprecated
Filename: geshi/geshi.php
Line Number: 4698
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 551
Function: getPaste
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
A PHP Error was encountered
Severity: Notice
Message: Trying to access array offset on value of type null
Filename: geshi/geshi.php
Line Number: 4605
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4605
Function: _error_handler
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 551
Function: getPaste
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
A PHP Error was encountered
Severity: Warning
Message: Cannot modify header information - headers already sent by (output started at /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/system/core/Exceptions.php:271)
Filename: view/raw.php
Line Number: 2
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/themes/geocities/views/view/raw.php
Line: 2
Function: header
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 173
Function: include
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 43
Function: _ci_load
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 558
Function: view
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Prozent.ico
#AutoIt3Wrapper_Outfile=ProzentUhr.exe
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#RequireAdmin
AdlibRegister("_uhrrefresh", 250)
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
;Global start
Global $alarm = False
Global $Alarmton
Global $max_zeit_zum_alarm_in_sec
Global $gelaufene_zeit
Global $altsec = 99
Global $Alarmton
;Global ende
Opt("GUIOnEventMode", 1)
Opt('TrayAutoPause', 0)
$titel = "Prozent Uhr 0.2 - by Douky"
#Region ### START Koda GUI section ### Form=
$Form = GUICreate($titel, 309, 399, 228, 196)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$Group_zeit = GUICtrlCreateGroup("Group_zeit", 8, 128, 289, 161)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Progress_Minuten = GUICtrlCreateProgress(12, 266, 278, 17)
$Progress_Stunden = GUICtrlCreateProgress(12, 218, 278, 17)
$Progress_Tag = GUICtrlCreateProgress(12, 170, 278, 17)
$Label_Minuten = GUICtrlCreateLabel("Sekunde", 14, 241, 272, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label_Stunden = GUICtrlCreateLabel("Minute", 14, 194, 277, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label_Tag = GUICtrlCreateLabel("Stunde", 13, 145, 272, 24)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_datum = GUICtrlCreateGroup("Group_datum", 8, 0, 289, 121)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Progress_Monat = GUICtrlCreateProgress(14, 91, 278, 17)
$Label_Monat = GUICtrlCreateLabel("Monat", 15, 68, 272, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Progress_Jahr = GUICtrlCreateProgress(13, 45, 278, 17)
$Label_Jahr = GUICtrlCreateLabel("Jahr", 14, 22, 280, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_pizza = GUICtrlCreateGroup("Zeit bis zum Alarm: 00:00:00", 8, 296, 289, 97)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Progress_Pizza = GUICtrlCreateProgress(12, 338, 278, 17)
$Label_Pizza = GUICtrlCreateLabel("Alarm:" & @TAB & "(0.0%)", 14, 310, 276, 24)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Button_pizzatimer = GUICtrlCreateButton("Aktivieren", 13, 362, 126, 25)
GUICtrlSetOnEvent(-1, "_alarm_on_off")
$Date1 = GUICtrlCreateDate("2011/02/14 22:56:6", 208, 362, 82, 24, BitOR($DTS_UPDOWN, $DTS_TIMEFORMAT))
$Button_Weckeroff = GUICtrlCreateButton("Stop", 140, 362, 35, 25)
GUICtrlSetOnEvent(-1, "_stop_sound")
$Button_Config = GUICtrlCreateButton("MP3", 176, 362, 30, 25)
GUICtrlSetOnEvent(-1, "_save")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;WinSetTrans($titel, "", 125)
ControlDisable($titel, "", $Button_Weckeroff)
GUICtrlSetData($Date1,@YEAR & "/" & @MON & "/" & @MDAY & " 00:00:00")
Dim $keyname = "Alarmpfad"
If @CPUArch = "X86" Then
$regpfad = "HKEY_CURRENT_USER\Software\Prozentuhr"
Else
$regpfad = "HKLM64\SOFTWARE\Prozentuhr"
EndIf
While 1
Sleep(250)
WEnd
Func _save()
$Alarm_pfad = FileOpenDialog("Alarm Mp3 auswählen", "C:\", "Soundfile (*.mp3;*.wav)", 1 + 3)
If Not @error Then
RegWrite($regpfad, $keyname, "REG_SZ", $Alarm_pfad)
EndIf
EndFunc ;==>_save
Func _uhrrefresh()
If _DateIsLeapYear(@YEAR) Then
$Jahr_in_Sekunden = 31622400
Else
$Jahr_in_Sekunden = 31536000
EndIf
_GUICtrlSetData($Group_zeit, "Es ist " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
_GUICtrlSetData($Group_datum, "Heute ist der " & @MDAY & "." & @MON & "." & @YEAR)
$Jahrprozent = 100 / $Jahr_in_Sekunden * _DateDiff('s', @YEAR & "/01/01 00:00:00", _NowCalc())
_GUICtrlSetData($Progress_Jahr, $Jahrprozent)
_GUICtrlSetData($Label_Jahr, "Jahr" & @TAB & "(" & StringFormat("%.5f", $Jahrprozent) & '%' & ")")
$Monatprozent = 100 / (_DateDaysInMonth(@YEAR, @MON) * 24 * 60 * 60) * _DateDiff('s', @YEAR & "/" & @MON & "/01 00:00:00", _NowCalc())
_GUICtrlSetData($Progress_Monat, $Monatprozent)
_GUICtrlSetData($Label_Monat, "Monat" & @TAB & "(" & StringFormat("%.5f", $Monatprozent) & '%' & ")")
$Tagprozent = 100 / 86400 * (@HOUR * 60 * 60 + @MIN * 60 + @SEC)
_GUICtrlSetData($Progress_Tag, $Tagprozent)
_GUICtrlSetData($Label_Tag, "Tag" & @TAB & "(" & StringFormat("%.5f", $Tagprozent) & '%' & ")")
;Stunde
$Stundenprozent = 100 / 3600 * (@MIN * 60 + @SEC)
_GUICtrlSetData($Progress_Stunden, $Stundenprozent)
_GUICtrlSetData($Label_Stunden, "Stunde" & @TAB & "(" & StringFormat("%.3f", $Stundenprozent) & '%' & ")")
;Stunde Ende
;Minuten
$Minutenprozent = 100 / 60 * @SEC
_GUICtrlSetData($Progress_Minuten, $Minutenprozent)
_GUICtrlSetData($Label_Minuten, "Minute" & @TAB & "(" & StringFormat("%.0f", $Minutenprozent) & '%' & ")")
;Minuten Ende
If $alarm = True Then ControlDisable($titel, "", $Date1)
If $alarm = False Then ControlEnable($titel, "", $Date1)
If _SoundStatus($Alarmton) = "playing" And $Alarmton <> "" Then
ControlEnable($titel, "", $Button_Weckeroff)
ControlDisable($titel, "", $Button_Config)
Else
ControlEnable($titel, "", $Button_Config)
ControlDisable($titel, "", $Button_Weckeroff)
EndIf
EndFunc ;==>_uhrrefresh
Func _GUICtrlSetData($cID, $vData)
If GUICtrlRead($cID) <> $vData Then GUICtrlSetData($cID, $vData)
EndFunc ;==>_GUICtrlSetData
Func _1_sec_hochzaehlen($neusec)
If $neusec <> $altsec Then
$altsec = @SEC
$gelaufene_zeit = _DateAdd('s', 1, $gelaufene_zeit)
EndIf
EndFunc ;==>_1_sec_hochzaehlen
Func _stop_sound()
If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
EndFunc ;==>_stop_sound
Func _alarm_on_off()
If RegRead($regpfad, $keyname) <> "" Then
$Alarm_pfad = RegRead($regpfad, $keyname)
If $alarm = False Then
If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
$Alarmton = _SoundOpen($Alarm_pfad)
$max_zeit_zum_alarm_in_sec = _DateDiff("s", _NowCalc(), @YEAR & "/" & @MON & "/" & @MDAY & " " & GUICtrlRead($Date1))
If $max_zeit_zum_alarm_in_sec > 0 Then
$alarm = True
_GUICtrlSetData($Button_pizzatimer, "Deaktivieren")
AdlibRegister("_alarm_timer", 250)
$gelaufene_zeit = _DateAdd('s', -1, @YEAR & "/" & @MON & "/" & @MDAY & " " & "00:00:00")
Else
MsgBox(16, "Error", "Bitte wählen sie einen Zeitpunkt in der Zukunft.")
EndIf
Else
If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
$alarm = False
_GUICtrlSetData($Button_pizzatimer, "Aktivieren")
_SoundClose($Alarmton)
adlibunregister("_alarm_timer")
EndIf
Else
MsgBox(16, "Error", "Bitte wählen sie erst einen Alarmton aus.")
EndIf;### Tidy Error -> "endfunc" is closing previous "if" on line 147
EndFunc ;==>_alarm_on_off
Func _alarm_timer()
_GUICtrlSetData($Button_pizzatimer, "Stopp")
$zeit_zum_alarm_in_sec = _DateDiff("s", _NowCalc(), @YEAR & "/" & @MON & "/" & @MDAY & " " & GUICtrlRead($Date1))
;_GUICtrlSetData($Progress_Minuten, $Minutenprozent)
Local $Alarm_restzeit, $iHours, $iMins, $iSecs
_TicksToTime($zeit_zum_alarm_in_sec * 1000, $iHours, $iMins, $iSecs)
$iHours = StringFormat("%02d", $iHours)
$iMins = StringFormat("%02d", $iMins)
$iSecs = StringFormat("%02d", $iSecs)
$Alarm_restzeit = $iHours & ":" & $iMins & ":" & $iSecs
_1_sec_hochzaehlen(@SEC)
$Alarmprozent = 100 / $max_zeit_zum_alarm_in_sec * _DateDiff('s', @YEAR & "/" & @MON & "/" & @MDAY & " " & "00:00:00", $gelaufene_zeit)
_GUICtrlSetData($Progress_Pizza, $Alarmprozent)
_GUICtrlSetData($Label_Pizza, "Alarm:" & @TAB & "(" & StringFormat("%.5f", $Alarmprozent) & '%' & ")")
_GUICtrlSetData($Group_pizza, "Zeit bis zum Alarm: " & $Alarm_restzeit)
If $iHours = 0 And $iMins = 0 And $iSecs = 0 Then ;Alarm
_SoundPlay($Alarmton)
_GUICtrlSetData($Progress_Pizza, 100)
_GUICtrlSetData($Label_Pizza, "Alarm:" & @TAB & "(100.0%)")
$alarm = False
adlibunregister("_alarm_timer")
_GUICtrlSetData($Button_pizzatimer, "Aktivieren")
EndIf
EndFunc ;==>_alarm_timer
Func _End()
_SoundClose($Alarmton)
Exit
EndFunc ;==>_End