tools/pwtest/main.cxx

   1 /*
   2  * main.cxx
   3  *
   4  * PWLib application source file for pwtest
   5  *
   6  * Main program entry point.
   7  *
   8  * Copyright 98 Equivalence
   9  *
  10  * $Log$
  11  * Revision 1.40  2003/12/14 10:00:04  rjongbloed
  12  * Updated to new API due to plug-ins
  13  *
  14  * Revision 1.39  2002/12/10 04:47:18  robertj
  15  * Added support in PTime for ISO 8601 format.
  16  *
  17  * Revision 1.38  2002/12/04 00:19:04  robertj
  18  * Removed get document that just returns a content length as the chunked
  19  *   transfer encoding makes this very dangerous.
  20  *
  21  * Revision 1.37  2002/12/02 00:16:13  robertj
  22  * Additional URL testing
  23  *
  24  * Revision 1.36  2002/11/19 10:37:32  robertj
  25  * Added functions to set anf get "file:" URL. as PFilePath and do the right
  26  *   things with platform dependent directory components.
  27  *
  28  * Revision 1.35  2002/05/21 04:23:40  robertj
  29  * Fixed problem with ASN encoding/decoding unsconstrained negative numbers,
  30  *
  31  * Revision 1.34  2002/03/18 05:03:03  robertj
  32  * Fixed display of URL test so does not treat & as special in dialog.
  33  *
  34  * Revision 1.33  2001/12/06 04:06:03  robertj
  35  * Removed "Win32 SSL xxx" build configurations in favour of system
  36  *   environment variables to select optional libraries.
  37  *
  38  * Revision 1.32  2001/11/08 00:31:27  robertj
  39  * Reinstated URL test code and added "parameter" string dictionary display.
  40  *
  41  * Revision 1.31  2001/09/28 10:05:57  robertj
  42  * Added check for "scientific" mode in PTimeInterval so does not print
  43  *   out hours and minutes, but just rounded seconds.
  44  *
  45  * Revision 1.30  2001/05/10 02:43:23  robertj
  46  * Added SSL test code.
  47  *
  48  * Revision 1.29  2001/03/20 06:56:07  robertj
  49  * Removed hard coded personal e-mail addreses from test.
  50  *
  51  * Revision 1.28  2001/03/05 04:18:27  robertj
  52  * Added net mask to interface info returned by GetInterfaceTable()
  53  *
  54  * Revision 1.27  2001/03/03 05:06:31  robertj
  55  * Major upgrade of video conversion and grabbing classes.
  56  *
  57  * Revision 1.26  2001/01/04 03:39:14  craigs
  58  * Removed IP addresses that cause DNS reverse lookup hassles
  59  *
  60  * Revision 1.25  2000/11/12 23:32:21  craigs
  61  * Added conditionals for functions not implemented in Motif/Qt libraries
  62  *
  63  * Revision 1.24  2000/11/10 01:08:11  robertj
  64  * Added content transfer encoding and automatic base64 translation.
  65  *
  66  * Revision 1.23  2000/11/09 05:50:23  robertj
  67  * Added RFC822 aware channel class for doing internet mail.
  68  *
  69  * Revision 1.22  2000/11/09 00:23:05  robertj
  70  * Additional video testing.
  71  *
  72  * Revision 1.21  2000/08/30 03:17:00  robertj
  73  * Improved multithreaded reliability of the timers under stress.
  74  *
  75  * Revision 1.20  2000/07/25 13:14:07  robertj
  76  * Got the video capture stuff going!
  77  *
  78  * Revision 1.19  2000/07/15 09:47:35  robertj
  79  * Added video I/O device classes.
  80  *
  81  * Revision 1.18  2000/04/29 08:11:06  robertj
  82  * Fixed problem with stream output width in PTimeInterval
  83  *
  84  * Revision 1.17  2000/04/29 04:51:07  robertj
  85  * Added microseconds to string output.
  86  * Fixed uninitialised microseconds on some constructors.
  87  *
  88  * Revision 1.16  1999/09/10 04:35:43  robertj
  89  * Added Windows version of PIPSocket::GetInterfaceTable() function.
  90  *
  91  * Revision 1.15  1999/08/07 07:11:14  robertj
  92  * Added test for menu text change
  93  *
  94  * Revision 1.14  1999/08/07 01:47:18  robertj
  95  * Fixed some trivial errors.
  96  *
  97  * Revision 1.13  1999/07/06 04:46:01  robertj
  98  * Fixed being able to case an unsigned to a PTimeInterval.
  99  * Improved resolution of PTimer::Tick() to be millisecond accurate.
 100  *
 101  * Revision 1.12  1999/07/03 03:12:59  robertj
 102  * #ifdef'ed test code for stuff not in general distrubution.
 103  *
 104  * Revision 1.11  1999/06/30 08:57:20  robertj
 105  * Fixed bug in encodeing sequence of constrained primitive type. Constraint not set.
 106  * Fixed bug in not emitting namespace use clause.
 107  * Added "normalisation" of separate sequence of <base type> to be single class.
 108  *
 109  * Revision 1.10  1999/06/24 14:00:09  robertj
 110  * Added URL parse test
 111  *
 112  * Revision 1.9  1999/06/14 07:59:39  robertj
 113  * Enhanced tracing again to add options to trace output (timestamps etc).
 114  *
 115  * Revision 1.8  1999/06/07 01:55:04  robertj
 116  * Added test for default driver function in sound classes.
 117  *
 118  * Revision 1.7  1999/05/28 14:07:18  robertj
 119  * Added function to get default audio device.
 120  *
 121  * Revision 1.6  1999/03/29 03:39:56  robertj
 122  * Changed semantics of PTitledWindow::OnClose() function.
 123  *
 124  * Revision 1.5  1999/02/23 07:11:29  robertj
 125  * Improved trace facility adding trace levels and #define to remove all trace code.
 126  *
 127  * Revision 1.4  1999/02/22 10:15:16  robertj
 128  * Sound driver interface implementation to Linux OSS specification.
 129  *
 130  * Revision 1.3  1999/01/31 00:59:27  robertj
 131  * Added IP Access Control List class to PTLib Components
 132  *
 133  * Revision 1.2  1998/12/23 01:17:29  robertj
 134  * PWCLib test
 135  *
 136  */
 137
 138 #include <pwlib.h>
 139 #include <ptlib/videoio.h>
 140 #include <ptclib/ipacl.h>
 141 #include <ptclib/url.h>
 142 #include <ptclib/asner.h>
 143 #include <ptclib/random.h>
 144 #include <ptclib/inetmail.h>
 145 #if P_SSL
 146 #include <ptclib/pssl.h>
 147 #include <ptclib/http.h>
 148 #endif
 149
 150 #include "resources.h"
 151
 152
 153 class OpenSoundFileDialog : public POpenFileDialog
 154 {
 155   PCLASSINFO(OpenSoundFileDialog, POpenFileDialog)
 156   public:
 157     OpenSoundFileDialog(MainWindow * parent);
 158
 159     virtual void OnInit();
 160
 161     const PString & GetDriver() const { return driver; }
 162     BOOL GetWait() const { return waitFlag; }
 163
 164   private:
 165     PString driver;
 166     BOOL    waitFlag;
 167 };
 168
 169
 170 class SaveSoundFileDialog : public PSaveFileDialog
 171 {
 172   PCLASSINFO(SaveSoundFileDialog, PSaveFileDialog)
 173   public:
 174     SaveSoundFileDialog(MainWindow * parent);
 175
 176     virtual void OnInit();
 177
 178     const PString & GetDriver() const { return driver; }
 179
 180   private:
 181     PString driver;
 182 };
 183
 184
 185 PCREATE_PROCESS(Pwtest);
 186
 187 #define new PNEW
 188
 189
 190 Pwtest::Pwtest()
 191   : PApplication("Equivalence", "pwtest", 1, 0, AlphaCode, 1)
 192 {
 193   PTrace::SetLevel(1);
 194   PTrace::SetOptions(PTrace::Blocks);
 195 }
 196
 197
 198 #define TEST_TIME(t) PTRACE(1, t << " => " << PTime(t))
 199
 200 void Pwtest::Main()
 201 {
 202   PTRACE_BLOCK("Pwtest::Pwtest()");
 203   PTRACE(2, GetName() << " v" << GetVersion(TRUE));
 204
 205   PTime now;
 206   PTRACE(1, "Time is now " << now.AsString("h:m:s.u d/M/y"));
 207   PTRACE(1, "Time is now " << now.AsString("yyyy/MM/dd h:m:s.uuuu"));
 208   PTRACE(1, "Time is now " << now.AsString("MMM/d/yyyyy w h:m:sa"));
 209   PTRACE(1, "Time is now " << now.AsString("wwww d/M/yyy h:m:s.uu"));
 210   PTRACE(1, "Time is now " << now.AsString("www d/MMMM/yy h:m:s.uuu"));
 211
 212   TEST_TIME("20010203T1234Z");
 213   TEST_TIME("20010203T1234");
 214   TEST_TIME("20010203T0034");
 215   TEST_TIME("20010203T10034");
 216   TEST_TIME("20010203T123456+1100");
 217   TEST_TIME("20010203T000056");
 218   TEST_TIME("20010203T123456");
 219   TEST_TIME("2001-02-03 T 12:34:56");
 220   TEST_TIME("5/03/1999 12:34:56");
 221   TEST_TIME("15/06/1999 12:34:56");
 222   TEST_TIME("15/06/01 12:34:56 PST");
 223   TEST_TIME("5/06/02 12:34:56");
 224   TEST_TIME("5/23/1999 12:34am");
 225   TEST_TIME("5/23/00 12:34am");
 226   TEST_TIME("1999/23/04 12:34:56");
 227   TEST_TIME("Mar 3, 1999 12:34pm");
 228   TEST_TIME("3 Jul 2004 12:34pm");
 229   TEST_TIME("12:34:56 5 December 1999");
 230   TEST_TIME("10 minutes ago");
 231   TEST_TIME("2 weeks");
 232
 233   PTRACE(1, "Testing timer resolution, reported as " << PTimer::Resolution() << "ms");
 234   time_t oldSec = time(NULL);   // Wait for second boundary
 235   while (oldSec == time(NULL))
 236     ;
 237
 238   oldSec++;
 239   PTimeInterval newTick = PTimer::Tick();
 240   PTimeInterval oldTick = newTick;
 241   unsigned count = 0;
 242
 243   while (oldSec == time(NULL)) {  // For one full second
 244     while (newTick == oldTick)
 245       newTick = PTimer::Tick();
 246     oldTick = newTick;
 247     count++;                      // Count the changes in tick
 248   } ;
 249
 250   PTRACE(1, "Actual resolution is " << 1000000/count << "us");
 251
 252   oldTick = 123456;
 253   PTRACE(1, "TimeInterval output: \"" << setw(15) << newTick << '"');
 254   PTRACE(1, "TimeInterval output: \"" << setw(15) << oldTick << '"');
 255   int p;
 256   for (p = 3; p < 10; p++)
 257     PTRACE(1, "TimeInterval output: " << p << " \""
 258            << setiosflags(ios::scientific)
 259            << setw(p) << setprecision(2) << oldTick
 260            << resetiosflags(ios::scientific) << '"');
 261   for (p = 3; p < 20; p++)
 262     PTRACE(1, "TimeInterval output: " << p << " \""
 263            << setw(p) << setprecision(2) << oldTick << '"');
 264
 265   PPER_Stream strm;
 266   PASN_ObjectId id;
 267   id = "0.0.8.2250.0.2";
 268   id.Encode(strm);
 269   strm.CompleteEncoding();
 270   PTRACE(1, "OID " << id << " -> " << strm);
 271
 272   PASN_Integer asn_int1, asn_int2;
 273   asn_int1 = 123456789;
 274   strm.BeginEncoding();
 275   asn_int1.Encode(strm);
 276   strm.CompleteEncoding();
 277   strm.ResetDecoder();
 278   asn_int2.Decode(strm);
 279   PTRACE(1, "ASN +ve Integer " << asn_int1 << " -> " << strm << " -> " << asn_int2);
 280
 281   asn_int1 = (unsigned)-12345;
 282   strm.BeginEncoding();
 283   asn_int1.Encode(strm);
 284   strm.CompleteEncoding();
 285   strm.ResetDecoder();
 286   asn_int2.Decode(strm);
 287   PTRACE(1, "ASN -ve Integer " << asn_int1 << " -> " << strm << " -> " << asn_int2);
 288
 289   SetAboutDialogID(IDD_ABOUT);
 290
 291   new MainWindow(GetArguments());
 292
 293   PApplication::Main();
 294 }
 295
 296
 297 MainWindow::MainWindow(PArgList &)
 298 {
 299   PTRACE_BLOCK("Pwtest::Pwtest()");
 300
 301   SetTitle(PResourceString(IDS_TITLE));
 302   SetIcon(PIcon(IDI_MAIN_WINDOW));
 303   myMenu = new MainMenu(this);
 304   SetMenu(myMenu);
 305
 306 #if ! defined(P_MOTIF) && ! defined(P_LESSTIF) && ! defined(P_QT)
 307   static const PButtonBar::ButtonID cmds[] = {
 308     { 1, "IP_ACL", IDM_TEST_ENABLED, IDM_TEST_DISABLED, IDS_TEST_BUTTON }
 309   };
 310   buttonBar = new PButtonBar(this, cmds, PARRAYSIZE(cmds));
 311 #endif
 312
 313   statusBar = new PStatusBar(this, 2);
 314   statusBar->SetSectionWidth(1, 20);
 315
 316 #if ! defined(P_MOTIF) && ! defined(P_LESSTIF) && ! defined(P_QT)
 317   new PMDIDocWindow(this, "Test");
 318 #endif
 319
 320   UpdateCommandSources();
 321   ShowAll();
 322 }
 323
 324
 325 void MainWindow::NewCmd(PMenuItem &, INT)
 326 {
 327 #if ! defined(P_MOTIF) && ! defined(P_LESSTIF) && ! defined(P_QT)
 328   PMDIDocWindow * child = new PMDIDocWindow(this, "fred");
 329   child->Show();
 330 #endif
 331 }
 332
 333
 334 void MainWindow::OpenCmd(PMenuItem &, INT)
 335 {
 336   POpenFileDialog dlg(this);
 337   if (dlg.RunModal()) {
 338     PTextFile file;
 339     if (file.Open(dlg.GetFile())) {
 340       PString str = file.ReadString(file.GetLength());
 341     }
 342   }
 343 }
 344
 345
 346 void MainWindow::CloseCmd(PMenuItem &, INT)
 347 {
 348   // Close document
 349 }
 350
 351
 352 void MainWindow::SaveCmd(PMenuItem & item, INT)
 353 {
 354   // Save current document
 355   PINDEX pos;
 356   pos = item.GetPosition();
 357   pos = item.GetMenu()->GetPosition();
 358 }
 359
 360
 361 void MainWindow::SaveAsCmd(PMenuItem &, INT)
 362 {
 363   PSaveFileDialog dlg(this);
 364   if (dlg.RunModal()) {
 365     // Save document to new name
 366   }
 367 }
 368
 369
 370 void MainWindow::PrintCmd(PMenuItem &, INT)
 371 {
 372   PPrintJobDialog dlg(this, printInfo);
 373   if (dlg.RunModal()) {
 374     printInfo = dlg.GetPrintInfo();
 375     PPrintCanvas canvas("pwtest", printInfo);
 376
 377     // Add printing code here
 378   }
 379 }
 380
 381
 382 void MainWindow::PrinterSetupCmd(PMenuItem &, INT)
 383 {
 384   PPrinterSetupDialog dlg(this, printInfo);
 385   if (dlg.RunModal())
 386     printInfo = dlg.GetPrintInfo();
 387 }
 388
 389
 390 void MainWindow::ExitCmd(PMenuItem &, INT)
 391   // The Exit menu ... well ... exits.
 392 {
 393   owner->Terminate();
 394 }
 395
 396
 397 void MainWindow::CopyCmd()
 398 {
 399   PClipboard clip(this);
 400   // Do something with the clipboard
 401 }
 402
 403
 404 BOOL MainWindow::CanCopy()
 405 {
 406   // If want copy menu enabled
 407   return TRUE;
 408 }
 409
 410
 411 void MainWindow::PasteCmd()
 412 {
 413   PClipboard clip(this);
 414   // Do something with the clipboard
 415 }
 416
 417
 418 BOOL MainWindow::CanPaste()
 419 {
 420   // If want paste menu enabled, ie clipboard has right format
 421   return TRUE;
 422 }
 423
 424
 425 void MainWindow::OnRedraw(PCanvas & canvas)
 426 {
 427   PPattern::Bits pat = { 0x81, 0x42, 0x24, 0x18, 0x18, 0x24, 0x42, 0x81 };
 428   canvas.SetFillPattern(PPattern(pat));
 429   canvas.FillRect(100, 100, 100, 100);
 430   canvas.FillRect(150, 150, 100, 100);
 431 }
 432
 433
 434 void MainWindow::OnResize(const PDim & newSize, ResizeType type)
 435 {
 436   if (type != Iconic) {
 437     PRect bounds(newSize);
 438 #if ! defined(P_MOTIF) && ! defined(P_LESSTIF) && ! defined(P_QT)
 439     buttonBar->AutoAdjustBounds(bounds, AdjustTop);
 440 #endif
 441     statusBar->AutoAdjustBounds(bounds, AdjustBottom);
 442 #if ! defined(P_MOTIF) && ! defined(P_LESSTIF) && ! defined(P_QT)
 443     SetDocumentArea(bounds, PixelCoords);
 444 #endif
 445   }
 446 }
 447
 448
 449 void MainWindow::OnClose()
 450 {
 451   PTopLevelWindow::OnClose();
 452 }
 453
 454
 455
 456 void MainWindow::TestCmd()
 457 {
 458   myMenu->menuTestItem->SetString("Test Menu");
 459 }
 460
 461
 462 void MainWindow::IP_ACL_Cmd()
 463 {
 464   PIpAccessControlList list;
 465
 466   list.LoadHostsAccess("ipop3d");
 467   list.Add("10.0.2.0/24");
 468   list.Add("192.168.");
 469   list.Add(".nr.equival.net");
 470   list.Add("-hadron.nr.equival.net");
 471   list.Add("-10.0.2.1");
 472   list.Add("203.41.8.86/255.255.255.248");
 473   list.Add("-ALL");
 474
 475   PINDEX i;
 476   PStringStream str;
 477   for (i = 0; i < list.GetSize(); i++)
 478     str << list[i] << '\n';
 479
 480   static const char * const addresses[] = {
 481     "10.0.1.1", "10.0.1.4", "10.0.2.4", "10.0.2.1",
 482     //"129.168.1.1", "192.168.1.1",
 483     //"203.41.8.86", "203.41.8.80", "203.41.8.88"
 484   };
 485   for (i = 0; i < PARRAYSIZE(addresses); i++) {
 486     PIPSocket::Address addr(addresses[i]);
 487     str << '\n' << addr << ' ' << (list.IsAllowed(addr) ? "Allowed" : "Disallowed");
 488   }
 489
 490   PSimpleDialog::Info(this, str);
 491 }
 492
 493
 494 void MainWindow::ListInterfacesCmd(PMenuItem &, INT)
 495 {
 496   PStringStream str;
 497
 498   PIPSocket::InterfaceTable interfaces;
 499   if (PIPSocket::GetInterfaceTable(interfaces)) {
 500     str << "Interfaces:\n";
 501     for (PINDEX i = 0; i < interfaces.GetSize(); i++)
 502       str << "    "
 503           << interfaces[i].GetName() << ' '
 504           << interfaces[i].GetAddress() << ' '
 505           << interfaces[i].GetNetMask() << ' '
 506           << interfaces[i].GetMACAddress() << '\n';
 507   }
 508   else
 509     str << "Error getting interfaces.";
 510
 511   PSimpleDialog::Info(this, str);
 512 }
 513
 514
 515 void MainWindow::ParseURLCmd()
 516 {
 517   ParseURLDialog dlg(this);
 518
 519   dlg.filePath = FALSE;
 520
 521   if (!dlg.RunModal())
 522     return;
 523
 524   PURL url;
 525
 526   if (dlg.filePath) {
 527     PFilePath path = dlg.url;
 528     url = path;
 529   }
 530   else
 531     url = dlg.url;
 532
 533   PStringStream str;
 534
 535   str << "URL: " << url << "\n"
 536          "Scheme: " << url.GetScheme() << "\n"
 537          "Host: " << url.GetHostName() << "\n"
 538          "Port: " << url.GetPort() << "\n"
 539          "Username: " << url.GetUserName() << "\n"
 540          "Password: " << url.GetPassword() << "\n"
 541          "Fragment: " << url.GetFragment() << "\n";
 542
 543   PINDEX i;
 544   if (url.GetPath().IsEmpty())
 545     str << "Path: " << url.GetPathStr() << '\n';
 546   else {
 547     str << (url.GetRelativePath() ? "Relative" : "Absolute") << '\n';
 548     for (i = 0; i < url.GetPath().GetSize(); i++)
 549       str << "Path[" << i << "]: " << url.GetPath()[i] << '\n';
 550   }
 551
 552   for (i = 0; i < url.GetParamVars().GetSize(); i++)
 553     str << "Param[" << i << "]: "
 554         << url.GetParamVars().GetKeyAt(i) << " = "
 555         << url.GetParamVars().GetDataAt(i) << '\n';
 556
 557   for (i = 0; i < url.GetQueryVars().GetSize(); i++)
 558     str << "Query[" << i << "]: "
 559         << url.GetQueryVars().GetKeyAt(i) << " = "
 560         << url.GetQueryVars().GetDataAt(i) << '\n';
 561
 562   str << "FilePath: " << url.AsFilePath() << '\n';
 563
 564   str.Replace("&", "&&", TRUE);
 565
 566   PSimpleDialog::Info(this, str);
 567 }
 568
 569
 570 void MainWindow::PlaySoundCmd()
 571 {
 572   OpenSoundFileDialog dlg(this);
 573   if (!dlg.RunModal())
 574     return;
 575
 576   PSoundChannel player;
 577   if (!player.Open(dlg.GetDriver(), PSoundChannel::Player)) {
 578     PSimpleDialog::Error(this, "Could not open driver: "+dlg.GetDriver());
 579     return;
 580   }
 581
 582   player.SetBuffers(65536, 8);
 583
 584   if (!player.PlayFile(dlg.GetFile(), dlg.GetWait()))
 585     PSimpleDialog::Error(this, "Could not play file: "+dlg.GetFile());
 586 }
 587
 588
 589 OpenSoundFileDialog::OpenSoundFileDialog(MainWindow * parent)
 590   : POpenFileDialog(parent)
 591 {
 592   waitFlag = TRUE;
 593   AddFileType(".wav");
 594 }
 595
 596
 597 void OpenSoundFileDialog::OnInit()
 598 {
 599   POpenFileDialog::OnInit();
 600
 601   PDim dim = GetDimensions(LocalCoords);
 602
 603   driver = PSoundChannel::GetDefaultDevice(PSoundChannel::Player);
 604   PStringArray driverNames = PSoundChannel::GetDeviceNames(PSoundChannel::Player);
 605
 606   PComboBox * drivers = new PComboBox(this);
 607   drivers->SetValuePointer(&driver);
 608   for (PINDEX i = 0; i < driverNames.GetSize(); i++) {
 609     drivers->AddString(driverNames[i]);
 610     if (driverNames[i] == driver)
 611       drivers->SetCurrent(i);
 612   }
 613   drivers->SetPosition(20, dim.Height());
 614   drivers->SetDimensions(120, 60, LocalCoords);
 615   drivers->Show();
 616
 617   dim.AddHeight(20);
 618   if (dim.Width() <= 160)
 619     dim.SetWidth(160);
 620
 621   PCheckBox * wait = new PCheckBox(this, "Wait", waitFlag);
 622   wait->SetValuePointer(&waitFlag);
 623   wait->SetPosition(20, dim.Height());
 624   wait->Show();
 625
 626   PDim ctlDim = wait->GetDimensions(LocalCoords);
 627   dim.AddHeight(ctlDim.Height() + 10);
 628   if (dim.Width() <= ctlDim.Width()+40)
 629     dim.SetWidth(ctlDim.Width()+41);
 630
 631   SetDimensions(dim, LocalCoords);
 632 }
 633
 634
 635 void MainWindow::RecordSoundCmd()
 636 {
 637   SaveSoundFileDialog dlg(this);
 638   if (!dlg.RunModal())
 639     return;
 640
 641   PSoundChannel recorder;
 642   if (!recorder.Open(dlg.GetDriver(), PSoundChannel::Recorder)) {
 643     PSimpleDialog::Error(this, "Could not open driver: "+dlg.GetDriver());
 644     return;
 645   }
 646
 647   recorder.SetBuffers(8*8000, 2); // 8 x 8 second buffers
 648
 649   if (!recorder.RecordFile(dlg.GetFile()))
 650     PSimpleDialog::Error(this, "Could not record file: "+dlg.GetFile());
 651 }
 652
 653
 654 SaveSoundFileDialog::SaveSoundFileDialog(MainWindow * parent)
 655   : PSaveFileDialog(parent)
 656 {
 657   SetDefaultFileType(".wav");
 658 }
 659
 660
 661 void SaveSoundFileDialog::OnInit()
 662 {
 663   PSaveFileDialog::OnInit();
 664
 665   PDim dim = GetDimensions(LocalCoords);
 666
 667   driver = PSoundChannel::GetDefaultDevice(PSoundChannel::Recorder);
 668   PStringArray driverNames = PSoundChannel::GetDeviceNames(PSoundChannel::Recorder);
 669
 670   PComboBox * drivers = new PComboBox(this);
 671   drivers->SetValuePointer(&driver);
 672   for (PINDEX i = 0; i < driverNames.GetSize(); i++) {
 673     drivers->AddString(driverNames[i]);
 674     if (driverNames[i] == driver)
 675       drivers->SetCurrent(i);
 676   }
 677   drivers->SetPosition(20, dim.Height());
 678   drivers->SetDimensions(120, 60, LocalCoords);
 679   drivers->Show();
 680
 681   dim.AddHeight(20);
 682   if (dim.Width() <= 160)
 683     dim.SetWidth(160);
 684
 685   SetDimensions(dim, LocalCoords);
 686 }
 687
 688
 689 void MainWindow::VideoCaptureCmd()
 690 {
 691   PStringList drivers = PVideoInputDevice::GetDriverNames();
 692   if (drivers.IsEmpty()) {
 693     PSimpleDialog::Error(this, "No video grabber drivers.");
 694     return;
 695   }
 696
 697   PVideoInputDevice * grabber = PVideoInputDevice::CreateDevice(drivers[0]);
 698   if (grabber == NULL()) {
 699     PSimpleDialog::Error(this, "Cannot create video input device for driver " + drivers[0]);
 700     return;
 701   }
 702
 703   PStringList devices = grabber->GetDeviceNames();
 704   if (devices.IsEmpty()) {
 705     PSimpleDialog::Error(this, "No video grabber devices.");
 706     return;
 707   }
 708
 709   if (!grabber->Open(devices[0], FALSE)) {
 710     PSimpleDialog::Error(this, "Could not open device " + devices[0]);
 711     return;
 712   }
 713
 714   grabber->SetFrameRate(25);
 715   grabber->SetColourFormatConverter("RGB32");
 716
 717   grabber->Start();
 718
 719   PTimeInterval startTime = PTimer::Tick();
 720   PBYTEArray buffer(grabber->GetMaxFrameBytes());
 721   PINDEX i;
 722   for (i = 0; i < 100; i++) {
 723     if (!grabber->GetFrameData(buffer.GetPointer()))
 724       break;
 725   }
 726
 727   grabber->Stop();
 728
 729   if (i < 100)
 730     PSimpleDialog::Error(this, "Error in grab.");
 731   else {
 732     long time = (long)(PTimer::Tick() - startTime).GetMilliSeconds();
 733     PSimpleDialog::Info(this, "Grabbed 100 frames in %lu ms (%u f/s).", time, 100000/time);
 734
 735     unsigned width, height;
 736     grabber->GetFrameSize(width, height);
 737     PPixelImage image(width, height, 32);
 738     memcpy(image->GetPixelDataPtr(), buffer, buffer.GetSize());
 739     PFile file("c:\\capture.bmp", PFile::WriteOnly);
 740     image->Write(file);
 741   }
 742
 743   delete grabber;
 744 }
 745
 746
 747 void MainWindow::StressTimeout(PTimer & timer, INT)
 748 {
 749   TimerStressReport << PTimer::Tick().GetMilliSeconds() << "\tTimeout\t" << (void *)&timer << endl;
 750   timer = PRandom::Number()%10000;
 751 }
 752
 753
 754 void MainWindow::TimerStressCmd()
 755 {
 756   if (!TimerStressReport.Open("TimerStress.txt", PFile::WriteOnly)) {
 757     PSimpleDialog::Error(this, "Could not open \"TimerStress.txt\"!");
 758     return;
 759   }
 760
 761   PINDEX i;
 762   PTimer * timers[1000];
 763
 764   for (i = 0; i < PARRAYSIZE(timers); i++)
 765     timers[i] = NULL;
 766
 767   static const PINDEX numTests = 100000;
 768   PINDEX activeTimers = 0;
 769   PINDEX highWatermark = 0;
 770
 771   for (i = 0; i < numTests; i++) {
 772     PINDEX t = PRandom::Number()%PARRAYSIZE(timers);
 773     if (timers[t] != NULL) {
 774       TimerStressReport << PTimer::Tick().GetMilliSeconds() << "\tDestroy\t" << (void *)timers[t] << endl;
 775       delete timers[t];
 776       timers[t] = NULL;
 777       activeTimers--;
 778     }
 779     else {
 780       timers[t] = new PTimer(PRandom::Number()%10000);
 781       timers[t]->SetNotifier(PCREATE_NOTIFIER(StressTimeout));
 782       TimerStressReport << PTimer::Tick().GetMilliSeconds() << "\tCreate\t" << (void *)timers[t] << endl;
 783       activeTimers++;
 784       if (activeTimers > highWatermark)
 785         highWatermark = activeTimers;
 786     }
 787     PThread::Current()->Sleep(PRandom::Number()%100);
 788
 789     if ((i%(numTests/100)) == 0) {
 790       PTRACE(1, "Timer stress tested " << (i*100/numTests) << '%');
 791     }
 792   }
 793
 794   PTRACE(1, "Timer stress tested 100% (" << numTests
 795          << " iterations), max simultaneous timers: " << highWatermark);
 796
 797   for (i = 0; i < PARRAYSIZE(timers); i++)
 798     delete timers[i];
 799
 800   TimerStressReport.Close();
 801 }
 802
 803
 804 void MainWindow::MailTestCmd()
 805 {
 806   {
 807     PRFC822Channel simple(PRFC822Channel::Sending);
 808     simple.SetFromAddress("postmaster");
 809     simple.SetToAddress(PProcess::Current().GetUserName());
 810     simple.SetSubject("Test of RFC822 class.");
 811
 812     if (!simple.SendWithSMTP("mail"))
 813       PSimpleDialog::Error(this, "Error in sending message.");
 814
 815     simple << "This is a simple test.\n\n";
 816     for (PINDEX i = 1; i < 10; i++)
 817       simple << "  Line number " << i << "\n";
 818     simple << "\nEnd of test.\n";
 819   }
 820
 821   PRFC822Channel complex(PRFC822Channel::Sending);
 822   complex.SetFromAddress("postmaster");
 823   complex.SetToAddress(PProcess::Current().GetUserName());
 824   complex.SetSubject("Test of RFC822 class.");
 825
 826   if (!complex.SendWithSMTP("mail"))
 827     PSimpleDialog::Error(this, "Error in sending message.");
 828
 829   PString boundary = complex.MultipartMessage();
 830
 831   complex << "\nThis is the first part of a multipart message.\n";
 832   complex.NextPart(boundary);
 833
 834   complex << "\n\nThis is the second part of a multipart message.\n";
 835   complex.NextPart(boundary);
 836
 837   complex.SetContentType("text/html");
 838   complex << "<HTML><BODY>\n"
 839              "<H1>Third Page</H1>\n"
 840              "This is the third part of a multipart message.\n"
 841              "</BODY></HTML>";
 842
 843   complex.NextPart(boundary);
 844   complex.SetContentAttachment("plushot.gif");
 845   complex.SetTransferEncoding("base64");
 846   static BYTE binaryStuff[] = {
 847     0x47, 0x49, 0x46, 0x38, 0x39, 0x61, 0x09, 0x00,
 848     0x09, 0x00, 0xA2, 0x00, 0x00, 0x00, 0x00, 0xFF,
 849     0x5F, 0x8A, 0xC5, 0xFF, 0xFF, 0xFF, 0xCC, 0xCC,
 850     0xCC, 0x66, 0x66, 0x66, 0x00, 0x00, 0x00, 0x00,
 851     0x00, 0x00, 0x00, 0x00, 0x00, 0x2C, 0x00, 0x00,
 852     0x00, 0x00, 0x09, 0x00, 0x09, 0x00, 0x00, 0x03,
 853     0x1D, 0x4A, 0xBA, 0x5A, 0x24, 0x30, 0x0A, 0x27,
 854     0xC6, 0x00, 0x76, 0xD0, 0x11, 0x40, 0xB0, 0x14,
 855     0x20, 0x8A, 0xDA, 0xC3, 0x79, 0xA0, 0x79, 0x65,
 856     0x5B, 0x06, 0x16, 0x70, 0x1C, 0x27, 0x00, 0x3B
 857   };
 858   complex.Write(binaryStuff, sizeof(binaryStuff));
 859
 860   complex.NextPart(boundary);
 861   complex.SetTransferEncoding("8bit");
 862   complex.SetContentType("text/plain");
 863   complex << "This is the last part of a multipart message.\n";
 864 }
 865
 866
 867 #if P_SSL
 868 void MainWindow::TestSSLCmd()
 869 {
 870   PTCPSocket tcp(443);
 871   if (tcp.Connect("www.microtelco.com")) {
 872     PSSLChannel ssl;
 873     if (ssl.Connect(tcp)) {
 874       PHTTPClient http;
 875       if (http.Open(ssl)) {
 876         PString content;
 877         if (http.GetTextDocument("/", content))
 878           PSimpleDialog::Info(this, "Success!\n" + content.Left(200));
 879         else
 880           PSimpleDialog::Error(this, "HTTP GET from server failed: " + http.GetErrorText());
 881       }
 882       else
 883         PSimpleDialog::Error(this, "HTTP connect to server failed: " + http.GetErrorText());
 884     }
 885     else
 886       PSimpleDialog::Error(this, "SSL connect to server failed: " + ssl.GetErrorText());
 887   }
 888   else
 889     PSimpleDialog::Error(this, "TCP connect to server failed: " + tcp.GetErrorText());
 890 }
 891 #endif
 892
 893 // End of File ///////////////////////////////////////////////////////////////