changeset
Reformat comments and correct spacing throughout.
Thu, 24 Mar 2011 17:26:38 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Thu, 24 Mar 2011 17:26:38 +0100
- changeset 319
- 8ad5bb570338
- parent 318
- 62f6047fe81a
- child 320
- d8a8300afdc8
Reformat comments and correct spacing throughout.
| asterisk/wakeup.agi | file | annotate | diff | comparison | revisions |
1.1 --- a/asterisk/wakeup.agi Thu Mar 24 14:54:25 2011 +0100 1.2 +++ b/asterisk/wakeup.agi Thu Mar 24 17:26:38 2011 +0100 1.3 @@ -63,12 +63,10 @@ 1.4 } 1.5 } 1.6 1.7 - 1.8 -############ send_file ############# 1.9 -# Use this to send a wave file on # 1.10 -# the channel # 1.11 -# # 1.12 -#################################### 1.13 +############ send_file #### 1.14 +# Use this to send a wave # 1.15 +# file on the channel # 1.16 +########################### 1.17 sub send_file { 1.18 my ($myfile) = @_; 1.19 chomp($myfile); 1.20 @@ -83,9 +81,7 @@ 1.21 } 1.22 1.23 ############ hangup ############### 1.24 -# Use this to hand up a channel # 1.25 -# the channel # 1.26 -# # 1.27 +# Use this to hang up a channel # 1.28 #################################### 1.29 sub hangup { 1.30 if ($DEBUG == 1 ) { 1.31 @@ -114,11 +110,9 @@ 1.32 return $1; 1.33 } 1.34 1.35 -############ say_digits ############ 1.36 -# Use this to say a digits # 1.37 -# over the channel # 1.38 -# # 1.39 -#################################### 1.40 +############ say_digits ################### 1.41 +# Use this to say digits over the channel # 1.42 +########################################### 1.43 sub say_digits { 1.44 my ($mynumber) = @_; 1.45 chomp($mynumber); 1.46 @@ -130,11 +124,10 @@ 1.47 &checkresult($result); 1.48 } 1.49 1.50 -############ get_choice ############ 1.51 -# Use this to receive a DTMF # 1.52 -# choice from the channel # 1.53 -# # 1.54 -#################################### 1.55 +######## get_choice ############ 1.56 +# Use this to receive a DTMF # 1.57 +# choice from the channel # 1.58 +################################ 1.59 sub get_choice { 1.60 if ($DEBUG == 1 ) { 1.61 print DEBUGOUT "Getting choice \n"; 1.62 @@ -146,10 +139,9 @@ 1.63 return $1; 1.64 } 1.65 1.66 -############ answer ############### 1.67 -# Anser the channel # 1.68 -# # 1.69 -#################################### 1.70 +###### answer ###### 1.71 +# Anser the channel # 1.72 +##################### 1.73 sub answer { 1.74 if ($DEBUG == 1 ) { 1.75 print DEBUGOUT "Answering the channel \n"; 1.76 @@ -239,11 +231,10 @@ 1.77 my $myext = $aig[1]; 1.78 return $myext; 1.79 } 1.80 -########### init_agi ############### 1.81 -# Use this to initialize the AGI # 1.82 -# variable # 1.83 -# # 1.84 -#################################### 1.85 + 1.86 +############### init_agi ################## 1.87 +# Use this to initialize the AGI variable # 1.88 +########################################### 1.89 sub init_agi { 1.90 while(<STDIN>) { 1.91 chomp; 1.92 @@ -254,10 +245,10 @@ 1.93 } 1.94 } 1.95 1.96 -############ ascii2num ############# 1.97 -# Removes 48 to get a number out # 1.98 -# of the asciss return # 1.99 -#################################### 1.100 +######### ascii2num ########## 1.101 +# Removes 48 to get a number # 1.102 +# out of the asciss return # 1.103 +############################## 1.104 sub ascii2num { 1.105 my ($asc) = @_; 1.106 my $ret; 1.107 @@ -265,10 +256,8 @@ 1.108 return $ret; 1.109 } 1.110 1.111 - 1.112 -########### Welcome ############### 1.113 +############# Welcome ############## 1.114 # This is the welcome menu # 1.115 -# # 1.116 #################################### 1.117 sub welcome { 1.118 my $ret = 0; 1.119 @@ -308,7 +297,6 @@ 1.120 # want to manage already scheduled # 1.121 # wakeup calls # 1.122 #################################### 1.123 - 1.124 sub manage_calls { 1.125 my $checker = "false"; 1.126 my @calls; 1.127 @@ -371,13 +359,12 @@ 1.128 } 1.129 $del = &send_file("goodbye"); 1.130 } 1.131 - 1.132 } 1.133 1.134 -######## schedule_new ############## 1.135 -# This is the menu to schedule a # 1.136 -# a new wakeup call # 1.137 -#################################### 1.138 +######## schedule_new ########## 1.139 +# This is the menu to schedule # 1.140 +# a new wakeup call # 1.141 +################################ 1.142 sub schedule_new { 1.143 my $checker = "false"; 1.144 my $ret_var; 1.145 @@ -493,8 +480,7 @@ 1.146 1.147 ######## get_time_string ########### 1.148 # This will return the time string # 1.149 -# when inputing a string like # 1.150 -# hhmi # 1.151 +# when inputing a string like hhmi # 1.152 #################################### 1.153 sub get_time_string { 1.154 my ($intime) = @_; 1.155 @@ -538,13 +524,11 @@ 1.156 return $ret_val; 1.157 } 1.158 1.159 -############ new_time ############## 1.160 -# This will return the time string # 1.161 -# with a time set 10 minute into # 1.162 -# the future # 1.163 -# The string is # 1.164 -# MMDDhhmi # 1.165 -#################################### 1.166 +############ new_time ################ 1.167 +# This will return the time string # 1.168 +# with a time set 10 minute into # 1.169 +# the future. The string is MMDDhhmi # 1.170 +###################################### 1.171 sub new_time { 1.172 my ($input) = @_; 1.173 my @timedata; 1.174 @@ -584,10 +568,10 @@ 1.175 return $ret_val; 1.176 } 1.177 1.178 -########### snooze ################ 1.179 -# This is the menu to snooze the # 1.180 -# wakeup call # 1.181 -#################################### 1.182 +########### snooze ########## 1.183 +# This is the menu to snooze # 1.184 +# the wakeup call # 1.185 +############################## 1.186 sub snooze { 1.187 my ($oldfile) = @_; 1.188 my $newfile; 1.189 @@ -694,11 +678,9 @@ 1.190 return 0; 1.191 } 1.192 1.193 -########### main program ########### 1.194 -# Here goes the main program # 1.195 -# # 1.196 -#################################### 1.197 - 1.198 +######## main program ######## 1.199 +# Here goes the main program # 1.200 +############################## 1.201 my $numargs = $#ARGV + 1; 1.202 if ($DEBUG == 1) { 1.203 open (DEBUGOUT, '>', $debugfile) or die "Cannot open $debugfile for write :$!";
