将两个现有的php函数合并为一个

我有两个PHP函数，它们在不同的PHP页面上独立地工作。

第一页:

<?php
 function shortURL($url) {
 $ch = curl_init();
 $timeout = 5;
 curl_setopt($ch,CURLOPT_URL,'http://tinyurl.com/api-create.php?url='.$url);
 curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
 curl_setopt($ch,CURLOPT_CONNECTTIMEOUT,$timeout);
 $short_url = curl_exec($ch);
 curl_close($ch);
 return $short_url;
 }
$url = "http://technoflirt.com/tech/2011/01/11/running-php-script-host/";
 $short_url = shortURL($url);
 echo "Actual url =". $url . "<br />";
 echo "Shortened url = <a href=$short_url>$short_url</a>  <br />"; 
?>

第二页是一个现有的电子邮件信息片段。我尝试将函数组合在一起，但没有运气，我将函数shortURL($url)粘贴在函数email()之上，然后粘贴$url和$short_url，并将echo语句更改为$message。PHP致命错误:调用未定义的函数shortURL()，所以我知道它不起作用。我如何成功地转换tinyURL，然后将其合并到函数email中?

     function shortURL($url) {
        $ch = curl_init();
        $timeout = 5;
        curl_setopt($ch,CURLOPT_URL,'http://tinyurl.com/api-create.php?url='.$url);
        curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
        curl_setopt($ch,CURLOPT_CONNECTTIMEOUT,$timeout);
        $short_url = curl_exec($ch);
        curl_close($ch);
        return $short_url;    
    function email($array, $task, $techinfo,$additionalinfo = array()) {
            $to = $techinfo["EmpHTEmail"];   
            $url = "http://technoflirt.com/tech/2011/01/11/running-php-script-host/";
            $short_url = shortURL($url);
            $subject = ($task == "unschedule") ? '' : ($task == "notify" ? "": "Else Message");
            $message = "";  
                if($task == "unschedule")
                    $message .="Work Order #:" . $array[0]["WorkOrderNum"] . " is cancelled.";
                elseif($task == "notify")
                   {    
                   $message .="".$additionalinfo[0]['sShortName']." (" . $array[0]["WorkOrderNum"] . ") <BR>".$additionalinfo[0]['sAddressNum']." ".$additionalinfo[0]['sAddressLine1'].", ".$additionalinfo[0]['sCityName']."<BR>".$additionalinfo[0]['sPhone1'] . " - ".$_SESSION['Latitude'].",".$_SESSION['Longitude']."<BR>";
                   $message .="". $additionalinfo[0]['JobDescription'] . " - ". $url . "";
                   $message .="Actual url =". $url . "";
                   $message .="Shortened url = $short_url"; 
                   }
                   $message .="";
                // Always set content-type when sending HTML email
                $headers = "MIME-Version: 1.0" . "'r'n";
                $headers .= "Content-type:text/html;charset=UTF-8" . "'r'n";
               mail($to, $subject, $message, $headers);
            }