oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added FetchMimeType macro.

Browse source 
Fix bad namespaces, package names and labels in StockData and InOutBoard help.
This commit is contained in:
Colin Kuskie 2005-12-10 22:22:35 +00:00
parent 45de852b61
commit b74cddb637
7 changed files with 88 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lib/WebGUI/Macro/FetchMimeType.pm Normal file
View file

@ -0,0 +1,25 @@
package WebGUI::Macro::FetchMimeType; # edit this line to match your own macro name
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use WebGUI::Session;
use LWP::MediaTypes qw(guess_media_type);
#-------------------------------------------------------------------
sub process {
my $path = shift;
return guess_media_type($path);
}
1;