Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv11346
Modified Files:
Tag: uidgid
ChangeLog
Added Files:
Tag: uidgid
User.pm
Log Message:
Initial commit, starting to make a framework and plot out my thoughts
--- NEW FILE: User.pm ---
#
# Fink::User class
#
# Fink - a package manager that downloads source and installs it
# Copyright (c) 2001 Christoph Pfisterer
# Copyright (c) 2001-2003 The Fink Package Manager Team
#
# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
package Fink::User;
use Fink::Config qw($config $basepath $debarch);
use Fink::Services qw(&execute &print_breaking &prompt &prompt_boolean);
use File::Find;
use Fcntl ':mode'; # for search_comparedb
use strict;
use warnings;
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(); # eg: qw($Var1 %Hashit &func3);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
}
our @EXPORT_OK;
our ($usrgrps, @users, @groups, $db_outdated);
@users = ();
@groups = ();
%usrgrps = ();
$db_outdated = 1;
END { } # module clean-up code here (global destructor)
### %usrgrps hash/info layout
### {user} ->
### {$usrname}{$uid} "user id range 250...299 (next avail or ask)"
### {$gid} "group id (primary group, group must be made first)"
### {$homedir} "user home directory (mkdir if need or /dev/null)"
### {$shell} "user shell (default: /usr/bin/false or /dev/null)"
### {$desc} "user description"
### [EMAIL PROTECTED] "array of pkgs that need this user, if 0 remove"
### {group} ->
### {$grpname}{$gid} "group id range 250...299 (next avail or ask)"
### [EMAIL PROTECTED] "array of pkgs that need this group, if 0 remove"
### Create User
sub add_user {
my $self = shift;
my $user = shift;
return 1;
}
### Remove User
sub del_user {
my $self = shift
my $user = shift;
return 1;
}
### Create Group
sub add_group {
my $self = shift;
my $group = shift;
return 1;
}
### Remove Group
sub del_group {
my $self = shift;
my $group = shift;
return 1;
}
### Get uid or gid
sub get_id {
my $self = shift;
my $type = shift;
my $id = 0; ### set to 0 so first value is false
### ask for uid or gid via type
while (! $self->is_id_free($type, $id) {
$id = $self->get_next_avail($type);
if ($type == "group") {
$id = &prompt("".
"", $id);
} else {
$id = &prompt("".
"", $id);
}
}
return $id;
}
### Check if id is available (return 1 id available)
sub is_id_free {
my $self = shift;
my $type = shift;
my $id = shift;
return 0;
}
### Get next available id
sub get_next_avail {
my $self = shift;
my $type = shift;
my ($id);
return $id;
}
### Forget users and groups and reload via debs or info of installed pkgs
sub forget_ids {
shift; # drop proto
@users = ();
@groups = ();
%usrgrps = ();
db_outdated = 1;
}
### get list of users and groups, either from cache or files
sub get_all_ids {
my $self = shift;
my $db = "$basepath/var/db/ids.db";
my ($group, $user);
$self->forget_ids();
# If we have the Storable perl module, try to use the ids index
if (-e $db) {
eval {
require Storable;
# We assume the DB is up-to-date unless told otherwise
$db_outdated = 0;
%usrgrps = %{Storable::retrieve($db)};
foreach $group (keys %$usrgrps{group}) {
push($group, @groups);
}
foreach $user (keys %$usrgrps{user}) {
push($user, @users);
}
}
}
# Regenerate the DB if it is outdated
if ($db_outdated) {
$self->update_id_db();
}
}
### read the infofiles and update the database, if needed and we are root
### need list of installed pkgs, only scan installed pkgs
sub update_id_db {
my $self = shift;
}
### EOF
1;
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.310
retrieving revision 1.310.2.1
diff -u -d -r1.310 -r1.310.2.1
--- ChangeLog 20 Jul 2003 17:51:09 -0000 1.310
+++ ChangeLog 9 Aug 2003 02:09:14 -0000 1.310.2.1
@@ -1,3 +1,8 @@
+2003-08-08 Justin F. Hallett <[EMAIL PROTECTED]>
+
+ * User.pm: adding User.pm for all user/group functions, started
+ template for it, doesn't do anything yet.
+
2003-07-17 Benjamin Reed <[EMAIL PROTECTED]>
* VirtPackage.pm: Don't print the output of linking the
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
