diff --git a/scripts/ZoneMinder/lib/ZoneMinder/User.pm b/scripts/ZoneMinder/lib/ZoneMinder/User.pm new file mode 100644 index 000000000..47ba895a9 --- /dev/null +++ b/scripts/ZoneMinder/lib/ZoneMinder/User.pm @@ -0,0 +1,80 @@ +# ========================================================================== +# +# ZoneMinder User Module +# Copyright (C) 2020 ZoneMinder LLC +# +# This program 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 2 +# of the License, or (at your option) any later version. +# +# This program 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, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# +# ========================================================================== + +package ZoneMinder::Frame; + +use 5.006; +use strict; +use warnings; + +require ZoneMinder::Base; +require ZoneMinder::Object; + +use parent qw(ZoneMinder::Object); + +use vars qw/ $table $primary_key %fields /; +$table = 'Users'; +$primary_key = 'Id'; + +%fields = map { $_ => $_ } qw( +Id +Username +Password +Language +Enabled +Stream +Events +Control +Monitors +Groups +Devices +System +MaxBandwidth +MonitorIds +TokenMinExpiry +APIEnabled +); + +1; +__END__ + +=head1 NAME + +ZoneMinder::User - Perl Class for Users + +=head1 SYNOPSIS + +use ZoneMinder::User; + +=head1 AUTHOR + +Isaac Connor, Eisaac@zoneminder.comE + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2001-2017 ZoneMinder LLC + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.8.3 or, +at your option, any later version of Perl 5 you may have available. + + +=cut