<title> </title> <body> <h2> </h2> ? <form name="forma1" method=post action="/cgi-bin/callback-fax.pl"> <p> <SELECT NAME="operator"> <OPTION VALUE ="operator-1">operator-1 <OPTION VALUE ="operator-2">operator-2 <OPTION VALUE ="operator-3">operator-3 <OPTION VALUE ="operator-4">operator-4 <OPTION VALUE ="operator-5">operator-5 <OPTION VALUE ="operator-6">operator-6 </SELECT> <p> ? <INPUT NAME="number" VALUE ="" SIZE=15 MAXLENGTH=15> <p><b> ?</b><INPUT TYPE="CHECKBOX" NAME="direct_dial" CHECKED="1" VALUE ="1"> <br> <INPUT NAME="direct_dial_timeout" VALUE ="2" SIZE=2 MAXLENGTH=2> <p> , ( ) <INPUT NAME="disa_number" VALUE ="" SIZE=4 MAXLENGTH=4> <INPUT NAME="disa_timeout" VALUE ="" SIZE=2 MAXLENGTH=2> <br> ? <INPUT NAME="mailbox" VALUE ="" SIZE=20 MAXLENGTH=50> <p><input type="submit" name="submit" value=" !"> </form> </body>
#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard); my $operator = param('operator'); my $original_number = param('number'); my $send_fax_now = param('direct_dial'); my $send_fax_now_timeout = param('direct_dial_timeout'); my $send_fax_disa_number = param('disa_number'); my $send_fax_disa_timeout = param('disa_number'); my $mailbox = param('mailbox'); my %operator_prefix = ( operator-1 => '01', operator-2 => '02', operator-3 => '03', operator-4 => '04', operator-5 => '05', operator-6 => '06' ); my $number = $operator_prefix{$operator} . $original_number; print "Content-type: text/html\n\n"; print "Sending fax... you will be e-mailed at <b>$mailbox</b><br>\n"; if ($send_fax_now == 1){ open (F, ">/var/spool/asterisk/outgoing/$number"); print F "Channel: SIP/"; print F "$number"; print F "\@softswitch\n"; print F "Callerid: 7495XXXXXXX\n"; print F "Context: send_fax\n"; print F "Extension: 100\n"; print F "MaxRetries: 1\n"; print F "Retrytime: 5\n"; print F "WaitTime: 60\n"; print F "Priority: 1\n"; print F "SetVar: operator=$operator\n"; print F "SetVar: original_number=$original_number\n"; print F "SetVar: email=$mailbox\n"; print F "SetVar: send_fax_now_timeout=$send_fax_now_timeout"; close F; } else { open (F, ">/var/spool/asterisk/outgoing/$number"); print F "Channel: SIP/"; print F "$number"; print F "\@softswitch\n"; print F "Callerid: 7495XXXXXXX\n"; print F "Context: send_fax\n"; print F "Extension: 200\n"; print F "MaxRetries: 1\n"; print F "Retrytime: 5\n"; print F "WaitTime: 60\n"; print F "Priority: 1\n"; print F "SetVar: operator=$operator\n"; print F "SetVar: original_number=$original_number\n"; print F "SetVar: email=$mailbox\n"; print F "SetVar: send_fax_disa_number=$send_fax_disa_number\n"; print F "SetVar: send_fax_disa_timeout=$send_fax_disa_timeout"; close F; } open (LOGFILE, ">>/var/log/faxsend.log"); my $date = localtime; print LOGFILE "$date:$original_number:$operator\n"; close LOGFILE;
[send_fax] exten => 100,1,Wait(${send_fax_now_timeout}) exten => 100,n,NoOp(${TIFF_FILE}) exten => 100,n,SendFAX(/usr/dumps/test-fax.tiff,d) exten => 100,n,NoOp(${FAXSTATUS}) exten => 100,n,Hangup() exten => 200,1,Wait(${send_fax_disa_timeout}) exten => 200,n,SendDTMF(${send_fax_disa_number}) exten => 200,n,NoOp(${TIFF_FILE}) exten => 200,n,SendFAX(/usr/dumps/test-fax.tiff,d) exten => 200,n,NoOp(${FAXSTATUS}) exten => 200,n,Hangup() exten => h,1,NoOp(email is ${email}:operator is ${operator}:number is ${original_number}) exten => h,n,System(/usr/local/bin/sendEmail -f fax@domain.com -t ${email} -bcc makarov@domain.com -u 'Fax message Sent' -m 'operator:${operator}\nnumber:${original_number}\nStatus:${FAXSTATUS}' -s mx.domain.com -l /var/log/fax.log)
[root@PBX-CALLBACK dumps]# tiffinfo test-fax.tiff TIFF Directory at offset 0x8 (8) Subfile Type: multi-page document (2 = 0x2) Image Width: 1728 Image Length: 1172 Resolution: 204, 98 pixels/inch Bits/Sample: 1 Compression Scheme: CCITT Group 4 Photometric Interpretation: min-is-white FillOrder: msb-to-lsb Orientation: row 0 top, col 0 lhs Samples/Pixel: 1 Rows/Strip: 1172 Planar Configuration: single image plane Page Number: 0-0 Software: GPL Ghostscript 8.70 DateTime: 2011:12:23 16:04:13 Group 4 Options: (0 = 0x0)
Source: https://habr.com/ru/post/144409/
All Articles