exoplanets.pl   exoplanets.pl 
skipping to change at line 23 skipping to change at line 23
$JSON = "./exoplanets.json"; $JSON = "./exoplanets.json";
$CATALOG_FORMAT_VERSION = 1; $CATALOG_FORMAT_VERSION = 1;
$dbname = "exoplanets"; $dbname = "exoplanets";
$dbhost = "localhost"; $dbhost = "localhost";
$dbuser = "exoplanet"; $dbuser = "exoplanet";
$dbpass = "exoplanet"; $dbpass = "exoplanet";
$UA = LWP::UserAgent->new(keep_alive => 1, timeout => 360); $UA = LWP::UserAgent->new(keep_alive => 1, timeout => 360);
$UA->agent("Mozilla/5.0 (Stellarium Exoplanets Catalog Updater 0.1; http:// stellarium.org/)"); $UA->agent("Mozilla/5.0 (Stellarium Exoplanets Catalog Updater 0.2; http:// stellarium.org/)");
$request = HTTP::Request->new('GET', $URL); $request = HTTP::Request->new('GET', $URL);
$responce = $UA->request($request); $responce = $UA->request($request);
if ($responce->is_success) { if ($responce->is_success) {
open(OUT, ">$CSV"); open(OUT, ">$CSV");
$data = $responce->content; $data = $responce->content;
binmode OUT; binmode OUT;
print OUT $data; print OUT $data;
close OUT; close OUT;
} else { } else {
skipping to change at line 101 skipping to change at line 101
$sname =~ s/^zeta/ζ/gi; $sname =~ s/^zeta/ζ/gi;
$sname =~ s/^theta/θ/gi; $sname =~ s/^theta/θ/gi;
$sname =~ s/^eta/η/gi; $sname =~ s/^eta/η/gi;
$sname =~ s/^iota/ι/gi; $sname =~ s/^iota/ι/gi;
$sname =~ s/^kappa/κ/gi; $sname =~ s/^kappa/κ/gi;
$sname =~ s/^lambda/λ/gi; $sname =~ s/^lambda/λ/gi;
$sname =~ s/^mu/μ/gi; $sname =~ s/^mu/μ/gi;
$sname =~ s/^nu/ν/gi; $sname =~ s/^nu/ν/gi;
$sname =~ s/^xi/ξ/gi; $sname =~ s/^xi/ξ/gi;
$sname =~ s/^ksi/ξ/gi; $sname =~ s/^ksi/ξ/gi;
$sname =~ s/^omicron/ο/gi; $sname =~ s/^(omicron|omi)/ο/gi;
$sname =~ s/^pi/π/gi; $sname =~ s/^pi/π/gi;
$sname =~ s/^rho/ρ/gi; $sname =~ s/^rho/ρ/gi;
$sname =~ s/^sigma/σ/gi; $sname =~ s/^sigma/σ/gi;
$sname =~ s/^tau/τ/gi; $sname =~ s/^tau/τ/gi;
$sname =~ s/^upsilon/υ/gi; $sname =~ s/^upsilon/υ/gi;
$sname =~ s/^ups/υ/gi; $sname =~ s/^ups/υ/gi;
$sname =~ s/^phi/φ/gi; $sname =~ s/^phi/φ/gi;
$sname =~ s/^chi/χ/gi; $sname =~ s/^chi/χ/gi;
$sname =~ s/^psi/ψ/gi; $sname =~ s/^psi/ψ/gi;
$sname =~ s/^omega/ω/gi; $sname =~ s/^omega/ω/gi;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/