fuzzysteve

#!/usr/bin/perl -w
use strict;
use DBIx::Dump;
use DBI;

# ... connect to your database as normal
my $database='sdeodyssey11';

my $dbh = DBI->connect("DBI:mysql:$database", 'root', '') or die "Couldn't connect to database: " . DBI->errstr;

fuzzysteve

#!/bin/bash
DB=sdeodyssey11
DIR=/home/dump/

for i in `echo "show tables" | mysql $db|grep -v Tables_in_`;
do
  FILE=$DIR/$i
  echo $i;
  mysqldump --default-character-set=utf8 $DB $i -r $FILE.sql --opt --allow-keywords
done

fuzzysteve

#!/usr/bin/perl -w

use strict;

use JSON;
use Data::Dumper;
use WebService::Solr;
use Time::HiRes qw(time);

my $solr = WebService::Solr->new( undef, { autocommit => 0 } );

fuzzysteve

function domath(){

taxrate=parseInt($("#taxrate").val())/100;

for ( x in schematiclist){
schematic=schematiclist[x];
outputvalue=(schematicdata[schematic]["price"]-(taxvalues[schematicdata[schematic]["group"]]*taxrate))*schematicdata[schematic]["quantity"];
$("#"+schematic+"-outputvalue").text(addIskCommas(outputvalue));
pitable.fnUpdate(addIskCommas(outputvalue),document.getElementById("schematic-"+schematic),4,0);
totalinputprice=0;

fuzzysteve

<?
require_once("db.inc.php");





$certificates=yaml_parse_file("certificates.yaml");

$certsql="insert into evesupport.certificates (certificateID,description,groupid,name) values (:certid,:description,:groupid,:name)";

fuzzysteve

<?php
require_once('db.inc.php');

$curl = curl_init();
curl_setopt($curl, CURLOPT_URL, "$url");
curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
$content = curl_exec($curl);
$xml = new simpleXMLElement     ($content);

fuzzysteve

select solarsystemid,sum(local) from (select mss1.solarsystemid,if(sqrt(pow(mss1.x-mss2.x,2)+pow(mss1.y-mss2.y,2)+pow(mss1.z-mss2.z,2))<4.06802721e16,1,0) local from mapSolarSystems mss1 join mapSolarSystems mss2  on (mss1.solarsystemid != mss2.solarsystemid) where mss1.security!=-0.99 and mss2.security!=-0.99) it group by solarsystemid

fuzzysteve

#!/usr/bin/perl
use warnings;
use strict;
use JSON;
use Compress::Zlib;
use List::Util qw[min max];
use ZMQ::LibZMQ3;
use ZMQ::Constants qw/ZMQ_SUB ZMQ_SUBSCRIBE/;

$|=1;

fuzzysteve

2082	1	Christmas
2589	1	Christmas
33393	1	Christmas
33394	1	Christmas
19534	2	Talisman
19535	2	Talisman
19536	2	Talisman
19537	2	Talisman
19538	2	Talisman
19539	2	Talisman

fuzzysteve

select coalesce(typename,'Role Bonus') name,bonusText,
coalesce(if(invTraits.unitid=139,bonus,concat(bonus,displayName)),'') bonus 
from invTraits 
left join invTypes on (invTraits.skillid=invTypes.typeid) 
left join eveUnits on (eveUnits.unitID=invTraits.unitID) 
where invTraits.typeid=:id


requires:
https://www.fuzzwork.co.uk/dump/rubicon-1.1-94321/invTraits.sql.bz2