Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

some name update in del.pl

  • Loading branch information...
commit 13b7d44889d1f3a94151b94d6a4ef4cfe9fa5194 1 parent 31a0717
Gabor Szabo authored
Showing with 6 additions and 5 deletions.
  1. +6 −5 www/cgi/del.pl
11 www/cgi/del.pl
View
@@ -11,14 +11,15 @@
print $q->header;
my @users = qw(nationshoes njgoogle wowpowerlvl gdoit shoesgreat jordan2008 pickcounty cnbearing);
-push @users, qw(rainyjin angelae8654 nisha jojokinkaid billy001 papu);
-push @users, qw(bettytalk mcgaha digitss adam01 mili sales3 sindabearing dpibearing yangmayer);
-push @users, qw(salesplaza releasesoft overnightmoney);
+#push @users, qw(rainyjin angelae8654 nisha jojokinkaid billy001 papu);
+#push @users, qw(bettytalk mcgaha digitss adam01 mili sales3 sindabearing dpibearing yangmayer);
+#push @users, qw(salesplaza releasesoft overnightmoney);
+push @users, qw(markettips1);
my $sql = "delete from posts where id in (select posts.id from posts, users where username ";
$sql .= "in(" . join ", ", map {"'$_'"} @users;
$sql .= ") and posts.uid=users.id)";
-#print $sql;
-$dbh->do($sql);
+print $sql;
+print $dbh->do($sql);
print "OK";
__END__
Please sign in to comment.
Something went wrong with that request. Please try again.