Search options

#!/usr/bin/perl/

# 0) preface
# 1) modules, includes, declare variables
# 2) create db connections
# 3) create an array from all images in the strips dir
# 4) run through each strip in the array
#   a) check for an entry in the html dir, set $newspost to either empty or the contents
#   b) create a topic/post in the forum, set timestamp to date of image (name)
#   c) insert row into snat_strips table

# 1) modules, includes, declare variables
  use strict;
  use DBI;
  require "time.pl";
  my $newspost;
  my $subject;
  my $created;
  my $topic;
  my $post;
  my $myquery;

# 2) create db connection
  my $dbh = DBI->connect('DBI:mysql:this:info', 'is', 'fake') or die "Couldn't connect to database: " . DBI->errstr;
  my $dbh2 = DBI->connect('DBI:mysql:this:info', 'is', 'fake2') or die "Couldn't connect to database: " . DBI->errstr;

# 3) create an array from all images in the strips dir
  my @strips = <strips/*>;
  foreach my $strip (@strips) {
    $strip =~ s/\w+\///;
  }

# 4) run through each strip in the array
  foreach my $strip (@strips) {
    my $date = $strip;
    $date =~ s/\.\w+//;
    $newspost = "http://dev.snatcomic.com/index.php?strip=".$date."\n\n";
    if (-e "news/".$date.".html") {
      # news file exists, so open file and set $newspost to contents
      open (TEMP, "<" . 'news/'.$date.'.html') or die "Couldn't open old file: $!";
      while (my $line = <TEMP>) {
        $line =~ s/<br\s*\/>//;
        $newspost .= $line;
      }
      close TEMP;
    } else {
      # nothing found
      $newspost .= "";
    }
    
    # gonna need some variables for the field values.
    # first, $subject will be the strip date
    my $subject = $date;
    
    # second, $created will be the timestamp converted from the file name
    my $created = convertTime($date);
  
    # chomp $newspost
    chomp($newspost);
  
    # add a new topic
    $myquery = "INSERT INTO foo_pun_topics (poster, subject, posted, last_post, last_poster, forum_id) VALUES (?, ?, ?, ?, ?, ?)";
    my $sth = $dbh->prepare($myquery) or die "Couldn't prepare statement: " . $dbh->errstr;
    $sth->execute('I like pie', $subject, $created, $created, 'I like pie', '4') or die "Couldn't execute statement: " . $sth->errstr;
 
    # get id of topic created
    $topic = $sth->{'mysql_insertid'};

    # add a new post
    $myquery = "INSERT INTO foo_pun_posts (poster, poster_id, message, posted, topic_id) VALUES (?, ?, ?, ?, ?)";
    my $sth = $dbh->prepare($myquery) or die "Couldn't prepare statement: " . $dbh->errstr;
    $sth->execute('I like pie', '3', $newspost, $created, $topic) or die "Couldn't execute statement: " . $sth->errstr;

    # get id of post just created
    $post = $sth->{'mysql_insertid'};

    # update topic with recent post info
    $myquery = "UPDATE foo_pun_topics SET last_post_id = $post WHERE id = $topic";
    my $sth = $dbh->prepare($myquery) or die "Couldn't prepare statement: " . $dbh->errstr;
    $sth->execute() or die "Couldn't execute statement: " . $sth->errstr;

    # insert row into snat_strips
    $myquery = "INSERT INTO snat_strips (strip_id, filename, thread_id) VALUES (?, ?, ?)";
    my $sth = $dbh2->prepare($myquery) or die "Couldn't prepare statement: " . $dbh->errstr;
    $sth->execute($date, $strip, $topic) or die "Couldn't execute statement: " . $sth->errstr;
  }