From 5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 19 May 2008 08:37:41 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm') 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"); } } -- cgit v1.2.3