sk-costs.c

linux下ppp的拨号程序

/* 
	This file is part of PPPCOSTS.
	Copyright (c) 1996,97 Tillmann Steinbrecher.
	May be distributed according to the terms of the GNU
	General Public License version 2. No warranty.
	
	--- Slovak Telecom from July, 1 1999 on ---

	Cennik pre Slovenske Telekomunikacie a.s. (miestne hovory - plati od 1.7.1999)
	Silna prevadzka 7.00-18.59: 2.50 Sk / 2 minuty
	Slaba prevadzka 0.00-6.59 & 19.00-23.59: 2.50 Sk / 4 minuty
	Vikendy: 2.50 Sk / 6 minut
	---   
	pozn: tento subor neobsahuje sviatky !

	Please modify this file for your phone company's prices
	and send it to [e-mail]. Thanks a lot! 
*/

#include "costs.h"

char DECIMALS= '2';
float INITIAL_COST=0;
char CURRENCY_AFTER_COST=1;
char CURRENCY[10]=" Sk";
float COSTS_PER_UNIT=2.50;

int getunitlength(time_t tt) {
	int unitsecs;
	struct tm* ct;
	/* Phone unit lengths for ST a.s. - hardcoded. */
	ct=localtime(&tt);
	/*	printf(" It's %u o'clock.\n", ct->tm_hour);  */
	if(*ctime(&tt)=='S'){  /* Smart way to check for weekends ;-) */
		
		unitsecs=360;
	
	} else {
	
		if(ct->tm_hour < 7)	 	 	unitsecs=240;
		if(ct->tm_hour>=7 &&  ct->tm_hour<19)   unitsecs=120;
		if(ct->tm_hour>=19)			unitsecs=240;
        }
	return unitsecs;
 }