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: 693
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: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Untitled - Stikked
Stikked

Untitled

From Buff Hog, 12 Years ago, written in AutoIT.
URL http://geopaste.scratchbook.ch/view/a3163173
Shorturl
http://gw.gd/7Goy<br /> <b>Notice</b>: Undefined index: HTTP_AC
Embed
Download Paste or View Raw
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  5. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  7. AdlibRegister("_uhrrefresh", 250)
  8. #include <ButtonConstants.au3>
  9. #include <DateTimeConstants.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <Date.au3>
  12. #include <GUIConstantsEx.au3>
  13. #include <ProgressConstants.au3>
  14. #include <StaticConstants.au3>
  15. #include <WindowsConstants.au3>
  16. #include <Sound.au3>
  17. #include <Array.au3>
  18. ;Global start
  19. Global $alarm = False
  20. Global $Alarmton
  21. Global $max_zeit_zum_alarm_in_sec
  22. Global $gelaufene_zeit
  23. Global $altsec = 99
  24. Global $Alarmton
  25. ;Global ende
  26. Opt("GUIOnEventMode", 1)
  27. Opt('TrayAutoPause', 0)
  28. $titel = "Prozent Uhr 0.2 - by Douky"
  30. $Form = GUICreate($titel, 309, 399, 228, 196)
  31. GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
  32. $Group_zeit = GUICtrlCreateGroup("Group_zeit", 8, 128, 289, 161)
  33. GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
  34. $Progress_Minuten = GUICtrlCreateProgress(12, 266, 278, 17)
  35. $Progress_Stunden = GUICtrlCreateProgress(12, 218, 278, 17)
  36. $Progress_Tag = GUICtrlCreateProgress(12, 170, 278, 17)
  37. $Label_Minuten = GUICtrlCreateLabel("Sekunde", 14, 241, 272, 20)
  38. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  39. $Label_Stunden = GUICtrlCreateLabel("Minute", 14, 194, 277, 20)
  40. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  41. $Label_Tag = GUICtrlCreateLabel("Stunde", 13, 145, 272, 24)
  42. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  43. GUICtrlCreateGroup("", -99, -99, 1, 1)
  44. $Group_datum = GUICtrlCreateGroup("Group_datum", 8, 0, 289, 121)
  45. GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
  46. $Progress_Monat = GUICtrlCreateProgress(14, 91, 278, 17)
  47. $Label_Monat = GUICtrlCreateLabel("Monat", 15, 68, 272, 20)
  48. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  49. $Progress_Jahr = GUICtrlCreateProgress(13, 45, 278, 17)
  50. $Label_Jahr = GUICtrlCreateLabel("Jahr", 14, 22, 280, 20)
  51. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  52. GUICtrlCreateGroup("", -99, -99, 1, 1)
  53. $Group_pizza = GUICtrlCreateGroup("Zeit bis zum Alarm: 00:00:00", 8, 296, 289, 97)
  54. GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
  55. $Progress_Pizza = GUICtrlCreateProgress(12, 338, 278, 17)
  56. $Label_Pizza = GUICtrlCreateLabel("Alarm:" & @TAB & "(0.0%)", 14, 310, 276, 24)
  57. GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
  58. $Button_pizzatimer = GUICtrlCreateButton("Aktivieren", 13, 362, 126, 25)
  59. GUICtrlSetOnEvent(-1, "_alarm_on_off")
  60. $Date1 = GUICtrlCreateDate("2011/02/14 22:56:6", 208, 362, 82, 24, BitOR($DTS_UPDOWN, $DTS_TIMEFORMAT))
  61. $Button_Weckeroff = GUICtrlCreateButton("Stop", 140, 362, 35, 25)
  62. GUICtrlSetOnEvent(-1, "_stop_sound")
  63. $Button_Config = GUICtrlCreateButton("MP3", 176, 362, 30, 25)
  64. GUICtrlSetOnEvent(-1, "_save")
  65. GUICtrlCreateGroup("", -99, -99, 1, 1)
  67. #EndRegion ### END Koda GUI section ###
  68. ;WinSetTrans($titel, "", 125)
  69. ControlDisable($titel, "", $Button_Weckeroff)
  70. GUICtrlSetData($Date1,@YEAR & "/" & @MON & "/" & @MDAY & " 00:00:00")
  71. Dim $keyname = "Alarmpfad"
  72.                 If @CPUArch = "X86" Then
  73.                         $regpfad = "HKEY_CURRENT_USER\Software\Prozentuhr"
  74.                 Else
  75.                         $regpfad = "HKLM64\SOFTWARE\Prozentuhr"
  76.                 EndIf
  78.         Sleep(250)
  80.  
  81. Func _save()
  82.         $Alarm_pfad = FileOpenDialog("Alarm Mp3 auswählen", "C:\", "Soundfile (*.mp3;*.wav)", 1 + 3)
  83.         If Not @error Then
  84.                 RegWrite($regpfad, $keyname, "REG_SZ", $Alarm_pfad)
  85.         EndIf
  86. EndFunc   ;==>_save
  87.  
  88.  
  89. Func _uhrrefresh()
  91.                 $Jahr_in_Sekunden = 31622400
  92.         Else
  93.                 $Jahr_in_Sekunden = 31536000
  94.         EndIf
  95.         _GUICtrlSetData($Group_zeit, "Es ist " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
  96.         _GUICtrlSetData($Group_datum, "Heute ist der " & @MDAY & "." & @MON & "." & @YEAR)
  97.  
  98.         $Jahrprozent = 100 / $Jahr_in_Sekunden * _DateDiff('s', @YEAR & "/01/01 00:00:00", _NowCalc())
  99.         _GUICtrlSetData($Progress_Jahr, $Jahrprozent)
  100.         _GUICtrlSetData($Label_Jahr, "Jahr" & @TAB & "(" & StringFormat("%.5f", $Jahrprozent) & '%' & ")")
  101.  
  102.         $Monatprozent = 100 / (_DateDaysInMonth(@YEAR, @MON) * 24 * 60 * 60) * _DateDiff('s', @YEAR & "/" & @MON & "/01 00:00:00", _NowCalc())
  103.         _GUICtrlSetData($Progress_Monat, $Monatprozent)
  104.         _GUICtrlSetData($Label_Monat, "Monat" & @TAB & "(" & StringFormat("%.5f", $Monatprozent) & '%' & ")")
  105.  
  106.         $Tagprozent = 100 / 86400 * (@HOUR * 60 * 60 + @MIN * 60 + @SEC)
  107.         _GUICtrlSetData($Progress_Tag, $Tagprozent)
  108.         _GUICtrlSetData($Label_Tag, "Tag" & @TAB & "(" & StringFormat("%.5f", $Tagprozent) & '%' & ")")
  109.  
  110.         ;Stunde
  111.         $Stundenprozent = 100 / 3600 * (@MIN * 60 + @SEC)
  112.         _GUICtrlSetData($Progress_Stunden, $Stundenprozent)
  113.         _GUICtrlSetData($Label_Stunden, "Stunde" & @TAB & "(" & StringFormat("%.3f", $Stundenprozent) & '%' & ")")
  114.         ;Stunde Ende
  115.  
  116.         ;Minuten
  117.         $Minutenprozent = 100 / 60 * @SEC
  118.         _GUICtrlSetData($Progress_Minuten, $Minutenprozent)
  119.         _GUICtrlSetData($Label_Minuten, "Minute" & @TAB & "(" & StringFormat("%.0f", $Minutenprozent) & '%' & ")")
  120.         ;Minuten Ende
  121.         If $alarm = True Then ControlDisable($titel, "", $Date1)
  122.         If $alarm = False Then ControlEnable($titel, "", $Date1)
  123.         If _SoundStatus($Alarmton) = "playing" And $Alarmton <> "" Then
  124.                 ControlEnable($titel, "", $Button_Weckeroff)
  125.                 ControlDisable($titel, "", $Button_Config)
  126.         Else
  127.                 ControlEnable($titel, "", $Button_Config)
  128.                 ControlDisable($titel, "", $Button_Weckeroff)
  129.         EndIf
  130. EndFunc   ;==>_uhrrefresh
  131.  
  132. Func _GUICtrlSetData($cID, $vData)
  133.         If GUICtrlRead($cID) <> $vData Then GUICtrlSetData($cID, $vData)
  134. EndFunc   ;==>_GUICtrlSetData
  135.  
  136. Func _1_sec_hochzaehlen($neusec)
  137.         If $neusec <> $altsec Then
  138.                 $altsec = @SEC
  139.                 $gelaufene_zeit = _DateAdd('s', 1, $gelaufene_zeit)
  140.         EndIf
  141. EndFunc   ;==>_1_sec_hochzaehlen
  142. Func _stop_sound()
  143.         If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
  144. EndFunc   ;==>_stop_sound
  145.  
  146. Func _alarm_on_off()
  147.  
  148.  
  149.  
  150.         If RegRead($regpfad, $keyname) <> "" Then
  151.                 $Alarm_pfad = RegRead($regpfad, $keyname)
  152.  
  153.                 If $alarm = False Then
  154.                         If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
  155.                         $Alarmton = _SoundOpen($Alarm_pfad)
  156.                         $max_zeit_zum_alarm_in_sec = _DateDiff("s", _NowCalc(), @YEAR & "/" & @MON & "/" & @MDAY & " " & GUICtrlRead($Date1))
  157.                         If $max_zeit_zum_alarm_in_sec > 0 Then
  158.                                 $alarm = True
  159.                                 _GUICtrlSetData($Button_pizzatimer, "Deaktivieren")
  160.                                 AdlibRegister("_alarm_timer", 250)
  161.                                 $gelaufene_zeit = _DateAdd('s', -1, @YEAR & "/" & @MON & "/" & @MDAY & " " & "00:00:00")
  162.                         Else
  163.                                 MsgBox(16, "Error", "Bitte wählen sie einen Zeitpunkt in der Zukunft.")
  164.                         EndIf
  165.                 Else
  166.                         If _SoundStatus($Alarmton) = "playing" Then _SoundStop($Alarmton)
  167.                         $alarm = False
  168.                         _GUICtrlSetData($Button_pizzatimer, "Aktivieren")
  169.                         _SoundClose($Alarmton)
  170.                         adlibunregister("_alarm_timer")
  171.                 EndIf
  172.         Else
  173.                 MsgBox(16, "Error", "Bitte wählen sie erst einen Alarmton aus.")
  174.         EndIf;### Tidy Error -> "endfunc" is closing previous "if" on line 147
  175. EndFunc   ;==>_alarm_on_off
  176.  
  177. Func _alarm_timer()
  178.         _GUICtrlSetData($Button_pizzatimer, "Stopp")
  179.         $zeit_zum_alarm_in_sec = _DateDiff("s", _NowCalc(), @YEAR & "/" & @MON & "/" & @MDAY & " " & GUICtrlRead($Date1))
  180.         ;_GUICtrlSetData($Progress_Minuten, $Minutenprozent)
  181.         Local $Alarm_restzeit, $iHours, $iMins, $iSecs
  182.         _TicksToTime($zeit_zum_alarm_in_sec * 1000, $iHours, $iMins, $iSecs)
  183.         $iHours = StringFormat("%02d", $iHours)
  184.         $iMins = StringFormat("%02d", $iMins)
  185.         $iSecs = StringFormat("%02d", $iSecs)
  186.         $Alarm_restzeit = $iHours & ":" & $iMins & ":" & $iSecs
  187.  
  188.         _1_sec_hochzaehlen(@SEC)
  189.  
  190.         $Alarmprozent = 100 / $max_zeit_zum_alarm_in_sec * _DateDiff('s', @YEAR & "/" & @MON & "/" & @MDAY & " " & "00:00:00", $gelaufene_zeit)
  191.         _GUICtrlSetData($Progress_Pizza, $Alarmprozent)
  192.         _GUICtrlSetData($Label_Pizza, "Alarm:" & @TAB & "(" & StringFormat("%.5f", $Alarmprozent) & '%' & ")")
  193.         _GUICtrlSetData($Group_pizza, "Zeit bis zum Alarm: " & $Alarm_restzeit)
  194.  
  195.         If $iHours = 0 And $iMins = 0 And $iSecs = 0 Then ;Alarm
  196.                 _SoundPlay($Alarmton)
  197.                 _GUICtrlSetData($Progress_Pizza, 100)
  198.                 _GUICtrlSetData($Label_Pizza, "Alarm:" & @TAB & "(100.0%)")
  199.                 $alarm = False
  200.                 adlibunregister("_alarm_timer")
  201.                 _GUICtrlSetData($Button_pizzatimer, "Aktivieren")
  202.         EndIf
  203.  
  204. EndFunc   ;==>_alarm_timer
  205.  
  206. Func _End()
  207.         _SoundClose($Alarmton)
  208.         Exit
  209. EndFunc   ;==>_End

Reply to "Untitled"