Jump to content

User:LivingBot/Source/2

From Wikipedia, the free encyclopedia
<?php
  function second($in, $string) {
      return strpos(substr($in, strpos($in, $string) + 1), $string) + strpos($in, $string) + 2;
  }
  //grab class
  include('Wikibot.php5');
  //get my password
  $fhpw = fopen("password2.txt", 'r') or die("can't open file");
  $password = fgets($fhpw);
  fclose($fhpw);
  //create bot
  $LivingBot = new Wikibot("LivingBot", $password, "en", "5", "5");
  
  $handle = fopen("livingbot_targets.txt", 'r') or die("can't open file");
  while (!feof($handle)) {
      $targets[] = trim(fgets($handle));
  }
  fclose($handle);
  $targets[0] = "User:Jarry1250/Achaen";
  $counter = 0;
  for ($i = 40; $i < count($targets); $i++) {
      if (stripos($LivingBot->get_page("User:LivingBot/shutoff"), "<!--Emergency shutoff-->") === false) {
          echo "Bot shut down.<br />";
          break;
      }
      echo "Editing page [[$targets[$i]]].<br />";
      $page = $LivingBot->get_page($targets[$i]);
      //echo $page;
      if (stripos(str_replace(" ", "", $page), "{{infobox") !== false || stripos($page, "Map not yet") === false) {
          //It's been updated in the mean time
          echo "Not found. <br />";
          continue;
      }
      preg_match("/'''[^']*'''/", $page, $temp);
      $name = substr($temp[0], 3, strlen($temp[0]) - 6);
      preg_match("/<br[ ]*>'''''[^']*'''''/", $page, $temp);
      $native = substr($temp[0], (strpos($temp[0], "'") + 5), strlen($temp[0]) - 14);
      $prefec = "[[Achaea]]";
      if (stripos(str_replace(" ", "", $page), "{{coord") !== false) {
          preg_match_all("/\{\{[ ]*coord[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*\|[ ]*([^ |]*)[ ]*/i", $page, $temp);
          $map = "Greece";
          $latd = $temp[1][0];
          $latm = $temp[2][0];
          if (trim($temp[4][0]) == "N" || trim($temp[4][0]) == "S") {
              //Degs, mins and secs
              $lats = $temp[3][0];
              $latNS = $temp[4][0];
              $longd = $temp[5][0];
              $longm = $temp[6][0];
              $longs = $temp[7][0];
              $longEW = $temp[8][0];
          } elseif (trim($temp[3][0]) == "N" || trim($temp[3][0]) == "S") {
              //Just degs and mins
              $latNS = $temp[3][0];
              $longd = $temp[4][0];
              $longm = $temp[5][0];
              $longEW = $temp[6][0];
          }
      } elseif (preg_match("/[(][0-9][0-9][^0-9a-zA-Z%.]{2} [0-9]+['] [0-9]+[\"]\) [NS]/", $page) === true) {
          preg_match("/[(][0-9][0-9][^0-9a-zA-Z%.]{2} [0-9]+['] [0-9]+[\"]\) [NS]/", $page, $temp);
          $secspace = second($temp[0], " ");
          $latd = substr($temp[0], 1, 2);
          $latm = substr($temp[0], strpos($temp[0], " ") + 1, (strpos($temp[0], "'") - strpos($temp[0], " ") - 1));
          $lats = substr($temp[0], $secspace, (strpos($temp[0], '"') - $secspace));
          $latNS = substr($temp[0], strlen($temp[0]) - 1, 1);
          preg_match("/[(][0-9][0-9][^0-9a-zA-Z%.]{2} [0-9]+['] [0-9]+[\"]\) [EW]/", $page, $temp);
          $longd = substr($temp[0], 1, 2);
          $longm = substr($temp[0], strpos($temp[0], " ") + 1, (strpos($temp[0], "'") - strpos($temp[0], " ") - 1));
          $secspace = second($temp[0], " ");
          $longs = substr($temp[0], $secspace, (strpos($temp[0], '"') - $secspace));
          $longEW = substr($temp[0], strlen($temp[0]) - 1, 1);
          $map = "Greece";
      }
      preg_match("/ Municipality: \|\|(.*)\[\[(.*)\]\]/", $page, $temp);
      $munic = substr($temp[0], strpos($temp[0], "|") + 2);
      preg_match("/ \[\[Provinces of Greece\|Province\]\]: \|\|(.*)\[\[(.*)\]\]/", $page, $temp);
      $province = substr($temp[0], second($temp[0], "|") + 2);
      preg_match("/ Municipal district: \|\|[^|]*/", $page, $temp);
      $district = str_replace("'", "", substr($temp[0], strpos($temp[0], "|") + 2));
      preg_match("/ \[\[Area codes in Greece\|Area\/distance code\]\]: \|\|[ ]*[^]]*\]\]/", $page, $temp);
      $code = substr($temp[0], second($temp[0], "|") + 2, strlen($temp[0]) - second($temp[0], "|") + 4);
      preg_match("/ Population: \([0-9]{4}\)/", $page, $temp);
      $popyear = substr($temp[0], 14, 4);
      preg_match_all("/Population:[^|]*\|\|<br>([^< ]*)[ <]/", $page, $temp);
      $pop = $temp[1][0];
      preg_match("/GR-[0-9]{3} [0-9]{2}/", $page, $temp);
      $postal = $temp[0];
      preg_match("/ Website: \|\|(.*)\[\[(.*)\]\]/", $page, $temp);
      $website = substr($temp[0], strpos($temp[0], "|") + 2);
      preg_match_all("/\[\[Category:[ ]*([^ \]]*) in the ([^ ]*) prefecture/", $page, $temp);
      $type = $temp[1][0];
      $prefec = "[[" . $temp[2][0] . "]]";
      echo $type;
      switch ($type) {
          case "Municipalities":
              $type = "Municipality";
              break;
          case "Villages":
              $type = "Village";
              break;
          default:
              if (preg_match("/\[\[Category:[ ]*Achaea/", $page) == true) {
                  echo "Matched cat. ";
                  $prefec = "[[Achaea]]";
                  if (is_numeric(str_replace(",", "", $pop))) {
                      echo "Numeric. ";
                      if (str_replace(",", "", $pop) < 3000) {
                          $type = "Village";
                      } else {
                          
                          $type = "Municipality";
                      }
                  }
              } else {
                  
                  echo "Type not found (" . preg_match("/\[\[Category:[ ]*Achaea/", $page) . ".";
                  continue(2);
              }
              break;
      }
      echo "Continuing...";
      $new = "{{Infobox Settlement
<!--See Template:Infobox Settlement for additional fields that may be available-->
<!--See the Table at Infobox Settlement for all fields and descriptions of usage-->
<!-- Basic info  ---------------->
|name                   = $name
|official_name          =
|other_name             =
|native_name            = $native
|native_name_lang       = gr
|nickname               =
|settlement_type        = $type
|total_type             = <!-- to set a non-standard label for total area and population rows -->
|motto                  =
<!-- images and maps  ----------->
|image_skyline          =
|imagesize              =
|image_caption          =
|image_flag             =
|flag_size              =
|image_seal             =
|seal_size              =
|image_shield           =
|shield_size            =
|image_blank_emblem     =
|blank_emblem_type      =
|blank_emblem_size      =
|image_map              =
|mapsize                =
|map_caption            =
|image_map1             =
|mapsize1               =
|map_caption1           =
|image_dot_map          =
|dot_mapsize            =
|dot_map_caption        =
|dot_x =  |dot_y =
|pushpin_map            = $map
|pushpin_label_position = <!-- the position of the pushpin label: left, right, top, bottom, none -->
|pushpin_map_caption    =
|pushpin_mapsize        =
<!-- Location ------------------>
|subdivision_type       = Country
|subdivision_name       = Greece
|subdivision_type1      = [[Prefectures of Greece|Prefecture]]
|subdivision_name1      = $prefec
|subdivision_type2      = [[Provinces of Greece|Province]]
|subdivision_name2      = $province
|subdivision_type3      = Municipality
|subdivision_name3      = $munic
|subdivision_type4      = Municipal district
|subdivision_name4      = $district
<!-- Smaller parts (e.g. boroughs of a city) and seat of government -->
|seat_type              =
|seat                   =
|parts_type             =
|parts_style            = <!-- =list (for list), coll (for collapsed list), para (for paragraph format)
                               Default is list if up to 5 items, coll if more than 5-->
|parts                  = <!-- parts text, or header for parts list -->
|p1                     =
|p2                     = <!-- etc. up to p50: for separate parts to be listed-->
<!-- Politics ----------------->
|government_footnotes   =
|government_type        =
|leader_title           =
|leader_name            =  <!--add   (no-break space) to leader names to disable automatic links-->
|leader_title1          =
|leader_name1           =
|established_title      =  <!-- Settled -->
|established_date       =
<!-- Area    --------------------->
|area_magnitude         =
|unit_pref                = <!--Enter: Imperial, to display imperial  before metric-->
|area_footnotes           =
|area_total_km2           = <!-- ALL fields with measurements are subject to automatic unit conversion-->
|area_land_km2            = <!--See table @ Template:Infobox Settlement for details on unit conversion-->
|area_water_km2           =
|area_total_sq_mi         =
|area_land_sq_mi          =
|area_water_sq_mi         =
|area_water_percent       =
<!-- Elevation -------------------------->
|elevation_footnotes    =  <!--for references: use <ref> tags-->
|elevation_m            =
|elevation_ft           =
|elevation_max_m            =
|elevation_max_ft           =
|elevation_min_m            =
|elevation_min_ft           =
<!-- Population   ----------------------->
|population_as_of               = $popyear
|population_footnotes           =
|population_note                =
|population_total               = $pop
|population_density_km2         = <!--For automatic calculation, any density field may contain: auto -->
|population_density_sq_mi       =
<!-- General information  --------------->
|time_zone          = [[Eastern European Time|EET]]
|utc_offset         = +2
|time_zone_DST      = [[EEST]]
|utc_offset_DST     = +3
|coor_pinpoint         =<!-- can be used to specify exactly where/what the coordinates refer to -->
|coordinates_type       = type:city($pop)_region:GR
|coordinates_display    = display=inline,title
|latd= $latd |latm= $latm |lats= $lats |latNS= $latNS
|longd= $longd |longm= $longm |longs= $longs |longEW= $longEW
<!-- Area/postal codes & others -------->
|postal_code_type       =  [[List of postal codes in Greece|Postal code]]
|postal_code            =  $postal
|area_code              =  $code
|website                =  $website
|footnotes              =
}}";
      
      $newpage = preg_replace("/\{\| border=[\"]0[\"][^}]*\}/", $new, $page);
      $LivingBot->edit_page($targets[$i], $page, $newpage, "Bot replacing table with infobox (settlement). [[User_talk:LivingBot|Incorrect?]]");
      $counter++;
      if ($counter == 6) {
          break;
      }
  }
?>