Browse files

Trying to reproduce ghenry TT report.

  • Loading branch information...
1 parent a842065 commit 63d5abfaeba5673ae76b2f1e6df53e8cd19201d3 @jhannah committed Sep 22, 2009
Showing with 53 additions and 0 deletions.
  1. +8 −0 RT9211/AA.pm
  2. +8 −0 RT9211/BB.pm
  3. +4 −0 RT9211/XX/CC.pm
  4. +10 −0 ghenry/j.pl
  5. +23 −0 ghenry/j.tt
View
8 RT9211/AA.pm
@@ -0,0 +1,8 @@
+package AA;
+use FindBin qw($Bin);
+our $home = $Bin;
+$home =~ s#/Omni2.*##;
+warn "AA $home";
+
+1;
+
View
8 RT9211/BB.pm
@@ -0,0 +1,8 @@
+package BB;
+
+require AA;
+use lib $AA::home . "/XX";
+warn "BB " . $AA::home;
+#use CC;
+
+
View
4 RT9211/XX/CC.pm
@@ -0,0 +1,4 @@
+package CC;
+
+1;
+
View
10 ghenry/j.pl
@@ -0,0 +1,10 @@
+use Template;
+
+my $config = {};
+my $template = Template->new($config);
+my $vars = {};
+my $input = 'j.tt';
+$template->process($input, $vars)
+ || die $template->error();
+
+
View
23 ghenry/j.tt
@@ -0,0 +1,23 @@
+[% buy_min_rate = 100 %]
+[% rate = {} %]
+
+
+[% buy_min_dur = 0; %]
+[% rate.buy_rate_peak = 7 %]
+[% IF rate.buy_rate_peak != 0 %][% buy_min_dur = ( buy_min_rate / rate.buy_rate_peak ) * 60 %][% END %]
+
+[% rate.buy_rate_peak %] -> [% buy_min_dur %]
+
+
+[% buy_min_dur = 0; %]
+[% rate.buy_rate_peak = 0.0055 %]
+[% IF rate.buy_rate_peak != 0 %][% buy_min_dur = ( buy_min_rate / rate.buy_rate_peak ) * 60 %][% END %]
+
+[% rate.buy_rate_peak %] -> [% buy_min_dur %]
+
+
+[% buy_min_dur = 0; %]
+[% rate.buy_rate_peak = 0 %]
+[% IF rate.buy_rate_peak != 0 %][% buy_min_dur = ( buy_min_rate / rate.buy_rate_peak ) * 60 %][% END %]
+
+[% rate.buy_rate_peak %] -> [% buy_min_dur %]

0 comments on commit 63d5abf

Please sign in to comment.