Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
# creates reports on WebGUI (tm) helpdesks from the command line using $EDITOR
# supposed to automatically close them but doesn't do that yet
# todo:
# o. change ticket status to 'resolved' automatically, optionally
# o. do a git log to find the last hash and commit comment?
# o. <perlDreamer> start with /data/WebGUI/sbin/_utility.skeleton
use strict;
use warnings;
#use Enbugger;
#use Devel::Trace;
#BEGIN { $Devel::Trace::TRACE = 0; };
# $Devel::Trace::TRACE = 1;
use lib '/data/WebGUI/lib';
use lib '/data/WebGUI/t/lib';
#!/usr/bin/perl
use strict;
use warnings;
use lib '/data/WebGUI/lib';
use lib '/data/WebGUI/t/lib';
use WebGUI::Test;
use WebGUI::Session;
package wth;
# what the heck is going on?
use strict;
use warnings;
use lib '/data/WebGUI/lib';
use lib '/data/WebGUI/t/lib';
#-------------------------------------------------------------------
# WebGUI is Copyright 2010 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
#-------------------------------------------------------------------
-- change all instances of 'dev_localhost_localdomain' to whatever the database name is on production.
-- run against 'restore2010' and then change 'restore2010' to 'restore2009' and run again.
insert into dev_localhost_localdomain.Survey
select * from restore2010.Survey
where restore2010.Survey.revisionDate not in ( select revisionDate from dev_localhost_localdomain.Survey );
-- too slow...
-- insert into dev_localhost_localdomain.assetData
[1] Stopped vi t/Asset/File/Image.t
[4] Stopped vi lib/WebGUI/Image.pm
[5] Stopped vi lib/WebGUI/Image/Graph.pm
[6] Stopped vi lib/WebGUI/Image/Graph/Pie.pm
[7] Stopped vi lib/WebGUI/Image/Graph/XYGraph.pm
[8]- Stopped vi lib/WebGUI/Image/Graph/XYGraph/Bar.pm
[9]+ Stopped vi t/Storage/Image.t
[10]+ Stopped vi lib/WebGUI/Storage.pm
[11] Stopped vi t/Asset/Wobject/GalleryAlbum/edit.t
[12] Stopped vi t/Asset/Wobject/Poll.t
[branch "WebGUI8"]
remote = origin
merge = refs/heads/WebGUI8
rebase = true
#!/usr/bin/env perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2011 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
# Sinusfont: a simple SDL_ttf based sinus scroller
# Copyright (C) 2004 Angelo "Encelo" Theodorou
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,