Thread

Print("Mail.Subject=''" + Mail.Subject + "''\n");

if (Strstr(Mail.Subject, "Payment received from ") >= 0 ||
    Strstr(Mail.Subject, "Notification of Payment Received") >= 0)
{
    Body = Mail.BodyAsText;
    Start = Strstr(Body, "Buyer:");
    // Print("s=" + Start + "\n");
    if (Start > 0)
    {
        Buyer = Substr(Body, Start + 6);
        End = Strstr(Buyer, "\n");
        // Print("e=" + End + "\n");
        Buyer = Substr(Buyer, 0, End - 1);

        Print("Buyer=''" + Buyer + "''\n");
        
        Key = Execute("c:\\Some Path\\KeyGen.exe", Buyer);
        Key = Tokenize(Key, "\r\n");
        Print("Key=''"+Key[0]+"''\n");
        
        m = CreateThing(0xaaff0001);
        if (m)
        {
            m.Flags = 0x00000044;
            m.To[-1].Email = Mail.From.Email;
            m.From.Email = "fret@memecode.com";
            m.From.Name = "Matthew Allen";
            m.Subject = "PayPal Purchase: InScribe";
            m.Body = "Hi " + Buyer + ",\n" +
                    "\n" +
                    "Thank you for purchasing InScribe for Windows, Mac and Linux.\n" +
                    "\n" +
                    "The key will work for all versions up to but not including 2.00. At any time " +
                    "you may download the latest version of InScribe from the URL above without any " +
                    "further contact from me. There will be a generous discount to upgrade to v2.\n" +
                    "\n" +
                    "When prompted enter the name and key listed here to start using InScribe:\n" +
                    "\n" +
                    "For the name:\n" +
                    "    " + Buyer + "\n" +
                    "Your key is:\n" +
                    "    " + Key[0] + "\n" +
                    "Download the InScribe distribution package from:\n" +
                    "    http://www.memecode.com/inscribe\n" +
                    "\n" +
                    "Beta (unstable) versions will be posted at the same time as i.Scribe versions " +
                    "And will be marked with \"test???\" denoting their unstable nature. The Linux port " +
                    "currently has no stable build.\n" +
                    "\n" +
                    "Please keep this email so that when new versions come out you know where to " +
                    "download them from. The current version is always listed on the website.\n" +
                    "\n" +
                    "enjoy!\n" +
                    "--\n" +
                    "http://www.memecode.com";

            ShowThingWindow(m);
        }
    }
}