void MWorkFile::dump( WFile& fil )
{
MRule* rule = _item->rule();
WString& mask = _component->mask();
fil.printf( "#%FP", this );
fil.printf( ", %s:%s", (const char*)mask, (const char*)rule->tag() );
fil.printf( ", %s", (const char*)*this );
WString n;
int icount = _states.count();
if( icount > 0 ) {
bool first = TRUE;
for( int i=0; i<icount; i++ ) {
MState* st = (MState*)_states[i];
WString temp;
st->sw()->getText( temp, st );
if( temp.size() > 0 ) {
if( first ) n.concat( " (" );
if( !first ) n.concat( ' ' );
n.concat( temp );
first = FALSE;
}
}
if( !first ) n.concat( ')' );
}
fil.printf( " %s\n", (const char*)n );
}
bool VMsgLog::saveLogAs()
{
bool ok = FALSE;
WFileName fn( "log" );
MProject* project = _parent->project();
if( project ) {
project->filename().noPath( fn );
}
fn.setExt( ".txt" );
WFileDialog fd( this, sFilter );
fn = fd.getOpenFileName( fn, "Save Log as", WFSaveDefault );
if( fn.legal() ) {
// fn.toLower();
WFile f;
if( !f.open( fn, OStyleWrite ) ) {
WMessageDialog::messagef( this, MsgError, MsgOk, _viperError, "Unable to save log file '%s'", (const char*)fn );
} else {
int icount = _data.count();
for( int i=0; i<icount; i++ ) {
f.puts( *(WString*)_data[i] );
f.puts( "\n" );
}
f.close();
ok = TRUE;
}
}
return ok;
}
bool iscan1(int si)
// Initializes use of a sub value (subboards[], not usub[]). If quick, then
// don't worry about anything detailed, just grab qscan info.
{
postrec p;
// make sure we have cache space
if (!cache) {
cache = static_cast<postrec *>(malloc(MAX_TO_CACHE * sizeof(postrec)));
if (!cache) {
return false;
}
}
// forget it if an invalid sub #
if (si < 0 || si >= initinfo.num_subs) {
return false;
}
// see if a sub has changed
if (subchg) {
SetCurrentReadMessageArea(-1);
}
// if already have this one set, nothing more to do
if (si == GetCurrentReadMessageArea()) {
return true;
}
// sub cache no longer valid
believe_cache = false;
// set sub filename
snprintf(subdat_fn, sizeof(subdat_fn), "%s%s.sub", syscfg.datadir, subboards[si].filename);
// open file, and create it if necessary
if (!WFile::Exists(subdat_fn)) {
if (!open_sub(true)) {
return false;
}
p.owneruser = 0;
fileSub.Write(&p, sizeof(postrec));
} else if (!open_sub(false)) {
return false;
}
// set sub
SetCurrentReadMessageArea(si);
subchg = 0;
last_msgnum = 0;
// read in first rec, specifying # posts
fileSub.Seek(0L, WFile::seekBegin);
fileSub.Read(&p, sizeof(postrec));
SetNumMessagesInCurrentMessageArea(p.owneruser);
// close file
close_sub();
// iscanned correctly
return true;
}
ws_handle WSAPI load_bitmap(const char *name)
{
WBitmap *bmp=new WBitmap;
WFile f;
f.Load(name);
bmp->Load(f);
return (ws_handle)bmp;
}
void writeEditor( WFile &ifile, char *edtext, char *isdlltext,
WFileName &editor, bool isdll, bool thisos ) {
// the WFileName class has no != operator
if( ( !thisos && !( editor == "" ) )
|| ( thisos && !( editor == _config->editor() ) )
|| ( thisos && isdll != _config->editorIsDLL() ) ) {
ifile.printf( "%s=%s\n", edtext, editor.gets() );
ifile.printf( "%s=%d\n", isdlltext, isdll );
}
}
void write_post(int mn, postrec * pp) {
postrec *p1;
if (fileSub.IsOpen()) {
fileSub.Seek(mn * sizeof(postrec), WFile::seekBegin);
fileSub.Write(pp, sizeof(postrec));
if (believe_cache) {
if (mn >= cache_start && mn < (cache_start + MAX_TO_CACHE)) {
p1 = cache + (mn - cache_start);
if (p1 != pp) {
*p1 = *pp;
}
}
}
}
}
void
WAssert(bool test, const char *message, int line, const char *file, const char *date)
{
if (!test)
{
QString out = qApp->translate("Debug",
"Send this message to [email protected]! "
"This message has also been dumped to 'assert.txt'."
"\n\n%1\n\nLine %2\nFile %3\nDate: %4").arg(qApp->translate("Debug",
message)).arg(line).arg(file).arg(date);
WFile f;
if (f.Open(L"assert.txt", QIODevice::WriteOnly))
{
QByteArray tmp = out.toUtf8();
f.WriteBlock(tmp, tmp.length());
f.Close();
}
WPopup(out);
}
}
bool open_sub(bool wr) {
postrec p;
close_sub();
if (wr) {
fileSub.SetName(subdat_fn);
fileSub.Open(WFile::modeBinary | WFile::modeCreateFile | WFile::modeReadWrite, WFile::shareUnknown,
WFile::permReadWrite);
if (fileSub.IsOpen()) {
// re-read info from file, to be safe
believe_cache = false;
fileSub.Seek(0L, WFile::seekBegin);
fileSub.Read(&p, sizeof(postrec));
SetNumMessagesInCurrentMessageArea(p.owneruser);
}
} else {
fileSub.SetName(subdat_fn);
fileSub.Open(WFile::modeReadOnly | WFile::modeBinary);
}
return fileSub.IsOpen();
}
bool MComponent::writeCBR( bool mustExist )
{
bool found_a_mbr = false;
if( mustExist )
found_a_mbr = true;
for( int i=0; i<_workFiles.count(); i++ ) {
MWorkFile* w = (MWorkFile*)_workFiles[i];
if( w->browseable() ) {
WFileName browfile( _filename );
browfile.setExt( ".cbr" );
WFile brow;
if( brow.open( browfile, OStyleWrite ) ) {
WFileName tfile;
_target->absResult( tfile );
tfile.setExt( "dbr" );
brow.printf( "d %s\n", (const char*)tfile );
for( ; i<_workFiles.count(); i++ ) {
MWorkFile* w = (MWorkFile*)_workFiles[i];
if( w->browseable() ) {
w->item()->absResult( tfile );
tfile.setExt( "mbr" );
if( mustExist ) {
if( access( (const char*)tfile, F_OK ) == 0 ) {
// file must be there
brow.printf( "f %s\n", (const char*)tfile );
found_a_mbr = true;
}
} else {
brow.printf( "f %s\n", (const char*)tfile );
}
}
}
brow.close();
}
if( found_a_mbr ) return( true );
}
}
return( false );
}
void mailr() {
mailrec m, m1;
filestatusrec fsr;
WFile *pFileEmail = OpenEmailFile(false);
WWIV_ASSERT(pFileEmail);
if (pFileEmail->IsOpen()) {
int nRecordNumber = pFileEmail->GetLength() / sizeof(mailrec) - 1;
char c = ' ';
while (nRecordNumber >= 0 && c != 'Q' && !hangup) {
pFileEmail->Seek(nRecordNumber * sizeof(mailrec), WFile::seekBegin);
pFileEmail->Read(&m, sizeof(mailrec));
if (m.touser != 0) {
pFileEmail->Close();
do {
WUser user;
GetApplication()->GetUserManager()->ReadUser(&user, m.touser);
GetSession()->bout << "|#1 To|#7: |#" << GetSession()->GetMessageColor() << user.GetUserNameAndNumber(
m.touser) << wwiv::endl;
int tp = 80;
int nn = 0;
if (m.status & status_source_verified) {
tp -= 2;
}
if (m.status & status_new_net) {
tp -= 1;
if (wwiv::strings::GetStringLength(m.title) <= tp) {
nn = m.title[tp + 1];
} else {
nn = 0;
}
} else {
nn = 0;
}
set_net_num(nn);
GetSession()->bout << "|#1Subj|#7: |#" << GetSession()->GetMessageColor() << m.title << wwiv::endl;
if (m.status & status_file) {
WFile attachDat(syscfg.datadir, ATTACH_DAT);
if (attachDat.Open(WFile::modeReadOnly | WFile::modeBinary, WFile::shareUnknown, WFile::permReadWrite)) {
bool found = false;
long lAttachFileSize = attachDat.Read(&fsr, sizeof(fsr));
while (lAttachFileSize > 0 && !found) {
if (m.daten == static_cast<unsigned long>(fsr.id)) {
GetSession()->bout << "|#1Filename|#0.... |#2" << fsr.filename << " (" << fsr.numbytes << " bytes)|#0\r\n";
found = true;
}
if (!found) {
lAttachFileSize = attachDat.Read(&fsr, sizeof(fsr));
}
}
if (!found) {
GetSession()->bout << "|#1Filename|#0.... |#2File : Unknown or Missing|#0\r\n";
}
attachDat.Close();
} else {
GetSession()->bout << "|#1Filename|#0.... |#2|#2File : Unknown or Missing|#0\r\n";
}
}
bool next;
read_message1(&(m.msg), (char)(m.anony & 0x0f), true, &next, "email", m.fromsys, m.fromuser);
GetSession()->bout << "|#2R,D,Q,<space> : ";
if (next) {
c = ' ';
} else {
c = onek("QRD ");
}
if (c == 'D') {
pFileEmail = OpenEmailFile(true);
pFileEmail->Seek(nRecordNumber * sizeof(mailrec), WFile::seekBegin);
pFileEmail->Read(&m1, sizeof(mailrec));
if (memcmp(&m, &m1, sizeof(mailrec)) == 0) {
delmail(pFileEmail, nRecordNumber);
bool found = false;
if (m.status & status_file) {
WFile attachFile(syscfg.datadir, ATTACH_DAT);
if (attachFile.Open(WFile::modeReadWrite | WFile::modeBinary)) {
long lAttachFileSize = attachFile.Read(&fsr, sizeof(fsr));
while (lAttachFileSize > 0 && !found) {
if (m.daten == static_cast<unsigned long>(fsr.id)) {
found = true;
fsr.id = 0;
attachFile.Seek(static_cast<long>(sizeof(filestatusrec)) * -1L, WFile::seekCurrent);
attachFile.Write(&fsr, sizeof(filestatusrec));
WFile::Remove(GetApplication()->GetAttachmentDirectory().c_str(), fsr.filename);
} else {
attachFile.Read(&fsr, sizeof(filestatusrec));
}
}
attachFile.Close();
}
}
} else {
GetSession()->bout << "Mail file changed; try again.\r\n";
}
pFileEmail->Close();
if (!GetSession()->IsUserOnline() && m.touser == 1 && m.tosys == 0) {
GetSession()->GetCurrentUser()->SetNumMailWaiting(GetSession()->GetCurrentUser()->GetNumMailWaiting() - 1);
}
}
GetSession()->bout.NewLine(2);
} while ((c == 'R') && (!hangup));
pFileEmail = OpenEmailFile(false);
WWIV_ASSERT(pFileEmail);
if (!pFileEmail->IsOpen()) {
break;
}
}
nRecordNumber -= 1;
}
pFileEmail->Close();
}
delete pFileEmail;
}
void close_sub() {
if (fileSub.IsOpen()) {
fileSub.Close();
}
}
postrec *get_post(int mn)
// Returns info for a post. Maintains a cache. Does not correct anything
// if the sub has changed.
{
postrec p;
bool bCloseSubFile = false;
if (mn == 0) {
return nullptr;
}
if (subchg == 1) {
// sub has changed (detected in GetApplication()->GetStatusManager()->Read); invalidate cache
believe_cache = false;
// kludge: subch==2 leaves subch indicating change, but the '2' value
// indicates, to this routine, that it has been handled at this level
subchg = 2;
}
// see if we need new cache info
if (!believe_cache ||
mn < cache_start ||
mn >= (cache_start + MAX_TO_CACHE)) {
if (!fileSub.IsOpen()) {
// open the sub data file, if necessary
if (!open_sub(false)) {
return nullptr;
}
bCloseSubFile = true;
}
// re-read # msgs, if needed
if (subchg == 2) {
fileSub.Seek(0L, WFile::seekBegin);
fileSub.Read(&p, sizeof(postrec));
SetNumMessagesInCurrentMessageArea(p.owneruser);
// another kludge: subch==3 indicates we have re-read # msgs also
// only used so we don't do this every time through
subchg = 3;
// adjust msgnum, if it is no longer valid
if (mn > GetNumMessagesInCurrentMessageArea()) {
mn = GetNumMessagesInCurrentMessageArea();
}
}
// select new starting point of cache
if (mn >= last_msgnum) {
// going forward
if (GetNumMessagesInCurrentMessageArea() <= MAX_TO_CACHE) {
cache_start = 1;
} else if (mn > (GetNumMessagesInCurrentMessageArea() - MAX_TO_CACHE)) {
cache_start = GetNumMessagesInCurrentMessageArea() - MAX_TO_CACHE + 1;
} else {
cache_start = mn;
}
} else {
// going backward
if (mn > MAX_TO_CACHE) {
cache_start = mn - MAX_TO_CACHE + 1;
} else {
cache_start = 1;
}
}
if (cache_start < 1) {
cache_start = 1;
}
// read in some sub info
fileSub.Seek(cache_start * sizeof(postrec), WFile::seekBegin);
fileSub.Read(cache, MAX_TO_CACHE * sizeof(postrec));
// now, close the file, if necessary
if (bCloseSubFile) {
close_sub();
}
// cache is now valid
believe_cache = true;
}
// error if msg # invalid
if (mn < 1 || mn > GetNumMessagesInCurrentMessageArea()) {
return nullptr;
}
last_msgnum = mn;
return (cache + (mn - cache_start));
}
