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

removed spectre

Browse source 
updated credits
This commit is contained in:
JT Smith 2005-11-21 14:39:05 +00:00
parent e49fcd76e9
commit f1de189938
6 changed files with 15 additions and 297 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Asset.pm
View file

@ -784,7 +784,18 @@ Returns the not found object. The not found object is set in the settings.
=cut
sub getNotFound {
if ($session{wguri} eq "/abcdefghijklmnopqrstuvwxyz") {
if ($session{wguri} eq "/*give-credit-where-credit-is-due*") {
my $content = "";
open(FILE,"<".$session{config}{webguiRoot}."/docs/credits.txt");
while (<FILE>) {
$content .= $_;
}
close(FILE);
return WebGUI::Asset->newByPropertyHashRef({
className=>"WebGUI::Asset::Snippet",
snippet=> '<pre>'.$content.'</pre>'
});
} elsif ($session{wguri} eq "/abcdefghijklmnopqrstuvwxyz") {
return WebGUI::Asset->newByPropertyHashRef({
className=>"WebGUI::Asset::Snippet",
snippet=>q|<div style="width: 600px; padding: 200px;">&#87;&#104;&#121;&#32;&#119;&#111;&#117;&#108;&#100;&#32;&#121;&#111;&#117;&#32;&#116;&#121;&#112;&#101;&#32;&#105;&#110;&#32;&#116;&#104;&#105;&#115;&#32;&#85;&#82;&#76;&#63;&#32;&#82;&#101;&#97;&#108;&#108;&#121;&#46;&#32;&#87;&#104;&#97;&#116;&#32;&#119;&#101;&#114;&#101;&#32;&#121;&#111;&#117;&#32;&#101;&#120;&#112;&#101;&#99;&#116;&#105;&#110;&#103;&#32;&#116;&#111;&#32;&#115;&#101;&#101;&#32;&#104;&#101;&#114;&#101;&#63;&#32;&#89;&#111;&#117;&#32;&#114;&#101;&#97;&#108;&#108;&#121;&#32;&#110;&#101;&#101;&#100;&#32;&#116;&#111;&#32;&#103;&#101;&#116;&#32;&#97;&#32;&#108;&#105;&#102;&#101;&#46;&#32;&#65;&#114;&#101;&#32;&#121;&#111;&#117;&#32;&#115;&#116;&#105;&#108;&#108;&#32;&#104;&#101;&#114;&#101;&#63;&#32;&#83;&#101;&#114;&#105;&#111;&#117;&#115;&#108;&#121;&#44;&#32;&#121;&#111;&#117;&#32;&#110;&#101;&#101;&#100;&#32;&#116;&#111;&#32;&#103;&#111;&#32;&#100;&#111;&#32;&#115;&#111;&#109;&#101;&#116;&#104;&#105;&#110;&#103;&#32;&#101;&#108;&#115;&#101;&#46;&#32;&#73;&#32;&#116;&#104;&#105;&#110;&#107;&#32;&#121;&#111;&#117;&#114;&#32;&#98;&#111;&#115;&#115;&#32;&#105;&#115;&#32;&#99;&#97;&#108;&#108;&#105;&#110;&#103;&#46;</div>|

2
lib/WebGUI/Operation/WebGUI.pm
View file

@ -95,7 +95,7 @@ sub www_setup {
WebGUI::Setting::set('companyURL',WebGUI::FormProcessor::url("companyURL"));
WebGUI::Setting::set('companyEmail',WebGUI::FormProcessor::email("companyEmail"));
WebGUI::Setting::remove('specialState');
WebGUI::HTTP::setRedirect($session{wguri});
WebGUI::HTTP::setRedirect("/");
return "";
} else {
$output .= '<legend align="left">Admin Account</legend>';

64
lib/WebGUI/Workflow.pm
View file

@ -1,64 +0,0 @@
package WebGUI::Workflow;
=head1 LEGAL
-------------------------------------------------------------------
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
-------------------------------------------------------------------
=cut
use strict;
use WebGUI::Session;
=head1 NAME
Package WebGUI::Workflow
=head1 DESCRIPTION
This package provides global utility functions for workflows.
=head1 SYNOPSIS
use WebGUI::Workflow;
$arrayRef = getSchedules();
=head1 FUNCTIONS
These subroutines are available from this package:
=cut
#-------------------------------------------------------------------
=head2 getSchedules
Returns an array reference of hashes containing the workflow schedule data for this site.
=cut
sub getSchedules {
my @schedules;
my $sth = WebGUI::SQL->read("select * from WorkflowSchedule where enabled=1");
while (my $event = $sth->hashRef) {
my $schedule = join(" ",$event->{minuteOfHour},$event->{hourOfDay},$event->{dayOfMonth},$event->{monthOfYear},$event->{dayOfWeek});
push(@schedules,{
schedule=>$schedule,
workflowId=>$event->{workflowId}
});
}
return \@schedules;
}
1;