Биллинговая система Nodeny

--- Ssetpacket.pl	2009-11-14 10:56:00.000000000 +0200
+++ Ssetpacket.pl	2010-11-29 10:33:29.000000000 +0200
@@ -259,6 +259,8 @@
           &RRow('*','lr',"Цена, $gr",&bold($Plan_price[$i]));
     $out.=&RRow('*','L',&Show_all($Plan_descr[$i])) if $Plan_descr[$i];
     $out.=&RRow('* error','lr',"Стоимость перехода на данный тарифный план, $gr",&bold($Plan_price_change[$i])) if $only_now_change_pkt;
+    $out.=&RRow('* error','lr',"Стоимость заказа тарифного плана на следующий месяц, $gr",&bold($Plan_price_change_nm[$i])) if $Plan_price_change_nm[$i];
+    $out.=&RRow('* error','lr',"Стоимость заказа тарифного плана на следующий месяц,<br> при переходе с тарифа с большей стоимостью на этот, $gr",&bold($Plan_price_change_decr[$i])) if $Plan_price_change_decr[$i];
     for $j (1..4)
     {
        $price_over_mb=${"Plan_over$j"}[$i];

--- tarif.pl	2010-01-28 17:24:00.000000000 +0200
+++ tarif.pl	2010-11-29 10:24:55.000000000 +0200
@@ -133,6 +133,8 @@
 
  $price=$F{price}+0;
  $price_change=$F{price_change}+0;
+ $price_change_nm=$F{price_change_nm}+0;
+ $price_change_decr=$F{price_change_decr}+0;
  $m2_to_m1=$F{m2_to_m1}+0;
  $k=$F{k}+0;
 
@@ -186,7 +188,7 @@
  $pays_opt.=',' if $pays_opt;
 
  $sql="UPDATE plans2 SET ".
-   "name='$name',price=$price,price_change=$price_change, ".
+   "name='$name',price=$price,price_change=$price_change, price_change_nm=$price_change_nm, price_change_decr=$price_change_decr, ".
    "mb1=$m[1],mb2=$m[2],mb3=$m[3],mb4=$m[4], ".
    "priceover1=$o[1],priceover2=$o[2],priceover3=$o[3],priceover4=$o[4], ".
    "in_or_out1=$InOrOut[1],in_or_out2=$InOrOut[2],in_or_out3=$InOrOut[3],in_or_out4=$InOrOut[4], ".
@@ -235,7 +237,7 @@
  $name=&Filtr($p->{name});
  $sort_prefix=$name=~s|^\[(\d+)\]||? $1-1000 : '';
  $sort_prefix=0 if $sort_prefix<0;
- ($m1,$m2,$m3,$m4,$price,$price_change,$over1,$over2,$over3,$over4)=&Get_fields('mb1','mb2','mb3','mb4','price','price_change','priceover1','priceover2','priceover3','priceover4');
+ ($m1,$m2,$m3,$m4,$price,$price_change,$price_change_nm,$price_change_decr,$over1,$over2,$over3,$over4)=&Get_fields('mb1','mb2','mb3','mb4','price','price_change','price_change_nm','price_change_decr','priceover1','priceover2','priceover3','priceover4');
  ($m2_to_m1,$start_hour,$end_hour,$k,$flags,$speed,$speed_out,$speed2,$preset)=&Get_fields('m2_to_m1','start_hour','end_hour','k','flags','speed','speed_out','speed2','preset');
  ($InOrOut1,$InOrOut2,$InOrOut3,$InOrOut4,$offices,$usr_grp,$pays_opt,$newuser_opt)=&Get_fields('in_or_out1','in_or_out2','in_or_out3','in_or_out4','offices','usr_grp','pays_opt','newuser_opt');
  ($plan_script,$descr)=&Get_fields('script','descr');
@@ -310,6 +312,8 @@
      "Данная сумма будет сниматься со счета клиента в независимости от количества потребленных предоплаченных мегабайт. По сути абонплата. ".
      "Установите в 0, если вы предусматриваете оплату только пропорционально потребленному трафику").
   &RRow('*','ll',&input_t('price_change',$price_change,10,14)." стоимость перехода","Стоимость перехода на данный пакет в середине месяца").
+  &RRow('*','ll',&input_t('price_change_nm',$price_change_nm,10,14)." стоимость заказа","Стоимость перехода на данный пакет при заказе на следующий месяц").
+  &RRow('*','ll',&input_t('price_change_decr',$price_change_decr,10,14)." стоимость заказа* ","Стоимость перехода с большего на данный пакет при заказе на следующий месяц").
   &RRow('*','ll',&input_t('speed',$speed||'',10,14)." скорость трафика",
     "Скорость, на которой будет предоставляться доступ в интернет. 0 либо пустое значение не ограничивает скорость.").
   &RRow('*','ll',&input_t('speed_out',$speed_out||'',10,14)." скорость трафика на исход",

--- nomoney.pl	2009-11-14 10:57:00.000000000 +0200
+++ nomoney.pl	2010-11-29 10:29:58.000000000 +0200
@@ -59,6 +59,8 @@
     $Plan_mb4[$i]=$p->{mb4};
     $Plan_price[$i]=$p->{price};
     $Plan_price_change[$i]=$p->{price_change};
+    $Plan_price_change_nm[$i]=$p->{price_change_nm};
+    $Plan_price_change_decr[$i]=$p->{price_change_decr};
     $Plan_over1[$i]=$p->{priceover1};
     $Plan_over2[$i]=$p->{priceover2};
     $Plan_over3[$i]=$p->{priceover3};

--- new_month.pl	2009-11-14 10:57:00.000000000 +0200
+++ new_month.pl	2011-01-03 12:33:17.000000000 +0200
@@ -340,7 +340,23 @@
    mode_report=>0
  };
  $h=&Money($money_param);
- $got_money=sprintf("%.2f",$h->{money});
+ $perehod=$Plan_price_change_nm[$next_paket]+0;
+ $perehod_decr=$Plan_price_change_decr[$next_paket]+0;
+ if ( $next_paket )
+ {
+   $got_money=sprintf("%.2f",$h->{money}+$perehod);
+   $Alog.=" Переход на новый пакет, стоимость перехода $perehod";
+   if ($perehod_decr && $Plan_price[$next_paket]<$Plan_price[$paket])
+   {
+    $got_money=sprintf("%.2f",$h->{money}+$perehod_decr);
+    $Alog.=" + переход c меньшей стоимостью $perehod_decr.";
+   }
+ }
+ else
+ {
+   $got_money=sprintf("%.2f",$h->{money});
+   $Alog.=" Юзер остается на старом пакете.";
+ }
  $money_over=$h->{money_over};
  $service_list=$h->{service_list};
  chomp $service_list;
@@ -412,6 +428,8 @@
 
  $coment="За услуги доступа в интернет";
  $coment.=", включая услуги:\n$service_list" if $service_list;
+ $coment.="\nСнято $Plan_price_change_nm[$next_paket] $gr за переход на тариф $Plan_name_short[$next_paket]." if $Plan_price_change_nm[$next_paket];
+ $coment.="\nСнято $Plan_price_change_decr[$next_paket] $gr за переход на тариф с меньшей стоимостью $Plan_name_short[$next_paket]." if $Plan_price_change_decr[$next_paket] && $Plan_price[$next_paket]<$Plan_price[$paket];
  $coment.="\nПакет: ".(&Filtr_mysql($Plan_name_short[$paket])||'-');
 
  $reason="Трафик по направлениям. Вход-выход:\n";

ALTER TABLE plans2 ADD COLUMN  price_change_nm float NOT NULL AFTER   price_change;
ALTER TABLE plans2 ADD COLUMN  price_change_decr float NOT NULL AFTER   price_change_nm;

patch -i Ssetpacket.patch
Hmm...  Looks like a unified diff to me...
The text leading up to this was:
--------------------------
|--- Ssetpacket.pl      2009-11-14 10:56:00.000000000 +0200
|+++ Ssetpacket.pl      2010-11-29 10:33:29.000000000 +0200
--------------------------
Patching file Ssetpacket.pl using Plan A...
Hunk #1 failed at 259.
1 out of 1 hunks failed--saving rejects to Ssetpacket.pl.rej
done