Why not adopt me?
NAME
WebService::Cryptsy - implementation of www.cryptsy.com API
SYNOPSIS
use WebService::Cryptsy;
use Data::Dumper;
my $cryp = WebService::Cryptsy->new(
    public_key  => 'YOUR PUBLICE KEY',
    private_key => 'YOUR PRIVATE KEY',
);
print Dumper( $cryp->getinfo      || $cryp->error ) . "\n";
print Dumper( $cryp->marketdatav2 || $cryp->error ) . "\n";
my ( $currency_id, $currency_code ) = ( 3, 'BTC' );
my $generated_address
= $cryp->generatenewaddress( $currency_id, $currency_code )
    or die "Error: " . $cryp->error;
$cryp = WebService::Cryptsy->new; # no need for keys for some methods
my $data = $cryp->marketdatav2
    or die "Error: $cryp";  # error checking and using interpolation
                            # to get the error message
printf "%s: %f\n", @{ $data->{markets}{$_} }{qw/label  lasttradeprice/}
    for sort keys %{ $data->{markets} };
MAINTENANCE NOTE
NOTE: this module has not been keeping up with Cryptsy's API updates since Feb 4, 2014. Reason being is that I don't personally use this module and the person I wrote it for might not be using it any more either. But if you do use this module and need it updated, just submit a bug report (patches are also welcome!).
DESCRIPTION
This module implements the www.cryptsy.com API whose description is available here: https://www.cryptsy.com/pages/api
INSTALLATION NOTES
Depending on your configuration, you might need to install
cpan LWP::Protocol::https  Net::SSLeay
Or some such, to make LWP::UserAgent work over HTTPS, as that's what Cryptsy's API requires.
GETTING API KEY
To use this module, you'll need to obtain the API key from www.cryptsy.com. Once logged in, go to account settings page and scroll all the way to the bottom. Click the Generate New Key button to generate new key.
IMPORTANT!!! Ensure to toggle the "API Disabled" button into the "on" position, otherwise your API will be off and this module will give a confusing error message.
CONSTRUCTOR
new
my $cryp = WebService::Cryptsy->new(
    public_key  => 'YOUR PUBLIC  KEY',
    private_key => 'YOUR PRIVATE KEY',
    timeout     => 30,
);
# or if you're only going to use the public methods:
my $cryp = WebService::Cryptsy->new;
Creates and returns a new WebService::Cryptsy object. Takes three optional arguments as key/value pairs. The public_key and private_key are optional only for the Public Methods of the API. They both are required for calling the Authenticated Methods. To obtain your keys, see the "GETTING API KEY" section above.
public_key
my $cryp = WebService::Cryptsy->new(
    public_key  => '479c5eee116f8f5972bdaf12dd0a3f82562c8a7c',
    private_key => 'b408e899526142eee13304669a657c8782435ccda2f65dbea05270fe8dfa5d3d2ef7eb4812ce1c35',
);
This is the key from the Public Key box on Cryptsy's settings page.
private_key
my $cryp = WebService::Cryptsy->new(
    public_key  => '479c5eee116f8f5972bdaf12dd0a3f82562c8a7c',
    private_key => 'b408e899526142eee13304669a657c8782435ccda2f65dbea05270fe8dfa5d3d2ef7eb4812ce1c35',
);
This is the key from the Private Key box on Cryptsy's settings page.
timeout
my $cryp = WebService::Cryptsy->new(
    timeout => 30,
);
Optional. Specifies the timeout, in seconds, of the API requests. Default: 60
MODULE METHODS / OVERLOADS
error
# these two are equivalent
my $data = $cryp->marketdata
    or die "Error: $cryp";
my $data = $cryp->marketdata
    or die "Error: " . $cryp->error;
The API methods will return undef or an empty list, depending on the context, and the human-readable error will be available using the ->error method. This method is overloaded for object interpolation, thus you can simply interpolate the object in a string to get the error message.
timeout
printf "Current API request timeout is %d\n", $cryp->timeout;
$cryp->timeout( 30 );
Gets/sets the timeout constructor's argument. Takes one optional argument that specifies the new timeout in seconds. Returns the current timeout in seconds.
GENERAL CONVENTION FOR API METHODS
All methods are named exactly the same as in Cryptsy's API. If the API method takes any arguments, you'd supply them to the method, in the same order (e.g. $cryp->mytrades( $market_id, $limit );)
PUBLIC API METHODS
These methods do not require API keys.
marketdata
my $data = $cryp->marketdata
    or die "Error: $cryp";
NOTE: this API call doesn't seem to be listed on Cryptsy's site any more. You're likely supposed to use marketdatav2 instead.
NOTE: sometimes this call takes forever to complete.
General Market Data (All Markets): (OLD METHOD). Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'markets' => {
        'CSC' => {
                'primaryname' => 'CasinoCoin',
                'volume' => '192807.99239834',
                'lasttradeprice' => '0.00006507',
                'marketid' => '68',
                'secondarycode' => 'BTC',
                'primarycode' => 'CSC',
                'lasttradetime' => '2013-12-26 01:16:24',
                'label' => 'CSC/BTC',
                'secondaryname' => 'BitCoin',
                'buyorders' => [
                    {
                        'quantity' => '0.00000000',
                        'price' => '0.00007348',
                        'total' => '1.17579218'
                    },
                ],
                'sellorders' => [
                    {
                        'quantity' => '0.00000000',
                        'price' => '0.00005005',
                        'total' => '0.01253232'
                    },
                ],
                'recenttrades' => [
                    {
                      'time' => '2013-12-26 01:27:33',
                      'quantity' => '2.69061569',
                      'price' => '0.00007095',
                      'id' => '9622421',
                      'total' => '0.00019090'
                    },
                ],
        },
    },
};
marketdatav2
my $data = $cryp->marketdatav2
    or die "Error: $cryp";
NOTE: sometimes this call takes forever to complete.
General Market Data (All Markets): (NEW METHOD). Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'markets' => {
        'IFC/LTC' => {
            'primaryname' => 'InfiniteCoin',
            'secondaryname' => 'LiteCoin',
            'label' => 'IFC/LTC',
            'volume' => '413934622.38106910',
            'lasttradeprice' => '0.00000289',
            'marketid' => '60',
            'primarycode' => 'IFC',
            'secondarycode' => 'LTC',
            'lasttradetime' => '2013-12-26 01:37:09',
            'sellorders' => [
                {
                    'quantity' => '0.00000000',
                    'price' => '0.00000286',
                    'total' => '8.64783388'
                },
            ],
            'buyorders' => [
                {
                    'quantity' => '0.00000000',
                    'price' => '0.00000293',
                    'total' => '2.15336758',
                },
            ],
            'recenttrades' => [
                {
                    'time' => '2013-12-26 01:40:36',
                    'quantity' => '10000.00000000',
                    'price' => '0.00000292',
                    'id' => '9626105',
                    'total' => '0.02920000',
                },
            ],
        },
    }
};
singlemarketdata
my $market_id = 60; #  IFC/LTC market
my $data = $cryp->singlemarketdata( $market_id )
    or die "Error: $cryp";
General Market Data (Single Market). Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'markets' => {
        'IFC' => {
            'primaryname' => 'InfiniteCoin',
            'volume' => '405825211.07019660',
            'lasttradeprice' => '0.00000292',
            'marketid' => '60',
            'secondarycode' => 'LTC',
            'primarycode' => 'IFC',
            'lasttradetime' => '2013-12-26 01:45:50',
            'label' => 'IFC/LTC',
            'secondaryname' => 'LiteCoin',
            'buyorders' => [
                {
                   'quantity' => '0.00000000',
                   'price' => '0.00000293',
                   'total' => '2.15336758'
                },
            ],
            'sellorders' => [
                {
                    'quantity' => '0.00000000',
                    'price' => '0.00000286',
                    'total' => '8.64783388'
                },
            ],
            'recenttrades' => [
                {
                    'time' => '2013-12-26 01:45:50',
                    'quantity' => '100000.00000000',
                    'price' => '0.00000292',
                    'id' => '9627226',
                    'total' => '0.29200000'
                },
            ]
        }
    }
};
orderdata
my $data = $cryp->orderdata
    or die "Error: $cryp";
General Orderbook Data (All Markets). Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'CSC' => {
        'primaryname' => 'CasinoCoin',
        'secondaryname' => 'BitCoin',
        'marketid' => '68',
        'secondarycode' => 'BTC',
        'primarycode' => 'CSC',
        'label' => 'CSC/BTC',
        'sellorders' => [
            {
                'quantity' => '0.00000000',
                'price' => '0.00005005',
                'total' => '0.01253232'
            },
        ],
        'buyorders' => [
            {
                'quantity' => '0.00000000',
                'price' => '0.00007348',
                'total' => '1.17579218'
            },
        ],
    },
};
singleorderdata
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->singleorderdata( $market_id )
    or die "Error: $cryp";
General Orderbook Data (Single Market). Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'CSC' => {
        'primaryname' => 'CasinoCoin',
        'marketid' => '68',
        'secondarycode' => 'BTC',
        'primarycode' => 'CSC',
        'label' => 'CSC/BTC',
        'secondaryname' => 'BitCoin',
        'buyorders' => [
            {
                'quantity' => '0.00000000',
                'price' => '0.00007348',
                'total' => '1.17579218'
            },
        ],
        'sellorders' => [
            {
                'quantity' => '0.00000000',
                'price' => '0.00005005',
                'total' => '0.01253232'
            },
        ],
    }
};
AUTHENTICATED API METHODS
getinfo
my $data = $cryp->getinfo
    or die "Error: $cryp";
Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'openordercount' => 0,
    'servertimestamp' => 1388083631,
    'servertimezone' => 'EST',
    'balances_available' => {
        'DBL' => '0.00000000',
        'CMC' => '0.00000000'
    },
    'serverdatetime' => '2013-12-26 13:47:11',
    'balances_hold' => {
        'CSC' => '0.00000000',
        'HYC' => '0.00000000',
    }
};
And according to Cryptsy's API, the meaning of these keys is:
balances_availableArray of currencies and the balances available for eachbalances_holdArray of currencies and the amounts currently on hold for open ordersservertimestampCurrent server timestampservertimezoneCurrent timezone for the serverserverdatetimeCurrent date/time on the serveropenordercountCount of open orders on your account
getmarkets
my $data = $cryp->getmarkets
    or die "Error: $cryp";
Outputs: Array of Active Markets. Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
[
    {
        'current_volume' => '1147913.14033064',
        'marketid' => '57',
        'created' => '2013-07-04 01:01:09',
        'high_trade' => '0.00001638',
        'primary_currency_name' => 'AlphaCoin',
        'secondary_currency_name' => 'BitCoin',
        'last_trade' => '0.00001366',
        'primary_currency_code' => 'ALF',
        'label' => 'ALF/BTC',
        'secondary_currency_code' => 'BTC',
        'low_trade' => '0.00001067'
    },
];
And according to Cryptsy's API, the meaning of these keys is:
marketidInteger value representing a marketlabelName for this market, for example:AMC/BTCprimary_currency_codePrimary currency code, for example:AMCprimary_currency_namePrimary currency name, for example:AmericanCoinsecondary_currency_codeSecondary currency code, for example:BTCsecondary_currency_nameSecondary currency name, for example:BitCoincurrent_volume24 hour trading volume in this marketlast_tradeLast trade price for this markethigh_trade24 hour highest trade price in this marketlow_trade24 hour lowest trade price in this marketcreatedDatetime (EST) the market was created
mytransactions
my $data = $cryp->mytransactions
    or die "Error: $cryp";
Outputs: Array of Deposits and Withdrawals on your account. Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure. Since I don't actually use Cryptsy, I've no transactions and can't see what structure the method returns. If you can, please dump it and submit it as a bug report. My best guess is it returns an arrayref of hashrefs, and according to Cryptsy's API, the meaning of the keys in each hashref is:
currencyName of currency accounttimestampThe timestamp the activity posteddatetimeThe datetime the activity postedtimezoneServer timezonetypeType of activity. (Deposit / Withdrawal)addressAddress to which the deposit posted or Withdrawal was sentamountAmount of transaction (Not including any fees)feeFee (If any) Charged for this Transaction (Generally only on Withdrawals)trxidNetwork Transaction ID (If available)
markettrades
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->markettrades( $market_id )
    or die "Error: $cryp";
Outputs: Array of last 1000 Trades for this Market, in Date Descending Order. Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
[
    {
        'quantity' => '73.90140550',
        'tradeid' => '9811863',
        'initiate_ordertype' => 'Sell',
        'total' => '0.00423825',
        'tradeprice' => '0.00005735',
        'datetime' => '2013-12-26 16:22:52'
    },
];
And according to Cryptsy's API, the meaning of the keys in each hashref is:
tradeidA unique ID for the tradedatetimeServer datetime trade occurredtradepriceThe price the trade occurred atquantityQuantity tradedtotalTotal value of trade (tradeprice * quantity)initiate_ordertypeThe type of order which initiated this trade
marketorders
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->marketorders( $market_id )
    or die "Error: $cryp";
Outputs: 2 Arrays. First array is sellorders listing current open sell orders ordered price ascending. Second array is buyorders listing current open buy orders ordered price descending. Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'sellorders' => [
        {
            'sellprice' => '0.00005740',
            'quantity' => '212.47116097',
            'total' => '0.01219584'
        },
    ],
    'buyorders' => [
        {
            'quantity' => '200.00000000',
            'buyprice' => '0.00005737',
            'total' => '0.01147400'
        },
    ],
};
And according to Cryptsy's API, the meaning of the keys in each hashref is:
sellpriceIf a sell order, price which order is selling atbuypriceIf a buy order, price the order is buying atquantityQuantity on ordertotalTotal value of order (price * quantity)
mytrades
my $market_id = 68; #  CSC/BTC market
my $limit = 200;
my $data = $cryp->mytrades( $market_id, $limit )
    or die "Error: $cryp";
Outputs: Array your Trades for this Market, in Date Descending Order. Takes one mandatory argument, which is the market ID, and one optional argument, which is the limit of the number of results (defaults to 200). On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure. Since I don't actually use Cryptsy, I've no transactions and can't see what structure the method returns. If you can, please dump it and submit it as a bug report. My best guess is it returns an arrayref of hashrefs, and according to Cryptsy's API, the meaning of the keys in each hashref is:
tradeidAn integer identifier for this tradetradetypeType of trade (Buy/Sell)datetimeServer datetime trade occurredtradepriceThe price the trade occurred atquantityQuantity tradedtotalTotal value of trade (tradeprice * quantity)- Does not include feesfeeFee Charged for this Tradeinitiate_ordertypeThe type of order which initiated this tradeorder_idOriginal order id this trade was executed against
allmytrades
my $data = $cryp->allmytrades
    or die "Error: $cryp";
Outputs: Array your Trades for all Markets, in Date Descending Order. Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure. Since I don't actually use Cryptsy, I've no transactions and can't see what structure the method returns. If you can, please dump it and submit it as a bug report. My best guess is it returns an arrayref of hashrefs, and according to Cryptsy's API, the meaning of the keys in each hashref is:
tradeidAn integer identifier for this tradetradetypeType of trade (Buy/Sell)datetimeServer datetime trade occurredmarketidThe market in which the trade occurredtradepriceThe price the trade occurred atquantityQuantity tradedtotalTotal value of trade (tradeprice * quantity) - Does not include feesfeeFee Charged for this Tradeinitiate_ordertypeThe type of order which initiated this tradeorder_idOriginal order id this trade was executed against
myorders
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->myorders( $market_id )
    or die "Error: $cryp";
Outputs: Array of your orders for this market listing your current open sell and buy orders. Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure. Since I don't actually use Cryptsy, I've no transactions and can't see what structure the method returns. If you can, please dump it and submit it as a bug report. My best guess is it returns an arrayref of hashrefs, and according to Cryptsy's API, the meaning of the keys in each hashref is:
orderidOrder ID for this ordercreatedDatetime the order was createdordertypeType of order (Buy/Sell)priceThe price per unit for this orderquantityQuantity remaining for this ordertotalTotal value of order (price * quantity)orig_quantityOriginal Total Order Quantity
depth
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->depth( $market_id )
    or die "Error: $cryp";
Outputs: Array of buy and sell orders on the market representing market depth. Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'buy' => [
        [
            '0.00005633', # price
            '2.70000000'  # quantity
        ],
    ],
    'sell' => [
        [
            '0.00005641', # price
            '73.44390000' # quantity
        ],
    ]
};
allmyorders
my $data = $cryp->allmyorders
    or die "Error: $cryp";
Outputs: Array of all open orders for your account. Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure. Since I don't actually use Cryptsy, I've no transactions and can't see what structure the method returns. If you can, please dump it and submit it as a bug report. My best guess is it returns an arrayref of hashrefs, and according to Cryptsy's API, the meaning of the keys in each hashref is:
orderidOrder ID for this ordermarketidThe Market ID this order was created forcreatedDatetime the order was createdordertypeType of order (Buy/Sell)priceThe price per unit for this orderquantityQuantity remaining for this ordertotalTotal value of order (price * quantity)orig_quantityOriginal Total Order Quantity
createorder
my $order_id = $cryp->createorder(
    $marketid,   # Market ID for which you are creating an order for
    $ordertype,  # Order type you are creating (Buy/Sell)
    $quantity,   # Amount of units you are buying/selling in this order
    $price,      # Price per unit you are buying/selling at
) or die "Error: $cryp";
Takes four mandatory arguments that are (in order): market id, order type (Buy or Sell), quantity, price. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns the order ID.
cancelorder
$cryp->cancelorder( $order_id )
    or die "Error: $cryp";
Takes one mandatory argument, which is the order ID of the order you wish to cancel. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a true value.
cancelmarketorders
my $market_id = 68; #  CSC/BTC market
my $data = $cryp->cancelmarketorders( $market_id )
    or die "Error: $cryp";
Cancel all open orders in the market. Takes one mandatory argument, which is the market ID. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. According to the API docs, on success returns an arrayref that contains "return information on each order cancelled." I don't have the means to create/cancel orders; if you can dump the returned data structure and submit it to me via a bug report, it would be appreciated. It is likely the return is a hashref with a single key return whose value is an arrayref.
cancelallorders
my $data = $cryp->cancelallorders
    or die "Error: $cryp";
Outputs: Array of all open orders for your account. Takes no arguments. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. According to the API docs, on success returns an arrayref that contains "return information on each order cancelled." I don't have the means to create/cancel orders; if you can dump the returned data structure and submit it to me via a bug report, it would be appreciated. It is likely the return is a hashref with a single key return whose value is an arrayref.
calculatefees
my $data = $cryp->calculatefees(
    $ordertype,  # Order type you are calculating for (Buy/Sell)
    $quantity,   # Amount of units you are buying/selling
    $price,      # Price per unit you are buying/selling at
) or die "Error: $cryp";
Takes three mandatory arguments that are (in order): order type (Buy or Sell), quantity, price. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks like this:
{
    'fee' => '11.94000000',
    'net' => '3968.06000000'
}
And according to Cryptsy's API, the meaning of the keys in the hashref is:
feeThe that would be charged for provided inputsnetThe net total with fees
generatenewaddress
my $address = $cryp->generatenewaddress(
    3,      # Currency ID for the coin you want to
            # generate a new address for (ie. 3 = BitCoin)
    'BTC',  # Currency Code for the coin you want to generate a new
            # address for (ie. BTC = BitCoin)
) or die "Error: $cryp";
my $address = $cryp->generatenewaddress( 3 )
    or die "Error: $cryp";
my $address = $cryp->generatenewaddress( undef, 'BTC' )
    or die "Error: $cryp";
Takes two optional arguments, but at least one of them must be provided. The first argument is the currency ID, the second is the currency code. If you're providing the currency code but wish not to provide the currency ID, then provide currency ID as undef. On failure returns undef or an empty list, depending on the context, and sets ->error to the error message. On success returns a data structure that looks something like this:
{
    'address' => '16zJ1sR9RBEsWsAzy8uZYM2Lr65691kwqD'
};
REPOSITORY
Fork this module on GitHub: https://github.com/zoffixznet/WebService-Cryptsy
BUGS
To report bugs or request features, please use https://github.com/zoffixznet/WebService-Cryptsy/issues
If you can't access GitHub, you can email your request to bug-WebService-Cryptsy at rt.cpan.org
AUTHOR
Zoffix Znet <zoffix at cpan.org> (http://zoffix.com/, http://haslayout.net/)
LICENSE
You can use and distribute this module under the same terms as Perl itself. See the LICENSE file included in this distribution for complete details.