Mursketori API — Developer Documentation

Language	File	Description
PHP	samples/php/list_quarries.php	Owner key — list quarries & piles, create, delete
PHP	samples/php/lab_upload_report.php	Lab key — list assigned piles, mark tested, upload/delete PDF
Visual Basic 6	samples/vb6/MursketoriAPI.bas	Owner key — full CRUD for quarries and piles
Visual Basic 6	samples/vb6/MursketoriLabAPI.bas	Lab key — list piles, mark tested, upload/delete PDF

<?php
/**
 * Mursketori API -- PHP sample: Quarry Owner
 *
 * Covers full CRUD for quarries and piles.
 * Requirements: PHP 5.6+, no extra libraries (uses file_get_contents).
 *
 * Usage: php owner_api.php
 * Replace API_KEY below with your quarry owner key from siteadmin.
 */

define('API_BASE', 'https://mursketori.com/API/v1');
define('API_KEY',  'mrsk_your_owner_key_here');

// =============================================================================
// HTTP helper
// =============================================================================

function api($method, $path, $body = null) {
    $headers = array(
        'Authorization: Bearer ' . API_KEY,
        'Accept: application/json',
    );
    $opts = array(
        'http' => array(
            'method'        => $method,
            'header'        => implode("\r\n", $headers),
            'ignore_errors' => true,
        )
    );
    if ($body !== null) {
        $json = json_encode($body);
        $opts['http']['content'] = $json;
        $opts['http']['header'] .= "\r\nContent-Type: application/json\r\nContent-Length: " . strlen($json);
    }
    $raw = file_get_contents(API_BASE . $path, false, stream_context_create($opts));
    return json_decode($raw, true);
}

function check($result, $context) {
    if (isset($result['error'])) {
        echo "  ERROR in {$context}: " . $result['error'] . "\n";
        return false;
    }
    return true;
}

// =============================================================================
// QUARRIES
// =============================================================================

// --- List all quarries -------------------------------------------------------
echo "\n=== List quarries ===\n";
$r = api('GET', '/quarries.php');
if (check($r, 'list quarries')) {
    foreach ($r['quarries'] as $q) {
        printf("  [%d] %-25s  city: %-15s  lat: %s  lng: %s\n",
            $q['id'], $q['name'], $q['city'] ?: '-', $q['lat'] ?: '?', $q['lng'] ?: '?');
    }
    echo "  Total: " . $r['count'] . "\n";
}

// --- List quarries of a specific owner (useful for lab keys) -----------------
echo "\n=== List quarries for owner 165 ===\n";
$filtered = api('GET', '/quarries.php?ownerid=165');
if (check($filtered, 'list by owner')) {
    foreach ($filtered['quarries'] as $q) {
        printf("  [%d] %-25s  city: %-15s\n", $q['id'], $q['name'], $q['city'] ?: '-');
    }
    echo "  Total: " . $filtered['count'] . "\n";
}

// --- Get single quarry -------------------------------------------------------
if (!empty($r['quarries'])) {
    $quarryId = $r['quarries'][0]['id'];
    echo "\n=== Get quarry #{$quarryId} ===\n";
    $q = api('GET', '/quarries.php?id=' . $quarryId);
    if (check($q, 'get quarry')) {
        echo "  Name: {$q['name']}  City: {$q['city']}  Status: {$q['status']}\n";
    }
}

// --- Create quarry -----------------------------------------------------------
echo "\n=== Create quarry ===\n";
$created = api('POST', '/quarries.php', array(
    'name'   => 'API Test Quarry',
    'city'   => 'Tampere',
    'lat'    => 61.4978,
    'lng'    => 23.7610,
    'status' => 'active',
));
if (check($created, 'create quarry')) {
    $newQuarryId = $created['id'];
    echo "  Created ID: {$newQuarryId}  Name: {$created['name']}\n";

    // --- Update quarry -------------------------------------------------------
    echo "\n=== Update quarry #{$newQuarryId} ===\n";
    $upd = api('PUT', '/quarries.php?id=' . $newQuarryId, array(
        'name' => 'API Test Quarry (updated)',
        'city' => 'Helsinki',
    ));
    if (check($upd, 'update quarry')) {
        echo "  Updated name: {$upd['name']}  city: {$upd['city']}\n";
    }

    // --- Delete quarry -------------------------------------------------------
    echo "\n=== Delete quarry #{$newQuarryId} ===\n";
    $del = api('DELETE', '/quarries.php?id=' . $newQuarryId);
    echo "  " . (isset($del['deleted']) && $del['deleted'] ? "Deleted OK" : "Delete failed") . "\n";
}

// =============================================================================
// PILES  (uses first existing quarry)
// =============================================================================

if (empty($r['quarries'])) {
    echo "\n(No quarries available to test pile operations.)\n";
    exit;
}
$quarryId = $r['quarries'][0]['id'];

// --- List piles in quarry ----------------------------------------------------
echo "\n=== List piles in quarry #{$quarryId} ===\n";
$pr = api('GET', '/piles.php?quarry_id=' . $quarryId);
if (check($pr, 'list piles')) {
    foreach ($pr['piles'] as $p) {
        printf("  [%d] %-20s  material: %-15s  tested: %-3s  for_sale: %-3s  price: %s\n",
            $p['id'], $p['name'], $p['material'] ?: '-',
            $p['test_valid'] ? 'yes' : 'no',
            $p['for_sale']   ? 'yes' : 'no',
            isset($p['price']) && $p['price'] !== null ? $p['price'] . ' EUR/t' : '-');
    }
    echo "  Total: " . $pr['count'] . "\n";
}

// --- Get single pile ---------------------------------------------------------
if (!empty($pr['piles'])) {
    $pileId = $pr['piles'][0]['id'];
    echo "\n=== Get pile #{$pileId} ===\n";
    $p = api('GET', '/piles.php?id=' . $pileId);
    if (check($p, 'get pile')) {
        echo "  Name: {$p['name']}  Material: {$p['material']}  Volume: {$p['volume']} t\n";
    }
}

// --- Create pile -------------------------------------------------------------
echo "\n=== Create pile in quarry #{$quarryId} ===\n";
$cp = api('POST', '/piles.php', array(
    'quarry_id' => $quarryId,
    'name'      => 'API Test Pile',
    'material'  => '0-32',
    'volume'    => 500,
    'price'     => 8.50,
    'for_sale'  => true,
));
if (check($cp, 'create pile')) {
    $newPileId = $cp['id'];
    echo "  Created pile ID: {$newPileId}  Name: {$cp['name']}\n";

    // --- Update pile ---------------------------------------------------------
    echo "\n=== Update pile #{$newPileId} ===\n";
    $up = api('PUT', '/piles.php?id=' . $newPileId, array(
        'name'     => 'API Test Pile (updated)',
        'volume'   => 750,
        'price'    => 9.00,
        'for_sale' => false,
    ));
    if (check($up, 'update pile')) {
        echo "  Updated name: {$up['name']}  volume: {$up['volume']} t  price: {$up['price']}\n";
    }

    // --- Delete pile ---------------------------------------------------------
    echo "\n=== Delete pile #{$newPileId} ===\n";
    $dp = api('DELETE', '/piles.php?id=' . $newPileId);
    echo "  " . (isset($dp['deleted']) && $dp['deleted'] ? "Deleted OK" : "Delete failed") . "\n";
}

echo "\nDone.\n";

<?php
/**
 * Mursketori API -- PHP sample: Laboratory
 *
 * Covers all laboratory operations:
 *   - List assigned piles (all or filtered by quarry)
 *   - Mark pile as KL-tested / clear test mark
 *   - Upload lab report PDF
 *   - Upload CE certificate PDF
 *   - Delete lab report
 *   - Delete CE certificate
 *
 * Requirements: PHP 5.6+, cURL extension (for file upload).
 * Replace LAB_API_KEY below with your laboratory API key from siteadmin.
 */

define('LAB_API_BASE', 'https://mursketori.com/API/v1/lab');
define('LAB_API_KEY',  'mrsk_your_lab_key_here');

// =============================================================================
// Helpers
// =============================================================================

// JSON request (GET / POST with JSON body / DELETE with JSON body)
function lab($method, $path, $body = null) {
    $ch = curl_init(LAB_API_BASE . $path);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($ch, CURLOPT_CUSTOMREQUEST, $method);
    curl_setopt($ch, CURLOPT_HTTPHEADER, array(
        'Authorization: Bearer ' . LAB_API_KEY,
        'Accept: application/json',
        'Content-Type: application/json',
    ));
    if ($body !== null) {
        curl_setopt($ch, CURLOPT_POSTFIELDS, json_encode($body));
    }
    $raw = curl_exec($ch);
    curl_close($ch);
    return json_decode($raw, true);
}

// Multipart file upload (POST with PDF file)
function lab_upload($pileId, $docType, $filePath) {
    $ch = curl_init(LAB_API_BASE . '/documents.php');
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($ch, CURLOPT_POST, true);
    curl_setopt($ch, CURLOPT_HTTPHEADER, array(
        'Authorization: Bearer ' . LAB_API_KEY,
        'Accept: application/json',
        // Content-Type set automatically by cURL for multipart
    ));
    curl_setopt($ch, CURLOPT_POSTFIELDS, array(
        'pile_id'  => $pileId,
        'doc_type' => $docType,
        'file'     => new CURLFile($filePath, 'application/pdf', basename($filePath)),
    ));
    $raw = curl_exec($ch);
    curl_close($ch);
    return json_decode($raw, true);
}

function check($result, $context) {
    if (!is_array($result)) {
        echo "  ERROR in {$context}: no response\n";
        return false;
    }
    if (isset($result['error'])) {
        echo "  ERROR in {$context}: " . $result['error'] . "\n";
        return false;
    }
    return true;
}

// =============================================================================
// LIST PILES
// =============================================================================

// --- All piles assigned to this laboratory -----------------------------------
echo "\n=== All assigned piles ===\n";
$r = lab('GET', '/piles.php');
if (!check($r, 'list piles')) exit(1);

foreach ($r['piles'] as $p) {
    printf("  [%d] %-22s  quarry: %-20s  owner: %-20s  tested: %s\n",
        $p['id'],
        $p['pile_name'],
        $p['quarry_name'],
        $p['owner_company'],
        $p['test_valid'] ? 'YES until ' . $p['test_valid_until'] : 'no');
}
echo "  Total: " . $r['count'] . "\n";

// --- Piles filtered by a specific quarry -------------------------------------
// Uncomment and set a real quarry ID to use this filter:
// echo "\n=== Piles in quarry #42 ===\n";
// $rq = lab('GET', '/piles.php?quarry_id=42');
// if (check($rq, 'list piles by quarry')) {
//     foreach ($rq['piles'] as $p) {
//         echo "  [{$p['id']}] {$p['pile_name']}\n";
//     }
// }

if (empty($r['piles'])) {
    echo "\n(No piles assigned — cannot demo further operations.)\n";
    exit;
}

$pileId = $r['piles'][0]['id'];

// =============================================================================
// MARK TESTED / CLEAR TEST MARK
// =============================================================================

// --- Mark as KL-tested -------------------------------------------------------
echo "\n=== Mark pile #{$pileId} as KL-tested ===\n";
$validUntil = date('Y-m-d', strtotime('+1 year'));
$mk = lab('POST', '/mark_tested.php', array(
    'pile_id'     => $pileId,
    'tested'      => true,
    'valid_until' => $validUntil,
));
if (check($mk, 'mark tested')) {
    echo "  Marked. valid_until: " . $mk['test_valid_until'] . "\n";
}

// --- Clear test mark ---------------------------------------------------------
echo "\n=== Clear test mark on pile #{$pileId} ===\n";
$cl = lab('POST', '/mark_tested.php', array(
    'pile_id' => $pileId,
    'tested'  => false,
));
if (check($cl, 'clear tested')) {
    echo "  Cleared. test_valid_until is now: " . ($cl['test_valid_until'] ?: 'NULL') . "\n";
}

// =============================================================================
// UPLOAD DOCUMENTS
// =============================================================================

// --- Upload lab report -------------------------------------------------------
$reportPath = __DIR__ . '/sample_report.pdf';
echo "\n=== Upload lab report for pile #{$pileId} ===\n";
if (!file_exists($reportPath)) {
    echo "  (Skipped — place sample_report.pdf in this folder to test)\n";
} else {
    $up = lab_upload($pileId, 'lab_report', $reportPath);
    if (check($up, 'upload lab report')) {
        echo "  Uploaded: " . $up['filename'] . "  credits left: " . $up['credits_remaining'] . "\n";
    }
}

// --- Upload CE certificate ---------------------------------------------------
$certPath = __DIR__ . '/sample_certificate.pdf';
echo "\n=== Upload CE certificate for pile #{$pileId} ===\n";
if (!file_exists($certPath)) {
    echo "  (Skipped — place sample_certificate.pdf in this folder to test)\n";
} else {
    $up2 = lab_upload($pileId, 'ce_certificate', $certPath);
    if (check($up2, 'upload CE certificate')) {
        echo "  Uploaded: " . $up2['filename'] . "  credits left: " . $up2['credits_remaining'] . "\n";
    }
}

// =============================================================================
// DELETE DOCUMENTS
// =============================================================================

// --- Delete lab report -------------------------------------------------------
echo "\n=== Delete lab report for pile #{$pileId} ===\n";
$dr = lab('DELETE', '/documents.php', array(
    'pile_id'  => $pileId,
    'doc_type' => 'lab_report',
));
echo "  " . (isset($dr['deleted']) && $dr['deleted'] ? "Deleted OK" : "Not found / already deleted") . "\n";

// --- Delete CE certificate ---------------------------------------------------
echo "\n=== Delete CE certificate for pile #{$pileId} ===\n";
$dc = lab('DELETE', '/documents.php', array(
    'pile_id'  => $pileId,
    'doc_type' => 'ce_certificate',
));
echo "  " . (isset($dc['deleted']) && $dc['deleted'] ? "Deleted OK" : "Not found / already deleted") . "\n";

echo "\nDone.\n";

Attribute VB_Name = "MursketoriAPI"
'
' Mursketori API - Visual Basic 6 module: Quarry Owner
'
' Full CRUD for quarries and piles.
'
' Setup:
'   1. Project > Add Module > Existing, select this file.
'   2. Project > References: tick "Microsoft WinHTTP Services, version 5.1"
'      (if missing, browse to C:\Windows\System32\winhttp.dll)
'   3. Set API_KEY below to your quarry owner key from siteadmin.
'
' JSON parsing note:
'   VB6 has no built-in JSON parser.  The JsonValue() helper below handles
'   simple "key": value pairs.  For iterating over arrays (e.g. quarry list)
'   use InStr/Mid loops or add a JSON library (VB-JSON, mdJSON).
'

Option Explicit

' =============================================================================
' Configuration
' =============================================================================

Public Const API_BASE As String = "https://mursketori.com/API/v1"
Public Const API_KEY  As String = "mrsk_your_owner_key_here"

' =============================================================================
' Core HTTP helper
' =============================================================================

' method : "GET", "POST", "PUT", "DELETE"
' path   : e.g. "/quarries.php" or "/quarries.php?id=42"
' body   : JSON string for POST/PUT; omit or leave "" for GET/DELETE
'
Public Function ApiRequest(ByVal method As String, _
                           ByVal path   As String, _
                           Optional ByVal body As String = "") As String
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open method, API_BASE & path, False
    http.SetRequestHeader "Authorization", "Bearer " & API_KEY
    http.SetRequestHeader "Accept", "application/json"
    If Len(body) > 0 Then
        http.SetRequestHeader "Content-Type", "application/json"
        http.Send body
    Else
        http.Send
    End If
    ApiRequest = http.ResponseText
    Set http = Nothing
End Function

' =============================================================================
' JSON helper  (simple key/value extractor -- not a full parser)
' =============================================================================

Public Function JsonValue(ByVal json As String, ByVal key As String) As String
    Dim search As String
    Dim pos    As Long
    Dim rest   As String
    Dim endPos As Long
    Dim endPos2 As Long

    search = Chr(34) & key & Chr(34) & ":"
    pos = InStr(json, search)
    If pos = 0 Then Exit Function

    rest = LTrim(Mid(json, pos + Len(search)))

    If Left(rest, 1) = Chr(34) Then
        rest   = Mid(rest, 2)
        endPos = InStr(rest, Chr(34))
        If endPos > 0 Then JsonValue = Left(rest, endPos - 1)
    Else
        endPos  = InStr(rest, ",")
        endPos2 = InStr(rest, "}")
        If endPos2 > 0 And (endPos2 < endPos Or endPos = 0) Then endPos = endPos2
        If endPos > 0 Then
            JsonValue = Trim(Left(rest, endPos - 1))
        Else
            JsonValue = Trim(rest)
        End If
    End If
End Function

' =============================================================================
' QUARRIES
' =============================================================================

' --- List all quarries -------------------------------------------------------
' Returns raw JSON.  Parse with JsonValue() or a JSON library.
'
Public Function ListQuarries() As String
    ListQuarries = ApiRequest("GET", "/quarries.php")
End Function

' --- Get single quarry -------------------------------------------------------
'
Public Function GetQuarry(ByVal quarryId As Long) As String
    GetQuarry = ApiRequest("GET", "/quarries.php?id=" & quarryId)
End Function

' --- Create quarry -----------------------------------------------------------
' Returns new quarry ID on success, 0 on failure.
'
Public Function CreateQuarry(ByVal name   As String, _
                              ByVal city   As String, _
                              ByVal lat    As String, _
                              ByVal lng    As String, _
                              Optional ByVal status As String = "active") As Long
    Dim body As String
    body = "{" & _
           """name"":"""   & name   & """," & _
           """city"":"""   & city   & """," & _
           """lat"":"      & lat    & ","   & _
           """lng"":"      & lng    & ","   & _
           """status"":""" & status & """" & _
           "}"
    Dim resp As String
    resp = ApiRequest("POST", "/quarries.php", body)
    Dim newId As String
    newId = JsonValue(resp, "id")
    If Len(newId) > 0 And IsNumeric(newId) Then
        CreateQuarry = CLng(newId)
    Else
        MsgBox "CreateQuarry error: " & JsonValue(resp, "error"), vbCritical
        CreateQuarry = 0
    End If
End Function

' --- Update quarry -----------------------------------------------------------
' Pass only the fields you want to change as a JSON string.
' Example body: "{""name"":""New Name"",""city"":""Oulu""}"
'
Public Function UpdateQuarry(ByVal quarryId As Long, ByVal body As String) As Boolean
    Dim resp As String
    resp = ApiRequest("PUT", "/quarries.php?id=" & quarryId, body)
    If Len(JsonValue(resp, "error")) > 0 Then
        MsgBox "UpdateQuarry error: " & JsonValue(resp, "error"), vbCritical
        UpdateQuarry = False
    Else
        UpdateQuarry = True
    End If
End Function

' --- Delete quarry -----------------------------------------------------------
'
Public Function DeleteQuarry(ByVal quarryId As Long) As Boolean
    Dim resp As String
    resp = ApiRequest("DELETE", "/quarries.php?id=" & quarryId)
    DeleteQuarry = (JsonValue(resp, "deleted") = "true")
End Function

' =============================================================================
' PILES
' =============================================================================

' --- List piles in a quarry --------------------------------------------------
' Returns raw JSON array.
'
Public Function ListPiles(ByVal quarryId As Long) As String
    ListPiles = ApiRequest("GET", "/piles.php?quarry_id=" & quarryId)
End Function

' --- Get single pile ---------------------------------------------------------
'
Public Function GetPile(ByVal pileId As Long) As String
    GetPile = ApiRequest("GET", "/piles.php?id=" & pileId)
End Function

' --- Create pile -------------------------------------------------------------
' Returns new pile ID on success, 0 on failure.
' forSale: pass "true" or "false"
'
Public Function CreatePile(ByVal quarryId As Long, _
                            ByVal name     As String, _
                            ByVal material As String, _
                            ByVal volume   As String, _
                            ByVal price    As String, _
                            Optional ByVal forSale As String = "false") As Long
    Dim body As String
    body = "{" & _
           """quarry_id"":"  & quarryId & ","   & _
           """name"":"""     & name     & """," & _
           """material"":""" & material & """," & _
           """volume"":"     & volume   & ","   & _
           """price"":"      & price    & ","   & _
           """for_sale"":"   & forSale  & _
           "}"
    Dim resp As String
    resp = ApiRequest("POST", "/piles.php", body)
    Dim newId As String
    newId = JsonValue(resp, "id")
    If Len(newId) > 0 And IsNumeric(newId) Then
        CreatePile = CLng(newId)
    Else
        MsgBox "CreatePile error: " & JsonValue(resp, "error"), vbCritical
        CreatePile = 0
    End If
End Function

' --- Update pile -------------------------------------------------------------
' Pass only changed fields as a JSON string.
' Example body: "{""volume"":800,""price"":9.50,""for_sale"":true}"
'
Public Function UpdatePile(ByVal pileId As Long, ByVal body As String) As Boolean
    Dim resp As String
    resp = ApiRequest("PUT", "/piles.php?id=" & pileId, body)
    If Len(JsonValue(resp, "error")) > 0 Then
        MsgBox "UpdatePile error: " & JsonValue(resp, "error"), vbCritical
        UpdatePile = False
    Else
        UpdatePile = True
    End If
End Function

' --- Delete pile -------------------------------------------------------------
'
Public Function DeletePile(ByVal pileId As Long) As Boolean
    Dim resp As String
    resp = ApiRequest("DELETE", "/piles.php?id=" & pileId)
    DeletePile = (JsonValue(resp, "deleted") = "true")
End Function

' =============================================================================
' Demo: call all functions and show results in a MsgBox
' =============================================================================

Public Sub RunDemo()
    Dim msg As String

    ' List quarries
    Dim list As String
    list = ListQuarries()
    msg = "=== Quarries (raw JSON) ===" & vbCrLf & Left(list, 300)
    MsgBox msg, vbInformation, "Mursketori API Demo"

    ' Create a quarry
    Dim qId As Long
    qId = CreateQuarry("VB6 Test Quarry", "Tampere", "61.50", "23.76")
    If qId = 0 Then Exit Sub
    MsgBox "Created quarry ID: " & qId, vbInformation, "Mursketori API Demo"

    ' Update it
    UpdateQuarry qId, "{""name"":""VB6 Test Quarry (updated)"",""city"":""Oulu""}"
    Dim upd As String
    upd = GetQuarry(qId)
    MsgBox "Updated name: " & JsonValue(upd, "name") & vbCrLf & _
           "City: " & JsonValue(upd, "city"), vbInformation, "Mursketori API Demo"

    ' Create a pile in it
    Dim pId As Long
    pId = CreatePile(qId, "VB6 Test Pile", "0-32", "500", "8.50", "true")
    If pId > 0 Then
        MsgBox "Created pile ID: " & pId, vbInformation, "Mursketori API Demo"
        UpdatePile pId, "{""volume"":750,""price"":9.00}"
        DeletePile pId
        MsgBox "Pile " & pId & " updated and deleted.", vbInformation, "Mursketori API Demo"
    End If

    ' Delete the quarry
    DeleteQuarry qId
    MsgBox "Quarry " & qId & " deleted. Demo complete.", vbInformation, "Mursketori API Demo"
End Sub

' Mursketori API - Visual Basic 6 module: Laboratory
'
' Full laboratory operations:
'   - List all assigned piles (optionally filtered by quarry)
'   - Mark a pile as KL-tested with expiry date
'   - Clear a test mark
'   - Upload a lab report PDF
'   - Upload a CE certificate PDF
'   - Delete a lab report
'   - Delete a CE certificate
'
' Setup:
'   1. Project > Add Module > Existing, select this file.
'   2. Project > References, tick:
'      - Microsoft WinHTTP Services, version 5.1  (winhttp.dll)
'        This one reference is enough for both JSON calls and file uploads.
'   3. Set LAB_API_KEY below to your laboratory API key from siteadmin.
'

Option Explicit

' =============================================================================
' Configuration
' =============================================================================

Public Const V1_API_BASE  As String = "https://mursketori.com/API/v1"
Public Const LAB_API_BASE As String = "https://mursketori.com/API/v1/lab"
Public Const LAB_API_KEY  As String = "mrsk_your_lab_key_here"

' =============================================================================
' Core JSON request
' =============================================================================

' method : "GET", "POST", "DELETE"
' path   : e.g. "/piles.php" or "/mark_tested.php"
' body   : JSON string; omit for GET
'
Public Function LabRequest(ByVal method As String, _
                            ByVal path   As String, _
                            Optional ByVal body As String = "") As String
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open method, LAB_API_BASE & path, False
    http.SetRequestHeader "Authorization", "Bearer " & LAB_API_KEY
    http.SetRequestHeader "Accept", "application/json"
    If Len(body) > 0 Then
        http.SetRequestHeader "Content-Type", "application/json"
        http.Send body
    Else
        http.Send
    End If
    LabRequest = http.ResponseText
    Set http = Nothing
End Function

' --- Generic v1 request (used for /quarries.php etc.) -------------------------
'
Public Function V1ApiRequest(ByVal method As String, _
                             ByVal path   As String, _
                             Optional ByVal body As String = "") As String
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open method, V1_API_BASE & path, False
    http.SetRequestHeader "Authorization", "Bearer " & LAB_API_KEY
    http.SetRequestHeader "Accept", "application/json"
    If Len(body) > 0 Then
        http.SetRequestHeader "Content-Type", "application/json"
        http.Send body
    Else
        http.Send
    End If
    V1ApiRequest = http.ResponseText
    Set http = Nothing
End Function

' =============================================================================
' JSON helper  (simple key/value extractor)
' =============================================================================

Public Function JsonValue(ByVal json As String, ByVal key As String) As String
    Dim search  As String
    Dim pos     As Long
    Dim rest    As String
    Dim endPos  As Long
    Dim endPos2 As Long

    search = Chr(34) & key & Chr(34) & ":"
    pos = InStr(json, search)
    If pos = 0 Then Exit Function

    rest = LTrim(Mid(json, pos + Len(search)))

    If Left(rest, 1) = Chr(34) Then
        rest   = Mid(rest, 2)
        endPos = InStr(rest, Chr(34))
        If endPos > 0 Then JsonValue = Left(rest, endPos - 1)
    Else
        endPos  = InStr(rest, ",")
        endPos2 = InStr(rest, "}")
        If endPos2 > 0 And (endPos2 < endPos Or endPos = 0) Then endPos = endPos2
        If endPos > 0 Then
            JsonValue = Trim(Left(rest, endPos - 1))
        Else
            JsonValue = Trim(rest)
        End If
    End If
End Function

' =============================================================================
' LIST PILES
' =============================================================================

' --- All piles assigned to this laboratory -----------------------------------
' Returns raw JSON string.
'
Public Function ListPiles() As String
    ListPiles = LabRequest("GET", "/piles.php")
End Function

' --- Piles filtered by quarry ------------------------------------------------
' Returns raw JSON string containing only piles from the given quarry.
'
Public Function ListPilesByQuarry(ByVal quarryId As Long) As String
    ListPilesByQuarry = LabRequest("GET", "/piles.php?quarry_id=" & quarryId)
End Function

' =============================================================================
' MARK TESTED / CLEAR TEST MARK
' =============================================================================

' --- Mark a pile as KL-tested ------------------------------------------------
' validUntil: date string "YYYY-MM-DD", e.g. "2027-06-30"
' Returns True on success.
'
Public Function MarkTested(ByVal pileId     As Long, _
                            ByVal validUntil As String) As Boolean
    Dim body As String
    body = "{" & _
           """pile_id"":"     & pileId     & "," & _
           """tested"":true," & _
           """valid_until"":""" & validUntil & """" & _
           "}"
    Dim resp As String
    resp = LabRequest("POST", "/mark_tested.php", body)
    MarkTested = (InStr(resp, """updated"":true") > 0)
    If Not MarkTested Then
        MsgBox "MarkTested error: " & JsonValue(resp, "error"), vbCritical
    End If
End Function

' --- Clear test mark ---------------------------------------------------------
' Returns True on success.
'
Public Function ClearTested(ByVal pileId As Long) As Boolean
    Dim body As String
    body = "{""pile_id"":" & pileId & ",""tested"":false}"
    Dim resp As String
    resp = LabRequest("POST", "/mark_tested.php", body)
    ClearTested = (InStr(resp, """updated"":true") > 0)
    If Not ClearTested Then
        MsgBox "ClearTested error: " & JsonValue(resp, "error"), vbCritical
    End If
End Function

' =============================================================================
' UPLOAD DOCUMENT  (PDF file via multipart/form-data)
' =============================================================================
'
' docType  : "lab_report"  or  "ce_certificate"
' filePath : full local path, e.g. "C:\Reports\report.pdf"
'
' Requires: ADODB.Stream        -- NO reference needed, used via CreateObject (late binding, available on all Windows XP+)
'           WinHttp.WinHttpRequest.5.1 -- same object used for JSON calls; only one reference needed.
'
' Each successful upload costs 1 credit from the laboratory account.
' Returns True on success.
'
Public Function UploadDocument(ByVal pileId   As Long, _
                                ByVal docType  As String, _
                                ByVal filePath As String) As Boolean
    On Error GoTo UploadErr

    ' --- 1. Read PDF file into a byte array --------------------------------------
    Dim fNum    As Integer
    Dim fBytes() As Byte
    fNum = FreeFile
    Open filePath For Binary Access Read As #fNum
    If LOF(fNum) = 0 Then
        Close #fNum
        MsgBox "UploadDocument error: file is empty or not found.", vbCritical
        UploadDocument = False
        Exit Function
    End If
    ReDim fBytes(LOF(fNum) - 1)
    Get #fNum, , fBytes
    Close #fNum

    ' --- 2. Build multipart body entirely in binary mode -------------------------
    ' ADODB.Stream does not allow switching Type after text has been written.
    ' We therefore keep Type=1 (binary) for the whole stream and append the
    ' text parts as ANSI byte arrays with StrConv(..., vbFromUnicode).

    Dim boundary As String
    boundary = "----MursketoriBoundary7MA4YWxkTrZu0gW"

    Dim CRLF As String
    CRLF = vbCrLf

    Dim fileName As String
    fileName = Mid(filePath, InStrRev(filePath, "\") + 1)

    Dim st As Object
    Set st = CreateObject("ADODB.Stream")
    st.Type = 1          ' adTypeBinary
    st.Open

    ' Helper for text-to-bytes.  StrConv returns a Variant; ADODB.Stream.Write
    ' is safer when given an explicitly typed Byte() variable.
    Dim txtBytes() As Byte

    ' Text part 1: pile_id
    txtBytes = StrConv("--" & boundary & CRLF & _
                       "Content-Disposition: form-data; name=""pile_id""" & CRLF & CRLF & _
                       CStr(pileId) & CRLF, vbFromUnicode)
    st.Write txtBytes

    ' Text part 2: doc_type
    txtBytes = StrConv("--" & boundary & CRLF & _
                       "Content-Disposition: form-data; name=""doc_type""" & CRLF & CRLF & _
                       docType & CRLF, vbFromUnicode)
    st.Write txtBytes

    ' Text part 3: file header
    txtBytes = StrConv("--" & boundary & CRLF & _
                       "Content-Disposition: form-data; name=""file""; filename=""" & _
                       fileName & """" & CRLF & _
                       "Content-Type: application/pdf" & CRLF & CRLF, vbFromUnicode)
    st.Write txtBytes

    ' Binary file body
    st.Write fBytes

    ' Closing boundary
    txtBytes = StrConv(CRLF & "--" & boundary & "--" & CRLF, vbFromUnicode)
    st.Write txtBytes

    ' Read complete body into byte array
    st.Position = 0
    Dim bodyBytes() As Byte
    bodyBytes = st.Read
    st.Close
    Set st = Nothing

    ' --- 3. Send with WinHTTP ----------------------------------------------------
    ' WinHttpRequest accepts a byte array in Send() much more reliably than
    ' MSXML2.ServerXMLHTTP, which is why we use it here as well.
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open "POST", LAB_API_BASE & "/documents.php", False
    http.SetRequestHeader "Authorization", "Bearer " & LAB_API_KEY
    http.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
    http.SetRequestHeader "Accept", "application/json"
    http.Send bodyBytes

    Dim resp As String
    resp = http.ResponseText
    Set http = Nothing

    UploadDocument = (InStr(resp, """uploaded"":true") > 0)
    If Not UploadDocument Then
        MsgBox "UploadDocument error: " & JsonValue(resp, "error"), vbCritical
    End If
    Exit Function

UploadErr:
    MsgBox "UploadDocument runtime error " & Err.Number & ": " & Err.Description, vbCritical
    On Error Resume Next
    If Not st Is Nothing Then st.Close
    Set st = Nothing
    UploadDocument = False
End Function

' =============================================================================
' DELETE DOCUMENT
' =============================================================================

' --- Delete lab report -------------------------------------------------------
' Returns True if deleted, False if not found or error.
'
Public Function DeleteLabReport(ByVal pileId As Long) As Boolean
    Dim body As String
    body = "{""pile_id"":" & pileId & ",""doc_type"":""lab_report""}"
    Dim resp As String
    resp = LabRequest("DELETE", "/documents.php", body)
    DeleteLabReport = (InStr(resp, """deleted"":true") > 0)
End Function

' --- Delete CE certificate ---------------------------------------------------
' Returns True if deleted, False if not found or error.
'
Public Function DeleteCECertificate(ByVal pileId As Long) As Boolean
    Dim body As String
    body = "{""pile_id"":" & pileId & ",""doc_type"":""ce_certificate""}"
    Dim resp As String
    resp = LabRequest("DELETE", "/documents.php", body)
    DeleteCECertificate = (InStr(resp, """deleted"":true") > 0)
End Function

' =============================================================================
' Demo: exercise all functions on the first assigned pile
' =============================================================================

Public Sub RunDemo()
    ' List all piles
    Dim pileJson As String
    pileJson = ListPiles()
    MsgBox "=== Assigned piles (raw JSON) ===" & vbCrLf & Left(pileJson, 500), _
           vbInformation, "Mursketori Lab Demo"

    ' Extract first pile ID from JSON (looks for first "id": N)
    Dim firstId As String
    firstId = JsonValue(pileJson, "id")
    If Len(firstId) = 0 Or Not IsNumeric(firstId) Then
        MsgBox "No piles assigned -- cannot continue demo.", vbExclamation
        Exit Sub
    End If
    Dim pileId As Long
    pileId = CLng(firstId)

    ' Mark tested
    If MarkTested(pileId, "2027-12-31") Then
        MsgBox "Pile #" & pileId & " marked as tested until 2027-12-31.", _
               vbInformation, "Mursketori Lab Demo"
    End If

    ' Clear tested
    If ClearTested(pileId) Then
        MsgBox "Pile #" & pileId & " test mark cleared.", _
               vbInformation, "Mursketori Lab Demo"
    End If

    ' Upload -- point this at a real PDF file to test
    Dim pdfPath As String
    pdfPath = "C:\Temp\sample_report.pdf"
    If Dir(pdfPath) <> "" Then
        If UploadDocument(pileId, "lab_report", pdfPath) Then
            MsgBox "Lab report uploaded for pile #" & pileId, _
                   vbInformation, "Mursketori Lab Demo"
        End If

        ' Delete it again
        If DeleteLabReport(pileId) Then
            MsgBox "Lab report deleted for pile #" & pileId, _
                   vbInformation, "Mursketori Lab Demo"
        End If
    Else
        MsgBox "Upload skipped -- place a PDF at " & pdfPath & " to test.", _
               vbExclamation, "Mursketori Lab Demo"
    End If

    MsgBox "Demo complete.", vbInformation, "Mursketori Lab Demo"
End Sub

' =============================================================================
' LIST QUARRIES
' =============================================================================

' --- All quarries assigned to this laboratory -------------------------------
' Returns raw JSON string.  Lab key: all assigned quarries.
'
Public Function ListQuarries() As String
    ListQuarries = V1ApiRequest("GET", "/quarries.php")
End Function

' --- Quarries of a specific owner assigned to this lab ----------------------
' Returns raw JSON string filtered by ownerid.
'
Public Function ListQuarriesByOwner(ByVal ownerId As Long) As String
    ListQuarriesByOwner = V1ApiRequest("GET", "/quarries.php?ownerid=" & ownerId)
End Function

Mursketori API — Developer Docs

Getting Started

Sample Code