C4/UsageStats.pm

   1 package C4::UsageStats;
   2
   3 # This file is part of Koha.
   4 #
   5 # Copyright 2014 BibLibre
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use Modern::Perl;
  21 use C4::Context;
  22 use POSIX qw(strftime);
  23 use LWP::UserAgent;
  24 use JSON;
  25
  26 use Koha::Libraries;
  27
  28 =head1 NAME
  29
  30 C4::UsageStats
  31
  32 =head1 DESCRIPTION
  33
  34 This package contains what is needed to report Koha statistics to hea
  35 hea.koha-community.org is the server that centralize Koha setups informations
  36 Koha libraries are encouraged to provide informations about their collections,
  37 their structure,...
  38
  39 =head2 NeedUpdate
  40
  41   $needUpdateYN = C4::UsageStats::NeedUpdate;
  42
  43 Returns Y (1) if the last update is more than 1 month old
  44 This way, even if the cronjob is run every minute, the webservice will be called
  45 only once a month !
  46
  47 =cut
  48
  49 sub NeedUpdate {
  50     my $lastupdated = C4::Context->preference('UsageStatsLastUpdateTime') || 0;
  51     my $now = strftime( "%s", localtime );
  52
  53     # Need to launch cron.
  54     return 1 if $now - $lastupdated >= 2592000;
  55
  56     # Data don't need to be updated
  57     return 0;
  58 }
  59
  60 sub BuildReport {
  61     my $report;
  62     my @libraries;
  63     if( C4::Context->preference('UsageStatsLibrariesInfo') ) {
  64         my $libraries = Koha::Libraries->search;
  65         while ( my $library = $libraries->next ) {
  66             push @libraries, { name => $library->branchname, url => $library->branchurl, country => $library->branchcountry, geolocation => $library->geolocation, };
  67         }
  68     }
  69     $report = {
  70         installation => {
  71             koha_id => C4::Context->preference('UsageStatsID')          || 0,
  72             name    => C4::Context->preference('UsageStatsLibraryName') || q||,
  73             url     => C4::Context->preference('UsageStatsLibraryUrl')  || q||,
  74             type    => C4::Context->preference('UsageStatsLibraryType') || q||,
  75             country => C4::Context->preference('UsageStatsCountry')     || q||,
  76             geolocation => C4::Context->preference('UsageStatsGeolocation') || q||,
  77         },
  78         libraries => \@libraries,
  79     };
  80
  81     # Get database volumetry.
  82     foreach (
  83         qw/biblio items auth_header old_issues old_reserves borrowers aqorders subscription/
  84       )
  85     {
  86         $report->{volumetry}{$_} = _count($_);
  87     }
  88
  89     # Get systempreferences.
  90     foreach (
  91         qw/
  92         AcqCreateItem
  93         AcqWarnOnDuplicateInvoice
  94         AcqViewBaskets
  95         BasketConfirmations
  96         OrderPdfFormat
  97         casAuthentication
  98         casLogout
  99         AllowPKIAuth
 100         DebugLevel
 101         delimiter
 102         noItemTypeImages
 103         virtualshelves
 104         AutoLocation
 105         IndependentBranches
 106         SessionStorage
 107         Persona
 108         AuthDisplayHierarchy
 109         AutoCreateAuthorities
 110         BiblioAddsAuthorities
 111         AuthorityMergeLimit
 112         AuthorityMergeMode
 113         UseAuthoritiesForTracings
 114         CatalogModuleRelink
 115         hide_marc
 116         IntranetBiblioDefaultView
 117         LabelMARCView
 118         OpacSuppression
 119         SeparateHoldings
 120         UseControlNumber
 121         advancedMARCeditor
 122         DefaultClassificationSource
 123         EasyAnalyticalRecords
 124         autoBarcode
 125         item-level_itypes
 126         marcflavour
 127         PrefillItem
 128         z3950NormalizeAuthor
 129         SpineLabelAutoPrint
 130         SpineLabelShowPrintOnBibDetails
 131         BlockReturnOfLostItems
 132         BlockReturnOfWithdrawnItems
 133         CalculateFinesOnReturn
 134         AgeRestrictionOverride
 135         AllFinesNeedOverride
 136         AllowFineOverride
 137         AllowItemsOnHoldCheckout
 138         AllowItemsOnHoldCheckoutSCO
 139         AllowNotForLoanOverride
 140         AllowRenewalLimitOverride
 141         AllowReturnToBranch
 142         AllowTooManyOverride
 143         AutomaticItemReturn
 144         AutoRemoveOverduesRestrictions
 145         CircControl
 146         HomeOrHoldingBranch
 147         InProcessingToShelvingCart
 148         IssueLostItem
 149         IssuingInProcess
 150         ManInvInNoissuesCharge
 151         OverduesBlockCirc
 152         RenewalPeriodBase
 153         RenewalSendNotice
 154         RentalsInNoissuesCharge
 155         ReturnBeforeExpiry
 156         ReturnToShelvingCart
 157         TransfersMaxDaysWarning
 158         UseBranchTransferLimits
 159         useDaysMode
 160         UseTransportCostMatrix
 161         UseCourseReserves
 162         finesCalendar
 163         FinesIncludeGracePeriod
 164         finesMode
 165         RefundLostOnReturnControl
 166         WhenLostChargeReplacementFee
 167         WhenLostForgiveFine
 168         AllowHoldDateInFuture
 169         AllowHoldPolicyOverride
 170         AllowHoldsOnDamagedItems
 171         AllowHoldsOnPatronsPossessions
 172         AutoResumeSuspendedHolds
 173         canreservefromotherbranches
 174         decreaseLoanHighHolds
 175         DisplayMultiPlaceHold
 176         emailLibrarianWhenHoldIsPlaced
 177         ExpireReservesMaxPickUpDelay
 178         OPACAllowHoldDateInFuture
 179         OPACAllowUserToChooseBranch
 180         ReservesControlBranch
 181         ReservesNeedReturns
 182         SuspendHoldsIntranet
 183         SuspendHoldsOpac
 184         TransferWhenCancelAllWaitingHolds
 185         AllowAllMessageDeletion
 186         AllowOfflineCirculation
 187         CircAutocompl
 188         CircAutoPrintQuickSlip
 189         DisplayClearScreenButton
 190         FilterBeforeOverdueReport
 191         FineNotifyAtCheckin
 192         itemBarcodeFallbackSearch
 193         itemBarcodeInputFilter
 194         previousIssuesDefaultSortOrder
 195         RecordLocalUseOnReturn
 196         AudioAlerts
 197         SpecifyDueDate
 198         todaysIssuesDefaultSortOrder
 199         UpdateTotalIssuesOnCirc
 200         UseTablesortForCirc
 201         WaitingNotifyAtCheckin
 202         AllowSelfCheckReturns
 203         AutoSelfCheckAllowed
 204         FRBRizeEditions
 205         OPACFRBRizeEditions
 206         AmazonCoverImages
 207         OPACAmazonCoverImages
 208         Babeltheque
 209         BakerTaylorEnabled
 210         GoogleJackets
 211         HTML5MediaEnabled
 212         IDreamBooksReadometer
 213         IDreamBooksResults
 214         IDreamBooksReviews
 215         LibraryThingForLibrariesEnabled
 216         LocalCoverImages
 217         OPACLocalCoverImages
 218         NovelistSelectEnabled
 219         OpenLibraryCovers
 220         OpenLibrarySearch
 221         UseKohaPlugins
 222         SyndeticsEnabled
 223         TagsEnabled
 224         CalendarFirstDayOfWeek
 225         opaclanguagesdisplay
 226         AuthoritiesLog
 227         BorrowersLog
 228         CataloguingLog
 229         FinesLog
 230         IssueLog
 231         LetterLog
 232         ReturnLog
 233         SubscriptionLog
 234         BiblioDefaultView
 235         COinSinOPACResults
 236         DisplayOPACiconsXSLT
 237         hidelostitems
 238         HighlightOwnItemsOnOPAC
 239         OpacAddMastheadLibraryPulldown
 240         OPACDisplay856uAsImage
 241         OpacHighlightedWords
 242         OpacKohaUrl
 243         OpacMaintenance
 244         OpacPublic
 245         OpacSeparateHoldings
 246         OPACShowCheckoutName
 247         OpacShowFiltersPulldownMobile
 248         OPACShowHoldQueueDetails
 249         OpacShowLibrariesPulldownMobile
 250         OpacShowRecentComments
 251         OPACShowUnusedAuthorities
 252         OpacStarRatings
 253         opacthemes
 254         OPACURLOpenInNewWindow
 255         OpacAuthorities
 256         opacbookbag
 257         OpacBrowser
 258         OpacBrowseResults
 259         OpacCloud
 260         OPACFinesTab
 261         OpacHoldNotes
 262         OpacItemLocation
 263         OpacPasswordChange
 264         OPACPatronDetails
 265         OPACpatronimages
 266         OPACPopupAuthorsSearch
 267         OpacTopissue
 268         opacuserlogin
 269         QuoteOfTheDay
 270         RequestOnOpac
 271         reviewson
 272         ShowReviewer
 273         ShowReviewerPhoto
 274         SocialNetworks
 275         suggestion
 276         AllowPurchaseSuggestionBranchChoice
 277         OpacAllowPublicListCreation
 278         OpacAllowSharingPrivateLists
 279         OpacRenewalAllowed
 280         OpacRenewalBranch
 281         OPACViewOthersSuggestions
 282         SearchMyLibraryFirst
 283         AnonSuggestions
 284         EnableOpacSearchHistory
 285         OPACPrivacy
 286         opacreadinghistory
 287         TrackClicks
 288         PatronSelfRegistration
 289         OPACShelfBrowser
 290         AutoEmailOpacUser
 291         AutoEmailPrimaryAddress
 292         autoMemberNum
 293         BorrowerRenewalPeriodBase
 294         checkdigit
 295         EnableBorrowerFiles
 296         EnhancedMessagingPreferences
 297         ExtendedPatronAttributes
 298         intranetreadinghistory
 299         memberofinstitution
 300         patronimages
 301         TalkingTechItivaPhoneNotification
 302         uppercasesurnames
 303         IncludeSeeFromInSearches
 304         OpacGroupResults
 305         QueryAutoTruncate
 306         QueryFuzzy
 307         QueryStemming
 308         QueryWeightFields
 309         TraceCompleteSubfields
 310         TraceSubjectSubdivisions
 311         UseICU
 312         UseQueryParser
 313         defaultSortField
 314         displayFacetCount
 315         OPACdefaultSortField
 316         OPACItemsResultsDisplay
 317         expandedSearchOption
 318         IntranetNumbersPreferPhrase
 319         OPACNumbersPreferPhrase
 320         opacSerialDefaultTab
 321         RenewSerialAddsSuggestion
 322         RoutingListAddReserves
 323         RoutingSerials
 324         SubscriptionHistory
 325         Display856uAsImage
 326         DisplayIconsXSLT
 327         template
 328         yuipath
 329         HidePatronName
 330         intranetbookbag
 331         StaffDetailItemSelection
 332         viewISBD
 333         viewLabeledMARC
 334         viewMARC
 335         ILS-DI
 336         OAI-PMH
 337         version
 338         /
 339       )
 340     {
 341         $report->{systempreferences}{$_} = C4::Context->preference($_);
 342     }
 343     return $report;
 344 }
 345
 346 =head2 ReportToCommunity
 347
 348   ReportToCommunity;
 349
 350 Send to hea.koha-community.org database informations
 351
 352 =cut
 353
 354 sub ReportToCommunity {
 355     my $data = shift;
 356     my $json = encode_json($data);
 357
 358     my $url = "https://hea.koha-community.org/upload.pl";
 359     my $ua = LWP::UserAgent->new;
 360     my $res = $ua->post(
 361         $url,
 362         'Content-type' => 'application/json;charset=utf-8',
 363         Content => $json,
 364     );
 365     my $content = decode_json( $res->decoded_content );
 366     if ( $content->{koha_id} ) {
 367         C4::Context->set_preference( 'UsageStatsID', $content->{koha_id} );
 368     }
 369     if ( $content->{id} ) {
 370         C4::Context->set_preference( 'UsageStatsPublicID', $content->{id} );
 371     }
 372 }
 373
 374 =head2 _count
 375
 376   $data = _count($table);
 377
 378 Count the number of records in $table tables
 379
 380 =cut
 381
 382 sub _count {
 383     my $table = shift;
 384
 385     my $dbh = C4::Context->dbh;
 386     my $sth = $dbh->prepare("SELECT count(*) from $table");
 387     $sth->execute;
 388     return $sth->fetchrow_array;
 389 }
 390
 391 1;