xemacsweb / genpage / include / funcdefs.gp

<!-- _GP_
# undef all the functions we're defining. This stops lots of
# complaining about re-defining the sub for each content file thats
# processed.

       if (defined(&who)) { undef &who; }
       if (defined(&where)) { undef &where; }
       if (defined(&when)) { undef &when; }

<!--  _GP_ 
# These functions are defined here as straightforward perl - remember
# to undef them first if you don't want perl complaining about lots of 
# subroutine re-definitions if genpage is processing more than one 
# content file.
# The reason is that the template is evaluated from scratch for each
# new content file.
# Hence, it is probably good practise to undef everything you define
# within the scope of a layout file before you start

    sub who { 
	if ($^O eq "MacOS" || $^O eq "MSWin32") {
	return ("unknown"); # don't know how to get these easily on 
                            # DOS/Win32 or MacOS.
	else {	
          my $ret=`/usr/bin/whoami`;
          chop $ret;
          return ($ret);

    sub when { 
	return ($now);

    sub where { 
	use Sys::Hostname;

	$ret = hostname();
        return ($ret);
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.