mirror of
https://github.com/Outworldz/OpensimEvents.git
synced 2026-08-14 00:47:53 +00:00
starflowerbracken
5de771224a
Remove four-byte UTF-8 BMP characters that MySQL won't like. The best way was to simply remove them by regex.
287 lines
8.0 KiB
Perl
287 lines
8.0 KiB
Perl
#!perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib 'lib';
|
|
|
|
require "setupMYSQL.plx";
|
|
my $db = GetDB();
|
|
|
|
|
|
require LWP::UserAgent;
|
|
|
|
my $ua = LWP::UserAgent->new;
|
|
$ua->timeout(10);
|
|
$ua->env_proxy;
|
|
|
|
## replacing defunct HYPEvents with fork 2DO.pm
|
|
#my $response = $ua->get('http://yourworlds.eu/hypevents/events.json');
|
|
my $response = $ua->get('http://2do.pm/events/events.json');
|
|
|
|
my $x = $response->content;
|
|
my %Cat;
|
|
if ($response->is_success) {
|
|
|
|
#open (OUT, ">", "../SecondLife/events.json");
|
|
open (OUT, ">", "events.json");
|
|
my $x = $response->decoded_content;
|
|
$x =~ s/}/}\n/g;
|
|
print OUT $x;
|
|
close OUT;
|
|
|
|
my $q = 'delete from events';
|
|
$db->Sql($q);
|
|
if ($db->Error) {
|
|
die $db->Error;
|
|
}
|
|
|
|
use JSON;
|
|
|
|
my @a = decode_json $response->content;
|
|
|
|
use utf8;
|
|
|
|
for my $b( @a ) {
|
|
for my $data ( @$b ) {
|
|
|
|
my $name = $data->{title};
|
|
|
|
my $time = $data->{start}; #2018-08-30T07:00:00+00:00
|
|
my $slurl = $data->{hgurl};
|
|
|
|
use HTML::Entities;
|
|
$slurl = encode_entities($slurl);
|
|
|
|
my $description = $data->{description};
|
|
$description = decode_entities($description);
|
|
# remove any possible non-breaking spaces that will make the script fail
|
|
$description =~ s/\xa0/ /g;
|
|
$description =~ s/\xA0/ /g;
|
|
$description =~ s/ / /g;
|
|
$description =~ s/ / /g;
|
|
# the next two lines remove four-byte UTF-8 characters that MySQL won't like
|
|
my $not_bmp = qr([\x{10000}-\x{10FFFF}]);
|
|
$description =~ s/$not_bmp//g;
|
|
|
|
use HTML::Strip;
|
|
|
|
my $hs = HTML::Strip->new();
|
|
|
|
$description = $hs->parse( $description );
|
|
$hs->eof;
|
|
|
|
# had to comment these out as another source of problem characters
|
|
#utf8::decode($description);
|
|
|
|
$name = decode_entities($name);
|
|
# remove any possible non-breaking spaces that will make the script fail
|
|
$name =~ s/\xa0/ /g;
|
|
$name =~ s/\xA0/ /g;
|
|
$name =~ s/ / /g;
|
|
$name =~ s/ / /g;
|
|
# the next line removes four-byte UTF-8 characters that MySQL won't like (see above)
|
|
$name =~ s/$not_bmp//g;
|
|
# had to comment these out as another source of problem characters
|
|
#utf8::decode($name);
|
|
|
|
print "$description\n";
|
|
my @categories = $data->{categories};
|
|
|
|
foreach my $category (@categories)
|
|
{
|
|
foreach my $c (@$category)
|
|
{
|
|
$Cat{$c} ++;
|
|
}
|
|
}
|
|
|
|
my $end = $data->{end};
|
|
|
|
use Date::Manip;
|
|
my $date1=&ParseDate($time);
|
|
print &UnixDate($date1,"The time is now %T on %b %e, %Y.\n");
|
|
&UnixDate($date1,"The time is now %T on %b %e, %Y.\n");
|
|
my $startdate = &UnixDate($date1,"%Y-%m-%d %H:%M:%S");
|
|
|
|
my $h = &UnixDate($date1,"%H");
|
|
my $mn =&UnixDate($date1,"%M");
|
|
my $s =&UnixDate($date1,"%S");
|
|
|
|
my $y =&UnixDate($date1,"%Y");
|
|
my $m =&UnixDate($date1,"%m");
|
|
my $dd =&UnixDate($date1,"%d");
|
|
|
|
my $secs= &Date_SecsSince1970GMT($m,$dd,$y,$h,$mn,$s) - 60*60 *2;
|
|
|
|
my $date2=&ParseDate($end);
|
|
print &UnixDate($date2,"The event ends at %T on %b %e, %Y.\n");
|
|
my $err;
|
|
my $delta=&DateCalc($date1,$date2,\$err);
|
|
print "The duration is $delta\n";
|
|
#0:0:0:0:24:0:0
|
|
my ($a,$b,$c,$d,$day,$min,$sec) = split(':',$delta);
|
|
|
|
my $duration = $day * 60 + $min;
|
|
print "The duration is $duration minutes\n";
|
|
# hop://goto.theencoreescape.com:8002/All Saints Ballroom/94/124/34
|
|
|
|
my $gateway = '';
|
|
my $simname = '';
|
|
my $port = '';
|
|
my $landingpoint = '';
|
|
|
|
print "$data->{hgurl}\n";
|
|
|
|
use URI::Escape;
|
|
|
|
# clean up front end
|
|
$slurl =~ s/http:\/\///;
|
|
$slurl =~ s/:\/\///;
|
|
$slurl =~ s/\/\///;
|
|
$slurl =~ s/(\d{4}):/$1\//;
|
|
|
|
if ($slurl =~ /KARAOKE/i) {
|
|
my $bp = 1;
|
|
}
|
|
if ($slurl =~ /(.*):(\d+)\/(.*?)\/(.*)/ ) {
|
|
$gateway = $1 || '';
|
|
$port = $2 || '';
|
|
$simname = $3 || '';
|
|
$simname = uri_escape_utf8($simname);
|
|
$landingpoint = "//$4" if $4;
|
|
} elsif ($slurl =~ /(.*?):(\d+)\/(.*)/ ){
|
|
#kalasiddhigrid.com:8002:
|
|
$gateway = $1 || '';
|
|
$port = $2 || '';
|
|
$simname = $3 || '';
|
|
$simname = uri_escape_utf8($simname);
|
|
$landingpoint = '';
|
|
} elsif ($slurl =~ /(.*?):(\d+)\// ){
|
|
#kalasiddhigrid.com:8002:
|
|
$gateway = $1 || '';
|
|
$port = $2 || '';
|
|
} elsif ($slurl =~ /(.*?):(\d+)/ ){
|
|
#kalasiddhigrid.com:8002:
|
|
$gateway = $1 || '';
|
|
$port = $2 || '';
|
|
}
|
|
else {
|
|
my $bp = 1; # breakpoint
|
|
next;
|
|
}
|
|
|
|
#secondlife://apps/teleport/goto.theencoreescape.com:8002/All Saints Ballroom/94/124/34
|
|
#secondlife:///app/teleport/3d.gimisa.ca|9000|gimisa3//128/128/25
|
|
$slurl = qq!secondlife://app/teleport/${gateway}|${port}|${simname}${landingpoint}!;
|
|
|
|
$description .= "\n\n" . $slurl;
|
|
|
|
print "$slurl\n\n";
|
|
|
|
$name = substr($name,0,255);
|
|
|
|
my $q = 'insert into events (simname, category,creatoruuid, owneruuid,name, description,
|
|
dateUTC,duration,covercharge, coveramount,parcelUUID, globalPos,
|
|
eventflags) values (?,?,?,?,?,?,?,?,?,?,?,?,?) ';
|
|
if($db->Prepare($q)) {die $db->Error;}
|
|
$startdate = 0;
|
|
|
|
my $uuid = '00000000-0000-0000-0000-000000000001';
|
|
if ($db->Execute("$slurl" , #simname,
|
|
0, #category
|
|
$uuid, #creatorUUID,
|
|
$uuid, #ownerUUID
|
|
$name, # text,
|
|
$description,
|
|
$secs, # DateUTC format
|
|
$duration, #duration
|
|
0, #covercharge
|
|
0, #coveramount
|
|
$uuid, #parcelUUID
|
|
'128,128,25',#globalpos
|
|
0 #eventflags
|
|
)) {die $db->Error;}
|
|
}
|
|
}
|
|
|
|
foreach my $x (keys %Cat) {
|
|
print "$x\n";
|
|
}
|
|
|
|
|
|
} else {
|
|
print "No events available today";
|
|
}
|
|
|
|
|
|
|
|
=pod
|
|
12:00AM
|
|
|
|
insert into events (simname,category,creatoruuid, owneruuid,name, description, dateUTC,duration,covercharge, coveramount,parcelUUID, globalPos,eventflags) values
|
|
( 'simname',
|
|
0,
|
|
'00000000-0000-0000-0000-000000000000',
|
|
'00000000-0000-0000-0000-000000000000',
|
|
'test','description',0,
|
|
1000,0,0,'00000000-0000-0000-0000-000000000000',
|
|
'<0,0,0>',
|
|
0
|
|
|
|
);
|
|
|
|
+-------------+------------------+------+-----+---------+----------------+
|
|
| Field | Type | Null | Key | Default | Extra |
|
|
+-------------+------------------+------+-----+---------+----------------+
|
|
| owneruuid | char(36) | NO | | NULL | |
|
|
| name | varchar(255) | NO | | NULL | |
|
|
| eventid | int(11) unsigned | NO | PRI | NULL | auto_increment |
|
|
| creatoruuid | char(36) | NO | | NULL | |
|
|
| category | int(2) | NO | | NULL | |
|
|
| description | text | NO | | NULL | |
|
|
| dateUTC | int(10) | NO | | NULL | |
|
|
| duration | int(10) | NO | | NULL | |
|
|
| covercharge | tinyint(1) | NO | | NULL | |
|
|
| coveramount | int(10) | NO | | NULL | |
|
|
| simname | varchar(255) | NO | | NULL | |
|
|
| parcelUUID | char(36) | NO | | NULL | |
|
|
| globalPos | varchar(255) | NO | | NULL | |
|
|
| eventflags | int(1) | NO | | NULL | |
|
|
+-------------+------------------+------+-----+---------+----------------+
|
|
|
|
|
|
literature
|
|
music
|
|
education
|
|
social
|
|
The category for an event is stored as a number. The numbers for the
|
|
categories are as follows:
|
|
0 - Any (NOTE: Event information will show "*Unspecified*")
|
|
18- Discussion
|
|
19- Sports
|
|
20- Live Music
|
|
22- Commercial
|
|
23- Nightlife/Entertainment
|
|
24- Games/Contests
|
|
25- Pageants
|
|
26- Education
|
|
27- Arts and Culture
|
|
28- Charity/Support Groups
|
|
29- Miscellaneous
|
|
|
|
The dateUTC field is a timestamp for the event in UTC time.
|
|
|
|
The covercharge field is a boolean. Set it to 0 if there is no cover charge
|
|
for the event. When covercharge is not 0, the amount is in the coveramount
|
|
field. (It seems silly to require the boolean but this has been left in to
|
|
avoid any compatability issues.)
|
|
|
|
The globalPos field is the location of the event as a global grid coordinate.
|
|
The format is "x/y/z". where x and y are the grid X and Y positions (times
|
|
256) plus the x and y offset within the region named by the simname field.
|
|
|
|
The eventflags field is 0 for a PG event, 1 for Mature, and 2 for Adult.
|
|
|
|
=cut
|