Help for this page

Select Code to Download


  1. or download this
    opendir(ims, "/home/tanglam/www/$Account::cata_acc/_data/messages");
    @imss = grep !/\.\.?/, readdir MESSAGE;
    ...
    foreach $imfile (@imss) {
    unlink("/home/tanglam/www/$Account::cata_acc/_data/messages/$imfile") 
    +|| print "Error deleting message";
    }
    
  2. or download this
    opendir(ims, "/home/tanglam/www/$Account::cata_acc/_data/messages");
    @imss = grep !/\.\.?/, readdir MESSAGE;
    unlink(@imss);
    closedir(ims);