checkPerms()
{
    string perms_copy;
    integer i;
    string perms_xfer;
    string ObjectName;
    list WarningList = [];
    integer num = llGetInventoryNumber(INVENTORY_OBJECT);

    for (i = 0; i < num; ++i)
    {
        ObjectName = llGetInventoryName(INVENTORY_OBJECT, i);
        if (llGetInventoryPermMask(ObjectName, MASK_NEXT) & PERM_COPY)
        {
            perms_copy = "Copy";
        }
        if (llGetInventoryPermMask(ObjectName, MASK_NEXT) & PERM_TRANSFER)
        {
            perms_xfer = "Transfer";
        }
        if ((perms_copy == "Copy") && (perms_xfer == "Transfer"))
        {
            WarningList += ObjectName + ": " + perms_copy + " " + perms_xfer;
        }
        perms_copy = "";
        perms_xfer = "";
    }
    integer WarningNum = llGetListLength(WarningList);
    if (WarningNum == 0)
    {
        llSay(0, "All permissions are correct.");
        return;
    }
    else
    {
        for(i = 0; i < WarningNum; ++i)
        {
            string tmp01 = llList2String(WarningList, i);
            llSay(0,tmp01);
        }
    }
    WarningList = [];