var str = '';
if (arguments.size GTE 1048576) {
str = arguments.size \ 1048576 & " Mb";
} else if (arguments.size GTE 1024) {
str = arguments.size \ 1024 & " Kb";
} else {
str = arguments.size & " b";
}
return str;
/**
* Returns the date the file was last modified.
*
* @param filename Name of the file. (Required)
* @return Returns a date.
* @author Jesse Houwing (j.houwing@student.utwente.nl)
* @version 1, November 15, 2002
*/
function fileLastModified(filename){
var _File = createObject("java","java.io.File");
// Calculate adjustments for timezone and daylight-savings time
var _Offset = ((GetTimeZoneInfo().utcHourOffset)+1)*-3600;
_File.init(JavaCast("string", arguments.filename));
// Date is returned as number of seconds since 1-1-1970
return DateAdd('s', (Round(_File.lastModified()/1000))+_Offset, CreateDateTime(1970, 1, 1, 0, 0, 0));
}
/**
* This function takes URLs in a text string and turns them into links.
* Version 2 by Lucas Sherwood, lucas@thebitbucket.net.
* Version 3 Updated to allow for ;
*
* @param string Text to parse. (Required)
* @param target Optional target for links. Defaults to "". (Optional)
* @param paragraph Optionally add paragraphFormat to returned string. (Optional)
* @return Returns a string.
* @author Joel Mueller (jmueller@swiftk.com)
* @version 3, August 11, 2004
*/
function ActivateURL(string) {
var nextMatch = 1;
var objMatch = "";
var outstring = "";
var thisURL = "";
var thisLink = "";
var target = IIf(arrayLen(arguments) gte 2, "arguments[2]", DE(""));
var paragraph = IIf(arrayLen(arguments) gte 3, "arguments[3]", DE("false"));
do {
objMatch = REFindNoCase("(((https?:|ftp:|gopher:)\/\/)|(www\.|ftp\.))[-[:alnum:]\?%,\.\/&##!;@:=\+~_]+[A-Za-z0-9\/]", arguments.string, nextMatch, true);
if (objMatch.pos[1] GT nextMatch OR objMatch.pos[1] EQ nextMatch) {
outString = outString & Mid(arguments.string, nextMatch, objMatch.pos[1] - nextMatch);
} else {
outString = outString & Mid(arguments.string, nextMatch, Len(arguments.string));
}
nextMatch = objMatch.pos[1] + objMatch.len[1];
if (ArrayLen(objMatch.pos) GT 1) {
// If the preceding character is an @, assume this is an e-mail address
// (for addresses like admin@ftp.cdrom.com)
if (Compare(Mid(arguments.string, Max(objMatch.pos[1] - 1, 1), 1), "@") NEQ 0) {
thisURL = Mid(arguments.string, objMatch.pos[1], objMatch.len[1]);
thisLink = "" & thisURL & "";
outString = outString & thisLink;
// String = Replace(String, thisURL, thisLink);
// nextMatch = nextMatch + Len(thisURL);
} else {
outString = outString & Mid(arguments.string, objMatch.pos[1], objMatch.len[1]);
}
}
} while (nextMatch GT 0);
// Now turn e-mail addresses into mailto: links.
outString = REReplace(outString, "([[:alnum:]_\.\-]+@([[:alnum:]_\.\-]+\.)+[[:alpha:]]{2,4})", "\1", "ALL");
if (paragraph) {
outString = ParagraphFormat(outString);
}
return outString;
}