###########################################
# MyDropBox -- Dropbox access with 
#   stored credentials
# Mike Schilli, 2011 (m@perlmeister.com)
###########################################
package MyDropbox;
use strict;
use base 'Net::Dropbox::API';
use YAML qw(LoadFile);

my $dev_key    = "iyaiu823ajksgwf";
my $dev_secret = "zlkj32lkj2kl3dp";
my($home)      = glob '~';
my $CFG_FILE   = "$home/.dropbox.yml";

###########################################
sub new {
###########################################
  my($class) = @_;

  my $box = Net::Dropbox::API->new({
    key    => $dev_key,
    secret => $dev_secret,
  });

  my $cfg = LoadFile( $CFG_FILE );
  $box->access_token( 
      $cfg->{access_token} );
  $box->access_secret( 
      $cfg->{access_secret} );
  
  bless $box, $class;
}

1;