# Central Japan Commodity Exchange setups. -*- coding: shift_jis -*-
# Copyright 2005, 2006, 2007, 2008, 2009, 2010 Kevin Ryde
# This file is part of Chart.
#
# Chart is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 3, or (at your option) any later
# version.
#
# Chart is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
package App::Chart::Suffix::CCOM;
use 5.010;
use strict;
use warnings;
use Locale::TextDomain 'App-Chart';
use App::Chart::Glib::Ex::MoreUtils;
use App::Chart;
use App::Chart::Barchart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
# think GBL bund, GBM bobl and GBS schatz which traded on european time now
# delisted
#
my $pred = App::Chart::Sympred::Suffix->new ('.CCOM');
App::Chart::TZ->tokyo->setup_for_symbol ($pred);
# (source-help! ccom-symbol?
# (__p('manual-node','Central Japan Commodity Exchange'))
#------------------------------------------------------------------------------
# weblink - contract specs
#
# eg. http://www.c-com.or.jp/public_html_e/guide/kerosene.php
my %weblink_mung = ('ferrousscrap' => 'scrap',
'rubberindex' => 'rubberIndex');
my %weblink_ja_mung = ('gasoline' => 'gas',
'kerosene' => 'heating',
'gasoil' => 'diesel',
'eggs' => 'egg');
App::Chart::Weblink->new
(pred => $pred,
name => __('C-COM _Contract Specifications'),
desc => __('Open web browser at the Central Japan Commodities Exchange contract specifications for this commodity'),
proc => sub {
my ($symbol) = @_;
my $code = lc(App::Chart::symbol_commodity($symbol));
$code =~ s/ //g;
my $lang = App::Chart::Glib::Ex::MoreUtils::lang_select (ja => '',
en => '_e');
$code = $weblink_mung{$code} // $code;
if ($lang eq '') { $code = $weblink_ja_mung{$code} // $code; }
return "http://www.c-com.or.jp/public_html$lang/guide/$code.php";
});
1;
__END__