(cont.)

delete and/or modify these??

$mysql = "/home/flute/usedflutes-www/new_listings_mysql.html";
[download]

(from the top of the script and)

# Begin the Editing of the MySQL File
open (FILE,"$mysql") || die "Can't Open $mysql: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (MYSQL,">$mysql") || die "Can't Open $mysql: $!\n";

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) {
[download]

(from the MySQL section)

# MySQL

# Begin the Editing of the MySQL File
open (FILE,"$mysql") || die "Can't Open $mysql: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (MYSQL,">$mysql") || die "Can't Open $mysql: $!\n";

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) {


      if ($entry_order eq '1') {
        
      }

{
         print MYSQL "INSERT INTO `mysql_db` (`Title`, `Email`, `City`
+, `State`, `Country`, `URL`, `Date`, `Description`, `rid`, `dt_create
+`, `publish`, ) VALUES (";
      }


      if ($line_breaks == 1) {
         $FORM{'Title'} =~ s/\cM\n/\n/g;
      }

      print MYSQL "$FORM{'Title'}";

print MYSQL ", ";

      if ( $FORM{'Email'} ){
    my $email_name = $dbh->quote($FORM{'Email'});

#         if ($linkmail eq '1') {
            print MYSQL $email_name;

#         }
#         else {
#            print MYSQL "$FORM{'Email'}";
#         }

         print MYSQL ", ";
      }

      if ( $FORM{'City'} ){
         print MYSQL "$FORM{'City'}";
      }
     {
         print MYSQL ", ";
      }
      if ( $FORM{'State'} ){
         print MYSQL "$FORM{'State'}";
      }
{
         print MYSQL ", ";
      }
      if ( $FORM{'Country'} ){
         print MYSQL "$FORM{'Country'}";
      }
{
         print MYSQL ", ";
      }

if ($FORM{'URL'}) {
         print MYSQL "$FORM{'URL'}";
      }
      else {
         print MYSQL "$FORM{'URL'}";
      }
{
         print MYSQL ", ";
      }

if ($separator eq '1') {
         print MYSQL "'$date'";
      }
      else {
         print MYSQL "'$date'";
      }
{
         print MYSQL ", ";
      }
      
if ( $FORM{'Description'} ){
         print MYSQL "$FORM{'Description'}, '', NOW(), 0) \n\n";


      }

           if ($entry_order eq '0') {
         print MYSQL "<!--begin-->\n";
      }

   }
   else {
      print MYSQL $_;
   }
}

close (MYSQL);

my $content;
open FILE, '<', $mysql; # Open a filehandle FILE to $mysql 

while (<FILE>) {
   chomp; # delete any EOL character(s)
   $content .= $_; # Add the next line to the previous parts
}

$sth=$dbh->prepare($content);
$sth->execute();

close (MYSQL);

$dbh->disconnect;
[download]

=====

Thanks,

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.