scottwalters

#!/home/scott/bin/perl
#!/usr/local/bin/perl

# cheap-o /usr/sbin/sendmail replacement that (doesn't work well but)
# works well with mutt in that if it returns a non-zero exit code,
# mutt will show all of the diagnostic output from this script.

use strict;
use warnings;

scottwalters

delete from asset where assetId in (select assetId from assetData where assetData.tagId = '----------your tag here--------');
delete from wobject where assetId in (select assetId from assetData where assetData.tagId = '----------your tag here--------');
delete from --------your-custom-table-here------ where assetId in (select assetId from assetData where assetData.tagId = '----------your tag here--------');
delete from assetData where assetData.tagId = '----------your tag here--------';
delete from assetVersionTag where tagId = '----------your tag here-----------';

scottwalters

This software has moved to https://github.com/scrottie/sinus and the copy in the gist is no longer being updated.

scottwalters

diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm
index 170c8af..368726a 100644
--- a/lib/WebGUI/Asset/Template.pm
+++ b/lib/WebGUI/Asset/Template.pm
@@ -622,7 +622,9 @@ sub process {
         my $i18n = WebGUI::International->new($session, 'Asset_Template');
         $output = sprintf $i18n->get('template error').$e->error, $self->getUrl, $self->getId;
     }
-       return $output;
+       # return $output;

scottwalters

use strict;
use warnings;
use DateTime;
my $d = DateTime->from_epoch( epoch => 1320985777 )->truncate(to => 'day');
for( 1 .. 10 ) {
   $d->subtract( months => 1 )->truncate( to => 'day' );
   print scalar localtime $d->epoch, "\n";
}

--------------------------------------------8<-----------------------------------

scottwalters

#!/usr/bin/perl

=for comment

Multiplayer telnet-based Asteroids clone for Tektronix 4014 terminal emulation.

This runs as a daemon that people can telnet in to.  It requires an xterm with Tektronix emulation.

Connected players can find each other on the map and co-operate.

scottwalters

#!/usr/bin/perl

use strict;
use warnings;

use autobox;
use autobox::Core;
use IO::Handle;
use LWP::Simple '$ua', 'get';
use Data::Dumper;

scottwalters

*.bak
ref/*
*nytprof*

scottwalters

scottwalters

This is an experimental installer for WebGUI8 that attempts to use the
system package manager rather than the WRE.  It currently targets
CentOS and Debian.

It is currently incomplete -- it doesn't set up WebGUI to run at boot
time on Debian, and it doesn't set up log rotation, or cron to run
wremonitor, and a few other things.

To run it installer on CentOS, do this, as root: