comparison: libpurple/plugins/perl/scripts/gtk_frame_test.pl
libpurple/plugins/perl/scripts/gtk_frame_test.pl
- changeset 15894
- 765ec644ac47
- parent 15435
- 4b933b06d75e
- child 16238
- 33bf2fd32108
- child 16241
- 0c4919abc3b7
- child 20478
- 46933dc62880
equal
deleted
inserted
replaced
| 15893:b9be4c428c3e | 15894:765ec644ac47 |
|---|---|
| 1 $MODULE_NAME = "GTK Frame Test"; | 1 $MODULE_NAME = "GTK Frame Test"; |
| 2 | 2 |
| 3 use Gaim; | 3 use Purple; |
| 4 | 4 |
| 5 %PLUGIN_INFO = ( | 5 %PLUGIN_INFO = ( |
| 6 perl_api_version => 2, | 6 perl_api_version => 2, |
| 7 name => " Perl: $MODULE_NAME", | 7 name => " Perl: $MODULE_NAME", |
| 8 version => "0.1", | 8 version => "0.1", |
| 55 ######### TEST CODE HERE ########## | 55 ######### TEST CODE HERE ########## |
| 56 | 56 |
| 57 print "$MODULE_NAME: Loading...\n"; | 57 print "$MODULE_NAME: Loading...\n"; |
| 58 | 58 |
| 59 | 59 |
| 60 Gaim::debug_info("plugin_load()", "Testing $MODULE_NAME Completed."); | 60 Purple::debug_info("plugin_load()", "Testing $MODULE_NAME Completed."); |
| 61 print "#" x 80 . "\n\n"; | 61 print "#" x 80 . "\n\n"; |
| 62 } | 62 } |
| 63 | 63 |
| 64 sub plugin_unload { | 64 sub plugin_unload { |
| 65 | 65 |
