Fixed Fhour variable bug in several perl scripts

git-svn-id: svn://192.168.202.10@2204 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2014-11-25 04:17:19 +00:00
parent 03e643eab7
commit ddfa080fd2
7 changed files with 20 additions and 13 deletions
+4 -3
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# agi-NVA_recording.agi version 2.6
# agi-NVA_recording.agi version 2.10
#
# This script is designed to give recording ability to agents not the using
# ViciDial agent screen
@@ -33,6 +33,7 @@
# 120430-2214 - Converted call to Monitor app to be asterisk 1.8 compatible
# 130108-1811 - Changes for Asterisk 1.8 compatibility
# 130326-1510 - Added lead_id and user logging from vicidial values
# 141124-2309 - Fixed Fhour variable bug
#
&get_time_now;
@@ -47,7 +48,7 @@ $year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
$now_date = "$year-$mon-$mday $hour:$min:$sec";
@@ -296,7 +297,7 @@ sub get_time_now #get the current date and time and epoch for logging call lengt
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
+3 -2
View File
@@ -24,10 +24,11 @@
# "Timer Action Seconds" = 20
# "Transfer Conf Number 1" = 8399
#
# Copyright (C) 2011 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2014 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# CHANGELOG
# 111227-1418 - First build
# 141124-2309 - Fixed Fhour variable bug
#
$US='_';
@@ -46,7 +47,7 @@ $year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
+3 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# ADMIN_audio_store_sync.pl version 2.4
# ADMIN_audio_store_sync.pl version 2.10
#
# DESCRIPTION:
# syncronizes audio between audio store and this server
@@ -16,6 +16,7 @@
# 100824-0032 - Fixed issue with first MoH file being skipped when playing in non-random order
# 101217-2137 - Small fix for admin directories not directly off of the webroot
# 121019-0729 - Added audio_store_purge feature
# 141124-2309 - Fixed Fhour variable bug
#
# constants
@@ -34,7 +35,7 @@ $year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
$file_date = "$year-$mon-$mday";
+2 -1
View File
@@ -18,6 +18,7 @@
# 100817-1202 - Fixed test option bug
# 101208-0452 - Added checks for zaptel and dahdi conf files
# 141103-1505 - Added option to export without leads, logs, servers or phones
# 141124-2309 - Fixed Fhour variable bug
#
$secT = time();
@@ -27,7 +28,7 @@ $year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
$file_date = "$year-$mon-$mday";
+3 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# ADMIN_restart_roll_logs.pl version 2.6
# ADMIN_restart_roll_logs.pl version 2.10
#
# script to roll the Asterisk logs on machine restart
#
@@ -12,6 +12,7 @@
# 90311-0921 - Added /var/log/asterisk/screenlog log rolling
# 90508-0535 - Changes root screenlog to /var/log/astguiclient
# 130108-1715 - Changes for new log rolling script compatibility
# 141124-2309 - Fixed Fhour variable bug
#
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -19,7 +20,7 @@ $year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
+2 -1
View File
@@ -42,6 +42,7 @@
# 130418-1946 - Changed asterisk 1.8 compatibility for CPD and SIP Hangup
# 140524-0900 - Fixed issue with consultative agent transfers in Asterisk 1.8
# 141113-1605 - Added concurrency check
# 141124-2309 - Fixed Fhour variable bug
#
# constants
@@ -1291,7 +1292,7 @@ sub get_time_now #get the current date and time and epoch for logging call lengt
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
+3 -2
View File
@@ -62,9 +62,10 @@
# 131122-1317 - Small formatting fixes
# 140510-0119 - Small formatting and asterisk version changes
# 141113-1601 - Added concurrency check
# 141124-2309 - Fixed Fhour variable bug
#
$build = '141113-1601';
$build = '141124-2309';
# constants
$SYSPERF=0; # system performance logging to MySQL server_performance table every 5 seconds
@@ -1324,7 +1325,7 @@ sub get_time_now
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}