retronetworking
/
isdn4k-utils
13
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
isdn4k-utils/isdnlog/tools/telrate/telrate.cgi

2223 lines
66 KiB
Perl
Executable File
Raw Blame History

#!/usr/bin/perl
#
# Copyright 1999 by Leopold Toetsch <lt@toetsch.at>
#
# This program is free for private use. Private use means, you
# may install and run this program on your home/office computer(s).
# But you are not allowed to use this program on public webservers.
#
# For commercial usage on public webservers contact the author.
#
# Version
# 1.00 1999.08.30
# 1.10 1999.09.04 use GD 1.21 with PNG graphics
# 1.11 1999.09.06 run's now with mod_perl
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
#use Carp;
#local $SIG{__WARN__} = \&Carp::cluck;
use strict;
use GD 1.21;
use IO::Handle;
use vars qw ( $use_sockets $server $MKTEMP $ISDNRATE $CODEF $LOGO $docroot $CC);
use vars qw ($_VBNS $sortv);
# socket stuff
$use_sockets=1;
use Socket;
# path for unix socket
$server='/tmp/isdnrate';
# configure adjusts these n/y :-(
# Country
$CC='de';
$CC='at';
$CODEF= "/usr/lib/isdn/code-$CC.dat";
$MKTEMP= '/bin/mktemp';
$ISDNRATE='/usr/bin/isdnrate';
$LOGO="(c) 1999 www.Tel-R.at";
$_VBNS=0;
$docroot=$ENV{'DOCUMENT_ROOT'};
#@probe_zones = qw ( 01 01 02245 0732 07667 05574 ); #AT
#@probe_zones = qw ( 030 030 03302 033200 089 ); #DE
# number of mobil funk with diff charge
#@mobil_nums = qw ( 0663 0664 0676 0699 ); #AT
# rest should be ok
use vars qw ( $tempdir $tempdir_url $DEFLEN $debug $LEER $DEFBEST );
$tempdir = "$docroot/tmp";
$tempdir_url = '/tmp';
$DEFLEN=60;
$DEFBEST=30;
$debug=0;
$LEER='--kein--';
# end configurable
use vars qw ( %towns @countries %url $len $TITLE $weekly $daily @names $help $mix $info );
# cgi
# some security things
$CGI::POST_MAX=1000;
$CGI::DISABLE_UPLOADS=1;
# global data
%towns = ($LEER => $LEER);
use subs qw { footer html_header hrg };
# main
$|=1;
$TITLE="Tel-R.at";
$help=$sortv=0;
$weekly=$daily=$help=$mix= $info=0;
@names=param();
foreach (@names) {
my $v = param($_);
$v =~ s/[^\w\d.:, +\-~ÄÖÜäöüß]//g;
$v =~ s/^-//; # no options in params
param($_, $v)
}
if ($debug) {
html_header('debug',1);
print(hr, dump());
print(hr);
}
if (param('info')) {
html_header("$TITLE - Info",0);
&info(param('info'));
}
elsif (param('list')) {
html_header("$TITLE - Providerliste",0);
&list(param('list'));
}
elsif (param('det') ne '') {
my $what = param('det');
my @t = ('Ausland','Inland');
html_header("$TITLE - $t[$what]",0);
&det($what, param('prov'));
}
else {
$weekly=param('graf') =~ /Wo/;
$daily=param('graf') =~ /Tag/;
$mix=param('mix');
my $subt = $mix?"Gesprächsmix":$daily?"Tagesverlauf":
$weekly?"Wochenverlauf":"Einzelgespräch";
$subt = 'Hilfe' if(param('help'));
html_header("$TITLE - $subt",param('help')<3?1:0);
if (((param('town') && param('town') !~ /--/) || param('gettown')) && !$mix) {
&read_towns;
}
if (((param('country') && param('country') !~ /--/) || param('getcountry')) && !$mix) {
&read_countries;
}
$help=0;
push(@names, 'help_tel.x') if (@names && !param('tel') &&
!param('town') && !param('country') &&
!param('gettown') && !param('getcountry') && !param('mix') && !param('help'));
foreach (@names) {
if (/help_(.*?)\.x/) {
show_help($1);
$help=1;
last;
}
}
if (param('help')) {
$help=param('help');
&help_all($help);
}
if (param('clear')) { # clear mix
my $n;
param('mix',$mix=10);
param('from','');
foreach $n (0..$mix-1) {
foreach ('tel','oft','len','dday') {
param("$_$n", '');
} #for
}
param('best',$DEFBEST);
param('prov','');
param('xprov','');
param('_3D','on')
}
if (!$help && ( (param()>1 && $mix) || param())) {
&print_table if(param('tab'));
&make_graf if(param('graf'));
}
if (param('more.x')) {
$mix+=10 ;
param('mix', $mix);
}
if (!param() || ($mix && param()==1)) {
param('best',$DEFBEST);
param('_3D','on');
param('now','on');
param('len',$DEFLEN);
}
elsif ($help < 3) {
print(p, hrg, h3('Neue Eingabe'));
}
&print_form if($help != 3);
footer;
&clean_up;
}
1;
# subs
sub make_a { #('/telrate/index.html','Startseite','start')
my($url, $t, $g) = @_;
a({-href=>$url , -onmouseover=>"swap('$g',1)",-onmouseout=>"swap('$g',0)"},
$t,img({-src=>"${g}0.jpg", -border=>0, width=>80,
-name => $g,height=>40,-hspace=>10, -alt=>$t}));
}
sub hrg {
img({-src=>"hr.gif", -width=>600,
-height=>4, -alt=>'-----'});
}
# footer
sub footer {
my($pnum) = $_[0];
my($t);
if ($pnum && ($t=&get_info($pnum, 'TarifChanged'))) {
$t = "Tarife zuletzt gewartet am $t.";
}
print(
hrg,p,
span({-class=>'sm'},
'Alle Angaben ohne Gewähr. Alle Preise inkl. Mwst. ',$t,br,
'Die Tarife der Provider ändern sich häufig und können daher ',
'eventuell falsch sein. In diesem Falle wenden ',
'Sie sich bitte'));
if ($pnum && ($t=&get_info($pnum, 'Maintainer'))) {
my ($e, $n);
if ($t =~ /(.*?)\s*<(.*?)>/) {
$e = $t; $n = $1;
}
else {
$e = $n = $t;
}
print(span({-class=>'sm'},' an den Maintainer der Tarife ',
a({-href=>"mailto:$e?subject=Tarife $pnum"},$n),' oder'));
}
print(
span({-class=>'sm'},
ul(li('in Österreich an ',
a({-href=>'mailto:reinelt@eunet.at?subject=Tarife'},
'Michael Reinelt')),
li('in Deutschland an ',
a({-href=>'mailto:rate-de@Joker.E.Ruhr.de?subject=Tarife'},
'die deutsche ISDN-Rate Crew'))),
'oder an den Autor dieses Pogrammes ',
a({-href=>'mailto:lt@toetsch.at?subject=Tarife'},'Leopold Tötsch'),'.'),
p,hrg,p,
make_a('index.html','Startseite','start')
);
my $url= url();
$url =~ s/&help.*?=\w+//g;
if ($mix || $help == 3) {
print(make_a($url, 'Einzelgespr&auml;ch', 'eg'));
}
if (!$mix || $help == 3) {
$url .= '?mix=10';
print(make_a($url, 'Gespr&auml;chsmix','gm'));
}
print (br) if ($help==3 && !param('list'));
print(make_a('info.html', 'Info, Hilfe','info'));
if (!param('list')) {
$url =~ s/\?.*//g;
$url .= '?list=1';
print(make_a($url, 'Providerliste','list'));
}
print(end_html);
}
sub html_header {
my($title, $use_script) = @_;
my $script;
print(header);
$script = q(
NS4 = document.layers ? 1 : 0;
IE4 = document.all ? 1 : 0;
ver4 = (NS4 || IE4) ? 1 : 0;
function pl(img) {
if(!ver4) return 0;
var a=new Image(); a.src='http://). server_name . q(/telrate/'+img+'.jpg'; return a;
}
eg0=pl("eg0");
eg1=pl("eg1");
gm0=pl("gm0");
gm1=pl("gm1");
info0=pl("info0");
info1=pl("info1");
list0=pl("list0");
list1=pl("list1");
start0=pl("start0");
start1=pl("start1");
function swap(what,on) {
if(!ver4) return;
var i=on?"1":"0";
document[what].src=eval(what+i+'.src');
}
function init() {}
);
if ($use_script) {
$script .= q(
tim = 0;
function startt() {
if(document.form.Start.value=='Start') {
tim=setInterval("run()",1000);
document.form.len.value=0;
document.form.Start.value='Stop';
document.form.now.checked=false;
j=new Date();
document.form.day.value=j.getDate()+'.'+(j.getMonth()+1)+'.'+j.getYear();
document.form.hour.value=j.getHours()+':'+j.getMinutes()+':'+j.getSeconds();
}
else {
clearInterval(tim);
document.form.Start.value='Start';
}
}
function run() {
document.form.len.value++;
}
);}
if ($use_script||$mix) {
$script .= q(
function init() {
if(ver4)
init_tt();
}
sty="font-family:sans serif;font-size:9pt";
refs=new Array('help_from','help_tel','help_len','help_tab','help_graf',
'help_tag','help_prov','help_mix');
txts=new Array('<b>Ihre Vorwahl</b><br>z.B.<i>02345</i>',
'<b>Telefonnummer</b><br>z.B.<br><i>2345</i> Ortsnetz<br><i>03456</i> Anderer Ort<br>'+
'<i>00156789</i> Ausland<br><i>+1 56789</i> Ausland<br><i>China</i> Ausland',
'<b>Gespr&auml;chsdauer</b><br><i>60</i> Sekunden<br><i>2m 30</i> 2 Minten 30'+
'<br>optional Zeitpunkt des Gespr&auml;chs',
'<b>Tabelle</b><br>mit Kostenaufstellung und Links zu weiterer Inforrmation &uuml;ber die Provider',
'<b>Grafik</b><br>der Kosten und Links zu Details der Provider',
'<b>Tagesverlauf</b><br>bzw. Wochenverlauf der Kosten',
'<b>Provider</b><br>z.B.<br><i>1033,10050</i>',
'<b>Telefonnummer</b><br>z.B.<br><i>2345</i> Ortsnetz<br><i>03456</i> Anderer Ort<br>'+
'<i>00156789</i> Ausland<br><i>+1 56789</i> Ausland<br><i>China</i> Ausland<br>'+
'<b>Anzahl der Gespr&auml;che</b><br>'+
'<b>Gespr&auml;chsdauer</b><br><i>60</i> Sekunden<br><i>2m 30</i> 2 Minten 30'
);
);#q
}
if ($use_script||$mix) {
$script .= qq!
if(ver4)
document.write("<SCRIPT LANGUAGE='JavaScript1.2' SRC='http://! .server_name. q!/telrate/tt.js'><\/SCRIPT>");
!;#q
}
my $style = q(
<!--
.t {font-family:Sans Serif;font-size:10pt}
.sm {font-family:Sans Serif;font-size:9pt}
i {color:#000080}
h2,h3,h4,p,td,th,body { font-family:Sans Serif,Arial }
h1 { font-family:Courier New, Courier }
#tip {position:absolute;visibility:hidden;left:0;top:0;width:300;}
-->
);
print(start_html(-title=>$title, -bgcolor=>'#ffffe0', -onload=>'init()',
-script=> $script, -head=>style({-type=>'text/css'},$style),
-xbase=>server_name.'/telrate/'),
h1({-align=>'center'},$title));
}
sub read_towns {
my($c, $t, $wanted);
if (param('town') && ($wanted=substr(param('town'),0,1)) ne '-') {
open(IN, $CODEF) || print("Can't read $CODEF");
while (<IN>) {
chomp;
($c, $t) = split(/\t/,$_,2);
$towns{$t}=$c if($t =~ /^$wanted/i);
}
close(IN);
}
for $c ('A'..'Z','Ä','Ö','Ü') {
$towns{$c}=$c;
}
}
sub help {
my $help = 'help_'. $_[0];
my $url = self_url;
$url =~ s/&help(_\w+\.[xy])?=\d+//g;
$url .= "&$help.x=1";
a({-href=>$url},
img({-src=>'help.gif',-border=>0, -alt=>'Hilfe'}));
# image_button(-name=>$help, -src=>'help.gif', -onmouseover=>'alert(\'huhu\')',
# -border=>0, -alt=>'Hilfe', -tabindex=>999);
}
sub show_help {
my $what = $_[0];
my $mixt =
'<br>Ist <i>Mit Gebühren/Monat</i> ausgewählt, werden in der letzten '
.'Spalte allfällige Gebühren (Mindestumsatz usw.) aufgelistet. '
.'Einmalige Gebühren (Anmeldung, Freischaltung) werden auf 1 Jahr aufgeteilt.<br>'
.'Provider, die nicht alle Dienste zu Verfügung stellen, oder deren '
.'Mindestumsatz nicht erreicht wird, werden normalerweise nicht angezeigt. '
.'Wenn sie alle <i>Alle</i> angekreuzt haben, werden diese Provider '
.'mit <i>**</i> markiert aufgelistet.';
if ($what eq 'from') {
print('Geben Sie hier die Vorwahl Ihres Standortes ein, ',
'dann werden die Gebühren von dieser Vorwahl aus berechnet',
br,'Z.B. ', tt('02345'),br,'Das ist vorallem für jene Provider ',
'wichtig, die abhängig von der Entfernung, vom Bundesland oder vom ',
'Gebiet einen unterschiedlichen Tarif berechnen.');
}
elsif($what eq 'tel') {
print('Geben Sie die Nummer ein, zu der Sie die Gebühren ',
'berechnet haben möchten.',br,
ul(li(tt("1234\t"),'Ortsnetz'),
li(tt("012345\t"),'Anderer Ort'),
li(tt("00156789\t"),'Ausland'),
li(tt("+1 56789\t"),'Ausland'),
li(tt("China\t"),'Ausland'),
li(tt("1012 01 47110815\t"),'Provider+Nummer (damit wird aber nur dieser angezeigt)')),
'oder wählen Sie aus der Liste der Städte oder Länder.',br,
'Hinweis: eine ausgewählte Stadt hat Priorität vor einem Land, ',
'dieses vor einer manuellen Eingabe.', br,
'Wenn Sie ein anderes Land oder eine andere Stadt wählen möchten ',
'selektieren Sie den gewünschten Anfangsbuchstaben und dann ',i('GO'),
' damit wird auch die Länder- bzw. Städteliste für diesen Buchstaben ',
'gefüllt.',br,
'Wenn Sie eine Stadt gewählt haben, und Sie möchten dann einen ',
'Auslandstarif abfragen, wählen Sie unter Stadt ', i($LEER),
' und dann ', i('Länderliste'),'.',br,
i('GO'),' dient zur schnellen Anwahl von ',i('Tabelle'),'.');
}
elsif($what eq 'len') {
print('Wählen Sie hier Dauer und Zeitpunkt des Gesprächs. ',
'Die Dauer ist standardmäßig in Sekunden anzugeben, Sie können ',
'aber auch durch Anhängen eines ',i('m'),' die Dauer in Minuten ',
'eingeben, z.B. ',tt(i('2m 33')),'.',br,
'Mittels ',i('Start'),' können Sie aktuelle Gespräche mitstoppen ',
'und sich so die angefallenen Gesprächsgebühren anzeigen lassen.',br,
'Wenn ',i('Jetzt'),' nicht angekreuzt ist, können Sie einen beliebigen ',
'Zeitpunkt eingeben. Ist kein Tag angegeben, wird heute angenommen. ',
'Ist auch keine Uhrzeit angegeben, gilt der Zeitpunkt der Auswahlbox.');
}
elsif($what eq 'tab') {
print('Mit der Schaltfläche ',i('Tabelle'),' erhalten Sie eine ',
'Aufstellung der Telefongebühen pro Provider. ',
'Durck Klicken auf ',i('Nr.'),' bzw. ',i('Provider'),' bekommen ',
'Sie die Liste sortiert nach Zugangsnummer bzw. Providerbezeichnung - ',
'die Standardsortierung ist nach der Gebühr.');
}
elsif($what eq 'graf') {
print('Mit der Schaltfläche ',i('Grafik'),' erhalten Sie eine ',
'grafische Darstellung des Verlaufs der Telefongebühen bis ',
'zur gewählten Dauer. Damit sehen Sie sehr übersichtlich, ',
'ob der Provider Sekundentakt oder einen anderen vewendet.',
br
'Um kleinere Bilder (schneller) zu erhalten, verringern Sie die Größe ',
'und/oder schalten Sie ',i('3D'),' aus.');
}
elsif($what eq 'tag') {
print('Die Schaltflächen ',i('Tag'),' und ',i('Woche'),' zeigen die ',
'Gebühren für die gewählte Dauer und den gewählten Tag im Verlauf ',
'eines Tages bzw. einer Woche. Dabei werden die Gebühren am Tag (8-18h) ',
'in der Reihung der Provider stärker gewichtet, als in der übrigen Zeit.');
}
elsif($what eq 'prov') {
print('Wählen Sie hier welche und wie viele Provider angzeigt werden. ',
'Sind ',i('nur Provider'),' angegeben, werden nur diese angezeigt. ',
'Sind ',i('nicht Provider'),' angegeben, werden diese nicht angezeigt.',
br,'Hinweis: wenn Sie mehrere Provider eingeben, trennen Sie diese ',
'mit einem Beistrich oder Leerzeichen. Sie können die ',
'Providernummer eingeben z.B. ',tt('01033,010050'),' oder auch in ',
'einer abgekürzten Variante, wobei Sie in Deutschland bei den ',
'6-stelligen Providernummern 100 addieren, also ',tt('33,150'),
' für obiges Beispiel.',p,
'Ist ', i('Business Provider zeigen'), ' angekreuzt, werden Provider, ',
'die einen hohen Mindestumsatz haben, oder nur Geschäftskunden betreuen ',
'in die Liste oder Grafik mitaufgenommen',p,
'Bei ',i('Taktdauer'),' können Sie angeben, daß nur Provider mit einer ',
'Taktung kleiner-gleich dem gewählten Wert ',
'angezeigt werden. Beachten Sie, daß ',
'bei Providern, die eine uneinheitliche Taktung ',
'verwenden, der Takt am Ende der Gesprächsdauer verwendet wird.',
p,
i('Reset'),' stellt den vorhergehenden Zustand wieder her, ',
i('Löschen'),' löscht alle Eingabefelder, bzw. stellt Standardwerte ein.');
}
elsif($what eq 'mix') {
print('Geben Sie die Nummern ein, zu der Sie die Gebühren ',
'berechnet haben möchten.',br,
ul(li(tt("1234\t"),'Ortsnetz'),
li(tt("012345\t"),'Anderer Ort'),
li(tt("00156789\t"),'Ausland'),
li(tt("+1 56789\t"),'Ausland'),
li(tt("China\t"),'Ausland')),
'Sie brauchen natürlich nicht jedes Ziel eingeben, sondern nur ',
'Vorwahlen in unterschiedlichen Entfernungen, bzw. in verschiedenen ',
'Zonen.',p,
'Und wie oft Sie im Zeitraum *), wie lange (in Sekunden), bzw. ',
'mit nachgestelltem ',i('m'),' z.B. ',tt(i('2m10')),
' &nbsp;in Minuten/Sekunden dorthin ',
'zu welcher Tageszeit durchschnittlich telefonieren.',br,
'Wenn Sie ein Tildezeichen ',tt(i("'~'")),' vor die Zeitdauer setzen ',
'werden maximal 20 Zufallslängen +/- 50 Prozent von Ihrer gewünschten ',
'Zeitdauer berechnet, z.B. bei ',tt(i('~1m')),' werden Gesprächslängen von ',
'30s bis 1m30s verwendet.',
br,
'Wenn Sie mehr Eingabefelder benötigen, klicken Sie auf ',
i('Mehr'),'.',p,
'<SUP>*)</SUP> Wenn sie ',i('Mit Gebühren/Monat'), ' gewählt haben ',
'sollten Sie die Anzahl der Gespräche in einem Monat eingeben, ',
'da die Gebühren pro Monat berechnet werden.');
}
elsif($what eq 'tabm') {
print('Sie erhalten eine Tabelle mit den Gesamtkosten ',
'sowie mit den einzelnen Teilen Ihres Gesprächsmix.',
$mixt);
}
elsif($what eq 'grafm') {
print('Sie bekomme eine grafische Übersicht über Ihren ',
'gewählten Gesprächsmix. Jede Stufe im Diagramm zeigt ',
'die Gebühren für den jeweiligen Dienst. ',
'Rechts sehen Sie die Gesamkosten für alle Gespräche.',
$mixt,
br,
'Um kleinere Bilder (schneller) zu erhalten, verringern Sie die Größe ',
'und/oder schalten Sie ',i('3D'),' aus.');
}
if ($what =~ /tab|graf/) {
print(br,'Sie können auf die Providerbezeichnung ',
'klicken um weitere Information über den jeweiligen Provider zu ',
'erhalten.');
}
if ($help == 0) {
my ($url) = self_url;
$url =~ s/&help.*?=\w+//g;
$url .= '&help=';
$url .= $mix?'2':'1';
print(p,'Eine Zusammenfassung aller Eingabemöglichkeiten gibt es ',
a({-href=>$url}, 'hier'),'.');
}
}
sub help_all {
my ($what) = $_[0];
my ($e, %allh, @allh);
if ($what & 1) {
%allh = (from => 'Von wo wählen Sie', tel => 'Wohin telefonieren Sie',
len => 'Wie lange', tab => 'Tabelle', graf => 'Grafik',
tag => 'Tag / Woche', prov => 'Provider');
@allh = qw( from tel len tab graf tag prov );
print(h2('Einzelgespräch'));
foreach $e (@allh) {
print(h3($allh{$e}));
show_help($e);
}
}
print(p,hr,p) if($what & 3);
if ($what & 2) {
%allh = (from => 'Von wo wählen Sie', mix => 'Wohin telefonieren Sie',
tabm => 'Tabelle', grafm => 'Grafik',
prov => 'Provider');
@allh = qw( from mix tabm grafm prov );
print(h2('Gesprächsmix'));
foreach $e (@allh) {
print(h3($allh{$e}));
show_help($e);
}
}
param('help');
print(p,br);
}
sub byname {
my($ca, $cb) = ($a, $b);
foreach ($ca,$cb) {
s/Ä/Ae/;
s/Ö/Oe/;
s/Ü/Ue/;
}
$ca cmp $cb;
}
sub print_form {
my($t, $i);
my @codes = sort byname (keys(%towns));
$t= q!print(
start_form(-name=>'form',-action=>url),
table({-border=>8},
Tr(td(table({-bgcolor=>'#ffffd0', -cellspacing=>0, -cellpadding=>0, -border=>0},
Tr({-bgcolor=>'#ffffa8'},td(['&nbsp;', b('Ich wähle von: ')]),
td({-colspan=>2},textfield(-name=>'from', -size=>12, -maxlength=>20)),
td(['&nbsp;', &help('from')])), !;
if ($mix) {
$t .= q!
Tr({-bgcolor=>'#ffffa8'},[
td({-colspan=>6},hr),
td(['&nbsp;',b('Und telefoniere nach&nbsp;&nbsp;&nbsp;'),
b('so oft&nbsp;&nbsp;&nbsp;'),
b('so lang <span class="sm"><i>(s)</i></span>&nbsp;&nbsp;'),
b('am'),&help('mix')])]),!;
for $i (0..$mix-1) {
my($ii)=$i+1;
my ($col) ;
$col=sprintf("'#ffff%2x'", (0xa8 + $ii*4) > 0xd0 ? 0xd0 : (0xa8 + $ii*4));
$ii=qq('$ii&nbsp;&nbsp;');
$t .= q!
Tr({-bgcolor=>!."$col".q!},
td([! . "$ii" .q!,
textfield(-name=>"tel! .$i .q!", -size=>12, -maxlength=>20),
textfield(-name=>"oft! .$i .q!", -size=>4, -maxlength=>4),
textfield(-name=>"len! .$i .q!", -size=>8, -maxlength=>8),
popup_menu(-name=>"dday! .$i .q!", -values=> ['W','N'],
-labels=> {'W' =>'Tag','N'=>'Nacht'}),
!;
$t .= ($i==$mix-1) ? q!image_button({-name=>'more', -src=>'more.gif',
-border=>0, -alt=>'Mehr Felder'})! : q!'&nbsp;'!;
$t .= q!])),!;
} # for
} # if mix
else {
$t .= q!Tr({-bgcolor=>'#ffffa8'},[
td({-colspan=>6},hr),
td(['&nbsp', '<b>nach</b> TelefonNummer: &nbsp;',
textfield(-name=>'tel', -size=>12, -maxlength=>20),'&nbsp;',
submit('tab','GO'),
&help('tel')])]),
!;
# town/gettown
my $cs=2;
$t .= q!Tr(
td(['&nbsp;','oder Stadt: ']),!;
if(param('town') || param('gettown')) {
$cs = param('gettown') ? 1: 2;
$t.= q!td({-colspan=>!. $cs. q!},popup_menu(-name=>'town', -values=> \@codes)),!;
}
if(!param('town') || length(param('town'))==1 || param('gettown')) {
$t .= q!td(submit(-name=>'gettown',-value=>'Städteliste')),!;
$cs++;
}
while ($cs++<7) {
$t.= q! td('&nbsp;'),!;
}
$t .= '),';
# country/getcountry
$cs=2;
$t .= q!Tr(
td(['&nbsp;','oder Ausland: ']),!;
if(param('country') || param('getcountry')) {
$cs = param('getcountry') ? 1: 2;
$t.= q!td({-colspan=>!. $cs. q!},popup_menu(-name=>'country', -values=> \@countries)),!;
}
if(!param('country') || length(param('country'))==1 || param('getcountry')) {
$t .= q!td(submit(-name=>'getcountry',-value=>'Länderliste')),!;
$cs++;
}
while ($cs++<7) {
$t.= q! td('&nbsp;'),!;
}
$t .= '),';
$t .= q!
Tr([
td({-colspan=>6},hr),
td(['&nbsp;','<b>Dauer</b> <span class="sm"><i>s</i> o. <i>2m 33</i></span>',
textfield(-name=>'len', -size=>6, -maxlength=>6),
'Stoppuhr',
button(-name=>'Start',-value=>'Start', -onClick=>'startt()'),
&help('len')]),
td(['&nbsp;',checkbox(-name=>'now', -label=>'Jetzt - oder am'),
popup_menu(-name=>'dday', -values=> ['W','N','E'],
-labels=> {'W' =>'Werktag','N'=>'Nacht','E'=>'Sonntag'}),
'&nbsp;','&nbsp;','&nbsp;']),
td(['&nbsp;','oder um <span class="sm"><i>hh[:mm[:ss]]</i></span> ',
textfield(-name=>'hour', -size=>8, -maxlength=>8),
'am <span class="sm"><i>dd[.mm[.jj]]</i></span> &nbsp; ',
textfield(-name=>'day', -size=>10, -maxlength=>10),'&nbsp;']),
]),
!;
} # else mix
$t .= q!Tr([
td({-colspan=>6},hr),
td({-bgcolor=>'#ff80c0', colspan=>6, align=>'center'},b('Ausgabe')),
td({-bgcolor=>'#ffc080'},['&nbsp;',
submit('tab','Tabelle'),
!;
if ($mix) {
$t .= q!
'mit',
popup_menu(-name=>'cost', -values=> ['0','1'],
-labels=> {'0' =>'Nur Gesprächskosten','1'=>'Mit Gebühren/Monat'}),
checkbox(-name=>'all',label=>'Alle'),
&help('tabm'),hidden(-name=>'mix', value=>$mix)]),
!;
}
else {
$t .= q!'&nbsp;','&nbsp;','&nbsp;',
&help('tab')]),
!;
}
$t .= q!
td({-bgcolor=>'#87cefa'},[ '&nbsp;',
submit('graf','Grafik'),
'Größe',
popup_menu(-name=>'swidth', -values=> ['1024','800','640'],
-labels=> {'1024' =>'groß','800'=>'mittel','640'=>'klein'}),
checkbox(-name=>'_3D',label=>'3D'),
&help('grafm')]),
!;
if (!$mix) {
$t .= q!
td({-bgcolor=>'#ffdead'},[
'&nbsp;',
submit('graf','Tag'),
"Tagesverlauf",
'&nbsp;',
'&nbsp;',
&help('tag')]),
td({-bgcolor=>'#eeb0ee'},[
'&nbsp;',
submit('graf','Woche'),
"Wochenverlauf",
'&nbsp;','&nbsp;','&nbsp;'
]),
!;
}
$t .= q!
td({-colspan=>6},hr),
td(['&nbsp;','der besten ',
textfield(-name=>'best', -size=>2, -maxlength=>2),
'<b>Provider</b>',
,'&nbsp;',
&help('prov')])
]),
Tr(
td(['&nbsp;','oder nur Provider']),
td(textfield(-name=>'prov', -size=>12, -maxlength=>100)),
td(checkbox(-name=>'busi', -label=>'Business Provider zeigen')),
td(['&nbsp;','&nbsp;'])
),
Tr(
td(['&nbsp;','oder nicht Provider']),
td({-colspan=>2},textfield(-name=>'xprov', -size=>12, -maxlength=>100)),
td(['&nbsp;','&nbsp;'])
),
Tr(
td(['&nbsp;','mit Taktdauer <=',
popup_menu(-name=>'takt', -values=> ['9999','60','30','10','1'],
-labels=> {'9999'=>'Alle','60' =>'1 m','30'=>'30 s','10'=>'10 s','1'=>'1 s'}),
reset('Reset'),
!;
if ($mix) {
$t .= q!submit('clear','Löschen'),!;
}
else {
$t .= q!defaults('Löschen'),!;
}
$t .= q!
'&nbsp;'])
)
)))),
end_form);
!;
eval($t);
print q!
<DIV ID="tip">
<IMG SRC="rliob.gif" WIDTH="1" HEIGHT="1"><IMG SRC="rob.gif" WIDTH="1"
HEIGHT="1"><IMG SRC="rreob.gif" WIDTH="1" HEIGHT="1"><IMG SRC="rli.gif"
WIDTH="1" HEIGHT="1"><IMG SRC="rre.gif" WIDTH="1" HEIGHT="1"><IMG
SRC="rliun.gif" WIDTH="1" HEIGHT="1"><IMG SRC="run.gif" WIDTH="1"
HEIGHT="1"><IMG SRC="rreun.gif" WIDTH="1" HEIGHT="1">
</DIV>!;
# uff
}
# prefix (501 = 10401) => 01-5
sub prefix2provider {
my $n = $_[0];
if($_VBNS) {
$n =~ s/^0?10//;
if (length($n) == 3) {
$n=100+$n ;
$n =~ s/^(\d)(\d\d)/$2_$1/;
}
}
$n;
}
sub provider2prefix {
my $n = $_[0];
if($_VBNS) {
if ($n =~ /(\d\d)_(\d)/) {
$n = "$2$1";
}
}
else {
$n =~ s/^0?10//;
if (length($n) == 3) {
$n=100+$n;
}
}
$n;
}
sub del_vbn {
my @p = split(/,/, $_[0]);
my (@np, $ret);
foreach (@p) {
$_=provider2prefix($_);
push(@np, $_);
}
$ret=join(',',@np);
$ret;
}
sub parse_len {
my $l = $_[0];
if ($l =~ /(\d+)\s*m\s*(\d+)\s*s?/) {
60*$1+$2;
}
elsif ($l =~ /(\d+)\s*m/) {
60*$1;
}
elsif ($l =~ /(\d+)/) {
$1;
}
else {
$DEFLEN;
}
}
sub _call_isdnrate {
my ($lines, @args) = @_;
unless (param('busi') || param('list')) {
my $found=0;
foreach (@args) {
if (/-x\d/) {
s/-x/-xB,/;
$found=1;
last;
}
}
push(@args, '-xB') if (!$found);
}
print "<pre>@args</pre>" if($debug);
if ($use_sockets) {
socket(SOCK, PF_UNIX, SOCK_STREAM, 0) || die("socket: $!");
connect(SOCK, sockaddr_un($server)) || die("connect: $!");
SOCK->autoflush(0);
shift(@args);
foreach (@args) {
print SOCK "$_ ";
}
SOCK->autoflush(1);
my $line;
while (defined($line = <SOCK>)) {
push(@$lines, $line);
}
close(SOCK);
}
else {
open(PIPE, "-|") || exec(@args) == 0 or die "Can't @args: $?";
@$lines = <PIPE>;
close(PIPE);
}
}
sub checkp {
my ($what) = $_[0];
my $v = param($what);
my $x;
if ($what eq 'day') {
$x = $v =~ /^\d\d?(\.\d\d?(\.(\d\d|\d{4}))?)?$/ ? $v : '';
}
elsif ($what eq 'hour') {
$x = $v =~ /^\d\d?(:\d\d?){0,2}$/ ? $v : '';
}
elsif ($what eq 'best') {
$x = $v =~ /^\d+$/ ? $v : '';
}
elsif ($what eq 'from') {
$x = $v =~ /^\d+$/ ? $v : '';
}
elsif ($what =~ /x?prov/) {
$v =~ s/\s+/,/g;
$x = $v =~ /^\w+(,\w+)*$/ ? $v : '';
$x=&del_vbn($x);
}
elsif ($what =~ /oft\d+/) {
$x = $v =~ /^\d+$/ ? $v : '';
}
param($what, $x);
$x;
}
sub call_isdnrate {
my ($hour, $day);
my ($lines) = @_;
my ($now, $tel, $from, $best, $prov,$takt, $sort);
if (defined(%towns) && $towns{param('town')} =~ /\d+/ && !$mix) {
param('country', '') if(param('country'));
$tel = '0' . $towns{param('town')};
param('tel',$tel);
}
elsif (length(param('country'))>1&&param('country') !~ /--/ && !$mix) {
param('tel','');
param('town', '') if(param('town'));
$tel=param('country');
}
else {
param('country','') if (param('country') =~ /--/);
param('town','') if (param('town') =~ /--/);
$tel = param('tel');
}
$tel =~s/ /_/g; # preserv spaces
return if($tel eq '');
my @args=($ISDNRATE,"-H", $tel);
unless (param('now')) {
push(@args, "-h$hour") if (($hour=checkp('hour')) ne'');
push(@args, "-d$day") if ($day=($day=checkp('day'))||$hour ne''?$day:param('dday'));
}
if ($prov=checkp('xprov')) {
push(@args, "-x$prov");
param('prov','');
}
elsif ($prov=checkp('prov')) {
push(@args, "-p$prov");
}
if ($from=checkp('from')) {
push(@args, "-f$from") ;
}
if (param('graf') && !$mix) {
push(@args,$weekly? '-G98':$daily?'-G97':'-G99');
}
else {
push(@args, '-L'); # list
}
push(@args,"-t$takt") if(($takt=param('takt')) <= 60 && !$info && $takt>0);
$len=&parse_len(param('len')) || $DEFLEN;
$len=&min($len, param('graf') ? 1200 : 3600);
$len=&max($len, 10) if (param('graf'));
param('len', $len);
push(@args, "-l$len");
if ($sort=param('sort')) {
push(@args, "-S$sort");
$sortv=$sort eq 'v';
}
param('sort', '');
if (!$mix) {
$best=checkp('best') || $DEFBEST;
$best=&min(30,$best) if(param('graf'));
param('best', $best);
push(@args, "-b$best") ;
}
_call_isdnrate($lines, @args);
}
sub round {
$_[0] = sprintf("%.02f", $_[0]);
}
sub round0 {
$_[0] == 0 ? '<tt>--.--</tt>': sprintf("%.02f", $_[0]);
}
sub eval_cost {
my ($pnum, $ch, $maxch) = @_;
my (@lines, $f);
$pnum = provider2prefix($pnum);
my @args=($ISDNRATE,"-p$pnum -XGF");
_call_isdnrate(\@lines, @args);
chomp($lines[0]);
$f = (split(/ +/,$lines[0]))[3];
if ($f) {
my ($Cost, $Ch, $ret, $MaxCh);
$Ch = $ch;
$MaxCh = $maxch;
$f =~ s/([a-zA-z]\w*)/\$$1/ig; # vars
$f =~ s/`//g; # no` backticks
$ret = eval($f);
print pre("$pnum: $f ($Cost)") if($debug);
($ret, round($Cost));
}
else {
(0,0);
}
}
sub call_mix {
my ($lines) = @_;
my ($n, $N);
my (%pcost, %ptot, $ch, %pstring, %lines);
my ($pnum, $prov, $cur, $charge, $rest);
# kill empty
foreach $n (0..$mix-1) {
next if(param("tel$n") && checkp("oft$n") && param("len$n"));
# $n is empty
foreach $N ($n+1..$mix-1) {
if(param("tel$N") && checkp("oft$N") && param("len$N")) {
foreach ('tel','oft','len','dday') {
param("$_$n", param("$_$N"));
param("$_$N", '');
} #for
last;
}#if
}
}
$N=0;
foreach $n (0..$mix-1) {
my(@one, $len, $oft, $first, $ca, $totlen, $o, $olen, $ooft);
last unless(param("tel$n") && ($ooft=$oft=param("oft$n")) && ($len=param("len$n")));
param('tel', param("tel$n"));
param('dday', param("dday$n"));
$first=1;
$o=1;
if ($len =~ /^~(.*)/) {
$ca=1;
$olen=parse_len($1);
$o = min(20,$oft);
$oft = int($oft/$o) || 1;
}
$totlen=0;
while(1) {
if ($ca) {
$len = max(10,min(1200,int($olen/2 + rand($olen))));
if ($totlen+$oft*$len+10 >= $ooft*$olen) {
if ($oft > 1) {
$oft =int($oft/2) || 1;
next;
}
$len = int(($ooft*$olen-$totlen)/$oft);
}
}
$totlen += $oft*$len;
#print(pre("O=$o, OFT=$oft, LEN=$len, OLEN=$olen,TOT=$totlen\n"));
param('len', $len);
@one=();
&call_isdnrate(\@one);
shift(@one); # -H
shift(@one); # empty
foreach (@one) {
($pnum, $prov,undef,undef,undef, $cur, $charge) = &split_line($_);
$ptot{$pnum} += ($ch=&round($charge * $oft));
$pcost{$pnum}[$N]+= $ch;
if ($first) {
$pstring{$pnum} = $prov;
$lines{$pnum}++;
} # $first
}
last if($ca && $totlen >= $ooft*$olen);
last unless($ca);
$first=0;
}
$N++;
}
param('mix', &min($N+5,$mix));
$len=$N+1;
my($ign1, $ign2);
foreach $pnum (keys(%lines)) {
$pstring{$pnum} = '*) '.$pstring{$pnum} , $ign1++ if($lines{$pnum}<$N);
}
my ($maxch, $i);
if (param('tab')) {
if (param('cost') >0) {
foreach $pnum (keys(%ptot)) {
next if($pstring{$pnum} =~ m/^\*\*/ && !param('all'));
foreach (@{ $pcost{$pnum} }) {
$ch = round0($_);
$maxch=max($maxch, $ch);
}
$ch = $ptot{$pnum};
my ($ret, $cost) = eval_cost($pnum, $ch, $maxch);
$ign2++, $pstring{$pnum} = '**) '.$pstring{$pnum} if($ret == -1);
$pcost{$pnum}[$N] = $cost;
$ptot{$pnum} += $cost;
}
$N++;$len++;
}
$n=0;
foreach $pnum (sort { $ptot{$a} <=> $ptot{$b} } (keys(%ptot))) {
next if($pstring{$pnum} =~ m/^\*/ && !param('all'));
last if(++$n > param('best'));
$rest = ' ';
for $i (0..$N-1) {
$ch = $pcost{$pnum}[$i];
$ch = round0($ch) if($ch>0);
$rest .= qq(<td align="right"><font size=-1><b> $ch </b></font></td>);
}
$prov = $pstring{$pnum};
$ch = $ptot{$pnum};
$pnum=prefix2provider($pnum);
push(@$lines, "$pnum;$prov;;;;$cur;$ch;$rest");
}
}
else { # graf
my($c1);
if (param('cost') > 0) {
foreach $pnum (keys(%ptot)) {
$maxch=0;
$ch=0;
foreach $n (0..$N-1) {
$ch += ($c1=0+&round($pcost{$pnum}[$n]));
$maxch=max($maxch, $c1);
}
my ($ret,$cost) = eval_cost($pnum, $ch, $maxch);
$pstring{$pnum} = '** '. $pstring{$pnum}, $ign2++ if($ret == -1);
push(@{$pcost{$pnum}}, $cost);
}
$N++; $len++;
}
$n=0;
foreach $pnum (keys(%ptot)) {
next if($pstring{$pnum} =~ m/^\*/ && !param('all'));
last if(++$n > param('best'));
push(@$lines, "@ $pnum"); # start
$ch = 0;
foreach $i (0..$N-1) {
$ch += 0+&round($pcost{$pnum}[$i]);
push(@$lines, "$i $ch");
}
push(@$lines, "$N $ch");
$prov = $pstring{$pnum};
push(@$lines, "@---- $cur $prov"); # end
}
}
($ign1, $ign2);
}
sub dig2str {
$_[0] > 3 ? $_[0] : ('Ein','Zwei','Drei')[$_[0]-1];
}
sub print_ign {
my ($ign1, $ign2) = @_;
print(p,"*) ", dig2str($ign1),' Provider biete',$ign1>1?'n':'t',
' nicht alle gewünschten Zielorte an. ') if ($ign1);
print(br,"**) ", dig2str($ign2),' Provider erreich',$ign2>1?'en':'t',
' den Mindestumsatz nicht. ') if ($ign2);
print (p,'Um die nicht angezeigten Provider zu sehen, wählen Sie bitte ',
i('Alle'),'.') if(($ign1 || $ign2) && !param('all'));
}
sub print_table {
my (@lines);
my($pnum, $prov, $cur, $charge, $bgcolor, $i, $rest, $url, $ign1, $ign2);
if ($mix) {
($ign1, $ign2) = &call_mix(\@lines);
}
else {
&call_isdnrate(\@lines);
$lines[0] = &fmt_date($lines[0]);
print(p({-class=>'t'},$lines[0]));
shift(@lines); # -H
shift(@lines); # empty
}
if ($sortv) {
@lines=sort {
my ($aa,$bb);
($aa)=split(/;/,$a);
($bb)=split(/;/,$b);
prefix2provider($aa) cmp prefix2provider($bb);
} @lines;
}
(undef,undef,undef,undef,undef,$cur)=&split_line($lines[0]);
print("<table cellpadding=3 cellspacing=0 bgcolor=\"white\" border=1><tr>");
if ($mix) {
foreach ('Nr.', 'Provider',$cur,
' % <SUP>1)</SUP>') {
print("<th>$_</th>");
}
for($i=1;$i<$len-(param('cost')>0);$i++) {
print("<th>$i</th>");
}
print('<th>Gebühren <SUP>2)</SUP></th>') if (param('cost')>0);
}
else {
print("<th>");
$url = self_url;
$url =~ s/&sort=.?//g;
print(a({-href=>$url ."&sort=v"}, 'Nr.'));
print("</th><th>");
print(a({-href=>$url ."&sort=n"}, 'Provider'));
print("</th><th>");
print(a({-href=>$url}, $cur));
print("</th>");
foreach ('- % <SUP>1)</SUP>', ' /min <SUP>2)</SUP>',
'Schw. <SUP>3)</SUP>', 'Takt <SUP>4)</SUP>',
'Zone','Tag','Zeit') {
print("<th>$_</th>");
}
}
print("</tr>\n");
$i=0;
my $max_ch=0;
foreach (@lines) {
(undef,undef,undef,undef,undef,undef,$charge) = &split_line($_);
$max_ch = $charge if($charge > $max_ch);
}
foreach (@lines) {
my ($mind,$unit,$mp,$zone,$dur,$day,$time,$takt, $schw);
($pnum,$prov,$zone,$day,$time,$cur,$charge,$mind,$unit,$dur,$mp,$takt) = &split_line($_);
$takt =~ s/(\d+\.\d?)0+/$1/g;
my($d1, $d2) = split(/\(/,$day);
$d2 =~ s/\s/&nbsp;/g;
$day=$d2 ? join('(',$d1,$d2) : $d1;
$time ||= '&nbsp;';
$zone ||= '&nbsp;';
if (!$mix) {
$mind=round($mind); $mp=round($mp);
$schw = round($charge-($mind+$mp*$len/60));
if ($schw > 0 && $charge > 0) {
$schw .= ' = '. int($schw/$charge*100) .'%';
}
else {
$schw = '&nbsp';
}
$mp = "$mind + $mp/m"if($mind > 0);
}
else {
$rest=$mind;
}
$charge=&round($charge);
$url{$pnum}=self_url ."&info=$pnum";
$url=a({-href=>$url{$pnum}}, $prov);
$bgcolor=++$i&1?' bgcolor="#fffff0"':'';
print(qq(<tr$bgcolor><td>$pnum</td><td>$url</td><td align="right">$charge</td>));
my $perc = $max_ch > 0 ? int(($max_ch - $charge)/$max_ch*100) : ' ';
print(qq(<td align="center"><font size="-1">$perc</font></td>));
if ($mix) {
print($rest);
}
else {
my $ali = 'center';
my $j;
foreach($mp, $schw, $takt,$zone,$day,$time) {
print(qq(<td align="$ali"><font size="-1">$_</font></td>));
$ali = 'left' if(++$j == 2);
}
}
print("</tr>\n");
}
print("</table>\n",p);
print(span({-class=>'t'},
a({-name=>'hint'},'<SUP>1)</SUP>'), ' Prozentwert Ersparnis zum teuersten ',
'angezeigten Provider.'));
if ($mix) {
print(br,span({-class=>'t'},
'<SUP>2)</SUP>', ' bezogen auf den PTA Minimumtarif')) if (param('cost')>0);
print_ign($ign1, $ign2);
}
else {
print(span({-class=>'t'},
,br,
'<SUP>2)</SUP>', ' Die aktuellen Verbindungspreise können durch die Taktung ',
'höher sein, als die theoretischen Minutenpreise. Das fällt besonders ',
'eklatant auf, wenn Sie als Zeitdauer ',i('1m'),' wählen.',br,
'<SUP>3)</SUP> Der Schwund ist der durch Taktung oder Mindestentgelt ',
'entstehende Gesprächskostenanteil.',br,
'<SUP>4)</SUP> Bitte beachten Sie, daß Wechsel in der Taktung ',
'z.B. um 18<SUP>00</SUP> in der Tabelle ',
'nicht angezeigt werden, diese aber sehr wohl in der Berechnung ',
'berücksichtig werden.',br,
'Eine schöne Übersicht über die Taktung erhalten Sie auch mit',
i('Grafik'),'.'));
}
}
sub split_line {
my @a = split(/;/, $_[0]);
$a[0]=prefix2provider($a[0]);
@a;
}
sub fmt_date {
my %days=(Mon=>'Mo',Tue=>'Di',Wed=>'Mi',Thu=>'Do',Fri=>'Fr',Sat=>'Sa',Sun=>'So');
my %mons=(Mar=>'Mär',May=>'Mai',Oct=>'Okt',Dez=>'Dez');
my ($db, $m, $d, $t, $y, $k);
if ($_[0] =~ m/(\d+) Sekunden/) {
$k = $&;
$d = $1;
if ($d >= 60) {
$m = int($d / 60);
$d = $d % 60;
my $mn = $m > 1 ? 'n' : '';
my $sn = $d > 1 ? 'n' : '';
my $st = $d ? " $d Sekunde$sn": '';
$_[0] =~ s/$k/$m Minute$mn$st/;
}
}
if ($_[0] =~ s/(\w{3}) (\w{3}) \s?(\d\d?) (\S{8}) (\d{4})//) {
($db, $m, $d, $t, $y) = ($1,$2,$3,$4,$5);
$db=$days{$db};
$m=$mons{$m} ? $mons{$m} : $m;
$t = '' if($daily);
$_[0] .= "$db $d. $m $y um $t" unless($weekly);
}
$_[0];
}
sub min {
$_[0] < $_[1] ? $_[0] : $_[1];
}
sub max {
$_[0] > $_[1] ? $_[0] : $_[1];
}
sub fmts {
my($h,$m,$s);
$s = $_[0];
$h = int($s/3600); $s -= $h*3600; $h='' unless($h); $h .= 'h' if($h);
$m = int($s/60); $s -= $m*60; $m='' unless($m);$m .= 'm' if($m);
$s='' unless($s);$s .= 's' if($s);
"$h$m$s";
}
use vars qw($H $xo $yo $xs $ys $sy $DEP %pc);
sub bylast { $pc{$a}[$#{$pc{$a}}] <=> $pc{$b}[$#{$pc{$b}}] }
sub byav {
my ($v, $sa, $sb, $i);
$i=0;
foreach $v (0..$#{ $pc{$a} }) {
$sa += $pc{$a}[$v] * ($i>=8&&$i<18?5:2);
$i++;
}
$i=0;
foreach $v (0..$#{ $pc{$b} }) {
$sb += $pc{$b}[$v] * ($i>=8&&$i<18?5:2);
$i++;
}
$sa <=> $sb;
}
sub make_graf {
my ($W,$LEG,$LIN,$white,$black,$lgrey,$dgrey,$llgrey,$borcol,$tempf,$i,$trans);
my (@lines, $n, $dx, @rawcolors, @colors, %pstring, %unused);
my ($prov, $cur, $charge, $pnum, %pt, $r, $g, $bl);
my ($swidth, %dim);
$swidth=param('swidth')||1024;
%pc =();
# dimensions
%dim = (1024=>[600,300,190], 800=>[500,240,180],640=>[300,200,180]);
$W=$dim{$swidth}[0];
$H=$dim{$swidth}[1];
$LEG=$dim{$swidth}[2];
$DEP=$H/2;
$LIN=10;
$dx = 10;
$xo=35; $yo=20;
# make some colors
$n=0;
foreach $g ('00','33','66','99','aa') {
foreach $r ('00','33','66','99','aa','dd') {
foreach $bl ('00','33','66','99','aa','dd') {
$i= ++$n*17 % (6*6*5);
next if($r eq $g && $r eq $bl);
push(@rawcolors, "$i-0x$r-0x$g-0x$bl");
}
}
}
@rawcolors=sort(@rawcolors);
# get data
my ($text);
my ($ign1, $ign2);
if ($mix) {
($ign1, $ign2) = &call_mix(\@lines);
}
else {
&call_isdnrate(\@lines);
}
foreach (@lines) {
if (/^\@--+ (\S+) (\S.*)/) { # end
if (($pnum && $#{ $pc{$pnum} } == 0) || $2 eq '(null)') { # any data
pop( @{ $pt{$pnum} } );
pop( @{ $pc{$pnum} } );
delete $pstring{$pnum};
$unused{$pnum}++;
next;
}
$pstring{$pnum} = $2;
$cur=$1;
if ($daily || $weekly) {
push( @{ $pt{$pnum} }, $daily?24:7*24); # time
push( @{ $pc{$pnum} }, $pc{$pnum}[0]); # charge
}
$url{$pnum}=self_url ."&info=$pnum";
$pnum = '';
}
elsif (/^\@ (\d+)/) { # start
$pnum=prefix2provider($1);
if (!$daily && !$weekly && !$mix) {
push( @{ $pt{$pnum} }, 0); # time
push( @{ $pc{$pnum} }, 0); # charge
}
}
elsif (/(\d+) (\d+(\.\d+)?)/ && $pnum) {
push( @{ $pt{$pnum} }, $1); # time
push( @{ $pc{$pnum} }, $2); # charge
}
elsif (/ekunden/) { # -H text
$text = $_;
}
}
# info
$text = &fmt_date($text);
print(p({-class=>'t'},$text));
# sorting cheapest 1.
my(@all, $sortfunc);
my ($p, $max, $dy, $my, $min);
$max=$n=0;
$min = 99999;
$sortfunc = $daily||$weekly ? \*byav : \*bylast;
foreach $p (sort $sortfunc (keys(%pstring))) {
# calc max
foreach $i (0 .. $#{ $pc{$p} }) {
$max = $pc{$p}[$i] if ($pc{$p}[$i] > $max);
$min = $pc{$p}[$i] if ($pc{$p}[$i] < $min);
}
push(@all, $p);
last if (++$n >= param('best'));
}
return unless($n);
@all=reverse(@all);
my ($font, $tx, $lw);
$font = $swidth==1024 ? GD::gdMediumBoldFont : GD::gdSmallFont;
$lw = int($DEP/$n);
$DEP=$lw*$n;
if (!param('_3D')) {
$DEP=0;$lw=2;
$LIN=50;
$LEG+=50;
}
# make img
my $im = new GD::Image($W+$LEG+$DEP, $H+$DEP);
# alloc colors
my(%rcols);
my $c = 0;
foreach $p (@all) {
$c=provider2prefix($p) % $#rawcolors;
(undef, $r, $g, $b) = split(/-/, $rawcolors[$c]);
# $pstring{$p} = "$r $g $b";
$rcols{$p} = $im->colorAllocate(eval($r), eval($g), eval($b));
}
$white = $im->colorAllocate(255,255,255);
$trans = $im->colorAllocate(0xff,0xff,0xfe);
$im->transparent($trans);
$llgrey = $im->colorAllocate(0xf0,0xf0,0xf0);
$lgrey = $im->colorAllocate(0xe0,0xe0,0xe0);
$dgrey = $im->colorAllocate(0x80,0x80,0x80);
$black = $im->colorAllocate(0,0,0);
$borcol =$im->colorAllocate(0xff,0xff,0xc0);
# all transparent
$im->filledRectangle(0,0,$W+$LEG-1+$DEP,$H-1+$DEP,$trans);
# back
my $poly = new GD::Polygon;
$poly->addPt($xo+$DEP,0);
$poly->addPt($xo+$DEP,$H-$yo);
$poly->addPt($W+$DEP,$H-$yo);
$poly->addPt($W+$DEP,0);
$im->filledPolygon($poly, $white);
# left side
if ($DEP) {
$poly = new GD::Polygon;
$poly->addPt($xo+$DEP,0);
$poly->addPt($xo+$DEP,$H-$yo);
$poly->addPt($xo,$H+$DEP-$yo);
$poly->addPt($xo,$DEP);
$im->filledPolygon($poly, $llgrey);
# floor
$poly = new GD::Polygon;
$poly->addPt($xo+$DEP,$H-$yo);
$poly->addPt($xo,$H+$DEP-$yo);
$poly->addPt($W,$H+$DEP-$yo);
$poly->addPt($DEP+$W,$H-$yo);
$im->filledPolygon($poly, $llgrey);
}
# draw axis region
$poly = new GD::Polygon;
$poly->addPt(0,$DEP+0);
$poly->addPt(0,$DEP+$H-1);
$poly->addPt($W-1,$DEP+$H-1);
$poly->addPt($DEP+$W-1,$H-1);
$poly->addPt($DEP+$W-1,$H-1-$yo);
$poly->addPt($W-1,$DEP+$H-$yo);
$poly->addPt($xo,$DEP+$H-$yo);
$poly->addPt($xo,$DEP+0);
$poly->addPt($DEP+$xo,0);
$poly->addPt($DEP,0);
# borders
$im->rectangle($DEP+$xo,0,$DEP+$W-1,$H-$yo,$black);
$im->line($W,$DEP,$W+$DEP,0,$black);
$im->line($xo,$H+$DEP-$yo,$xo+$DEP,$H-$yo,$black);
$im->filledPolygon($poly, $borcol);
$im->polygon($poly, $black);
$im->line($W-1, $DEP+$H-1, $W-1, $DEP+$H-$yo, $black); # last x-tick
my ($x,$y);
# y-scaling
($sy,$my,$dy) = _best_ends($min, $max,4..6);
$dy = ($my-$sy)/$dy;
$ys = ($H-$yo)/($my-$sy);
# y-axis
my $yaxis = sub {
my($fg) = $_[0];
my($col) = $fg?$lgrey:$dgrey;
for ($i = $sy; $i <= $my; $i+=$dy) {
$y = &_y($i);
$im->line($i<$my&&$i?$xo/2:0, $y,$xo,$y,$black) if($fg); # tick
if($i<$my && $i>$sy) {
if($fg) {
$im->line($xo+1, $y,$W-1,$y,$col);
}
else {
$im->line($xo+1, $y,$xo+1+$DEP,$y-$DEP,$col);
$im->line($DEP+$xo+1, $y-$DEP,$DEP+$W-1,$y-$DEP,$col);
}
}
$im->string($font, 4, $y+2, $i, $black); # price
}
$im->string($font, 4, &_y($my)+3+$font->height, $cur, $black);
}; #yaxis
# x-scaling
if ($weekly) {
$len=7*24+1;
$dx=1;
}
elsif ($daily) {
$len=25;
$dx=2;
}
elsif ($mix) {
$dx=1;
}
else {
$dx = $len>240 ? 60 : $len>=120 ? 20 : 10;
}
$xs = ($W-$xo)/($len-1);
# x-axis
my $xaxis = sub {
my($fg) = $_[0];
my @days= qw(Mo Di Mi Do Fr Sa So);
my($col) = $fg?$lgrey:$dgrey;
for ($i = 0; $i < $len-1; $i+=$dx) {
if (($weekly && $i%8==0) || !$weekly) {
$x = &_x($i);
$im->line($x, $DEP+$H-$yo/2, $x, $DEP+$H-$yo, $black); # tick
if ($i) {
if($fg) {
$im->line($x, $DEP+$H-$yo, $x, $DEP, $col);
}
else {
$im->line($DEP+$x, $H-$yo, $DEP+$x, 0, $col);
$im->line($x, $DEP+$H-$yo, $DEP+$x, $H-$yo, $col);
}
}
}
next unless($fg);
if ($weekly) {
$tx='';
if ($i % 8==0) {
$tx = $i % 24 == 0 ? $days[$i/24] : $i % 24;
}
}
elsif ($daily) {
$tx = $i;
}
elsif ($mix) {
if ($i == $len-2 && param('cost') > 0) {
$tx = 'Geb.';
}
else {
$tx = $i+1;
$tx .= '>'. substr(param("tel$i"),0,4) if($len<=10);
}
}
else {
$tx = $i == $dx*(int($len/$dx)-1) ? $i ." s" : $i; # nn s
}
$im->string($font, &_x($i)+3, $DEP+$H-$yo+2, $tx, $black);
}
}; # xaxis
# data
&$yaxis(0);
&$xaxis(0);
#goto nodata;
my ($ii,$k,$x2,$y2,$col, $dep);
$dep=$DEP-$lw if($DEP);
foreach $p (@all) {
foreach $i (0..$#{ $pc{$p} }-1) {
$ii=$i+1;
$x = &_x($pt{$p}[$i]);
$x2 = &_x($pt{$p}[$ii]);
$y = &_y($pc{$p}[$i]);
$y2 = &_y($pc{$p}[$ii]);
if ($i==0 && $y2 && $DEP) {
for $k ($dep ..$dep+$lw-2) {
$im->line($k+$x, -$k+$y-1, $k+$x,-$k+&_y($sy)-3,
$k==$dep ?$rcols{$p} :$lgrey);
}
}
$im->filledRectangle($dep+$x,-$dep+$y,$dep+$x2,-$dep+&_y($sy),$lgrey) if(0);
for ($k=$dep+$lw-1;$k>=$dep;$k--) {
$col = $k>$dep||!$DEP?$rcols{$p}:$black;
if ($pt{$p}[$i]+1 == $pt{$p}[$ii] && !$daily && !$weekly && !$mix) {
$im->line($k+$x, -$k+$y,$k+$x2, -$k+$y2, $col);
}
else {
$im->line($k+$x, -$k+$y, $k+$x2, -$k+$y,$col);
$im->line($k+$x2,-$k+$y, $k+$x2, -$k+$y2,$col);
}
}
}
if ($DEP) {
for $k ($dep ..$dep+$lw-2) {
$im->line($k+$x2, -$k+$y2-1, $k+$x2,-$k+&_y($sy)-3,
$k==$dep ?$rcols{$p} :$lgrey);
}
}
$dep-=$lw if($DEP);
}
nodata:
&$yaxis(1);
&$xaxis(1);
#goto nolegend;
# legend
my ($ndy, $sty, $mapx, $mapy, @map);
$y=$H-$yo+$DEP;
$i=min($n, $y/($font->height + 1));
$dep=$lw/2;
foreach $p (reverse(@all)) {
$ndy = ($font->height + 1)*$i;
$sty = &_y($pc{$p}[$#{$pc{$p}}])-$dep;
$y = max($ndy,min($y,$sty));
$im->dashedLine($W+2+$dep,$sty, $W+$LIN+$DEP,$y, $rcols{$p});
$im->dashedLine($W+2+$dep+1,$sty-1, $W+$LIN+$DEP+1,$y-1, $rcols{$p});
$im->string($font, $mapx=$W+$LIN+5+$DEP, $mapy=$y-$font->height/2, "$p ".$pstring{$p}, $rcols{$p});
&add_map($p, $mapx, $mapy, $font->height, $W+$LEG+$DEP, \@map);
$y -= $font->height+1;
$dep+=$lw if($DEP);
$i--;
}
nolegend:
# front box lines
$im->line($xo+1,$DEP,$W-1,$DEP,!$DEP?$black:$lgrey);
$im->line($W-1,$DEP,$W-1,$DEP+$H-1-$yo,!$DEP?$black:$lgrey);
$im->line($W,$DEP,$DEP+$W-1,1,$lgrey) if($DEP);
$font = GD::gdSmallFont;
$im->filledRectangle($DEP+$xo+5,10,
$DEP+$xo+9+$font->width*length($LOGO),13+$font->height,$llgrey);
$im->string($font,$DEP+$xo+7,12,$LOGO,$black);
# write file
$tempf = `$MKTEMP -q "$tempdir/irXXXXXX"`;
chomp($tempf);
rename($tempf, "$tempf.png") || print(p,"Can't rename $tempf");;
$tempf = "$tempf.png";
open(TEMP,">$tempf") || print(p,"Can't write $tempf");
print(TEMP $im->png);
close(TEMP);
# ret img tag
$tempf =~ s!^$tempdir/!!;
print(qq(<MAP NAME="map">\n));
foreach (@map) {
print("$_\n");
}
print(qq(</MAP>\n));
print(img({-src=>"$tempdir_url/$tempf", -height=>$H+$DEP, -border=>0,
-width=>$W+$LEG+$DEP, -align=>'CENTER', -usemap=>'#map'}),br);
if ($mix) {
print_ign($ign1, $ign2);
}
}
sub add_map {
my ($p, $mapx, $mapy, $height, $width, $mref) = @_;
my($xu,$yu, $url);
$mapx=int($mapx);
$mapy=int($mapy);
$xu=int($width-2);
$yu=int($mapy+$height);
$url=$url{$p};
push(@$mref,qq(<AREA SHAPE="RECT" COORDS="$mapx,$mapy,$xu,$yu" href="$url"}>));
}
sub _y {
$DEP+$H-$yo-($_[0]-$sy)*$ys;
}
sub _x {
$xo+$_[0]*$xs;
}
# del gifs older then 1 hour
sub
clean_up {
my(@All, $file, $now);
opendir(DIR, $tempdir);
@All = readdir(DIR);
closedir(DIR);
$now=time();
foreach $file (@All) {
if($now - (stat("$tempdir/$file"))[9] > 3600 && $file =~ /^ir.{6}\.(gif|png)/) {
unlink("$tempdir/$file");
}
}
}
sub get_info {
my ($pnum, $sect, $bsp) = @_;
my (@lines, $t);
if($sect eq 'NR') {
$pnum=~s/_.*$//;
return $pnum;
}
$pnum = provider2prefix($pnum);
my @args=($ISDNRATE,"-p$pnum -X$sect");
_call_isdnrate(\@lines, @args);
chomp(@lines);
$t = (split(/ +/,$lines[0]))[3];
shift(@lines);
$t .= ' '. join(' ', @lines) if(@lines);
if ($bsp == 2 && $t) {
my $ref=$t;
$ref = "mailto:$ref" if($sect eq 'EMail');
a({-href=>$ref,-target=>'blank'},$t);
}
else {
$t ? $t : $bsp ? '&nbsp;' : '';
}
}
sub del0 {
$_[0] =~ s/(\d+\.\d{0,2}\d*?)0+/$1/;
$_[0];
}
# info: show info for provider
sub info {
my($pnum) = $_[0];
$info=1;
my(@lines, $l, $prov, $cur, $charge, $rest, $day, $text, $fromgraf, $sav_q);
my (@args);
for $day ('W', 'N') { #
param('day',$day);
for $l (1,140) {
my (@one, $pp);
$pp = provider2prefix($pnum);
@args =("$ISDNRATE", "-HL -p$pp -l$l -d$day");
push(@args, "-f" . param('from')) if(param('from'));
push(@args, param('tel')) if(param('tel'));
push(@args, param('tel0')) if(!param('tel')); # coming from mix
_call_isdnrate(\@one, @args);
# -H & empty
$text = $one[0] unless($text);
print(pre(@one)) if($debug==2);
push(@lines, $one[2]);
}
}
# restore q/Q
# print report
my (@mind,@unit, @dur, @mp, $i, $zone, $day, @time,$takt, $sales);
$i=0;
foreach (@lines) { #TODO
(undef,$prov,$zone,$day,$time[$i],$cur,$charge,$mind[$i],
$unit[$i],$dur[$i],$mp[$i],$takt, $sales) = split_line($_);
$dur[$i]=int($dur[$i]);
$mp[$i]=round($mp[$i]);
$mind[$i]=del0($mind[$i]);
print("$unit[$i], $dur[$i], $mp[$i], $zone") if($debug==2);
$i++;
}
print(h2('Provider',$pnum,'-', $prov),h3('Tarif - Info'));
@time=qw(Tag Tag Abend Abend) unless $time[0];
$text =~ s/^.*?indung //;
$text =~ s/ kost.*//;
print("Bei einem Gespräch ($text) in der Zone '$zone' ",
'sind die Tarifeinheiten ');
my $any=0;
if ($unit[1] != $unit[3]) {
$any=1;
}
if ($any) {
print("unterschiedlich teuer, am Werktag ($time[1]), ",
del0($unit[1]), " sonst ($time[3]) ", del0($unit[3])," $cur.");
}
else {
print('gleich teuer, und zwar ', del0($unit[1]), " $cur",'.');
}
$any=0;
for ($i = 1; $i <= $#dur; $i++) {
if ($dur[0] != $dur[$i]) {
$any=1;
last;
}
}
if (!$any) {
print(br,"Die Impulsdauer ist einheitlich $dur[0]s.");
}
elsif ($dur[1] != $dur[3]) {
print(br,"Die Impulsdauer ist am Tag $dur[1]s, sonst $dur[3]s.");
}
elsif ($dur[0] != $dur[1]) {
print(br,"Der erste Taktimpuls dauert $dur[0]s, dann $dur[1]s, Takt $takt") if($dur[0]);
print(".");
}
if($mind[0] > 0) {
print(br,"Der Provider verrechnet eine Gesprächs-Herstellungsgebühr von ",
"$mind[0] $cur.");
}
if($sales > 0) {
print(br,"Der Provider verrechnet eine Mindestgesprächsgebühr von ",
"$sales $cur.");
}
my $anytag=0;
for ($i = 1; $i <= $#mp; $i++) {
if ($mp[0] != $mp[$i]) {
$anytag=1;
last;
}
}
my($t);
$t="(theoretischen) " if((int($dur[1]) && 60 % $dur[1]) || (int($dur[3]) && 60 % $dur[3]));
print(br,"Das führt in der genannten Zone zu einem ${t}Minutenpreis ");
if($anytag) {
my($m1,$m2, $url);
$m1="$mind[1] + " if($mind[1] > 0);
$m2="$mind[3] + " if($mind[3] > 0);
print("von am Tag $m1$mp[1], sonst $m2$mp[3] $cur.");
$url = self_url;
$url =~ s/&_3D=\w+//;
$url =~ s/&tab=\w+//;
$url =~ s/&now=\w+//;
$url =~ s/&mix=\w+//;
$url =~ s/&graf=\w+//;
$url =~ s/&info=\w+//;
$url =~ s/&d?day=[\w.]+//g;
$url =~ s/&hour=[\w:]+//;
$url =~ s/&\w+=&/&/g;
$url .= "&prov=$pnum&graf=Tag&dday=W";
$url .= "&tel=".param('tel0') if(!param('tel')); # coming from mix
print(p,'Für eine grafische Übersicht zur Gültigkeit der Preise wählen ',
'Sie bitte die ',a({-href=>$url},'Tagesübersicht'),'.');
}
else {
my($m1);
$m1="$mind[3] + " if($mind[3] > 0);
print("von einheitlich $m1$mp[3] $cur.");
}
# probzones
print(p,hrg,h3('Inlands-Zonen (Festnetz / Mobil)'));
&det(1, $pnum);
=pod
goto xxx;
@lines = ();
my ($j,%mp);
undef $text;
for $day ('W', 'N') { #
for ($j=0; $j < @probe_zones; $j++) {
for ($i=$j+1; $i < @probe_zones; $i++) {
my(@one, $pp);
$pp = provider2prefix($pnum);
@args =("$ISDNRATE", "-HL -p$pp -l60 -d$day");
push(@args, "-f" . $probe_zones[$j]);
push(@args, $probe_zones[$i]);
_call_isdnrate(\@one, @args);
# -H & empty
$text = $one[0] unless($text);
(undef, $prov, $zone,undef,undef,$cur, $charge) = &split_line($one[2]);
$mp{qq("$zone"$day)}= &round($charge);
push(@lines, qq("$zone"));
}
}
}
$any=0;
my %uniqz;
$uniqz{$lines[0]}=0;
for ($i = 1; $i <= $#lines/2; $i++) {
if ($lines[0] ne $lines[$i]) {
$any=1;
$uniqz{$lines[$i]}=$i;
}
}
if ($any) {
print("Der Provider $pnum hat im Inland unterschiedliche Zonen ",
"nämlich ", join(', ',sort{$uniqz{$a}<=>$uniqz{$b}}(keys(%uniqz))),'.');
}
else {
print("Der Provider $pnum hat im Inland ein einheitliches Zonenschema.");
}
@lines = ();
for $day ('W', 'N') { #
for ($j=0; $j < @mobil_nums; $j++) {
my(@one, $pp);
$pp = provider2prefix($pnum);
@args =("$ISDNRATE", "-HL -p$pp -l60 -d$day");
push(@args, "-f" . param('from')) if(param('from'));
push(@args, $mobil_nums[$j]);
_call_isdnrate(\@one, @args);
(undef, $prov, $zone,undef,undef,$cur, $charge) = &split_line($one[2]);
$mp{qq("$zone"$day)}= &round($charge);
push(@lines, qq("$zone"));
}
}
$uniqz{$lines[0]}=$j=20;
for ($i = 1; $i <= $#lines/2; $i++) {
if ($lines[0] ne $lines[$i]) {
$uniqz{$lines[$i]}=$i+$j;
}
}
$text =~ s/g von.*/g/;
print(br,$text, "kostet:",br,p);
my $t = q!print(blockquote(table({-border=>1,-cellspacing=>0,-cellpadding=>4},
Tr(th({-rowspan=>2},'Zone'),th({-colspan=>2},$cur)),
Tr(th(['Tag','Nacht'])),!;
foreach $i (sort{$uniqz{$a}<=>$uniqz{$b}} (keys(%uniqz))) {
$t .= q!Tr(td([! . $i . ',"' . $mp{"${i}W"} .'","'. $mp{"${i}N"} . q!"])),!; #"
}
$t .= ')));';
eval($t);
if ((int($dur[1]) && 60 % $dur[1]) || (int($dur[3]) && 60 % $dur[3])) {
print('Hinweis: Durch die Taktung sind die echten Minutenpreise ',
'eventuell höher, als die theoretischen in Klammer angeführten.',p);
}
xxx:
=cut
print (get_info($pnum, 'Zone'));
print(p,hrg,h3('Ausland'));
my $url=url();
$url .= "?det=0&prov=$pnum";
print('Detaillierte Information über die Auslandspreise finden Sie ',
a({-href=>$url}, 'hier'),'.');
print(p,hrg,h3('Gebühren'));
print (get_info($pnum, 'GT')||'Keine');
print(p,hrg,h3('Besonderheiten'));
print (get_info($pnum, 'Special')||'Keine');
print(p,hrg,h3('Kontakt'));
print(blockquote(table({-cellpadding=>3, -bgcolor=>'white', -border=>1, -cellspacing=>0},Tr([
td(['Name',get_info($pnum, 'Name',1)]),
td(['VBN',get_info($pnum, 'NR',1)]),
td(['Adresse',get_info($pnum, 'Address',1)]),
td(['Homepage &nbsp;',get_info($pnum, 'Homepage',2)]),
td(['Tarife &nbsp;',get_info($pnum, 'TarifURL',2)]),
td(['E-Mail',get_info($pnum, 'EMail',2)]),
td(['Hotline',get_info($pnum, 'Hotline',1)]),
td(['Telefon',get_info($pnum, 'Telefon',1)]),
td(['Telefax',get_info($pnum, 'Telefax',1)])
]))));
$url = self_url;
$url =~ s/&info=\w+//;
print(p,hrg,p
a({-href=>'javascript:history.back()'},'[ Zurück ]'),
a({-href=>$url},'[ Vorhergehende Seite ]'));
footer($pnum);
}
sub list {
my ($what)=$_[0];
my (@args,%vbn, %prov, %hp, %tarif, %tel, %fax);
my (@X, @var, $i, $t, $pnum, $prov);
@X = qw( NR Homepage TarifURL Telefon Hotline Telefax );
@var = ( \%vbn, \%hp, \%tarif, \%tel, \%tel, \%fax );
for ($i = 0; $i < @X ; $i++) {
my (@args, @lines);
push(@args, $ISDNRATE,"-Sv");
push(@args, "-X$X[$i]");
_call_isdnrate(\@lines, @args);
chomp(@lines);
foreach (@lines) {
($prov, undef, undef, $t) = split(/ +/);
($pnum, $prov) = split(/:/, $prov);
$pnum=prefix2provider($pnum);
$prov{$pnum} = $prov unless $prov{$pnum};
$var[$i]->{$pnum} = $t unless $var[$i]->{$pnum};
}
}
my (@th);
@th = qw ( Nr. VBN Provider/Homepage Tarife Telefon Fax );
print('<table cellspacing=0 border=1 cellpadding=3 bgcolor="white">',Tr(th([@th])));
$i = 0;
foreach $pnum (sort (keys(%prov))) {
my $hp = $hp{$pnum};
my $vbn = $vbn{$pnum};
$prov = $prov{$pnum};
my $bgcolor=++$i&1?' bgcolor="#fffff0"':'';
print("<tr$bgcolor><td>$pnum</td><td>$vbn</td>",
"<td><a href=\"$hp\">$prov</a></td>");
my $tu = $tarif{$pnum};
($t= $tu) =~ s#\Q$hp\E##;
$tu = $t ? "<a href=\"$tu\">$t</a>" : '&nbsp;';
my $tel = $tel{$pnum};
$tel =~ s/,\s*/<br>/;
my $fax = $fax{$pnum};
$fax =~ s/,\s*/<br>/;
$tel ||= '&nbsp;';
$fax ||= '&nbsp;';
print("<td>$tu</td><td>" .
"$tel</td><td>$fax</tr>");
}
print('</table><p><br>');
$help=3;
footer($pnum);
}
sub det {
my ($what, $pnum)=@_;
my ($prov, $cur, $day, $pp, @ch, @co, @cpm, $i, @range, $anymp);
$pp = provider2prefix($pnum);
@range = $what==0 ? ('W', 'N') : (0..23,'E');
$i = $anymp = 0;
for $day (@range) {
my(@lines, @args, $dat);
$dat = $day !~/\d/ ? "-d$day" : "-h$day:1 -dW";
push(@args, $ISDNRATE,"$dat -p$pp -l60");
my $w50=$what+50;
push(@args, "-X$w50");
_call_isdnrate(\@lines, @args);
chomp(@lines);
foreach (@lines) {
my ($charge, $countries, $mp);
(undef, $prov, $cur, $charge, $mp, $countries) = split(/;/);
push(@{ $ch[$i] }, $charge);
push(@{ $cpm[$i] }, $mp);
$anymp++ if($charge != $mp);
push(@co, $countries) if($i == 0);
}
$i++;
}
print(h2("Provider $pnum - $prov")) if($what==0);
if (!@co) {
print(p,'Keine Auslandspreise bekannt');
goto nix;
}
$i=0;
my $any=0;
my ($j, %ranges, $last, $cs, @headers, $f, $t);
pop(@range) if($what);
foreach $j (0 .. $#{ $ch[0] }) { # zones
$last = 0;
foreach $i (1 .. $#range) {
if ($ch[$last][$j] != $ch[$i][$j]) {
my $found=0;
foreach my $r (keys (%ranges)) {
($f,$t)=split(/-/,$r);
$found++,last if (defined $ranges{"$f-$i"});
}
$ranges{"$last-$i"}=1 unless($found);
$last=$i;
}
}
}
$cs = keys(%ranges) + 1;
if($what) {
@headers = (sort{$a <=> $b} (keys(%ranges)));
($f, $t) = split(/-/,$headers[$#headers]);
$t ||= '0';
push(@headers,"$t-24");
foreach $i (0..$#headers-1) {
($f, $t) = split(/-/,$headers[$i]);
$t = --$t || "0";
$headers[$i] = "$f-$t<sup>59</sup>";
}
push(@headers,'Sa/So<sup>*)</sup>'),$cs++;
}
else {
@headers = $cs==2 ? ('8-18','Sonst') : 'Immer';
}
print("<blockquote><table border=1 cellspacing=0 cellpadding=4 bgcolor=\"white\">",
Tr(th({-rowspan=>2},$what?'Zone':'Land'),th({-colspan=>$cs},"$cur/min")),
Tr(th([@headers])));
$j = 0;
pop(@headers),push(@headers,'24-Sa/So') if($what);
@headers = ('0-Tag','1-Nacht') if(!$what);
for($i=$#co;$i>=0;$i--) {
last if ($co[$i] =~ s/\+$/Übrige Länder/);
}
foreach (@co) {
s/\s/&nbsp;/g;
s/,/, /g;
s/^$/&nbsp;/;
my $bgcolor=$j&1?'':' bgcolor="#fffff0"';
print (qq(<tr$bgcolor><td>$_</td>));
for ($i=0; $i <=$#headers; $i++) {
($f, undef) = split(/-/,$headers[$i]);
my $charge = $ch[$f][$j];
my $mp = $cpm[$f][$j];
my($k,$ff);
for ($cs=0,$k=$i+1; $k <= $#headers; $k++) {
($ff, undef) = split(/-/,$headers[$k]);
last if ($ch[$f][$j] != $ch[$ff][$j]);
last if ($cpm[$f][$j] != $cpm[$ff][$j]);
$cs++;
}
if ($cs) {
$i+=$cs; $cs++;
$cs = " colspan=$cs";
}
else {
$cs = '';
}
print(qq(<td align="center"$cs>$charge));
print(qq( <span class="sm">($mp)</span>)) if($anymp);
print('</td>');
}
print('</tr>');
$j++;
}
print ("</table></blockquote>");
if ($what) {
print(div({-class=>'sm'}, '<sup>*)</sup> Sa/So/Feiertag 10<sup>00</sup>',p));
}
if ($anymp) {
print(p,'Hinweis: Durch die Taktung sind die echten Minutenpreise ',
'eventuell höher, als die theoretischen in Klammer angeführten.',p);
}
nix:
if ($what == 0) {
$help=1;
print(p,hrg,p
a({-href=>'javascript:history.back()'},'[ Zurück ]'));
footer($pnum);
}
}
# next is from GIFgraph
# Usage:
# ($nmin,$nmax,$nint) = _best_ends(247, 508);
# ($nmin,$nmax) = _best_ends(247, 508, 5);
# use 5 intervals
# ($nmin,$nmax,$nint) = _best_ends(247, 508, 4..7);
# best of 4,5,6,7 intervals
sub _best_ends {
my ($min, $max, @n) = @_;
my ($best_min, $best_max, $best_num) = ($min, $max, 1);
# fix endpoints, fix intervals, set defaults
($min, $max) = ($max, $min) if ($min > $max);
($min, $max) = ($min) ? ($min * 0.5, $min * 1.5) : (-1,1)
if ($max == $min);
@n = (3..6) if (@n <= 0 || $n[0] =~ /auto/i);
my $best_fit = 1e30;
my $range = $max - $min;
# create array of interval sizes
my $s = 1;
while ($s < $range) { $s *= 10 }
while ($s > $range) { $s /= 10 }
my @step = map {$_ * $s} (0.2, 0.5, 1, 2, 5);
for (@n)
{
# Try all numbers of intervals
my $n = $_;
next if ($n < 1);
for (@step)
{
next if ($n != 1) && ($_ < $range/$n); # $step too small
my $nice_min = $_ * int($min/$_);
$nice_min -= $_ if ($nice_min > $min);
my $nice_max = ($n == 1)
? $_ * int($max/$_ + 1)
: $nice_min + $n * $_;
my $nice_range = $nice_max - $nice_min;
next if ($nice_max < $max); # $nice_min too small
next if ($best_fit <= $nice_range - $range); # not closer fit
$best_min = $nice_min;
$best_max = $nice_max;
$best_fit = $nice_range - $range;
$best_num = $n;
}
}
return ($best_min, $best_max, $best_num)
}
sub read_countries {
my @allcountries=($LEER, "Afghanistan","Ägypten","Alaska","Albanien","Algerien",
"Amerikanisch-Samoa","Amerikanische Jungferninseln","Andorra",
"Angola","Anguilla","Antarktis","Antigua und Barbuda","Äquatorial-Guinea",
"Argentinien","Armenien","Aruba","Ascension",
"Aserbaidschan","Äthiopien","Atlantischer Ozean (Ost)",
"Atlantischer Ozean (West)","Australien","Azoren",
"Bahamas","Bahrain","Bangladesch","Barbados","Belgien",
"Belize","Benin","Bermuda","Bhutan","Bilbao","Bolivien","Bosnien-Herzegowina",
"Botsuana Botswana","Brasilien","Britische Jungferninseln",
"Brunei","Bulgarien","Burkina Faso Obervolta","Burundi","Cape Verde",
"Chatham-Inseln","Chile","China","Cookinseln","Costa Rica",
"Deutschland","Diego Garcia","Dominica","Dominikanische Republik","Dschibuti",
"Dänemark","Ecuador","Edinburgh",
"El Salvador","Elfenbeinküste Cote de Ivoire",
"Eritrea","Estland","Falklandinseln","Fidschi","Finnland","Frankfurt",
"Frankreich","Französisch-Guayana","Französisch-Polynesien",
"Freephone Niederlande","Freephone Schweiz","Färöer-Inseln","Gabun",
"Gambia","Georgien","Gerona","Ghana","Gibraltar","Grenada","Griechenland",
"Großbritannien","Grönland","Guadeloupe","Guam",
"Guantanamo","Guantanamo Bay","Guatemala","Guinea","Guinea-Bissau","Guyana",
"Haiti","Hawaii","Honduras","Hongkong","Indien",
"Indischer Ozean","Indonesien","Inmarsat A","Inmarsat A Daten/Fax",
"Inmarsat Aero","Inmarsat B","Inmarsat B HSD","Inmarsat M","Inmarsat Mini-M",
"Irak","Iran","Iridium 008816","Iridium 008817","Irland",
"Island","Israel","Italien","Jamaika",
"Japan","Jemen (Arab. Republik)","Jordanien","Jugoslawien",
"Kaimaninseln","Kambodscha","Kamerun","Kanada","Kanarische Inseln","Kasachstan",
"Katar","Kenia","Kirgisien","Kirgistan","Kiribati","Kokosinseln","Kolumbien",
"Kongo","Korea Rep. (South)","Kroatien","Kuba",
"Kuwait","Laos","Lesotho","Lettland","Leuven","Libanon",
"Liberia","Libyen","Liechtenstein","Litauen","Luxemburg","Macao","Madagaskar",
"Madeira","Malawi","Malaysia","Malediven","Mali","Mallorca","Malta",
"Marianen (SaipanNord-)","Marokko","Marshallinseln","Martinique / Franz. Antillen",
"Mauretanien","Mauritius","Mayotte","Mazedonien","Mexiko","Midway-Inseln",
"Mikronesien","Moldavien Moldau (Republik)","Monaco","Mongolei","Montserrat",
"Mosambik","Myanmar Burma","Namibia","Nauru","Nepal","Neukaledonien",
"Neuseeland","Nicaragua","Niederl. Antillen","Niederlande",
"Niger","Nigeria","Niue-Inseln","Nordirland","Nordkorea","Norfolkinseln",
"Norwegen","Oman","Österreich","Pakistan","Palau /Belau","Panama",
"Papua-Neuguinea","Paraguay","Pazifischer Ozean",
"Peru","Philippinen","Pitcairn Inseln","Pitcairn Islands",
"Polen","Portugal","Puerto Rico","Reunion","Rotterdam","Ruanda","Rumänien",
"Russische Föderat. (westl.)","Russische Förderation (östl.)",
"Salomonen","Sambia","San Marino","Sao Tome und Principe","Saudi Arabien",
"Schweden","Schweiz","Senegal",
"Seyschellen","Sierra Leone","Simbabwe","Singapur","Slowakische Republik",
"Slowenien","Somalia","Spanien","Sri Lanka","St. Helena",
"St. Kitts und Nevis","St. Lucia","St. Pierre und Miquelon","St. Vincent und Grenadinen",
"Sudan","Suriname","Swasiland","Syrien","Südafrika","Südkorea",
"Tadschikistan","Taiwan","Tansania","Tarragona","Teneriffa",
"Thailand","Togo","Tokelan","Tokyo","Tonga","Trinidad und Tobago",
"Tristan da Cunha","Tschad","Tschechische Republik","Tunesien","Turkmenistan",
"Turks- und Caicosinseln","Tuvalu","Türkei","USA",
"Uganda","Ukraine","Ungarn","Uruguay","Usbekistan","Valencia","Vanuatu",
"Vatikan","Venezuela","Ver. Arabische Emirate",
"Vietnam","Wake Inseln","Wallis und Futuna","Weihnachtsinseln","Weissrussland",
"West-Samoa","Zaire","Zentralafrikanische Republik","Zypern");
my($c, $wanted);
@countries = ( $LEER );
if (param('country') && ($wanted=substr(param('country'),0,1)) ne '-') {
foreach (@allcountries) {
push(@countries, $_) if(/^$wanted/i);
}
}
for $c ('A'..'Z','Ä','Ö','Ü') {
push(@countries, $c);
}
@countries = sort byname (@countries);
}
Reference in New Issue View Git Blame Copy Permalink