NAME

No::Telenor - Calculate telephone call prices in Norway

SYNOPSIS

use No::Telenor qw(samtale_pris);
$kr = samtale_pris($time, 3600, "N");

DESCRIPTION

This documentation is written in Norwegian.

Denne modulen inneholder funksjonen samtale_pris(). Denne funksjonen vil beregne prisen på en telefonsamtale gitt tidspunkt, varighet og takst som parameter. Funksjonen kjenner til Telenors sanntidstakster som gjelder fra 1. juni 1999. Forhåpentligvis vil jeg klare å oppdater funksjonen etterhvert som Telenor finner på nye sprell.

samtale_pris($start, $varighet, $takst)

Rutinen vil beregne samtale prisen i NOK. Argumentet $start er starttidspunktet gitt som en standard perl 'time' verdi. Argumentet $varighet er samtalens varighet i sekunder. Argumentet $takst er en kort streng som forteller hvilken takst som skal brukes. Følgende takser er støttet:

N     Norgespris
TM    Telenor Mobil
NC    NetCom Mobil
180   Opplysningen 180
181   UtenlandsOpplysningen 181

BUGS

Prisberegningen kan bli unøyaktig hvis samtalen foregikk i overgangen mellom vinter- og sommertid eller omvendt.

Prisberegningen tar ikke hensyn til at helgetakst skal benyttes på bevegelige helligdager.

AUTHOR

Gisle Aas <gisle@aas.no>