-- Accorder le droit d'insertion
GRANT INSERT ON Village TO employe_app;

-- Basculer vers l'utilisateur employé pour tester
CONN employe_app/password
-- Tester l'insertion
INSERT INTO Village (idv, ville, activite, prix, capacite) VALUES (100, 'Paris', 'Cyclisme', 100, 20);

-- Revenir au programmeur pour retirer le droit
CONN programmer/password
REVOKE INSERT ON Village FROM employe_app;

-- Revenir à l'employé pour vérifier que le droit est retiré
CONN employe_app/password
-- Cette commande doit générer une erreur
INSERT INTO Village (idv, ville, activite, prix, capacite) VALUES (101, 'Rome', 'Natation', 200, 50);

-- Accorder le droit d'exécuter la procédure
GRANT EXECUTE ON traitement2 TO employe_app;

-- Basculer vers l'utilisateur employé pour tester
CONN employe_app/password
-- Tester l'exécution de la procédure
BEGIN
   traitement2(<client_id>, '<ville>', <jour>);
END;

-- Vérifier si l'encapsulation est respectée
-- L'utilisateur employé ne doit pas avoir accès direct aux tables utilisées dans la procédure
SELECT * FROM Sejour; -- Cette commande doit générer une erreur.

-- Droits pour créer et modifier les villages
GRANT INSERT, UPDATE ON Village TO employe_app;
-- Droit de consulter les villages
GRANT SELECT ON Village TO employe_app;
-- Droit de consulter les séjours
GRANT SELECT ON Sejour TO employe_app;

-- Droit de consulter les villages sans séjours (sans la capacité)
CREATE VIEW VueVillagesSansSejours AS
SELECT idv, ville, activite FROM Village WHERE idv NOT IN (SELECT idv FROM Sejour);
GRANT SELECT ON VueVillagesSansSejours TO client_app;

-- Droits pour consulter uniquement leurs propres données
CREATE VIEW VueClientSejour AS
SELECT * FROM Sejour WHERE idc = "Alice";
GRANT SELECT ON VueClientSejour TO client_app;

CREATE VIEW VueClientDonnees AS
SELECT * FROM Client WHERE idc = "Alice";
GRANT SELECT ON VueClientDonnees TO client_app;

-- Créer une vue filtrant les données selon l'utilisateur
CREATE VIEW VueClientPropre AS
SELECT * FROM Client WHERE idc = "Alice";

-- Accorder les droits sur la vue uniquement
GRANT SELECT ON VueClientPropre TO client_app;

-- Tester en tant que client
CONN client_app/password
SELECT * FROM VueClientPropre; -- Affiche uniquement les données de l'utilisateur connecté.
SELECT * FROM Client; -- Cette commande doit générer une erreur.

-- Création d'un compte générique pour les clients
CREATE USER client_app IDENTIFIED BY password;

-- Création d'un compte pour les employés
CREATE USER employe_app IDENTIFIED BY password;

-- Lister les droits existants sur les tables
SELECT * FROM DBA_TAB_PRIVS -- en admin sinon un utilisateur normal peut utiliser USER_TAB_PRIVS
WHERE TABLE_NAME IN ('CLIENT', 'VILLAGE', 'SEJOUR') 
AND GRANTEE IN ('CLIENT_APP', 'EMPLOYE_APP');

-- Révoquer les droits trouvés
REVOKE ALL PRIVILEGES ON Client FROM client_app, employe_app;
REVOKE ALL PRIVILEGES ON Village FROM client_app, employe_app;
REVOKE ALL PRIVILEGES ON Sejour FROM client_app, employe_app;

-- Créer une vue pour filtrer les données des clients
CREATE VIEW VueClientDonnees AS
SELECT idc, nom, age, avoir FROM Client WHERE idc = "Alice";

-- Accorder les droits sur cette vue
GRANT SELECT ON VueClientDonnees TO client_app;

-- Tester en tant que client
CONN client_app/password
SELECT * FROM VueClientDonnees; -- Affiche uniquement les données du client connecté.

-- Création de la procédure
CREATE OR REPLACE PROCEDURE acheter_sejour(
    p_idc IN NUMBER,
    p_ville IN VARCHAR2,
    p_jour IN NUMBER,
    p_idv OUT NUMBER,
    p_ids OUT NUMBER,
    p_activite OUT VARCHAR2
) AS
BEGIN

    -- Logique du traitement ici (simplifié)
    SELECT idv, activite INTO p_idv, p_activite 
    FROM Village 
    WHERE ville = p_ville 
    ORDER BY prix DESC FETCH FIRST 1 ROW ONLY;

    INSERT INTO Sejour(ids, idc, idv, jour) 
    VALUES (SEQ_SEJOUR.NEXTVAL, p_idc, p_idv, p_jour);

    -- Mettre à jour l'avoir du client
    UPDATE Client SET avoir = avoir - (SELECT prix FROM Village WHERE idv = p_idv) 
    WHERE idc = p_idc;

    -- Retourner l'ID du séjour créé
    SELECT MAX(ids) INTO p_ids FROM Sejour WHERE idc = p_idc;
END;

-- Accorder les droits d'exécution
GRANT EXECUTE ON acheter_sejour TO client_app;

-- Tester en tant que client
CONN client_app/password
DECLARE
    idv NUMBER;
    ids NUMBER;
    activite VARCHAR2(50);
BEGIN
    acheter_sejour(1, 'Paris', 100, idv, ids, activite);
    DBMS_OUTPUT.PUT_LINE('Village ID: ' || idv || ', Séjour ID: ' || ids || ', Activité: ' || activite);
END;

-- La vue suivante simule un accès restreint aux clients
CREATE VIEW VueClientsMajoritaires AS
SELECT idc, nom FROM Client WHERE age >= 18;
GRANT SELECT ON VueClientsMajoritaires TO employe_app;

-- Tester en tant qu'employé
CONN employe_app/password
SELECT * FROM VueClientsMajoritaires; -- Montre uniquement les clients majeurs.