-- SQL-UNIX-API (prototype)

-- Copyright © 2014 František Kučera (frantovo.cz)

-- 

-- 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 3 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, see <http://www.gnu.org/licenses/>.

-- CREATE SCHEMA unix_sql_api;

SET search_path TO unix_sql_api;

-- fstab: --------------------------------------------------------------------

DROP VIEW IF EXISTS fstab;

DROP FUNCTION IF EXISTS fstab();

DROP TYPE IF EXISTS unix_sql_api_fstab;

CREATE TYPE unix_sql_api_fstab AS (

	device VARCHAR,

	device_type VARCHAR,

	device_value VARCHAR,

	mount_point VARCHAR,

	type VARCHAR,

	types VARCHAR[],

	options VARCHAR[],

	dump INTEGER,

	pass INTEGER

);

CREATE OR REPLACE FUNCTION fstab()

RETURNS SETOF unix_sql_api_fstab AS $$

	use strict;

	use warnings;

	open(FSTAB, "<", "/etc/fstab") or die $!;

	while (<FSTAB>) {

		if (/^([^\s#]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+(\d+)\s+(\d+)\s*$/) {

			my $device_spec_type;

			my $device_spec_value;

			{

				if ($1 =~ /([^=]+)=(.*)/) {

					($device_spec_type, $device_spec_value) = ($1, $2);

				}

			}

			return_next({

				device => $1,

				device_type => $device_spec_type,

				device_value => $device_spec_value,

				mount_point => $2,

				type => $3,

				types => [split(",", $3)],

				options => [split(",", $4)],

				dump => $5,

				pass => $6

			});

		}

	}

	return undef;

$$ LANGUAGE plperlu;

CREATE OR REPLACE VIEW fstab AS

	SELECT * FROM fstab()

;

-- user groups: --------------------------------------------------------------

DROP VIEW IF EXISTS groups;

DROP FUNCTION IF EXISTS groups();

DROP TYPE IF EXISTS unix_sql_api_groups;

CREATE TYPE unix_sql_api_groups AS (

	id INTEGER,

	name VARCHAR,

	members VARCHAR[]

);

CREATE OR REPLACE FUNCTION groups()

RETURNS SETOF unix_sql_api_groups AS $$

	use strict;

	use warnings;

	use User::grent;

	while (my $group = getgrent()) {

		return_next({

			id => $group->gid,

			name => $group->name,

			members => [@{$group->members}]

		});

	}

	elog(NOTICE, "members field does not contain users who have this group as primary one");

	return undef;

$$ LANGUAGE plperlu;

CREATE OR REPLACE VIEW groups AS

	SELECT * FROM groups()

;

COMMENT ON COLUMN groups.members IS 'does not contain users who have this group as primary one';

-- user: ---------------------------------------------------------------------

DROP VIEW IF EXISTS users;

DROP FUNCTION IF EXISTS users();

DROP TYPE IF EXISTS unix_sql_api_users;

CREATE TYPE unix_sql_api_users AS (

	id INTEGER,

	gid INTEGER,

	name VARCHAR,

	-- comment VARCHAR,

	gecos VARCHAR[],

	home VARCHAR,

	shell VARCHAR

	-- expire VARCHAR

);

CREATE OR REPLACE FUNCTION users()

RETURNS SETOF unix_sql_api_users AS $$

	use strict;

	use warnings;

	use encoding "UTF-8";

	use User::pwent;

	while (my $user = getpwent()) {

		return_next({

			id => $user->uid,

			gid => $user->gid,

			name => $user->name,

			# comment => $user->comment,

			gecos => [split(",", $user->gecos)],

			home => $user->dir,

			shell => $user->shell,

			# expire => $user->expire

		});

	}

	return undef;

$$ LANGUAGE plperlu;

CREATE OR REPLACE VIEW users AS

	SELECT * FROM users()

;