NAME WebService::Freesound - Perl wrapper around Freesound OAuth2 API! VERSION Version 0.02 SYNOPSIS #!/usr/bin/perl use WebService::Freesound; my %args = ( client_id => '03bbed9a541baf763526', client_secret => 'abcde1234598765fedcba78629091899aef32101', session_file => '/var/www/myapp/freesoundrc', ); my $freesound = WebService::Freesound->new (%args); # Freesound 3-Step OAuth process: # # Step 1. # Get authorisation URL # my $authorization_url = $freesound->get_authorization_url(); # Step 2. # Redirect the user to authorization url, or paste into browser. # Or pop up an # Step 3. # A 'code' will be made available from the authorization_url from Freesound. # Use it here to get access_token, refresh_token and expiry times. These are # stored internally to the object and on disk. In theory, you should not need # to see them, but are accessible via their respective accessors. # my $rc = $freesound->get_new_oauth_tokens ($code)); if ($rc) { print $freesound->error; } # At any time you can call check_authority to see if you are still authorised, # and this will return 1 or undef/$freesound->error. It will refresh the tokens # if refresh_if_expired is set. # my $rc = $freesound->check_authority (refresh_if_expired => 1/undef); if ($rc) { print $freesound->error; } # All done with OAuth2 now it ..should.. just work forever (or until you revoke # the authorization at L, when # logged in, or set refresh_if_expired to undef). # # Get Freesound data, see L # Returns a L or undef and $freesound->error. # my $rc = $freesound->check_authority (refresh_if_expired => 1); if ($rc) { my $response = $freesound->query ("query..." or "filter..." etc) # no query question mark required. } # Download the sample from a Freesound id into the specified directory with a # progress update in counter_file - for web apps get javascript to fire an Ajax call # to read this file until 100% complete. Returns the path to the sample or undef # and $freesound->error. # my $rc = $freesound->check_authority (refresh_if_expired => 1); if ($rc) { my $file = $freesound->download ($id, '/var/www/myapp/downloads/', $counter_file); } DESCRIPTION This module provides a Perl wrapper around the https://Freesound.org RESTful API. Freesound is a collaborative database of Creative Commons Licensed sounds. It allows you to browse, download and share sounds. This Perl wrapper at present allows you 'read-only' access to Freesound, ie browse and download. Upcoming versions could provide upload, describe and edit your own sounds (though I expect it might just be easier to use their website for this). The complete Freesound API is documented at https://www.freesound.org/docs/api/index.html In order to use this Perl module you will need get an account at Freesound (https://www.freesound.org/home/register/) and then to register your application with them at https://www.freesound.org/apiv2/apply. Your application will then be given a client ID and a client secret which you will need to use to get OAuth2 authorisation. The OAuth2 Dance is described at Freesound, https://www.freesound.org/docs/api/authentication.html and officially at RFC6749 . It is a three step process as suggested above. This module should look after the authorisation once done, ie when the expiry time arrives it can automatically refresh the tokens. The auth tokens are therefore kept as a file specified by "session_file", which should be read-only by you/www-data only. When downloading a sound sample from Freesound a progress meter is available in "counter_file" which is useful in web contexts as a progress bar. Format of the file is : :: # for example "10943051:12578220:87", ie 87% of 12578220 bytes written. This is optional. Also the download will download the sample file as its name and type suffix (some Freesound names have suffixes, some don't), so something like "/var/www/myapp/downloads/Pretty tune on piano.wav", ".../violin tremolo G5.aif" etc. The query method allows you to put any text string into its parameter so that you have the full capabilities of Freesound search, filter, sort etc, as described here : https://www.freesound.org/docs/api/resources_apiv2.html If used as part of a web app, then the process could be : * Check for session_file. If none then put up an iframe with the src set to output of $freesound-get_authorization_url();> * User clicks Authorise with a callback run (set in Freesound API credentials : https://www.freesound.org/apiv2/apply (ie https://localhost/cgi-bin/mayapp/do_auth.cgi) which calls $freesound-get_oauth_tokens ($code))> - the code will be a parameter in the CGI (ie $q-param ('code')>). * Text search box on main webpage can then be used as inputs to $freesound-query> - the output formatted into HTML (from XML or json) as you wish. With Freesound you get a picture of the waveform and a low quality sound preview so you can engineer your website to show the waveform and have start/stop/pause buttons. Best not to replicate the entire Freesound website, as this might contravene their terms and conditions. * A Freesound sample will have an id. This can be used in $freesound-download ($id, $dir, $counter_file)>. * Show download progress bar by continually polling the contents of counter_file (with an Ajax call) and drawing a CSS bar. Actually downloads to your server, not the web-browser users Downloads directory. METHODS new ( client_id, client_secret and session_file ) Creates a new Freesound object for authorisation, queries and downloads. client_id, client_secret and session_file are required. client_id Accessor for the Client ID that was provided when you registered your application with Freesound.org. client_secret Accessor for the client secret that was provided when you registered your application with Freesound.org. session_file Accessor for the session file that stores the authorisation codes. ua Accessor for the User Agent. error Accessor for the error messages that may occur. access_token Accessor for the OAuth2 access_token. refresh_token Accessor for the OAuth2 refresh_token. expires_in Accessor for the OAuth2 expiry time. get_authorization_url This returns the URL to start with when no auth is offered or accepted. Use it in an iframe if using this in a CGI environment (ie send to Template::Toolkit). get_new_oauth_tokens ( code ) Takes the resultant 'code' displayed when the user authorises this app on Freesound.org and then sets the internal OAuth tokens, along with expiry time. This method seriailises this in the session_file for later use. This is Step 3 in the process as described in https://www.freesound.org/docs/api/authentication.html. Returns 1 if succesful, undef and $freesound->error if not. check_authority Checks the session file exists, has a current token. If no session file, then returns URI to get the initial code from. If session file exists and and has not expired then it checks with Freesound.org for existing authority. If the tokens need refreshing and refresh_if_expired is set, it attempts a refresh. If that's successful, then updates the session file with new oauth tokens. Return error if the refresh didn't work (or refreshable but not asked to) - maybe because the authority has been revoked. See https://www.freesound.org/home/app_permissions/ when logged into Freesound.org. Return error if there is no authorisation at Freesound.org. query ( query-string ) Does the querying of the Freesound database, see https://www.freesound.org/docs/api/resources_apiv2.html Should just let any string go into the query like filter, tag, sort, geotag etc. Just a string. Returns whatever Freesound returns in an HTTP::Response. download ( sample-id, download-directory, {counter-file} ) The sample-id is unique to a sample on Freesound, use $freesound-query>. The download-directory is where the downloaded file should go, the actual sound file will be named after its name on Freesound and will have the correct extension (wav, mp3, aif etc). The counter_file is optional - it keeps a running count of the download progress . In a web environment a Javascript Ajax call can read this in real-time to give a progress bar. counter_file probably needs to be named with a session id of some sort. Returns the path of the file or undef (then see $freesound-error>). get_filename_from_id ( id ) Does a query to get two fields - name and type (wav, mp3, aif etc) from the Freesound id of the sample. Returns undef and $freesound->error if can't find a name/type for this id. INTERNAL SUBROUTINES/METHODS Please don't use these as they may change on a whim. _post_request Updates the objects oauth tokens and session file from User Agent response. Returns 1 or undef and $freesound->error. AUTHOR Andy Cragg, BUGS This is beta code and may contain bugs - please feel free to fix them and send patches. SUPPORT You can find documentation for this module with the perldoc command. perldoc WebService::Freesound You can also look for information at: * RT: CPAN's request tracker (report bugs here) http://rt.cpan.org/NoAuth/Bugs.html?Dist=WebService-Freesound * AnnoCPAN: Annotated CPAN documentation http://annocpan.org/dist/WebService-Freesound * CPAN Ratings http://cpanratings.perl.org/d/WebService-Freesound * Search CPAN http://search.cpan.org/dist/WebService-Freesound/ ACKNOWLEDGEMENTS I had a look at WebService::Soundlcoud by Mohan Prasad Gutta, http://search.cpan.org/~mpgutta/ for some ideas. LICENSE AND COPYRIGHT Copyright 2016 Andy Cragg. This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at: http://www.perlfoundation.org/artistic_license_2_0 Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license. If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed. Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.