summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-19 08:37:41 +0000
committerNorbert Preining <preining@logic.at>2008-05-19 08:37:41 +0000
commit5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe (patch)
treeb00bfdb0be26f8f7ce3d626ac084b987c608c511 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent58c870fa77e1ede0e7b21a7791d0fa5b8fd1542b (diff)
big logging update, new logging facilities: info, debug, ddebug, tlwarn
and a way to automatically process the respective options -q and -v via TeXLive::TLUtils::process_logging_options(); git-svn-id: svn://tug.org/texlive/trunk@8234 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm26
1 files changed, 13 insertions, 13 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index c4e07001c3b..513c5c0724e 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -261,7 +261,7 @@ sub reg_country {
$value = substr $value, -4;
my $lm = $Registry -> Open("HKEY_CLASSES_ROOT/MIME/Database/Rfc1766/",
{Access => KEY_READ()})->{"/$value"};
- tllog($::LOG_DEBUG, "found lang codes value = $value, lm = $lm...\n");
+ debug("found lang codes value = $value, lm = $lm...\n");
if ($lm) {
return(substr $lm, 0, 2);
}
@@ -537,7 +537,7 @@ sub add_texbindir_to_path {
$wg_error = 1;
$wg_error_message =
"Warning: possibly conflicting [pdf]TeX program found at $d_exp\n";
- tllog($::LOG_DEBUG, $wg_error_message);
+ debug($wg_error_message);
}
}
}
@@ -623,7 +623,7 @@ sub remove_texbindirs_from_path {
sub reg_delete_recurse {
my $parent = shift;
my $childname = shift;
- tllog ($::LOG_DDDEBUG, "Deleting $childname regkey\n");
+ ddebug("Deleting $childname regkey\n");
if ($childname !~ '^/') { # subkey
my $child = $parent->Open ($childname, {Access => KEY_ALL_ACCESS()});
return unless $child;
@@ -660,7 +660,7 @@ sub register_script_type {
$extension = uc($extension);
my $command = shift;
$command =~s/\//\\/g;
- tllog ($::LOG_DDEBUG, "Linking $extension to $command\n");
+ debug("Linking $extension to $command\n");
my $user_env = get_user_env();
my $system_env = get_system_env();
my ($classes_key, $k);
@@ -708,12 +708,12 @@ sub unregister_script_type {
my $extension = shift;
$extension = '.'.$extension unless $extension =~ /^\./; # ensure leading dot
$extension = uc($extension);
- tllog ($::LOG_DDEBUG, "unregistering $extension\n");
+ debug("unregistering $extension\n");
#my $user_env = get_user_env();
#my $system_env = get_system_env();
# file type
- tllog ($::LOG_DDEBUG, "Deleting texlua filetype\n");
+ debug("Deleting texlua filetype\n");
$extension = lc($extension);
my $classes_key = $Registry -> Open("CUser/Software/Classes/",
{Access => KEY_ALL_ACCESS()});
@@ -721,7 +721,7 @@ sub unregister_script_type {
reg_delete_recurse ($classes_key, $extension."/");
reg_delete_recurse ($classes_key, "script".$extension."/");
} else {
- tllog ($::LOG_DDEBUG, "Cannot open HKCU classes for write\n");
+ debug("Cannot open HKCU classes for write\n");
}
if ($is_admin) {
$classes_key = $Registry -> Open("LMachine/Software/Classes/",
@@ -730,7 +730,7 @@ sub unregister_script_type {
reg_delete_recurse ($classes_key, $extension."/");
reg_delete_recurse ($classes_key, "script".$extension."/");
} else {
- tllog ($::LOG_DDEBUG, "Cannot open HKLM classes for write\n");
+ debug("Cannot open HKLM classes for write\n");
}
reg_delete_recurse ($classes_key, "script$extension");
}
@@ -758,11 +758,11 @@ sub broadcast_env() {
my $result = "";
my $SendMessage;
$wg_error = 0;
- tllog($::LOG_DDEBUG, "Broadcasting \"Enviroment settings changed\" message...\n");
+ debug("Broadcasting \"Enviroment settings changed\" message...\n");
$SendMessage = new Win32::API('user32', 'SendMessage', 'LLPP', 'L');
$result = $SendMessage->Call(HWND_BROADCAST, WM_SETTINGCHANGE,
0, 'Environment') if $SendMessage;
- tllog ($::LOG_DDEBUG, "Broadcast complete; result: $result.\n");
+ debug("Broadcast complete; result: $result.\n");
}
=pod
@@ -778,11 +778,11 @@ sub update_assocs() {
use constant SHCNF_IDLIST => 0;
my $update_fu = new Win32::API('shell32', 'SHChangeNotify', 'LIPP', 'V');
if ($update_fu) {
- tllog ($::LOG_DDEBUG, "Notifying changes in filetypes...\n");
+ debug("Notifying changes in filetypes...\n");
$update_fu->Call (SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
- tllog ($::LOG_DDEBUG, "Done notifying\n");
+ debug("Done notifying\n");
} else {
- tllog ($::LOG_DDEBUG, "No update_fu\n");
+ debug("No update_fu\n");
}
}