package CGI @ISA = qw() sub WikiDir return shift->{WikiDir}; sub SetWikiDir sub SetWikiDir { my ($this,$d)= return $this->{WikiDir} = $d; sub SetModuleName sub SetModuleName { my ($this,$n)= return $this->{ModuleName} = $n; sub SetTemplatePaths my ($this, $HTML, $Wiki, $Text) = @_; sub GetWikiPath my ($this, $App, $pParams, $FileName) = @_; return $path; sub new my ($module) = @_; # $this->SUPER::new( return $this; sub DESTROY my $this = shift; $this->SUPER::DESTROY( sub DecodeFSWikiName my ($this, $filename) = @_; return $s3; sub DecodePukiWikiName my ($this, $filename) = @_; return $s3; sub ConvertURLLinksAll my ($this, $App, $pParams, $text) = @_; return $text; sub ConvertURLLinks my ($this, $App, $pParams, $text) = @_; return $conv; sub ConvertWikiPage my ($this, $App, $pParams, $text, $charcode) = @_; return $text; sub ExecuteSubroutine my ($App, $pParams, $s1, $s2) = @_; return $ret; sub UpdatePage my ($this, $App, $pParams, $path) = @_; return if(!defined $pParams->{FormText}); return; sub EditPage my ($this, $App, $pParams, $path, $Action) = @_; sub ViewPage my ($this, $App, $pParams, $path) = @_; sub CreateFolder my ($this, $App, $pParams) = @_; sub CreatePage my ($this, $App, $pParams) = @_; return; sub FindFileRecursive my ($this, $App, $pParams, $dir, $fmask) = @_; return @files; sub IsPermitted my ($this, $App, $pParams, $Path) = @_; return $Path =~ /^$RootDirRegExp/i; sub MakeDirLink my ($this, $App, $pParams, $dir, $label) = @_; sub MakeDirTreeLink my ($this, $App, $pParams, $dir) = @_; return $s; sub ShowFilesPage my ($this, $App, $pParams, $ShowDirectory, $FindRecursive, $ShowTemplate, $ShowCreateDirectory, $ShowEditMenu, $ShowLink) = @_;