upgrade this simple hack - report post send pm

[logicuk]

Can someone upgrade this hack to work with vb 3.7 thanks

PHP Code:

<?xml version="1.0" encoding="ISO-8859-1"?>

<product productid="devel_reppm" active="1">
    <title>Reported post send pm</title>
    <description><![CDATA[By Developer]]></description>
    <version>1.0.0</version>
    <codes>
    </codes>
    <templates>
    </templates>
    <plugins>
    <plugin active="1">
            <title>disable emails</title>
            <hookname>report_send_email</hookname>
            <phpcode><![CDATA[$moderator['email'] = '';]]></phpcode>
        </plugin>
        <plugin active="1">
            <title>send pm</title>
            <hookname>report_send_complete</hookname>
            <phpcode><![CDATA[
        eval(fetch_email_phrases('devreppm', $email_langid));
        $pmdm =& datamanager_init('PM', $vbulletin, ERRTYPE_ARRAY);
        $pmdm->set('fromuserid', $vbulletin->userinfo[userid]);
        $pmdm->set('fromusername', $vbulletin->userinfo[username]);
        $pmdm->set('title', $subject);
        $pmdm->set('message', $message);
        $pmdm->set_recipients($moderator['username'], $null);
        $pmdm->set('dateline', TIMENOW);
        $pmdm->pre_save();

        $errors = $pmdm->errors;

        $pmdm->save();
        unset($pmdm);]]></phpcode>
        </plugin>
    </plugins>
    <phrases>
        <phrasetype name="Email Body Text" fieldname="emailbody">
            <phrase name="devreppm"><![CDATA[$bbuserinfo[username] has reported this post:

$postinfo[title]
[url]$vboptions[bburl]/showthread.php?p=$postinfo[postid]#post$postinfo[postid][/url]

This is part of this thread:
$threadinfo[title]
[url]$vboptions[bburl]/showthread.php?t=$threadinfo[threadid][/url]

This is the reason that the user gave:
$reason

This message has been sent to all moderators of this forum, or all administrators if there are no moderators.

Please respond to this post as applicable.]]></phrase>
        </phrasetype>
        <phrasetype name="Email Subject Text" fieldname="emailsubject">
            <phrase name="devreppm"><![CDATA[Reported post from $threadinfo[title]]]></phrase>
        </phrasetype>
    </phrases>
    <options>
    </options>
</product>